Thank you Max, Regards, Jack
On Mon, 29 Aug 2022 at 16:31, Massimo Biancucci <mad4...@gmail.com> wrote: > Jack, > > I don't fully understand the output, the numbers at the beginnins seems to > be edit related and cols not. > This is my JCL, of course my catalog names are different but it doesn't > seem to matter. > > //ST010 EXEC PGM=IDCAMS > > //SYSPRINT DD SYSOUT=* > > //SYSIN DD * > > DELETE MYUSER.V000.LISTCAT > > IF MAXCC=8 THEN SET MAXCC=0 > > /* > > //ST020 EXEC PGM=IDCAMS > > //SYSPRINT DD DSN=MYUSER.V000.LISTCAT, > > // DISP=(,CATLG),SPACE=(TRK,(10,10),RLSE) > > //SYSIN DD * > > LISTCAT CAT(MYCAT01) VOL > > LISTCAT CAT(MYCAT02) VOL > > /* > > //*------------------------------------------------------------------- > > //ST030 EXEC PGM=SORT > > //SYSOUT DD SYSOUT=* > > //SORTIN DD DISP=SHR,DSN=MYUSER.V000.LISTCAT > > //SORTOUT DD SYSOUT=* > > //SYSIN DD * > > OPTION VLSCMP > > INCLUDE COND=((6,03,CH,EQ,C'IDC',AND, > > 6,06,CH,NE,C'IDCAMS',AND, > > 6,8,CH,NE,C'IDC0001I')) > > SORT FIELDS=COPY > > /* > > //*------------------------------------------------------------------- > > //ST040 EXEC PGM=SORT > > //SYSOUT DD SYSOUT=* > > //SORTIN DD DISP=SHR,DSN=MYUSER.V000.LISTCAT > > //SORTOUT DD SYSOUT=* > > //SYSIN DD * > > OPTION VLSCMP > > INCLUDE COND=((6,03,CH,EQ,C'IDC',AND, > > 6,06,CH,NE,C'IDCAMS',AND, > > 6,8,CH,NE,C'IDC0001I'),OR, > > (13,04,CH,EQ,C'DATA',AND, > > (22,07,CH,EQ,C'CATALOG',OR, > > 24,05,CH,EQ,C'SYSUC'))) > > SORT FIELDS=COPY > > /* > > I don't see any difference between ST03 and ST040 SORTOUT output. > Hope this helps. > > Best regards. > Max > > Il giorno lun 29 ago 2022 alle ore 13:59 Jack Zukt <jzuk...@gmail.com> ha > scritto: > > > Thank you Max, > > > > As suggested, > > > > =COLS> > > > ----+----1----+----2----+----3----+----4----+----5----+----6----+----7---- > > 000008 IDC1566I ** .....|. ...........8..................2...{. NOT > > LISTED > > 000009 IDC3014I CATALOG ERROR > > > > 000010 IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS > > IGG0CLE0-6 > > 000011 IDC3009I FOR MPG004 > > > > > > The file RECFM is VBA > > > > Regards > > Jack > > > > On Mon, 29 Aug 2022 at 12:27, Massimo Biancucci <mad4...@gmail.com> > wrote: > > > > > Jack, > > > > > > I tried the same and IDC3014I does not disappear after inserting new OR > > > conditions. > > > A print screen with "cols on" on the first output could be helpful. > > > > > > Best regards. > > > Max. > > > > > > Il giorno lun 29 ago 2022 alle ore 11:53 Jack Zukt <jzuk...@gmail.com> > > ha > > > scritto: > > > > > > > Hi all, > > > > > > > > I am trying to get all the IDC messages from a file to where I > directed > > > the > > > > output from multiple "LISTCAT CAT(usercat name) VOL" > > > > I am using this > > > > > > > > INCLUDE COND=(6,03,CH,EQ,C'IDC',&, > > > > 6,06,CH,NE,C'IDCAMS',&, > > > > 6,08,CH,NE,C'IDC0001I') > > > > > > > > and it works just fine. But then I wanted to include the usercat > names > > so > > > > that I can see to which catalog each set of messages is related to, > so > > I > > > > changed it to > > > > > > > > INCLUDE COND=((6,03,CH,EQ,C'IDC',&, > > > > 6,06,CH,NE,C'IDCAMS',&, > > > > 6,08,CH,NE,C'IDC0001I'),|, > > > > (13,04,CH,EQ,C'DATA',&, > > > > (22,07,CH,EQ,C'CATALOG',|, > > > > 24,05,CH,EQ,C'SYSUC'))) > > > > > > > > the USERCATs being named CATALOG.xxx or xxSYSUC.xxxx > > > > > > > > So now I have the IDC messages and the USERCAT names in between. But > > the > > > > output file is missing all the > > > > > > > > IDC3014I CATALOG ERROR > > > > > > > > messages and I can not figure out why. > > > > > > > > So, I really do not need those specific messages, but as I do not > > > > understand why they are missing, I do not know if I am missing any > > > others. > > > > > > > > Regards, > > > > Jack > > > > > > > > > ---------------------------------------------------------------------- > > > > For IBM-MAIN subscribe / signoff / archive access instructions, > > > > send email to lists...@listserv.ua.edu with the message: INFO > IBM-MAIN > > > > > > > > > > ---------------------------------------------------------------------- > > > For IBM-MAIN subscribe / signoff / archive access instructions, > > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN