EXCI sample programs

CICS® provides a number of sample programs that are designed to help you in writing your own application programs. To help with writing programs that use the external CICS interface, CICS provides sample MVS™ client programs and a sample CICS server program.

The samples show you how to code client applications that use both the EXCI CALL interface and EXEC CICS LINK command.

Figure 1. Output from DFH$ATXC
 *==================== TEXCI Sample Batch Client Program =======================*
 *
 *  EXEC Level Processor.
 *    Setting up the EXEC level call.
 *    The Link Request has successfully completed.
 *    Server Response:
 *      The file is set to a browsable state.
 *
 *  CALL Level Processor.
 *    Initialise_User call complete.
 *    Allocate_Pipe call complete.
 *    Open_Pipe call complete.
 *    The connection has been successful.
 *      The changed target file follows:
 *
 *=========================== Top of File ======================================*
 000100W. DAVIS            SURREY, ENGLAND     3215677826 11 81$0100.11COMMITTED
 000102F. ALDSON           WARWICK, ENGLAND    9835618326 11 81$1111.11COMMITTED
 000104S. BOWLER           LONDON,ENGLAND      1284629326 11 81$0999.99COMMITTED
 000106B. ADAMS            CROYDON, ENGLAND    1948567326 11 81$0087.71COMMITTED
 000111GENE BARLOWE        SARATOGA,CALIFORNIA 4612075301 02 74$0111.11COMMITTED
 000762GEORGE BURROW       SAN JOSE,CALIFORNIA 2231212101 06 74$0000.00COMMITTED
 000983H. L. L. CALL       WASHINGTON, DC      3451212021 04 75$9999.99COMMITTED
  003210B.CREPIN           NICE, FRANCE        1234567026 11 81$3349.99COMMITTED
 003214HUBERT C HERBERT    SUNNYVALE, CAL.     3411212000 06 73$0009.99COMMITTED
 003890PHILIPPE SMITH, JR  NICE, FRANCE        0000000028 05 74$0009.99COMMITTED
 004004STAN SMITH          DUBLIN, IRELAND     7111212102 11 73$1259.99COMMITTED
 004445S. GALSON           SOUTH BEND, S.DAK.  6121212026 11 81$0009.99COMMITTED
 004878D.C. CURRENT        SUNNYVALE, CALIF.   3221212010 06 73$5399.99COMMITTED
 005005J. S. LAVERENCE     SAN FRANCISCO, CA.  0000000101 08 73$0009.99COMMITTED
 005444JEAN LAWRENCE       SARATOGA, CALIF.    6771212020 10 74$0809.99COMMITTED
 005581JOHN ALDEN III      BOSTON, MASS.       4131212011 04 74$0259.99COMMITTED
 006016DR W. T. KAR        NEW DELHI, INDIA    7033121121 05 74$0009.88COMMITTED
 006670WILLIAM KAPP        NEW YORK, N.Y.      2121212031 01 75$3509.88COMMITTED
 006968D. CONRAD           WARWICK, ENGLAND    5671382126 11 81$0009.88COMMITTED
 007248B. C. WILLIAMSON    REDWOOD CITY, CALF. 3331212111 10 75$0009.88COMMITTED
 007779MRS. W. WELCH       SAN JOSE, CALIF.    4151212003 01 75$0009.88COMMITTED
 100000G. NEADS            TORONTO, ONTARIO    0341512126 11 81$0010.00COMMITTED
 111111C. MEARS            OTTAWA, ONTARIO     5121200326 11 81$0011.00COMMITTED
 200000A. BONFIELD         GLASGOW,  SCOTLAND  6373829026 11 81$0020.00COMMITTED
 300000K. TRENCHARD        NEW YORK, U.S.      6473980126 11 81$0030.00COMMITTED
 333333D. MYRING           CARDIFF, WALES      7849302026 11 81$0033.00COMMITTED
 400000W. TANNER           MILAN, ITALY        2536373826 11 81$0040.00COMMITTED
 444444A. FISHER           CALGARY, ALBERTA    7788982026 11 81$0044.00COMMITTED
 500000J. DENFORD          MADRID, SPAIN       4445464026 11 81$0000.00COMMITTED
 555555C. JARDINE          KINGSTON, N.Y.      3994442026 11 81$0005.00BACKEDOUT
 600000F. HUGHES           DUBLIN, IRELAND     1239878026 11 81$0010.00BACKEDOUT
 666666A. BROOKMAN         LA HULPE, BRUSSELS  4298384026 11 81$0016.00BACKEDOUT
 700000A. MACALLA          DALLAS, TEXAS       5798432026 11 81$0002.00BACKEDOUT
 777777D. PRYKE            WILLIAMSBURG, VIRG. 9187613126 11 81$0027.00BACKEDOUT
 800000H. BRISTOW          WESTEND, LONDON     2423338926 11 81$0030.00BACKEDOUT
 888888B. HOWARD           NORTHAMPTON, ENG.   2369163926 11 81$0038.00BACKEDOUT
 900000D. WOODSON          TAMPA, FLA.         3566812026 11 81$0040.00BACKEDOUT
*=========================== End of File ======================================*
*
*    Closing Dpl Request has been attempted.
*    Close_Pipe call complete.
*    Deallocate_Pipe call complete.
*
*================== End of TEXCI Sample Batch Client Program ==================*
Figure 2. Successful execution of DFH$AXCC after DFH$ATXC has been successfully executed.
 *===================== EXCI Sample Batch Client Program =======================*
 *
 *  EXEC Level Processor.
 *    Setting up the EXEC level call.
 *    The Link Request has successfully completed.
 *    Server Response:
 *      The file is set to a browsable state.
 *
 *  CALL Level Processor.
 *    Initialise_User call complete.
 *    Allocate_Pipe call complete.
 *    Open_Pipe call complete.
 *    The connection has been successful.
 *      The target file follows:
 *
 *=========================== Top of File ======================================*
 000100W. DAVIS            SURREY, ENGLAND     3215677826 11 81$0100.11COMMITTED
 000102F. ALDSON           WARWICK, ENGLAND    9835618326 11 81$1111.11COMMITTED
 000104S. BOWLER           LONDON,ENGLAND      1284629326 11 81$0999.99COMMITTED
 000106B. ADAMS            CROYDON, ENGLAND    1948567326 11 81$0087.71COMMITTED
 000111GENE BARLOWE        SARATOGA,CALIFORNIA 4612075301 02 74$0111.11COMMITTED
 000762GEORGE BURROW       SAN JOSE,CALIFORNIA 2231212101 06 74$0000.00COMMITTED
 000983H. L. L. CALL       WASHINGTON, DC      3451212021 04 75$9999.99COMMITTED
 003210B.CREPIN            NICE, FRANCE        1234567026 11 81$3349.99COMMITTED
 003214HUBERT C HERBERT    SUNNYVALE, CAL.     3411212000 06 73$0009.99COMMITTED
 003890PHILIPPE SMITH, JR  NICE, FRANCE        0000000028 05 74$0009.99COMMITTED
 004004STAN SMITH          DUBLIN, IRELAND     7111212102 11 73$1259.99COMMITTED
 004445S. GALSON           SOUTH BEND, S.DAK.  6121212026 11 81$0009.99COMMITTED
 004878D.C. CURRENT        SUNNYVALE, CALIF.   3221212010 06 73$5399.99COMMITTED
 005005J. S. LAVERENCE     SAN FRANCISCO, CA.  0000000101 08 73$0009.99COMMITTED
 005444JEAN LAWRENCE       SARATOGA, CALIF.    6771212020 10 74$0809.99COMMITTED
 05581JOHN ALDEN III       BOSTON, MASS.       4131212011 04 74$0259.99COMMITTED
 06016DR W. T. KAR         NEW DELHI, INDIA    7033121121 05 74$0009.88COMMITTED
 006670WILLIAM KAPP        NEW YORK, N.Y.      2121212031 01 75$3509.88COMMITTED
 006968D. CONRAD           WARWICK, ENGLAND    5671382126 11 81$0009.88COMMITTED
 007248B. C. WILLIAMSON    REDWOOD CITY, CALF. 3331212111 10 75$0009.88COMMITTED
 007779MRS. W. WELCH       SAN JOSE, CALIF.    4151212003 01 75$0009.88COMMITTED
 100000G. NEADS            TORONTO, ONTARIO    0341512126 11 81$0010.00COMMITTED
 111111C. MEARS            OTTAWA, ONTARIO     5121200326 11 81$0011.00COMMITTED
 200000A. BONFIELD         GLASGOW,  SCOTLAND  6373829026 11 81$0020.00COMMITTED
 300000K. TRENCHARD        NEW YORK, U.S.      6473980126 11 81$0030.00COMMITTED
 333333D. MYRING           CARDIFF, WALES      7849302026 11 81$0033.00COMMITTED
 400000W. TANNER           MILAN, ITALY        2536373826 11 81$0040.00COMMITTED
 444444A. FISHER           CALGARY, ALBERTA    7788982026 11 81$0044.00COMMITTED
 500000J. DENFORD          MADRID, SPAIN       4445464026 11 81$0000.00COMMITTED
 555555C. JARDINE          KINGSTON, N.Y.      3994442026 11 81$0005.00Y00010500
 600000F. HUGHES           DUBLIN, IRELAND     1239878026 11 81$0010.00Y00010600
 666666A. BROOKMAN         LA HULPE, BRUSSELS  4298384026 11 81$0016.00Y00010700
 700000A. MACALLA          DALLAS, TEXAS       5798432026 11 81$0002.00Y00010800
 777777D. PRYKE            WILLIAMSBURG, VIRG. 9187613126 11 81$0027.00Y00010900
 800000H. BRISTOW          WESTEND, LONDON     2423338926 11 81$0030.00Y00011000
 888888B. HOWARD           NORTHAMPTON, ENG.   2369163926 11 81$0038.00Y00011100
 900000D. WOODSON          TAMPA, FLA.         3566812026 11 81$0040.00Y00011200
 *=========================== End of File ======================================*
 *
 *    Closing Dpl Request has been attempted.
 *    Close_Pipe call complete.
 *    Deallocate_Pipe call complete.
 *
 *=================== End of EXCI Sample Batch Client Program ==================*