5738PW1 V2R2M0 920615 SEU SOURCE LISTING SOURCE FILE . . . . . . . FONTSAMPLE/SOURCE MEMBER . . . . . . . . . COBOLCODE SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 100 100010 IDENTIFICATION DIVISION. 200 300 100020 PROGRAM-ID. PRINTLBL. 400 500 100030 ENVIRONMENT DIVISION. 600 700 100040 INPUT-OUTPUT SECTION. 800 900 100050 FILE-CONTROL. 1000 1100 100060 SELECT PRINTER-FILE 1200 1300 100070 ASSIGN TO FORMATFILE-FONT. 1400 1500 100080 DATA DIVISION. 1600 1700 100090 FILE SECTION. 1800 1900 100100 FD PRINTER-FILE 2000 2100 100110 DATA RECORD IS REC1. 2200 2300 100120 01 REC1. 2400 2500 100130 COPY DDS-ALL-FORMATS OF FONT. 2600 2700 100140 PROCEDURE DIVISION. 2800 2900 100150 MAIN-PARA. 3000 3100 100160 OPEN OUTPUT PRINTER-FILE. 3200 3300 100170 WRITE REC1 FORMAT IS "REC1". 3400 3500 100180 CLOSE PRINTER-FILE. 3600 * * * * E N D O F S O U R C E * * * *