If any lines have blank sequence numbers, your editor may change the profile to nonum. So the easiest is NUM 73 80 to overwrite any existing characters, then UNNUM to remove the new sequence numbers.
On Wed, Jan 13, 2021 at 2:07 AM Wayne Bickerdike <[email protected]> wrote: > > UNNUM in the EDIT macro works better if the member has real sequence > numbers. If it's just any text that happens to be NUM or CHAR, the picture > works better :) > > On Wed, Jan 13, 2021 at 7:02 PM Wayne Bickerdike <[email protected]> wrote: > > > ALLMEM source: > > > > /* REXX */ > > /*--------------------------------------------------------------------*/ > > /* */ > > /* Routine to run the edit macro ALL against all members of a */ > > /* library. */ > > /* */ > > /* COMPONENTS */ > > /* 1. REXX routine 'ALLMEM' */ > > /* 2. REXX routine 'ALL ' */ > > /* */ > > /*--------------------------------------------------------------------*/ > > address "TSO" > > Arg PARMSTR > > Parse value PARMSTR with PARM1 LEFTOVER > > 'ISPEXEC VGET (ZUSER ZTIME ZDATE)' > > if PARM1 \= '' then LDSN = PARM1 > > else > > do > > Say 'Parameter missing. Expecting a PDS name' > > exit > > end > > LDSN = strip(LDSN,,"'") > > say LDSN > > X = OUTTRAP("LCAT.") > > "LISTDS '" || LDSN ||"' MEMBERS" > > X = OUTTRAP("OFF") > > N = 1 > > STARTMEM = 'N' > > RLC = 0 > > Say "Enter Edit macro to run " > > Pull macname > > x =, > > "ADDRESS 'ISPEXEC' 'EDIT DATASET('''LDSNM''') MACRO(", > > macname")'" > > do A=1 to LCAT.0 > > if STARTMEM = 'Y' then > > do > > MEMBER = strip(LCAT.N,B,' ') > > say MEMBER > > LDSNM = LDSN'('MEMBER')' > > INTERPRET x > > end > > if LCAT.N = '--MEMBERS--' then STARTMEM = 'Y' > > N = N + 1 > > if LCAT.N = '#END#' then RLC = 99 > > end > > Return > > > > And the EDIT macro, for example ALL > > > > /* REXX */ > > ADDRESS "ISREDIT" > > ADDRESS 'ISPEXEC' 'CONTROL ERRORS RETURN' > > "MACRO (PARM) NOPROCESS" > > "C ALL P'=' ' ' 73 80 " > > > > In this example I use the Picture notation P'=' so anything in cc73-80 is > > matched and set to spaces. > > > > PDS with 3 numbered members: > > > > Command - Enter "/" to select action > > ------------------------------------- > > allmem BDB204.PDS > > > > BDB204.PDS > > Enter Edit macro to run > > > > ALL > > > > ALL > > A > > B > > C > > *** > > > > > > > > > > > > > > > > "END" > > > > > > On Wed, Jan 13, 2021 at 6:43 PM Wayne Bickerdike <[email protected]> > > wrote: > > > >> I have a REXX called ALLMEM, it gets the member list and calls an edit > >> macro. > >> > >> I usually run it from 3.4. I'll post it here when I get my system going. > >> > >> On Wed, Jan 13, 2021 at 5:00 AM Paul Gilmartin < > >> [email protected]> wrote: > >> > >>> On Tue, 12 Jan 2021 13:46:07 -0400, Clark Morris wrote: > >>> >> > >>> >>And a general note: when using ISPF edit to remove sequence numbers > >>> from a > >>> >>(large) number of (large) members, you might need to cater for the > >>> fact that a > >>> >>PDS might need to be compressed at some stage in the middle of your > >>> processing! > >>> > > >>> >Use of update in place should work if all that is being done is > >>> >sequence number stripping since the size of the member does not > >>> >change. > >>> > > >>> Does ISPF Edit update in place, even optionally? I think PDS usually > >>> creates a new member. > >>> > >>> -- gil > >>> > >>> ---------------------------------------------------------------------- > >>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>> send email to [email protected] with the message: INFO IBM-MAIN > >>> > >> > >> > >> -- > >> Wayne V. Bickerdike > >> > >> > > > > -- > > Wayne V. Bickerdike > > > > > > -- > Wayne V. Bickerdike > > ---------------------------------------------------------------------- > 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
