The text read off it
[90.05.04]
- Word 9 — next 6 characters of NAME
- Word 10 — next 6 characters of NAME
- Word 11 — last 5 characters of NAME; 1 blank
- Word 12 — 6 blanks
- Word 13 — 6 blanks
- Word 14 — 6 blanks
- Word 15 — 1 blank; first 5 characters of AMOUNT
- Word 16 — last 3 characters of AMOUNT; 3 blanks (supplied automatically)
b) Environment
The CHECKFILE is a BCD output tape file. A single record composed of the two lines is output as a block as specified by BLOCKSIZE 20 on the FILE card.
2. The PAYFILE
a) Data Description
Two types of records appear in the PAYFILE: an individual PAYRECORD which corresponds with each check issued, and DEPARTMENT.TOTAL summations. Department totals are accumulated in the internally formatted working area, INTERNAL.TOTALS, until a change in department number occurs; the fields of DEPARTMENT.TOTAL are external edited versions of INTERNAL.TOTALS.
In output report records blanks may be specified as a constant. If the format specification indicates the length of the field, it is unnecessary to provide the proper number of blanks between quote marks.
b) Environment Description
The FILE card for the PAYFILE describes an output, BCD tape file which may contain records PAYRECORD and DEPARTMENT.TOTAL. A BLOCKSIZE of 20 is specified to accommodate PAYRECORD. The shorter records, DEPARTMENT.TOTAL, will be written with proper length, and will always begin a new buffer. If this short record was only 10 words long, it would be necessary to specify BEGIN in the File Card to avoid grouping of the short records.
The pages that follow (PDF pp. 192–197) reproduce, as a landscape printer
listing, the actual compilation of the sample problem's source deck — the
DATA DIVISION, ENVIRONMENT DIVISION, and PROCEDURE DIVISION entries as
echoed by the COMTRAN processor, together with generated statement
addresses and the compiler's assigned names for literal/constant fields
(shown as GN)nnn). These pages carry no section-code header; each is
marked by its PDF page number.