QCMDEXC の動的プログラム呼び出しにより、ILE COBOL プログラムから CL コマンドを出すことができます。
次のプログラム例では、QCMDEXC の CALL (シーケンス番号 000160) により、 ライブラリー・リスト項目の追加 (ADDLIBLE) CL コマンド (シーケンス番号 000110) が処理されます。 この CL コマンドが正常に終了すると、ライブラリー COBOLTEST がライブラリー・リストに追加されます。
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 プログラミング」を参照してください。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.