例題
[P2717.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2717. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 PROCEDURE DIVISION. 000007 ALTER P1 TO P2. 000008 P1. 000009 DISPLAY "P1" 000010 GO TO. 000011 P2. 000012 STOP RUN. 000013 END PROGRAM P2717.
P2717.cob 7: JMN3150I-S ALTER文で参照される段落'P1'は,DEPENDING ON指定のないただ一つのGO TO文からなる完結文でなければなりません.文は,無効になります.
P2717.cob 10: JMN2717I-S 手続き名のないGO TO文を含む段落は,段落名と一つのGO TO文だけで構成されていなければなりません.GO TO文は無効になります.
詳細な説明
手続き名のないGO TO文は,廃要素です.