ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.6.139 JMN5580I-S

@1@文はプログラム定義だけに使用できます. @1@文は無効とします.

埋め込みの説明

@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文は無効とします.