COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-299
WRITE for Sequential Files
Example 9-75. ADVANCING Phrase
ENVIRONMENT DIVISION.
...
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MASTER-RANDOM-FILE
ASSIGN TO "$MARKT.PLATZ.RPT"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS M-R-STATUS.
...
DATA DIVISION.
FILE SECTION.
...
FD MKT-REPORT
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 132 CHARACTERS
LINAGE IS 60 LINES
WITH FOOTING AT FOOTLINE
LINES AT TOP TOPLINES
LINES AT BOTTOM BOTTOMLINES.
01 PRINT-LINE-OUT PIC X(132).
...
WORKING-STORAGE SECTION.
01 LINAGE-STUFF.
03 FOOTLINE PIC 99 VALUE 45.
03 TOPLINES PIC 99 VALUE 0.
03 BOTTOMLINES PIC 99 VALUE 6.
...
PROCEDURE DIVISION.
...
WRITE-DETAIL.
WRITE PRINT-LINE-OUT FROM DETAIL-LINE
AT EOP
PERFORM
ADD 1 TO PAGE-COUNTER
MOVE PAGE-COUNTER TO PAGE-NUMBER
* The next WRITE statement advances to the third
* line after the one just written, leaving two lines
* of spaces and printing on the third line.
WRITE PRINT-LINE-OUT FROM PAGE-NUMBER-LINE
AFTER ADVANCING 3 LINES
* The next WRITE statement advances to the top of
* the next page (issues a forms-control code to skip
* to channel 1.)
WRITE PRINT-LINE-OUT FROM DETAIL-HEADER
AFTER ADVANCING PAGE
MOVE SPACES TO PRINT-LINE-OUT
WRITE PRINT-LINE-OUT
END-PERFORM
END-WRITE
...