Examples for CTMJOB

The following example shows how to specify job order statements using the PARM statement in the EXEC statement:

//ORDERJOB EXEC PGM=CTMJOB,

// PARM='ORDER DSN=IOA.PROD.SCHEDULE TABLE=TABLE1 JOB=SORT ODATE=070700'

The following example shows how to invoke CTMJOB from an Assembler program, specify the call as shown below:

LOAD EP=CTMJOB

CALL CTMJOB,(JOBPARM),VL

DELETE EP=CTMJOB

.

JOBPARM DC Y(L'ORDERREQ)

ORDERREQ DC C'ORDER DSN=IOA.PROD.SCHEDULE TABLE=TABLE1 JOB=SORT DATE=070700'

The following example shows how to invoke the CTMJOB utility from TSO, issue the following command:

CALL 'ioa.prod.load(CTMJOB)' 'ORDER DSN=IOA.PROD.SCHEDULE TABLE=TABLE1

JOB=SORT,DATE=070700'

The following example shows how to specify job order statements using the DAJOB DD statement:

//ORDERJOB EXEC PGM=CTMJOB

//ORDERDD DD DSN=IOA.PROD.SCHEDULE DISP=SHR

//DAJOB DD *

ORDER DDNAME=ORDERDD MEMBER=TABLE1 FORCE

ORDER DDNAME=ORDERDD MEMBER=TABLE2

ORDER DDNAME=ORDERDD MEMBER=TABLE3 JOB=JOB1

. . .

//

The following example shows how to force a job using the PARM statement in the EXEC statement:

//FORCEJOB EXEC PGM=CTMJOB,

// PARM=’ORDER DSN=IOA.PROD.SCHEDULE TABLE=TABLE2 JOB=SORT ODATE=070700 FORCE’
To invoke the CTMJOB utility from a CICS application, parameters are passed to the API CTMCIOR using a COMMAREA described by the DSECT CTMCIAOR. The API and DSECT can be found in the IOA CICSSAMP library. Program CTMCIOR passes the parameters to the CTMJOB utility.

The following example shows how the API is called from a CICS application using fields defined in the DSECT:

Figure 33 CTMJOB – Example

PARMAREA DS (CMORDLEN)C

PARMARLN EQU *-PARMAREA

MVC CMORDDSN,DSNAME PARAMETERS

MVC CMORDTBL,TBLNAME

MVC CMORDJOB,JOBNAME

MVC CMORDDAT,DATE

EXEC CICS LINK PROGRAM (‘CTMCIOR’) *

COMMAREA (PARMAREA) *

LENGTH (=Y(PARMARLN))

. . .

DSNAME DC CL44’CTM.PROD.SCHEDULE’

TBLNAME DC CL8’DEFSCHD1’

JOBNAME DC CL8’JOBA’

DATE DC CL6’090600’