例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1129.
000003 PROCEDURE DIVISION.
000004 PROGRAM-ID. SUB RECURSIVE.
000005 END PROGRAM SUB.
000006 END PROGRAM C1129.
C1129.cob (4) : JMN1129I-S 語RECURSIVEは外部プログラムに限り,指定することができます.