次の例は、PL/I CICS プログラムと COBOL サブルーチンをコンパイルして静的にリンクする例を示しています。
ソース プログラム (T23652P.pli ):
T23652P: PROC() OPTIONS(MAIN); DCL 1 COBPARM, 2 COBCODE CHAR(3), 2 COBNAME CHAR(30), 2 COBSTAT FIXED BIN(15); DCL T23652C ENTRY OPTIONS(COBOL); EXEC CICS WRITE OPERATOR TEXT('T23652P starts'); COBCODE = "AAA"; EXEC CICS WRITE OPERATOR TEXT('T23652P - T23652C'); CALL T23652C (COBPARM); EXEC CICS WRITE OPERATOR TEXT(COBNAME); EXEC CICS WRITE OPERATOR TEXT('T23652P end'); END T23652P;
ソース プログラム (T23652C.cbl):
working-storage section. linkage section. 01 lk-params. 05 lk-code pic X(3). 05 lk-name pic X(30). 05 lk-stat pic S9(4) COMP. procedure division using lk-params. evaluate lk-code when "AAA" move "T23652C is called with AAA" to lk-name when "BBB" move "T23652C is called with BBB" to lk-name when "CCC" move "T23652C is called with CCC" to lk-name when other move spaces to lk-name end-evaluate. goback.
コマンド:
export COBMODE=32 mfplx -cics -c T23652P.pli -o T23652P.o cob -xc T23652C.cbl cob -z T23652P.o T23652C.o $COBDIR/lib/32/systemcics.o -L$COBDIR/lib -lmfpliz -lplidump