例
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 (10) : JMN2717I-S 手続き名のないGO TO文を含む段落は,段落名と一つのGO TO文だけで構成されていなければなりません.GO TO文は無効になります.
詳細な説明
手続き名のないGO TO文は,廃要素です.