Unnum doesn't work if all lines don't have numbers. So you have to renum then unnum. On Mon, Jun 25, 2018 at 12:49 PM Jerry Whitteridge <[email protected]> wrote: > > 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
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
