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