Using ETT occurrence-related variables

About this task

To determine the type of event that has caused the automatic addition of a new occurrence to the plan, use the variables provided by ETT. For example, consider that a company is asked to produce customer-oriented reports according to an external demand. The on-demand request is created by a job name that identifies the customer and is contained in a new generation of an input GDG data set. You can resolve the on-demand process by using the ETT definition and ETT variables in a single job, as follows:
  1. In the CREATING A SPECIAL RESOURCE panel (option 1.6.2 on the main menu), define the special resource that identifies the input GDG data set root.
    Figure 1. EQQQDCRP - Creating a special resource
    EQQQDCRP ---------------- CREATING A SPECIAL RESOURCE -----------------------
                                                                                  
     Select one of the following:                                                 
                                                                                  
     1 INTERVALS  - Specify intervals                                             
     2 WS         - Modify default connected work stations                        
                                                                                  
     SPECIAL RESOURCE   ===> HWA.REQUESTS.GDG_____________________________        
     TEXT               ===> _____________________________________________        
     SPECRES GROUP ID   ===> ________                                             
     Hiperbatch         ===> N       DLF object Y or N                            
     USED FOR           ===> B       Planning and control C , P , B or N          
     ON ERROR           ===> _       On error action F , FS , FX , K or blank     
     ON COMPLETE        ===> _       On complete action Y , N , R or blank        
     MAX USAGE LIMIT    ===> _____   Max number of allocations before usage reset 
     MAX USAGE TYPE     ===> N       Status change type Y, N or R                 
                                                                                  
                                                                                  
     Defaults                                                                     
       QUANTITY         ===> 1_____  Number available 1-999999                    
       AVAILABLE        ===> Y       Available Y or N 
  2. In the MODIFYING ETT TRACKING CRITERIA panel, specify the ETT criteria for the GDG data set root.
    Figure 2. EQQJMTCL - Modifying ETT tracking criteria
    EQQJMTCL --------------- MODIFYING ETT TRACKING CRITERIA -------- Row 1 to 4 of 4
    Command ===>                                                     Scroll ===> PAGE
    
    Change data in the rows, and/or enter any of the following row commands:
    
    I(nn) - Insert,  R(nn), RR(nn) - repeat,  D(nn), DD - Delete
    
    
    Row  Name of triggering event                         ID of associated E  J  D  A
    cmd                                                   application      T  R  R  S
    '''' SETT*___________________________________________ ETTAPPL1________ J  N  Y  N
    '''' HWA.CWSA.CLIST__________________________________ ETTAPPL2________ R  N  Y  N
    '''' HWA.CWSA.JCL*___________________________________ ETTAPPL3________ R  N  Y  N
    '''' HWA.REQUESTS.GDG________________________________ ETTAPPL4________ R  N  Y  N
    
    ******************************** Bottom of Data *********************************
  3. Update the selection table for the tracker to identify the ETT criteria for the GDG data set root. The file to be edited depends on which kind of selection table the tracker uses:
    • If the tracker uses EQQDSLST as selection table, update the EQQLSJCL member of the sample job JCL library as follows:
    Figure 3. Updating EQQDSLST list
    EDIT      HWA.CWSA.JOBLIB(EQQLSJCL) - 01.08                  Columns 00001 000072
    Command ===>                                                      Scroll ===> CSR
    
    ****** *************************** Top of Data **********************************
    
    000001 //ASMH      EXEC PGM=ASMA90,PERM='NODECK,OBJECT,XREF,(SHORT),LIST'
    000002 //SYSPRINT  DD SYSOUT=*
    000003 //SYSLIB    DD DISP=SHR,DSN=HWA.SEQQMAC0
    000004 //SYSLIN    DD DISP=SHR,DSN=HWA.JCLIB(EQQDSLST)
    000005 //SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(2,1))
    000020 //SYSIN     DD *
    000021 EQQLSENT    STRING='HWA.CWSA.CLIST ',POS=1
    000022 EQQLSENT    STRING='HWA.REQUESTS.GDG ',POS=1
    000023 EQQLSENT    STRING=LASTENTRY
    000024 END
    000025 /*
    
    ****** ************************* Bottom of Data *********************************

    If the tracker uses EQQEVLST as selection table, updated it as described in Data set triggering.

  4. Write a sample JCL that includes the ETT occurrence-related variables.
    Figure 4. JCL written to use ETT occurrence-related variables
    EDIT      HWA.CWSA.JOBLIB(TESTJCL) - 01.00                   Columns 00001 000072
    Command ===>                                                      Scroll ===> CSR
    
    ****** *************************** Top of Data **********************************
    
    000100 //TESTJCL   JOB  (876903,D07),'AAAAAAA',MSGLEVEL=(1,1),
    000200 //        MSGCLASS=A,CLASS=A
    000210 //*
    000211 //*%OPC SCAN
    000220 //**************************************************************
    000221 //* - READ AND ELABORATE THE NEW REQUEST
    000222 //* - CREATE THE OUTPUT REPORT FOR CUSTOMER
    000223 //**************************************************************
    000224 //STEP1    EXEC PGM=READREQ
    000225 //REQUEST  DD DISP=SHR,DSN=&OETEVNM
    000227 //REPORT   DD DISP=(,CATLG),DSN=REPORT.&OETJOBN,
    000228 //        SPACE=(TRK,(1,1)),UNIT=SYSDA,
    000229 //        DCB=(RECFM=VBA,BLKSIZE=136,LRECL=1360)
    000230 //*
    
    ****** ************************* Bottom of Data *********************************
  5. When you create a request, a new generation of HWA.REQUESTS.GDG is created. The ETT criteria schedule a new occurrence and the variable is resolved.
    Figure 5. JCL with variables resolved
    //TESTJCL  JOB  (876903,D07), 'AAAAAAA',MSGLEVEL=(1,1),                
    //     MSGCLASS=A,CLASS=A
    //*
    //*%OPC SCAN
    //*********************************************************************
    //* - READ AND ELABORATE THE NEW REQUEST
    //* - CREATE THE OUTPUT REPORT FOR CUSTOMER
    //*********************************************************************
    //STEP1    EXEC PGM=READREQ
    //REQUEST  DD DISP=SHR,DSN=HWA.REQUEST.GDG.G0002V00
    //REPORT   DD DISP=(,CATLG),DSN=REPORT.USER1,
    //        SPACE=(TRK,(1,1)),UNIT=SYSDA,
    //        DCB=(RECFM=VBA,BLKSIZE=136,LRECL=1360)
    //*

For a detailed description of the ETT occurrence-related variables, see Occurrence-related supplied JCL variables.