引数の説明
TRACK-AREA,TRACK-LIMIT,PRINTING POSITION |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1256.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 POSITIONING UNIT PUN-A IS 12 CPI.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 REC-A PIC X(10) PRINTING POSITION IS 0 BY PUN-A.
000010 END PROGRAM C1256.
C1256.cob (9) : JMN1256I-S PRINTING POSITION句の整数に0は指定できません.