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 ==================*