例題
[P2958.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2958. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 LINKAGE SECTION. 000007 01 PARAM1 PIC X(8). 000008 PROCEDURE DIVISION 000009 WITH COBOL LINKAGE 000010 USING PNAME2. 000011 END PROGRAM P2958.
P2958.cob 9: JMN2958I-S 手続き部始め見出しのWITH指定には,C,PASCAL,またはSTDCALLが指定されなければなりません.WITH指定は無効になります.
詳細な説明
WITH指定は,呼ばれるプログラムの呼出し規約を指定します.WITH指定を省略指定した場合,COBOLの定めたリンケージの規約を使用します.