运行 EXCI COMMAREA 样本应用程序

您可以创建批处理作业以运行客户机程序。 您还可以使用预生成的汇编程序版本来运行客户机程序。

开始之前

  1. 要使用 COBOL、 PL/I 或 C® 版本的 EXCI 客户端程序，必须将程序翻译、编译并链接编辑成合适的库。
  2. EXCI 样本程序的资源定义包含在 CSD 中，但未包含在 IBM®定义的组列表 DFHLIST 中。 如果使用 GRPLIST = DFHLIST 初始化 CICS® ，那么必须先安装 EXCI 资源定义组，然后才能使用样本。 或者，您可以将样本组添加到启动组列表，以便在系统初始化时自动安装这些组。

关于此任务

运行 DFH$ATXC 后，必须重新运行程序 DFH$AXCC。

过程

  • 创建一个批处理作业来运行客户端程序，基于以下示例JCL，其中显示了. CICS TS 为 z/OS®, beta的DSN值。
    图 1。 用于启动 EXCI 客户机程序的样本作业
    //EXCI    JOB (accounting_information),CLASS=A,TIME=1440,
//        USER=userid,PASSWORD=pswd,REGION=100M
//*===============================================================*
//*    JCL to execute an external CICS interface client program   *
//*===============================================================*
//          EXEC  PGM=pgmname
//STEPLIB   DD    DSN=CICSTS64.CICS.EXCI.LOADLIB,DISP=SHR
//          DD    DSN=CICSTS64.CICS.SDFHEXCI,DISP=SHR
//SYSPRINT  DD    SYSOUT=A
//SYSMDUMP  DD    DSN=SYS1.SYSMDP00,VOL=SER=volid,SPACE=(CYL,(1,1)),
                  DISP=OLD,UNIT=3390
  • 如果要使用客户机程序的预生成汇编程序版本，请针对客户机程序发出以下 EXEC 语句:
    //*===============================================================*
//ASM       EXEC  PGM=client_program_name,PARM='applid,userid'

    其中：

    客户机程序名
    指定客户机程序的名称，例如 DFH$AXCC 或 DFH$ATXC。
    APPLID
    指定目标 CICS 服务器区域的 APPLID
    注: 如果省略 applid，那么必须保留用户标识前面的逗号。
    USERID
    指定 DPL_request 调用的用户标识。

结果

假定未执行 DFH$ATXC ，如果成功执行预生成的客户机程序 DFH$AXCC 汇编程序版本，那么 图 2 将显示 DFH$AXCC 的输出示例。
图 2。 成功执行 DFH$AXCC 的示例输出 (如果未执行 DFH$ATXC)
*===================== EXCI Sample 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.                                                       *
*    Initialize_User call complete.                                            *
*    Allocate_Pipe call complete.                                              *
*    Open_Pipe call complete.                                                  *
*    The connection has been successful.                                       *
*      The target file follows:                                                *
*                                                                              *
*=========================== Top of File ======================================*
000102F. ALDSON            WARWICK, ENGLAND    9835618326 11 81$1111.11Y00007300
000104S. BOWLER            LONDON,ENGLAND      1284629326 11 81$0999.99Y00007400
000106B. ADAMS             CROYDON, ENGLAND    1948567326 11 81$0087.71Y00007500
000111GENE BARLOWE         SARATOGA,CALIFORNIA 4612075301 02 74$0111.11Y00007600
000762GEORGE BURROW        SAN JOSE,CALIFORNIA 2231212101 06 74$0000.00Y00007700
000983H. L. L. CALL        WASHINGTON, DC      3451212021 04 75$9999.99Y00007800
003210B.CREPIN             NICE, FRANCE        1234567026 11 81$3349.99Y00008100
003214HUBERT C HERBERT     SUNNYVALE, CAL.     3411212000 06 73$0009.99N00008200 
003890PHILIPPE SMITH, JR   NICE, FRANCE        0000000028 05 74$0009.99N00008300
004004STAN SMITH           DUBLIN, IRELAND     7111212102 11 73$1259.99N00008400
004445S. GALSON            SOUTH BEND, S.DAK.  6121212026 11 81$0009.99N00008500 
004878D.C. CURRENT         SUNNYVALE, CALIF.   3221212010 06 73$5399.99N00008600  
005005J. S. LAVERENCE      SAN FRANCISCO, CA.  0000000101 08 73$0009.99N00008700 
005444JEAN LAWRENCE        SARATOGA, CALIF.    6771212020 10 74$0809.99N00008800
005581JOHN ALDEN III       BOSTON, MASS.       4131212011 04 74$0259.99N00008900
006016DR W. T. KAR         NEW DELHI, INDIA    7033121121 05 74$0009.88Y00009000 
006670WILLIAM KAPP         NEW YORK, N.Y.      2121212031 01 75$3509.88N00009100
06968D. CONRAD             WARWICK, ENGLAND    5671382126 11 81$0009.88Y00009200
007248B. C. WILLIAMSON     REDWOOD CITY, CALF. 3331212111 10 75$0009.88N00009400 
007779MRS. W. WELCH        SAN JOSE, CALIF.    4151212003 01 75$0009.88Y00009500 
100000G. NEADS             TORONTO, ONTARIO    0341512126 11 81$0010.00Y00009600 
111111C. MEARS             OTTAWA, ONTARIO     5121200326 11 81$0011.00Y00009700 
200000A. BONFIELD          GLASCOW, SCOTLAND   6373829026 11 81$0020.00Y00009900  
300000K. TRENCHARD         NEW YORK, U.S.      6473980126 11 81$0030.00Y00010000 
333333D. MYRING            CARDIFF, WALES      7849302026 11 81$0033.00Y00010100
400000W. TANNER            MILAN, ITALY        2536373826 11 81$0040.00Y00010200
444444A. FISHER            CALGARY, ALBERTA    7788982026 11 81$0044.00Y00010300
500000J. DENFORD           MADRID, SPAIN       4445464026 11 81$0000.00Y00010400
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
999999R. JACKSON           RALEIGH, N.Y.       8459163926 11 81$0049.00Y00011300
 *=========================== End of File ======================================*
 *                                                                              *
 *    Closing Dpl Request has been attempted.                                   *
 *    Close_Pipe call complete.                                                 *
 *    Deallocate_Pipe call complete.                                            *
 *                                                                              *
 *=================== End of EXCI Sample Client Program ========================*

图 3 显示了如果成功执行客户机程序 DFH$ATXC 的预生成汇编程序版本，那么来自 DFH$ATXC 的输出示例。

如果在执行客户机程序 DFH$ATXC 期间发生错误，那么会生成与 DFH$AXCC 一样的错误。

图 3。 成功执行 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 ==================*

如果在成功执行 DFH$ATXC 之后执行 DFH$AXCC ，那么如果成功执行 DFH$AXCC ，将生成 图 4 中显示的以下输出。

使用 SRRCMIT 调用来落实对 RIDFLD 值为 500000 的记录的更改 (包括这些记录) ，以指示 RRS 指示 CICS 执行落实处理。 随后的更改通过发出 SRRBACK 调用而回退。 这导致 RRS 告知 CICS 对这些更改执行 ROLLBACK。

显然， FILEA 是由于运行 DFH$ATXC 而更改的。 应该通过运行 DFHDEFDS 的 LOADFILE 步骤将其恢复到原始状态。

图 4： 在成功执行 DFH$ATXC 之后成功执行 DFH$AXCC 的示例输出
 *===================== 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 ==================*

如果在执行应用程序期间发生错误，那么假定该错误不严重，那么会将消息写入 SYSPRINT 输出日志，并显示导致处理异常中止的原因和/或返回码。 图 5， 图 6和 图 7中显示了错误调用的输出的多个示例。

如果找不到客户机程序指定的目标 CICS 区域或未打开 IRC ，那么将生成以下输出。 没有 CICS 返回码。

图 5。 无 CICS 返回码
*===================== EXCI Sample Client Program =============================*
*                                                                              *
*  EXEC Level Processor.                                                       *
*    Setting up the EXEC level call.                                           *
*    The Link Request has failed.  Return codes are;                           *
*        Resp = 00000088  Resp2 = 00000203  Abend Code:                        *
*    >>>> Aborting further processing <<<<                                     *
*                                                                              *
*=================== End of EXCI Sample Client Program ========================*

如果在目标 CICS 系统上找不到服务器程序的目标文件名，那么将生成以下输出。

图 6。 找不到文件
*===================== EXCI Sample Client Program =============================*
*                                                                              *
*  EXEC Level Processor.                                                       *
*    Setting up the EXEC level call.                                           *
*    The Link Request has successfully completed.                              *
*    Server Response:                                                          *
*      The file could not be found.                                            *
*    >>>> Aborting further processing <<<<                                     *
*                                                                              *
*=================== End of EXCI Sample Client Program ========================*

如果在外部 CICS 接口调用中传递的目标 transid 未在目标 CICS 系统上定义，那么将生成以下输出。 记下从目标 CICS 系统接收到的消息。

图 7。 事务标识不正确
*===================== EXCI Sample Client Program =============================*
*                                                                              *
*  EXEC Level Processor.                                                       *
*    Setting up the EXEC level call.                                           *
*    The Link Request has failed.  Return codes are;                           *
*        Resp = 00000088  Resp2 = 00000414  Abend Code:                        *
*    A message was received from the target CICS system:                       *
*                                                                              *
 DFHAC2001 04/29/93 16:43:03 IYAHZCAZ Transaction 'BAD_' is unrecognized.  Check
 that the transaction name is correct.
*                                                                              *
*    >>>> Aborting further processing <<<<                                     *
*                                                                              *
*=================== End of EXCI Sample Client Program ========================*