There are three preprocessing steps required to produce the list of PDS members containing the JCL used for the next batch window. Once the JCL member list is created, the file is used as input to the Predictive Recall job stream.
-
CA7 Step 1 - The first step executes the CA7
SASSBSTRprogram. In the example below, theCA7 FQJOBcommand in the SYSIN statement is used to produce a list of all jobs that are scheduled to run in the next 12-hour period. The output report is written to the SYSPRINT DD statement and is processed by the next execution step.Tip: To modify the time interval, adjust theSPAN=value on theFQJOBstatement.Important: Modify theDSNPFXparameter and UCC7CMD DD statement for your installation.******************************************************************** * CA7 STEP 1 - Run a CA7 job forecast report to create a list * of all jobs that are scheduled to run in the next 12 hour period. * * Note: To modify the time interval, adjust the SPAN= value on * the FQJOB statement. * * Note: Modify the DSNPFX parameter and UCC7CMD DD statement for * your installation. ******************************************************************** //CA7001 EXEC PGM=SASSBSTR,REGION=0M, // PARM='0,POOL=(1-8),DSNPFX=SYSn.CA7' //UCC7CMDS DD DISP=SHR,DSN=CA7.COMMDS <= CA7 communication dataset //SYSPRINT DD DISP=(NEW,PASS),DSN=&&FCAST, // UNIT=SYSALLDA,SPACE=(CYL,(10,10),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0) //SYSIN DD * FQJOB,JOB=*,SPAN=12,TRIG=N /*Following is a sample forecast report produced from the
FQJOBcommand:1BSTR-00 *** INPUT TO BATCH TERMINAL *** /LOGON ******** * GENERATED LOGON * FQJOB,JOB=*,SPAN=12,TRIG=N /LOGOFF * GENERATED LOGOFF * 0BSTR-00 *** END OF INPUT *** 1 10333 135055 /LOGON ******** CA-7.023 - r11.1(SP3 ) OPERATOR IS LOGGED ON TO TERMINAL BTERM1 AT 13:50:55 ON 10.333 - 10333 135055 FQJOB,JOB=*,SPAN=12,TRIG=N 1FQJOB DATE 11-29-10 PAGE 0001 FORECAST FOR CA-7 JOBS (INCLUDING THOSE IN CURRENT QUEUES) PERIOD : 11-29-10 AT 1350 HRS TO 11-30-10 AT 0150 HRS JOB(S) : ALL SYSTEM(S) : ALL JOBNET(S) : ALL OPTIONS : NEITHER JOB- NOR DSN-TRIGGERED JOBS INCLUDED CONNECTED OUTPUT NETWORKS NOT INCLUDED HIGHEST JOB DATE AND TIME : 10334/0226 HIGHEST JOB NAME : PCPCD007 1FQJOB DATE 11-29-10 PAGE 0001 FORECAST FOR CA-7 JOBS (INCLUDING THOSE IN CURRENT QUEUES) PERIOD : 11-29-10 AT 1350 HRS TO 11-30-10 AT 0150 HRS START DTTM END DTTM JOB SYS SCHED# SID TRIGGERING JOB/DSN RQMT 10333/1350 10333/1350 DTSFDN02 IF REQ-Q 100 10333/1350 10333/1359 *DTSFDN03 IF RDY-Q 100 10333/1350 10333/1359 *DTSTM500 PT REQ-Q 200 10333/1350 10333/1400 *DTSTD400 REQ-Q 011 (REPEATING JOB) -
CA7 Step 2 - The second step executes a REXX script provided by DTS,
MONCAPRX. This procedure parses the forecast report and producesCA7 FSTRUCcommands.Note: Copy theMONCAPRXREXX program to the library used on the SYSEXEC DD statement. DTS deliversMONCAPRXin:DTS.R71.SLyyddd.SAMPLIB.//******************************************************************** //* CA7 STEP 2 - Run the MONCAPRX rexx program to parse the forecast //* report and produce CA7 FSTRUC commands for each job //* executing in the specified time period. //* //* Note: Copy the MONCAPRX rexx program to the library used on the //* SYSEXEC DD statement. DTS delivers MONCAPRX in: //* DTS.R71.SLyyddd.SAMPLIB //******************************************************************** //CA7002 EXEC PGM=IRXJCL,PARM='MONCAPRX' //SYSEXEC DD DISP=SHR,DSN=SYS1.REXX <= PDS THAT CONTAINS MONCAPRX //SYSTSIN DD DUMMY //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //INPUTDD DD DISP=OLD,DSN=&&FCAST //OUTDD DD DISP=(NEW,PASS),DSN=&&FSTRUCC, // UNIT=SYSALLDA,SPACE=(CYL,(10,10),RLSE)Sample OUTDD data produced by the
MONCAPRXjob:FSTRUC,JOB=DTSFDN02,SCHID=100 FSTRUC,JOB=DTSFDN03,SCHID=100 FSTRUC,JOB=DTSTM500,SCHID=200 FSTRUC,JOB=DTSTD400,SCHID=011 FSTRUC,JOB=DTSHM030,SCHID=092 FSTRUC,JOB=DTSHM040,SCHID=202 FSTRUC,JOB=DTSCD860,SCHID=100 FSTRUC,JOB=DTSCD865,SCHID=100 -
CA7 Step 3 - The final step passes the generated
FSTRUCcommands to a CA7 job. The output produces the report that is used as input to the Predictive Recall job stream.1BSTR-00 *** INPUT TO BATCH TERMINAL *** /LOGON ******** * GENERATED LOGON * FSTRUC,JOB=DTSFDN05,SCHID=017 FSTRUC,JOB=DTSTDOSN,SCHID=030 FSTRUC,JOB=DTSOD195,SCHID=017 FSTRUC,JOB=DTSOR160,SCHID=018 FSTRUC,JOB=DTSPD005,SCHID=010 FSTRUC,JOB=DTSFDA03,SCHID=017 FSTRUC,JOB=DTSTD450,SCHID=017 FSTRUC,JOB=DTSTWING,SCHID=100 FSTRUC,JOB=DTSTWDEV,SCHID=100 FSTRUC,JOB=DTSSD800,SCHID=010 FSTRUC,JOB=DTSOD195,SCHID=018 FSTRUC,JOB=DTSOR160,SCHID=017 FSTRUC,JOB=DTSSD020,SCHID=010 FSTRUC,JOB=DTSOD600,SCHID=017 FSTRUC,JOB=DTSOD200,SCHID=017 FSTRUC,JOB=DTSOD013,SCHID=017 FSTRUC,JOB=DTSTD991,SCHID=017 FSTRUC,JOB=DTSTD750,SCHID=017 /LOGOFF * GENERATED LOGOFF * 0BSTR-00 *** END OF INPUT *** 1 10280 090401 /LOGON ******** CA-7.023 - r11.1(SP3 ) OPERATOR IS LOGGED ON TO TERMINAL BTERM1 AT 09:04:01 ON 10.280 - 10280 090401 FSTRUC,JOB=DTSFDN05,SCHID=017 1FSTRUC DATE 10-07-10 PAGE 0001 FORECAST FOR CA-7 JOBS START TIME : 10-07-10 AT 0904 HRS JOB(S) : DTSFDN05 SYSTEM(S) : ALL JOBNET(S) : ALL OPTIONS : BOTH JOB- AND DSN-TRIGGERED JOBS INCLUDED CONNECTED OUTPUT NETWORKS NOT INCLUDED HIGHEST JOB DATE AND TIME : 10281/0800 HIGHEST JOB NAME : DTSFDN05 ** WARNING: MAX LEVEL ENCOUNTERED 1FSTRUC DATE 10-07-10 PAGE 0001 NETWORK STRUCTURE FOR CA-7 JOBS START TIME : 10-07-10 AT 0904 HRS LEV# JOB NAME SYS START DTTM END DTTM TRIGGERING JOB/DSN/SID *** DTSFDN05............ IF 10280/0904 10280/0908 :017 001 DTSFDN06.......... IF 10280/0918 10280/0922 DTSFDN05 :017 002 DTSFDN05........ IF 10280/0932 10280/0936 DTSFDN06 :017 003 DTSFDN06...... IF 10280/0946 10280/0950 DTSFDN05 :017 004 DTSFDN05.... IF 10280/1000 10280/1004 DTSFDN06 :017 005 DTSFDN06.. IF 10280/1014 10280/1018 DTSFDN05 :017 006 DTSFDN05 IF 10280/1028 10280/1032 DTSFDN06 :017 007 DTSFDN06 IF 10280/1042 10280/1046 DTSFDN05 :017 008 DTSFDN05 IF 10280/1056 10280/1100 DTSFDN06 :017 009 DTSFDN06 IF 10280/1110 10280/1114 DTSFDN05 :017 010 DTSFDN05 IF 10280/1124 10280/1128 DTSFDN06 :017Warning: Max level encountered in the report output.