//EQQYRPRC PROC
//*********************************************************************
//*
//* THIS PROCEDURE IS USED BY EQQYRJCL SAMPLE THAT RUNS THE SCHEDULER
//* CONTROL LANGUAGE
//*
//* IN ORDER TO USE THIS JOB SUCCESSFULLY YOU SHOULD MODIFY IT
//* AS FOLLOWS:
//* 1. LOCATE DATA SET NAMES BEGINNING WITH OPCA.INST AND REPLACE WITH
//* DATA SET NAMES VALID FOR YOUR INSTALLATION.
//*
//* MOREOVER YOU SHOULD CONSIDER THE FOLLOWING INSTRUCTIONS:
//* 3. MAKE SURE THAT THE REXX/370 RUNTIME LIBRARIES ARE AVAILABLE TO
//* TSO/E (IRXCMPTM TABLE IS DEFINED)
//* 4. THE SAMPLE PROGRAM EQQRXSTG DELIVERED WITH THE SCHEDULER MUST BE
//* AVAILABLE
//* 5. IF THE WTO INSTRUCTION IS USED, MAKE SURE THAT THE
//* SAMPLE PROGRAM EQQOCWTO DELIVERED WITH IBM Z Workload Scheduler
//* IS AVAILABLE
//* 6. IF THE UPD INSTRUCTION IS USED, MAKE SURE THAT THE PL/I RUNTIME
//* LIBRARIES ARE AVAILABLE, AND THAT THE EQQPIFT SAMPLE PROGRAM
//* (CONTAINED IN EQQPIFJV SAMPLE) IS AVAILABLE.
//*
//* REQUIRED DATA SETS:
//*
//* STEPLIB = THE SCHEDULER LOAD LIBRARY
//* SYSEXEC = OCL MODULE
//* OCLPARM = OCL PARAMETER LIBRARY
//* OCLMLIB = OCL MESSAGE LIBRARY
//* OCLLOG = OCL LOG FILE (IF NEEDED); IT MUST BE LRECL 133 AND
//* ALLOCATED WITH DISP=MOD
//* EQQMLIB = THE SCHEDULER MESSAGE LIBRARY
//* EQQMLOG = THE SCHEDULER MESSAGE LOG
//* EQQYPARM = THE SCHEDULER PARAMETERS FOR PIF REQUESTS
//*
//*********************************************************************
//*
//EQQOCL EXEC PGM=IKJEFT01,PARM='EQQOCL'
//STEPLIB DD DISP=SHR,DSN=OPCA.INST.SEQQLMD0 <== CHANGE
// DD DISP=SHR,DSN=PLI_RUNTIME_LIBRARY <== CHANGE
//OCLLOG DD DISP=MOD,DSN=OCL_LOG_FILE <== CHANGE
//OCLPARM DD DISP=SHR,DSN=OPCA.INST.SEQQSAMP(EQQYRPRM) <== CHANGE
//OCLMLIB DD DISP=SHR,DSN=OPCA.INST.SEQQSAMP(EQQYRMSG) <== CHANGE
//SYSEXEC DD DISP=SHR,DSN=OPCA.INST.SEQQMISC <== CHANGE
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
//CARDIN DD UNIT=SYSDA,SPACE=(TRK,(20,200)), <== CHANGE
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//EQQMLIB DD DISP=SHR,DSN=OPCA.INST.SEQQMSG0 <== CHANGE
//EQQYPARM DD DISP=SHR,DSN=OPCA.INST.PARM(INIT) <== CHANGE
//EQQMLOG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*