A real oldie but goodie is the famous "LISTPDS" assembler program written by Gene Czarcinski of NASA Goddard Space Flight Center in the early 70s for the 360/95 when he was its system programmer. Bill Godfrey, my former office mate at PRC at Goddard back in the 70s, added some nice enhancements. It was on the famous NASA Goddard Goodies tape for years. You can now pull it from the CBT TAPE. Like StarTool below, Bill Godfrey added support to preserve the ISPF statistics; it works just fine with a PDSE.
If you use PARM=UPDTE and add a SYSPUNCH DD statement, it will punch the entire PDS or selected members with ./ ADD IEBUPDTE control statements. Also, and I'm not sure if it's in the free version of PDSTOOLS - but I know it's in StarTool from Serena, there is a subcommand "SEPARATE" that will (and quoting the manual) ". . . splits a member or data set containing members with ./ separators into their component members. Note that ISPF statistics are maintained." Bill Smith DFSMS Device Support, San Jose LPDS TITLE 'LIST PARTITIONED DATA SET UTILITY PROGRAM' [EMAIL PROTECTED] ** ** ** TITLE - LIST PARTITIONED DATA SET UTILITY PROGRAM ** ** ** ** NAME - LISTPDS, ENTRY POINT - LISTPDS ** ** ** ** STATUS - VERSION 6.2, UPDATED 10JUL73 ** ** UPDATED 03DEC80 AT AFDSC/PENTAGON, BILL GODFREY ** ** . MOVE SSI= KEYWORD AFTER MEMBER NAME ON ./ ADD ** ** . FORMAT SPF STATISTICS ON SYSPRINT AND ON ./ ADD ** ** . ADD NEW PARM OPTIONS 'SPF' AND 'NOSPF', ** ** DEFAULT IS 'SPF'. IF 'NOSPF' IS SPECIFIED, OR ** ** IF NO MEMBERS IN A PDS CONTAIN SPF STATISTICS, ** ** THEN THE OLD HEX FORMAT WILL BE USED ON SYSPRINT. ** ** . ADD NEW PARM OPTION 'NOSEL' TO IGNORE SYSIN. ** ** SIMPLIFIES USE OF LISTPDS FROM TSO. ** ** . GET TIOT ADDRESS FROM TCB INSTEAD OF EXTRACT SVC. ** ** UPDATED 23FEB81 AT AFDSC/PENTAGON, BILL GODFREY ** ** . UPDTE(XX) IN PARM SPECIFIES XX AS REPLACEMENT ** ** STRING FOR './' IF FOUND WITHIN A MEMBER. ** ** UPDATED 06JUL94 D.H.CARTWRIGHT .DHC ** . 'TRUNC' WITH CARD IMAGES DELETES SEQ. NOS. 73-80 .DHC ** UPDATED 08FEB95 D.H.CARTWRIGHT .DHC ** . IN THE ABOVE CASE SPECIAL PROCESS FOR 'PDSDOC' .DHC ** ** ** DEVELOPED BY . . . ** ** GENE CZARCINSKI ** ** NASA/GODDARD SPACE FLIGHT CENTER ** ** GREENBELT, MARYLAND ** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
