ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
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指定はサポートしていません.