埋め込みの説明
@1@ : ALTER,ENTER,ENTRY,GENERATE,GO TO MORE-LABELS,INITIATE,TERMINATE,SEEK,SUPPRESS,GOBACK,SERVICE-LAVEL,TRANSACTIONまたはUSE LABEL.
例題
[C5580.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5580. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 PROCEDURE DIVISION. 000011 IDENTIFICATION DIVISION. 000012 METHOD-ID. M5580. 000013 ENVIRONMENT DIVISION. 000014 DATA DIVISION. 000015 LINKAGE SECTION. 000016 PROCEDURE DIVISION. 000017 DISPLAY "M5580". 000018 GOBACK. 000019 END METHOD M5580. 000020 END OBJECT. 000021 END CLASS C5580.
C5580.cob 18: JMN5580I-S GOBACK文はプログラム定義だけに使用できます.GOBACK文は無効とします.