埋め込みの説明
@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指定はサポートしていません.