引数の説明
ALTER,ENTER,ENTRY,GENERATE,GO TO MORE-LABELS,INITIATE,TERMINATE,SEEK,SUPPRESS,GOBACK,SERVICE-LAVEL,TRANSACTIONまたはUSE LABEL. |
例
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文は無効とします.