Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
Well, for VSAM there's always IDCAMS LISTCAT. For QSAM, there's the TSO LISTDS command.
The best thing I can think of that works for either is a null SORT copy:
Code: |
//STEP0001 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=DATASET-TO-CHECK
//SORTOUT DD DISP=(NEW,PASS),UNIT=VIO
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OMIT COND=ALL
/*
//*
|
and then using the contents of the ICE090I message:
Code: |
ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB (SDB)
|
|
|