Hi Kolusu >If your requirement is to merely parse the listcat output and generate new statement, DFSORT does a good job at that and it is quite easy to do it.
Show us an example of input data and expected output from it. input 0NONVSAM ------- BACKUP.DB2LOG.PLEXNP1.EPD1.D210919 HISTORY DATASET-OWNER-----(NULL) CREATION--------2021.263 RELEASE----------------2 EXPIRATION------0000.000 ENCRYPTIONDATA DATA SET ENCRYPTION-----(NO) VOLUMES VOLSER------------A02736 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------A04040 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------A02737 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------A04041 DEVTYPE------X'78048081' FSEQN------------------1 1IDCAMS SYSTEM SERVICES TIME: 16:14:14 12/13/21 PAGE 133 - LISTING FROM CATALOG -- CAT.USER.PLEXNP1.TAPEBAKT 0 VOLSER------------K92203 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------M48882 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------M66612 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------M80126 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------M33395 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------N45826 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------N79630 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------N93175 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X14114 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X54074 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X63612 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X68470 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------P96957 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X74242 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X99918 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------W70577 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------J01510 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X34675 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X42049 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X42823 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------X72231 DEVTYPE------X'78048081' FSEQN------------------1 VOLSER------------J42688 DEVTYPE------X'78048081' FSEQN------------------1 ASSOCIATIONS--------(NULL) ATTRIBUTES IF THE PREFIX OF VOLSER IS A* OUTPUT : DEFINE NONVSAM(- NAME(BACKUP.DB2LOG.PLEXNP1.EPD1.D210919)- VOLUMES(A02736,A04040,- A02737,A04041)- DEVICETYPES(3490,3490,- 3490,3490)- FILESEQUENCENUMBERS(1,1,- 1,1) Could you tell us how to use dfsort to do it? ------------------ Original ------------------ From: "Sri h Kolusu";<[email protected]>; Date: Dec 15, 2021 To: "IBM-MAIN"<[email protected]>; Subject: Re: EAGREX0500E Error 5 . Machine storage exhausted or request exceeds limit in REXX > We want to analyse the output of listc cat(ucat) for oracle taplib to generate statement > to define entries for the new ucat this time. If your requirement is to merely parse the listcat output and generate new statement, DFSORT does a good job at that and it is quite easy to do it. Show us an example of input data and expected output from it. >>We also want&nbsp;analyse the output&nbsp;of operlog,we met the same issue. Unless you are drawing pie charts, picking information operlog is quite easy. And we can even match the operlog with LISTCAT information and then get the desired data. Thanks, Kolusu ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
