Look into the ISPF Edit commands "UnNUM" followed by "Number Off"
(This is dredging way back in my memory banks and I forget the order they commands need to be done in - but they specifically address your issue). Jerry Whitteridge Delivery Manager / Mainframe Architect GTS - Safeway Account 602 527 4871 Mobile [email protected] IBM Services IBM Mainframe Discussion List <[email protected]> wrote on 06/25/2018 10:36:08 AM: > From: Sri h Kolusu <[email protected]> > To: [email protected] > Date: 06/25/2018 10:36 AM > Subject: Re: ICEGENER to the rescue again? > Sent by: IBM Mainframe Discussion List <[email protected]> > > Sean, > > ICEGENER can only handle 1 member at a time. As others have pointed out > you can use a macro to update the line numbers. If your shop has > file-manger then you can use the following JCL > > //STEP0100 EXEC PGM=FILEMGR > //SYSPRINT DD SYSOUT=* > //PDS DD DISP=SHR,DSN=Your input pds with line numbers > //SYSIN DD * > $$FILEM FCH INPUT=PDS > C P'=' ' ' 73 80 > > > >>> My latest attempt featured IEBPTPCH to unload the PDS to a sequential > file, then SORT to write only cols 1-72 from each record to another output > file. > > That part works fine, but - given that I don't know how many members > there are, nor the names of them - how do I get the serialised members back > in to > > a PDS? > > You can print the PDS using IEBPTPCH and rebuild the PDS once again by > generating the update control cards for IEBUPDTE using DFSORT. Let me know > if you are interested in that solution > > > 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
