Format LISTDS output using DFSORT
Posted: Tue Apr 26, 2011 10:21 am
I am using LISTDS to list all the members of some of the PDSs. My input looks like as shown and I want it to be formatted as shown in output below. I tried a lot but couldn't it as expected. I can do it in multiple passes but was wondering if there a better way to do it in minimum passes.
Input -
Expected Output -
In short, besides the member name, I want the PDS name to be appear to which the member belongs. this output will further be used in building multiple FTP scripts.
Thanks
Input -
READY
LISTDS 'USERID.COBSRC' MEMBERS
USERID.COBSRC
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 32720 PO
--VOLUMES--
LILTAN
--MEMBERS--
ABI00001
ABI00002
ABI00003
ABI00004
READY
LISTDS 'USERID.CPYLIB' MEMBERS
USERID.CPYLIB
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
LILTAL
--MEMBERS--
ABC00001
DGC00001
POC00001
READY
LISTDS 'USERID.JCLLIB' MEMBERS
USERID.JCLLIB
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
LIXLAD
--MEMBERS--
SDJCL001
SDJCL002
READY
LISTDS 'USERID.PROCLIB' MEMBERS
USERID.PROCLIB
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
LILTAL
--MEMBERS--
SDPRC001
SDPRC002
READY
END
LISTDS 'USERID.COBSRC' MEMBERS
USERID.COBSRC
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 32720 PO
--VOLUMES--
LILTAN
--MEMBERS--
ABI00001
ABI00002
ABI00003
ABI00004
READY
LISTDS 'USERID.CPYLIB' MEMBERS
USERID.CPYLIB
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
LILTAL
--MEMBERS--
ABC00001
DGC00001
POC00001
READY
LISTDS 'USERID.JCLLIB' MEMBERS
USERID.JCLLIB
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
LIXLAD
--MEMBERS--
SDJCL001
SDJCL002
READY
LISTDS 'USERID.PROCLIB' MEMBERS
USERID.PROCLIB
--RECFM-LRECL-BLKSIZE-DSORG
FB 80 27920 PO
--VOLUMES--
LILTAL
--MEMBERS--
SDPRC001
SDPRC002
READY
END
Expected Output -
ABI00001 USERID.COBSRC
ABI00002 USERID.COBSRC
ABI00003 USERID.COBSRC
ABI00004 USERID.COBSRC
ABC00001 USERID.CPYLIB
DGC00001 USERID.CPYLIB
POC00001 USERID.CPYLIB
SDJCL001 USERID.JCLLIB
SDJCL002 USERID.JCLLIB
SDPRC001 USERID.PROCLIB
SDPRC002 USERID.PROCLIB
ABI00002 USERID.COBSRC
ABI00003 USERID.COBSRC
ABI00004 USERID.COBSRC
ABC00001 USERID.CPYLIB
DGC00001 USERID.CPYLIB
POC00001 USERID.CPYLIB
SDJCL001 USERID.JCLLIB
SDJCL002 USERID.JCLLIB
SDPRC001 USERID.PROCLIB
SDPRC002 USERID.PROCLIB
In short, besides the member name, I want the PDS name to be appear to which the member belongs. this output will further be used in building multiple FTP scripts.
Thanks