引数の説明
一意名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3149. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 DP-CTR PIC XX. 000007 77 AA PIC XX. 000008 PROCEDURE DIVISION. 000009 GO TO L1 L2 DEPENDING ON DP-CTR. 000010 L1. MOVE "AA" TO AA. 000011 GO TO L3. 000012 L2. MOVE "BB" TO AA. 000013 L3. STOP RUN.
C3149.cob (9) : JMN3149I-S GO TO DEPENDING ON文の一意名'DP-CTR'は,整数項目でなければなりません.