Endevor

 View Only
  • 1.  Need hand on REXX

    Posted Dec 21, 2021 10:18 AM

    Greetings All,

    I need some help on coding a Rexx for one of my query.

    I used to run a JCL which will pull the list of logging and violated people using Endevor DSN's details from the Daily SMF reports.

    Sample output of my job:

    1SUMMARY EXTRACT FROM ACF2 LOG: DATASET LOGGING                        

    -                                                                      

      DATASET NAME   -------UID / NAME---------------TALLY

    END.ABC.PRD.JCL     ABC123 / JAMES JONES           2

    END.EFG.PRD.SOURCE  CDE119 / RICHARD ALEX          17

                                                       19

                                                                           

    1SUMMARY EXTRACT FROM ACF2 LOG: DATASET VIOLATION                      

    -                                                                      

      DATASET NAME   -------UID / NAME---------------TALLY

    END.ABC.PRD.COBOL    ABC123 / JAMES JONES           8

    END.DEF.PRD.COBOL    ACC129 / CHARILE RICHARD       7

    END.PRT.PRD.XGEN     ABD139 / BEN BILLARD           12

                                                        27

     

    -----------------------------------------------           

                                                              

      21.352 12/18 09.04       DATASET  LOGGING               

      VOL=DASD00 DDN=ISPF1010 DSN= END.ABC.PRD.JCL    

    1 VOL=       PGM=ENDACF1   LIB=SYS.LINKLIB                

    3 DA-OPN OUTPUT  RULELOG  NAM= JAMES JONES        -P  ROL=   

      SRC=LF000001            UID= ABC123

    :   END      ENDPATH                                     

    +1 more same entry as the count is 2.

     

      21.352 12/18 04.45       DATASET  LOGGING               

      VOL=DASD50 DDN=ISPF1110 DSN= END.EFG.PRD.SOURCE

    1 VOL=       PGM=ENDACF1   LIB=SYS.LINKLIB                

    3 DA-OPN OUTPUT  RULELOG  NAM= RICHARD ALEX         -P  ROL=   

      SRC=AB000101            UID= CDE119

    :   END      ENDPATH                                     

    +16 more same lines repeated per Tally count

     

      21.352 12/18 10.43       DATASET  VIOLATION             

      VOL=DASD01 DDN=ISPF1010 DSN= END.ABC.PRD.COBOL   

    1 VOL=       PGM=ENDACF1   LIB=SYS.LINKLIB                               

    8 DA-OPN OUTPUT  NOACCESS NAM= JAMES JONES           -A  ROL=   

      SRC=KF000003            UID= ABC123

    :   END       ENDPATH                             

    +7 more same lines repeated per Tally count

     

      21.352 12/18 11.13       DATASET  VIOLATION             

      VOL=DASD09 DDN=ISPF1011 DSN= END.DEF.PRD.COBOL   

    1 VOL=       PGM=ENDACF1   LIB=SYS.LINKLIB                               

    8 DA-OPN OUTPUT  NOACCESS NAM= CHARILE RICHARD           -A  ROL=   

      SRC=KL000001            UID= ACC129

    :   END       ENDPATH                             

    +6 more same lines repeated per Tally count

     

      21.352 12/18 01.49       DATASET  VIOLATION             

      VOL=DASD21 DDN=ISPF2001 DSN= END.PRT.PRD.XGEN     

    1 VOL=       PGM=ENDACF1   LIB=SYS.LINKLIB                               

    8 DA-OPN OUTPUT  NOACCESS NAM= BEN BILLARD           -A  ROL=   

      SRC=AL002001            UID= ABD139

    :   END       ENDPATH                             

    +11 more same lines repeated per Tally count

     

    Now my query is, I need a Rexx to pull only the Tally number which is equal or more than 8 under the heading - 1SUMMARY EXTRACT FROM ACF2 LOG: DATASET VIOLATION with their respective violation summary.      

     

    Sample report which I expect:

     

     Need to create an new DSN's for each reports as per the entries, like

     

    END.TEST.JAMES.ACF – Report of JAMES JONES

     

    1SUMMARY EXTRACT FROM ACF2 LOG: DATASET VIOLATION                      

    -                                                                      

      DATASET NAME   -------UID / NAME---------------TALLY

    END.ABC.PRD.COBOL    ABC123 / JAMES JONES           8

    -----------------------------------------------           

                                                              

      21.352 12/18 10.43       DATASET  VIOLATION             

      VOL=DASD01 DDN=ISPF1010 DSN= END.ABC.PRD.COBOL   

    1 VOL=       PGM=ENDACF1   LIB=SYS.LINKLIB                               

    8 DA-OPN OUTPUT  NOACCESS NAM= JAMES JONES           -A  ROL=   

      SRC=KF000003            UID= ABC123

    :   END       ENDPATH                             

    +7 more same lines repeated per Tally count

     

    END.TEST.BEN.ACF - Report of BEN BILLARD

     

    1SUMMARY EXTRACT FROM ACF2 LOG: DATASET VIOLATION                      

    -                                                                      

      DATASET NAME   -------UID / NAME---------------TALLY

    END.PRT.PRD.XGEN     ABD139 / BEN BILLARD           12

    -----------------------------------------------           

     

      21.352 12/18 01.49       DATASET  VIOLATION             

      VOL=DASD21 DDN=ISPF2001 DSN= END.PRT.PRD.XGEN     

    1 VOL=       PGM=ENDACF2   LIB=SYS.LINKLIB                               

    8 DA-OPN OUTPUT  NOACCESS NAM= BEN BILLARD           -A  ROL=   

      SRC=AL002001            UID= ABD139

    :   END       ENDPATH                             

    +11 more same lines repeated per Tally count

                                                              

     

    Could anyone please help by sharing your suggestion and script on Rexx to full-fill my requirement.

     

    Any suggestion over the query is really appreciated.


    Merry Christmas and Happy New Year for all 😊
     

    Thanks & Regards,

    Praveen



  • 2.  RE: Need hand on REXX

    Posted Dec 25, 2021 05:32 PM



  • 3.  RE: Need hand on REXX
    Best Answer

    Posted Dec 25, 2021 05:32 PM
    I like a Christmas quiz... 

    y = x + 1
    if pos('--TALLY',line.x) > 0 & word(line.y,6) > 7 then
      say line.y



  • 4.  RE: Need hand on REXX

    Posted Dec 26, 2021 09:59 AM
    Greetings John,

    Thanks for your inputs on my query. 

    I will surely get back to you once trying out this.

    Thanks,
    Praveen