OK, but, what if you want to use masking characters in the DSNAME (a la
3.4)?
On 2019-07-01 19:57, Sri h Kolusu wrote:
>>>> I need to generate a listcat with only the dsn. like in 3.4 but I
>> want it in a dataset with ONLY the dsn.
> Elaine,
>
> If your intention is to just get list of all datasets for a particular HLQ,
> then it is quite simple. Run LISTCAT via TSO and then strip off the
> unwanted data.
>
> Something like this
>
> // EXPORT SYMLIST=*
> // SET HLQ='ELAINE'
> //*
> //*************************************************************
> //* ISSUE LISTCAT ON LEVEL FOR THE USERID **
> //*************************************************************
> //STEP0100 EXEC PGM=IKJEFT01
> //SYSTSPRT DD DSN=&&L,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),
> // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
> //SYSTSIN DD *,SYMBOLS=JCLONLY
> LISTCAT LEVEL('&HLQ') NAME
> //*
> //*************************************************************
> //* STRIP OFF THE HEADERS AND CATALOG INFO FROM THE LISTCAT **
> //* OUTPUT AND CREATE LIST OF THE DATASETS FOR THE USER **
> //*************************************************************
> //STEP0200 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN DD DISP=(OLD,PASS),DSN=&&L
> //SORTOUT DD SYSOUT=*
> //SYSIN DD *
> OPTION COPY
> OMIT COND=(01,05,CH,EQ,C'READY',OR,
> 01,03,CH,EQ,C'END',OR,
> 06,06,CH,EQ,C'IN-CAT',OR,
> 03,08,CH,EQ,C'LISTCAT ')
>
> INREC BUILD=(17,44)
> //*
>
>
> 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
