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
