Re: Trying to Parse a LISTCAT with SORT

[Sri h Kolusu]

>>. I am trying to use SORT to process a LISTCAT to give me part of the DSN and 
>>the creation date

Don,

Use the following Untested DFSORT control cards which will give you the desired 
results.

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=Your Input Listcat VBA 137 byte file
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY,VLSCMP
  INREC IFTHEN=(WHEN=(06,07,CH,EQ,C'NONVSAM'),
               PARSE=(%=(ENDBEFR=C'.',
                          ABSPOS=21),                # Node 1
                      %=(ENDBEFR=C'.'),              # Node 2
                      %03=(ENDBEFR=C'.',FIXLEN=8),   # Node 3
                      %04=(ENDBEFR=C'.',FIXLEN=8),   # Node 4
                      %05=(ENDBEFR=C'.',FIXLEN=8)),  # Node 5
             OVERLAY=(138:%03,
                          %04,
                          %05))

  OUTREC IFTHEN=(WHEN=GROUP,
                BEGIN=(06,07,CH,EQ,C'NONVSAM'),
                 PUSH=(138:138,24))

  OUTFIL VTOF,
  INCLUDE=(42,10,CH,EQ,C'CREATION--'),
  BUILD=(146,08,X,
         154,08,X,
         058,08,X,
         138,08,X)
/*

Thanks,
Kolusu
DFSORT Development
IBM Corporation



----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN