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
