//EXAMPLE JOB ..... //********************************************************************* //* SAMPLE CICS JCL TO DEFINE PROGRAMS AND SAMPLE TRANSACTIONS * //* FOR CA DELIVER XMS INTERFACE * //* * //* NOTE: * //* UPDATE PROCEDURE SUBSTITUTIONAL PARAMETERS FOR * //* 'CICSLOAD' AND 'CICSCSD' ACCORDING TO SITE STANDARDS. * //* * //* MANUAL CHANGES ARE REQUIRED IN THIS JOB STREAM * //* TO UPDATE SYSIN PORTIONS BEYOND THE CONTROL * //* OF THE PROCEDURE'S SUBSTITUTIONAL PARAMETERS. * //* * //* EDIT GROUP(GGGGGG) WHERE GGGGGG IS THE CICS DEFINED GROUP * //* FOR YOUR CA DELIVER CICS DEFINITIONS. * //* * //********************************************************************* //* //CICSXMS PROC CICSLOAD='CICS.SDFHLOAD', // CICSCSD='CICS.DFHCSD' //********************************************************************* //* DEFINE SAMPLE Deliver TRANSACTION: RMO1 * //* DEFINE SERVICE TRANSACTION: XMC0 * //* DEFINE OPTIONAL STARTUP TRANSATION: RMI * //* DEFINE OPTIONAL TERMINATE TRANSATION: RMX * //* DEFINE CA DELIVER CICS RETRIEVAL PROGRAMS: * //* EC0CICUX * //* EC0XMCIC * //* EC0CINIT * //* EC0CISRV * //* EC0CIEND * //* EC0C0620 * //* EC0C0621 * //* EC0C0622 * //* EC0C0630 * //* EC0C0640 * //* EC0C0650 * //* EC0C0660 * //* EC0C0680 * //* * //* ** OPTIONAL ** * //* DEFINE YOUR SITE SPECIFIC Deliver TRANSACTION. USE THE DEFINE * //* STATEMENTS FOR THE SAMPLE VW1 TRANSACTION AS YOUR MODEL. * //* * //* THE FOLLOWING PARAMETERS DEFINE VIEW TRANSACTION ID: RMOT * //* * //* DEFINE TRANS(RMOT) GROUP(GGGGGG) PROG(EC0XMCIC) * //* TASKDATAL(ANY) TASKDATAK(CICS) * //* * //* WHERE GGGGGG IS THE CICS DEFINED GROUP FOR YOUR * //* CA DELIVERCICS DEFINITIONS. * //********************************************************************* //STEP1 EXEC PGM=DFHCSDUP,REGION=1024K //STEPLIB DD DSN=&CICSLOAD,DISP=SHR //DFHCSD DD DSN=&CICSCSD,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //* // PEND //CICSXMS EXEC CICSXMS //STEP1.SYSIN DD * DEFINE TRANS(RMO1) GROUP(GGGGGG) PROG(EC0XMCIC) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE TRANS(XMC0) GROUP(GGGGGG) PROG(EC0CISRV) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE TRANS(RMI) GROUP(GGGGGG) PROG(EC0CINIT) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE TRANS(RMX) GROUP(GGGGGG) PROG(EC0CIEND) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE PROG(EC0CICUX) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0XMCIC) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0CISRV) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0CINIT) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0CIEND) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0620) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0621) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0622) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0630) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0640) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0650) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0660) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0670) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) DEFINE PROG(EC0C0680) GROUP(GGGGGG) LANGUAGE(ASSEMBLER) DATALOCATION(ANY) EXECKEY(CICS) /*
If you have CICS storage protection activated, resource definition online settings are required, as follows:
TASKDATALOC=ANY TASKDATAKEY=CICS
DATALOCATION=ANY EXECKEY=CICS
| Copyright © 2012 CA. All rights reserved. |
|