CTITLEUTLCA -- TO LIST THE PROGRAM ABSTRACTS 00000020 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA 00000030 CA AUTHOR R. MCMILLAN 00000040 CA DESIGNER F. COLLINS 00000050 CA LANGUAGE S/370 COBOL 00000060 CA WRITTEN 1-30-76 00000070 CA 00000080 C DON'T FORGET TO CHANGE THE DOCUMENTATION IN DOCSECF. 00000090 CA 00000100 CA THIS PROGRAM IS PRIMARILY USED TO LIST THE PROGRAM ABSTRACTS. IT 00000110 CA MAY, HOWEVER, BE USED FOR OTHER PURPOSES. IT IS DESIGNED TO LIST 00000120 CA ONLY THOSE CARDS WITH A CERTAIN CODE IN COLUMNS 1 AND 2. THE CODES00000130 CA ARE DESIGNED TO BE COMMENT CARDS IN FORTRAN AND ASSEMBLY LANGUAGE 00000140 CA PROGRAMS. THE SECOND CHARACTER OF THE CODE MUST BE SPECIFIED AND 00000150 CA THE PROGRAM WILL USE THAT CHARACTER PREFIXED BY 'C' OR '*' AS THE 00000160 CA CODE. FOR THE PROGRAM ABSTRACTS THE CODES ARE 'CA' AND '*A'. 00000170 CA 00000180 CA FILE FT03F001 IS USED TO READ CERTAIN CONTROL PARAMETERS. THE 00000190 CA FORMAT FOR THE FIRST CARD SHOULD BE: 00000200 CA COL 7- 8 NUMBER OF COPIES DESIRED. 00000210 CA 9-10 NOT EQUAL TO ZERO IF TABLE OF CONTENTS IS DESIRED. 00000220 CA PAGES WILL BE NUMBERED SEQUENTIALLY. 00000230 CA 11-12 CODE TO BE LISTED ('CA' FOR PROGRAM ABSTRACTS). 00000240 CA THE PROGRAM WILL TAKE THIS TWO-CHARACTER CODE AND 00000250 CA REPLACE THE FIRST CHARACTER BY AN ASTERISK TO USE IN00000260 CA LISTING ASSEMBLY ROUTINES. 00000270 CA THE SECOND CARD, IF PRESENT, WILL BE USED AS THE TITLE FOR THE 00000280 CA TABLE OF CONTENTS. 00000290 CA 00000300 CA THE INPUT FILE TO BE LISTED IS ON FILE FT05F001. INTERSPERSED WITH00000310 CA THE CARDS TO BE LISTED MAY BE CARDS TO CONTROL PAGE NUMBERS, PAGE 00000320 CA EJECTS, ETC. THESE CONTROL CARDS ARE LISTED BELOW. 00000330 CA 00000340 CA KEYWORD COLUMNS DESCRIPTION 00000350 CA ------- ------- ----------- 00000360 CA 'CTITLE' 1- 6 USE COLUMNS 7 TO 72 AS THE TITLE FOR A 00000370 CA LIST (COLUMNS 7 TO 66 WILL APPEAR IN 00000380 CA THE TABLE OF CONTENTS). A TITLE CARD 00000390 CA SHOULD PRECEDE THE FIRST CARD WITH THE 00000400 CA LIST CODE ON IT AND WILL NOT BE LISTED 00000410 CA UNLESS THERE IS A CARD WITH THE LIST 00000420 CA CODE. 00000430 CA 00000440 CA LIST CODE 1- 2 'CA' OR '*A' FOR PROGRAM ABSTRACTS. 00000450 CA 'END ' 3- 6 END OF ONE LIST. 00000460 CA 00000470 CA LIST CODE 1- 2 COLUMNS 7 TO 66 ARE USED AS A SECONDARY00000480 CA 'INDM' 3- 6 COLUMN HEADING FOR THE TABLE OF 00000490 CA CONTENTS. THE HEADING IS PRINTED 00000500 CA IMMEDIATELY AND IS BLANKED BY AN 'END' 00000510 CA CARD. UNLESS BLANK, IT WILL BE PRINTED00000520 CA AT THE TOP OF A NEW PAGE AFTER THE 00000530 CA PRIMARY COLUMN HEADING. MAINLY USED 00000540 CA IN MULTIPLE ENTRY ROUTINES. 00000550 CA EJECT 00000551 CA KEYWORD COLUMNS DESCRIPTION 00000553 CA ------- ------- ----------- 00000556 CA 00000560 CA LIST CODE 1- 2 COLUMNS 7 TO 72 ARE USED AS COLUMN 00000570 CA 'INDX' 3- 6 HEADINGS FOR THE TABLE OF CONTENTS. 00000580 CA THE HEADING IS PRINTED IMMEDIATELY 00000610 CA AND AT THE TOP OF EACH NEW PAGE. 00000620 CA 00000630 CA LIST CODE 1- 2 START A NEW PAGE. (PAGE HEADING IS 00000640 CA 'EJECT ' 7-12 REPEATED). 00000650 CA OR 10-15 00000660 CA 00000670 CA 'END' 7- 9 END OF ONE LIST. 00000680 CA OR 10-12 00000690 CA 00000700 CA LIST CODE 1- 2 LIST ALL 80 COLUMNS UNTIL THE NEXT 808000000710 CA '8080' 3- 6 CARD IS FOUND. ONLY PAGE EJECTS ARE 00000720 CA HONORED BETWEEN 8080 CARDS. 00000730 CA 00000740 CA 'PAGENO' 7-12 INTEGER PART OF PAGE NUMBER REPLACED BY00000750 CA COLS. 13-18. 00000760 CA PAGE INCREMENT BY COLS. 19-24. 00000770 CA DECIMAL PART OF PAGE NUMBER IN COLS. 00000780 CA 25-30. (TWO DIGITS). 00000790 CA DECIMAL INCREMENT IN COLS. 31-36. 00000800 CA 00000810 CA EXAMPLE 1. 00000820 CA COLS 7 18 24 30 36 00000830 CA | | | | | 00000840 CA PAGENO 20 1 1 1 00000850 CA 00000860 CA THIS CARD WILL PRODUCE A PAGE NUMBER OF00000870 CA "20.1" FOLLOWED BY "20.2", "20.3", ...,00000880 CA "20.9", "20.10", "20.11", ..., "20.99".00000890 CA 00000900 CA EXAMPLE 2. 00000910 CA COLS 7 18 24 30 36 00000920 CA | | | | | 00000930 CA PAGENO 20 2 00000940 CA 00000950 CA THIS CARD WILL PRODUCE PAGE NUMBERS OF 00000960 CA "20", "22", "24", ETC. 00000970 CA 00000980 CA 00000990 CA THE LISTINGS WILL BE OUTPUT ON FT06F001. IF A TABLE OF CONTENTS IS00001000 CA SPECIFIED, IT WILL BE OUTPUT ON FT04F001. 00001010 CAEND 00001030 CTITLEUTLCU -- TO LIST THE USER'S GUIDE 00001040 CA 00001050 CA AUTHOR R. MCMILLAN 00001060 CA DESIGNER F. COLLINS 00001070 CA LANGUAGE S/370 COBOL 00001080 CA WRITTEN 1-30-76 00001090 CA 00001100 CA 00001110 CA THIS PROGRAM IS PRIMARILY USED TO LIST THE USER'S GUIDE. IT MAY,00001120 CA HOWEVER, BE USED FOR OTHER PURPOSES. THE FUNCTIONS ARE THE SAME AS00001130 CA UTLCA EXCEPT THAT 'CTITLE' AND 'INDM' CARDS ARE IGNORED. THE FIRST00001140 CA CARD OF A LIST WITH THE SPECIFIED LIST CODE IS USED AS THE TITLE00001150 CA OF THE LIST. FOR THE USER'S GUIDE THE LIST CODE IS 'CU'. 00001160 C 00001170 CAEND 00001180 CTITLEUTLPG -- TO LIST THE PROGRAMMER'S GUIDE 00001190 CA 00001200 CA AUTHOR R. MCMILLAN 00001210 CA DESIGNER F. COLLINS 00001220 CA LANGUAGE S/370 COBOL 00001230 CA WRITTEN 01-30-76 00001240 C REVISED 06-23-77 BY PKC TO PRINT BY SECTIONS. 00001250 CA 00001260 CA 00001270 CA THIS PROGRAM IS PRIMARILY USED TO LIST THE PROGRAMMER'S GUIDE. IT00001280 CA MY BE USED FOR OTHER PURPOSES. THE FUNCTIONS ARE THE SAME AS FOR00001290 CA UTLCA EXCEPT THAT 'INDX' CARDS CAN ONLY BE USED AT THE BEGINNING00001300 CA OF A SECTION. THIS IS BECAUSE THE PAGES ARE NUMBERED WITH A LETTER00001310 CA FOLLOWED BY A NUMBER (I.E. A-1) AND THE 'INDX' CARDS CAUSE THE00001320 CA SECTION LETTERS TO INCREMENT. ALSO WHEN USING 'PAGENO' THERE IS00001330 CA ANOTHER FIELD, COL. 37, THAT CONTAINS THE SECTION LETTER. THE LIST00001340 CA CODE USED TO PRINT THE PROGRAMMER'S GUIDE IS 'CA'. 00001350 CAEND 00001360 END 00001370