//EXAMPLE JOB ..... //********************************************************************* //* SAMPLE CICS JCL TO DEFINE PROGRAMS AND SAMPLE TRANSACTIONS * //* FOR CA VIEW 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 VIEW CICS DEFINITIONS. * //* * //********************************************************************* //* //CICSXMS PROC CICSLOAD='CICS.SDFHLOAD', // CICSCSD='CICS.DFHCSD' //********************************************************************* //* DEFINE SAMPLE VIEW TRANSACTION: VW1 * //* DEFINE SERVICE TRANSACTION: XMC0 * //* DEFINE OPTIONAL STARTUP TRANSATION: VWI * //* DEFINE OPTIONAL TERMINATE TRANSATION: VWX * //* DEFINE CA VIEW CICS RETRIEVAL PROGRAMS: * //* EC0CICUX * //* EC0XMCIC * //* EC0CINIT * //* EC0CISRV * //* EC0CIEND * //* EC0C0620 * //* EC0C0621 * //* EC0C0622 * //* EC0C0630 * //* EC0C0640 * //* EC0C0650 * //* EC0C0660 * //* EC0C0670 * //* EC0C0680 * //* * //* ** OPTIONAL ** * //* DEFINE YOUR SITE SPECIFIC VIEW TRANSACTION. USE THE DEFINE * //* STATEMENTS FOR THE SAMPLE VW1 TRANSACTION AS YOUR MODEL. * //* * //* THE FOLLOWING PARAMETERS DEFINE VIEW TRANSACTION ID: VWC0 * //* * //* DEFINE TRANS(VWC0) GROUP(GGGGGG) PROG(EC0XMCIC) * //* TASKDATAL(ANY) TASKDATAK(CICS) * //* * //* WHERE GGGGGG IS THE CICS DEFINED GROUP FOR YOUR * //* CA VIEW CICS 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(VW1) GROUP(GGGGGG) PROG(EC0XMCIC) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE TRANS(XMC0) GROUP(GGGGGG) PROG(EC0CISRV) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE TRANS(VWI) GROUP(GGGGGG) PROG(EC0CINIT) TASKDATAL(ANY) TASKDATAK(CICS) DEFINE TRANS(VWT) 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, the following resource definition online settings are required:
TASKDATALOC=ANY
TASKDATAKEY=CICS
DATALOCATION=ANY
EXECKEY=CICS
| Copyright © 2012 CA. All rights reserved. |
|