例
000001 PROGRAM-ID. C3491-2 000002 DATA DIVISION. 000003 LINKAGE SECTION. 000004 01 A1 PIC S9(8) BINARY. 000005 01 B1 PIC X(1). 000006 PROCEDURE DIVISION 000007 WITH C LINKAGE USING A1 B1. 000008 DISPLAY A1 B1 000009 END PROGRAM C3491-2.
000001 PROGRAM-ID. C3491. 000002 DATA DIVISION. 000003 WORKING-STORAGE SECTION. 000004 01 A PIC S9(8) BINARY. 000005 01 B PIC X(1). 000006 PROCEDURE DIVISION. 000007 CALL "C3491-2" WITH C LINKAGE USING A B 000008 END PROGRAM C3491.
C3491-2.cob (7) : JMN3491I-W このシステムでは,プログラムの手続き部の見出しまたはCALL文にWITHは指定できません.
C3491.cob (7) : JMN3491I-W このシステムでは,プログラムの手続き部の見出しまたはCALL文にWITHは指定できません.