ILE COBOL プログラムからの CL コマンドの発行

QCMDEXC の動的プログラム呼び出しにより、ILE COBOL プログラムから CL コマンドを出すことができます。

次のプログラム例では、QCMDEXC の CALL (シーケンス番号 000160) により、 ライブラリー・リスト項目の追加 (ADDLIBLE) CL コマンド (シーケンス番号 000110) が処理されます。 この CL コマンドが正常に終了すると、ライブラリー COBOLTEST がライブラリー・リストに追加されます。

図 78. ILE COBOL プログラムからの CL コマンドの発行
 5722WDS V5R4M0  060210 LN  IBM ILE COBOL                 CBLGUIDE/CMDXMPLE        ISERIES1   06/02/15 13:40:28    ページ  2
                                     ソ ー ス
  STMT PL SEQNO  -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN  S コピー名   変更日付
     1     000100 IDENTIFICATION DIVISION.
     2     000200 PROGRAM-ID. CMDXMPLE.
     3     000300 ENVIRONMENT DIVISION.
     4     000400 CONFIGURATION SECTION.
     5     000500   SOURCE-COMPUTER. IBM-ISERIES.
     6     000600   OBJECT-COMPUTER. IBM-ISERIES.
     7     000700 DATA DIVISION.
     8     000800 WORKING-STORAGE SECTION.
     9     000900 01  PROGRAM-VARIABLES.
    10     001000     05  CL-CMD       PIC X(33)
           001100                      VALUE "ADDLIBLE COBOLTEST".
    11     001200     05  PACK-VAL     PIC 9(10)V9(5) COMP-3
           001300                      VALUE 18.
    12     001400 PROCEDURE DIVISION.
           001500 MAINLINE.
    13     001600     CALL "QCMDEXC" USING CL-CMD PACK-VAL.
    14     001700     STOP RUN.
           001800
                           * * * * *   ソ ー ス 仕 様 の 終 わ り   * * * * *

QCMDEXC の詳細については、「CL プログラミング」を参照してください。