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

2.8.120 JMN9923I-E

(@1@)OSIV COBOL85では,@3@文の@2@指定はサポートしていません.

埋め込みの説明

@1@ : GSS,GSW

@2@ : WITH LOCK,PREVIOUS,RETURNING

@3@ : ENTRY,WITH,OPEN,READ

例題

[P9923.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9923.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 RT-ITEM     PIC X.
000008 PROCEDURE      DIVISION.
000009     CALL "S9923" RETURNING RT-ITEM.
000010 END PROGRAM    P9923.

P9923.cob 9: JMN9923I-E (GSS)OSIV COBOL85では,CALL文のRETURNING指定はサポートしていません.