The POSITIONING UNIT clause is specified when defining unit names for determining printing positions. The defined positioning unit names are specified in the PRINTING POSITION clause of the data description entry.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The POSITIONING UNIT clause is used to control the printing 000035* positions. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 ENVIRONMENT DIVISION. 000080 CONFIGURATION SECTION. 000090*---------------------------------------------------------------------- 000100* A positioning unit is defined. 000110* "5 CPI" represents a spacing where 5 characters can be printed per 000115* inch. 000120*---------------------------------------------------------------------- 000130 SPECIAL-NAMES. 000140 POSITIONING UNIT CPI-5 IS 5 CPI. 000150*---------------------------------------------------------------------- 000160 INPUT-OUTPUT SECTION. 000170 FILE-CONTROL. 000180 SELECT PRT-FILE ASSIGN TO PRINTER. 000190 DATA DIVISION. 000200 FILE SECTION. 000210 FD PRT-FILE. 000220 01 PRT-REC PIC X(80). 000230 WORKING-STORAGE SECTION. 000240*---------------------------------------------------------------------- 000250* The column positions of the items are specified. 000260* - ADDR is printed from column 11 (= 3 inches) when 1 column uses a 000270* spacing of 5 characters per inch. 000280* - TEL is printed from column 26 (= 6 inches) when 1 column uses a 000290* spacing of 5 characters per inch. 000300*---------------------------------------------------------------------- 000310 01 PROF-DATA. 000320 02 NAME PIC X(16). 000330 02 ADDR PIC X(32) PRINTING POSITION IS 11 BY CPI-5. 000340 02 TEL PIC X(15) PRINTING POSITION IS 26 BY CPI-5. 000350*---------------------------------------------------------------------- 000360 PROCEDURE DIVISION. 000370 DISPLAY "Please input your name >> " WITH NO ADVANCING. 000380 ACCEPT NAME FROM CONSOLE. 000390 DISPLAY " Address >> " WITH NO ADVANCING. 000400 ACCEPT ADDR FROM CONSOLE. 000410 DISPLAY " Tel >> " WITH NO ADVANCING. 000420 ACCEPT TEL FROM CONSOLE. 000430 DISPLAY "Now printing .....". 000440** 000450 OPEN OUTPUT PRT-FILE. 000460 WRITE PRT-REC FROM PROF-DATA AFTER ADVANCING PAGE. 000470 CLOSE PRT-FILE. 000480 END PROGRAM SAMPLE.
