Re: Request for help with removing sequence numbers from PDS members

See attached 'EDITMAC.txt' on how to process all members of a PDS using REXX and edit macros.   - PDSMEM is ASM, with EQUREGS just being "R0 EQU 0" etc. Assemble and link-edit that. - CALSTRIP is REXX. Copy it to your SYSEXEC PDS library. - STRIP73  is a REXX edit macro. Copy it to your SYSEXEC

Re: Request for help with removing sequence numbers from PDS members

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 wrote: > > UNNUM in the EDIT macro works better

Re: Request for help with removing sequence numbers from PDS members

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 wrote: > ALLMEM source: > > /* REXX */ >

Re: Request for help with removing sequence numbers from PDS members

ALLMEM source: /* REXX */ /**/ /**/ /* Routine to run the edit macro ALL against all members of a*/ /* library.

Re: Request for help with removing sequence numbers from PDS members

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 < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Tue, 12 Jan 2021 13:46:07 -0400,

Re: Request for help with removing sequence numbers from PDS members

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

Re: Request for help with removing sequence numbers from PDS members

[Default] On 12 Jan 2021 08:42:24 -0800, in bit.listserv.ibm-main robert.ah.pr...@gmail.com (Robert Prins) wrote: >>snip > >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

Re: Request for help with removing sequence numbers from PDS members

From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Tuesday, January 12, 2021 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members

Re: Request for help with removing sequence numbers from PDS members

On Tue, 12 Jan 2021 18:41:54 +, Robert Prins wrote: > >... the advantage of keeping things together, like the PL/I RFE I've >very recently entered, >. >Feel free to vote for it, although I already expect it to be

Re: Request for help with removing sequence numbers from PDS members

On Tue, 12 Jan 2021 16:20:17 +, Seymour J Metz wrote: >ISREDIT is only valid for an edit macro. You need on script to invoke EDIT and >a second script running as an IMACRO for the edit. If they are in SYSPROC then >you need to start the first comment with REXX. > Is the initial command

Re: Request for help with removing sequence numbers from PDS members

t; > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf > of Sean Gleann [sean.gle...@gmail.com] > Sent: Tuesday, January 12, 2021 5:30 AM > To: IBM-MAIN@

Re: Request for help with removing sequence numbers from PDS members

On 2021-01-12 16:20, Seymour J Metz wrote: ISREDIT is only valid for an edit macro. You need on script to invoke EDIT and a second script running as an IMACRO for the edit. If they are in SYSPROC then you need to start the first comment with REXX. /* Outer script */ parse upper arg

Re: Request for help with removing sequence numbers from PDS members

Metz [sme...@gmu.edu] Sent: Tuesday, January 12, 2021 11:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members ISREDIT is only valid for an edit macro. You need on script to invoke EDIT and a second script running as an IMACRO for the edit

Re: Request for help with removing sequence numbers from PDS members

Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Sean Gleann [sean.gle...@gmail.com] Sent: Tuesday, January 12, 2021 5:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members I've been told by Powers That Be that this line of d

Re: Request for help with removing sequence numbers from PDS members

On Tue, 12 Jan 2021 11:26:32 +, Sean Gleann wrote: > > 7 *-* "ISREDIT MACRO" > >L> "ISREDIT MACRO" > +++ RC(20) +++ > That belongs not here but in your initial macro. >21 *-* "ISPEXEC EDIT DATAID() MEMBER() MACRO()" > >L> "ISPEXEC EDIT DATAID() MEMBER()

Re: Request for help with removing sequence numbers from PDS members

The 'parse source . . me .' modification cracked the problem, Andy - many thanks! I see now from my very earliest version of the REXX, I had missed out the the space between the placeholders for the first two tokens That led me into a can of worms that eventually resulted in me removing the '. .

Re: Request for help with removing sequence numbers from PDS members

Actually, I think it does. The MACRO parameter should have the name of the calling exec - the other parms have values as I would expect. Can you add a trace ir right at the top, it should show what the parse source is returning; you might instead add a say me .. The parse line should say:

Re: Request for help with removing sequence numbers from PDS members

Hi Andy The ISPLOG output doesn't give anything useful, unfortunately. Time*** ISPF transaction log *** 07:08 Start of ISPF Log - - - - Session # 1 07:08 TSO - Command - - STRIPNOS 07:08 * Dialog Error *

Re: Request for help with removing sequence numbers from PDS members

Sean, If your shop has File-manager , the following JCL will give you the desired results //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //PDS DD DISP=SHR,DSN=Your.PDS/PDSE.to.remove.seqnum //SYSINDD * $$FILEM FCH INPUT=PDS C P'=' ' ' 73 80 /* Thanks, Kolusu

Re: Request for help with removing sequence numbers from PDS members

So, it's the invocation of EDIT that's causing the error. If you add an ISPLOG DD (RECFM VBA, LRECL 125) do you get more info? Otherwise we're into adding some say statements in to see what , and are set to, and wrapping the whole thing in CONTROL ERRORS so we can see what we get back in

Re: Request for help with removing sequence numbers from PDS members

Hi Andy "is it just that you're seeing the RC20 from the ISREDIT" - in this particular version of the REXX it is, but as previously detailed I had problems with the syntax of the CONTROL ERRORS statement. "Does the REXX continue afterwards if you uncomment the code" - in a manner of speaking,

Re: Request for help with removing sequence numbers from PDS members

Twice recently I've tried to paste an answer to a question involving some REXX output and been caught by our DLP filters. Subscribing separately to avoid that! Anyway, is it just that you're seeing the RC20 from the ISREDIT? I would expect that on the first invocation, the CONTROL ERRORS

Re: Request for help with removing sequence numbers from PDS members

On 2021-01-11 8:06 PM, Sean Gleann wrote: Can anyone point me at some sort of solution that I might adapt, please? Perhaps there is something on the CBT tape that might help... I am sure the original problem has been resolved by now, but for completeness I will mention a couple of things

Re: Request for help with removing sequence numbers from PDS members

IST >END SAVE > /* > // > > Note the LIST commands are optional. > Lennie > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Lennie Dymoke-Bradshaw > Sent: 11 January 2021 19:48 > To: IBM-MAIN@LISTSERV.UA.EDU > Su

Re: Request for help with removing sequence numbers from PDS members

- From: IBM Mainframe Discussion List On Behalf Of Lennie Dymoke-Bradshaw Sent: 11 January 2021 19:48 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members Here's how to do it using TSO EDIT. //EDIT EXEC PGM=IKJEFT01 //SYSTSPRT

Re: Request for help with removing sequence numbers from PDS members

To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members How about TSO EDIT (yes TSO, not ISPF) in batch. Lennie -Original Message- From: IBM Mainframe Discussion List On Behalf Of R.S. Sent: 11 January 2021 10:21 To: IBM-MAIN

Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 17:58:07 +, Lars Höglund wrote: > >You can use SETMSG even in batch that's why ISPMLIB > What is its effect? >-Ursprungligt meddelande- >Fr�n: Seymour J Metz >Skickat: den 11 januari 2021 18:39 > >Why a separate allocation step? > >Why 3120 for ISPPROF? >

Re: Request for help with removing sequence numbers from PDS members

Re: Request for help with removing sequence numbers from PDS members On Mon, 11 Jan 2021, at 15:37, Sean Gleann wrote: > Many thanks to all who responded. > I opted to adapt and (try to) use the REXX that Andy Styles gave, but I'm > tripping up over something that has to be one of those 'simple, bas

Re: Request for help with removing sequence numbers from PDS members

elande- Från: IBM Mainframe Discussion List För Paul Gilmartin Skickat: den 11 januari 2021 17:07 Till: IBM-MAIN@LISTSERV.UA.EDU Ämne: Re: Request for help with removing sequence numbers from PDS members On Mon, 11 Jan 2021 15:37:55 +, Sean Gleann wrote: >Many thanks to all who responded. &g

Re: Request for help with removing sequence numbers from PDS members

[IBM-MAIN@LISTSERV.UA.EDU] on behalf of Sean Gleann [sean.gle...@gmail.com] Sent: Monday, January 11, 2021 11:36 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members Jeremy - I tried variants of what you suggest, but all to no avail. &qu

Re: Request for help with removing sequence numbers from PDS members

or a command. Andy Styles z/Series System Programmer -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: 11 January 2021 16:56 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members -- This email has reached

Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 16:36:35 +, Sean Gleann wrote: > >The next command in the REXX is "ISREDIT MACRO", but that leads back to the >RC(20) situation >"ISPEXEC CONTROL ERRORS RETURN" >"ISREDIT MACRO" > +++ RC(20) +++ > "ISREDIT MACRO" must be the first command in a MACRO. It may not

Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 16:36:35 +, Sean Gleann wrote: > >"ADDRESS ISPEXEC CONTROL ERRORS RETURN" results in >IKJ56500I COMMAND ADDRESS NOT FOUND > +++ RC(-3) +++ > ADDRESS is a Rexx bultin instruction. It should not be quoted as if it were a host command. -- gil

Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 16:17:43 +, Lars Höglund wrote: >Example of ISPF-proc > >//* PROC ISPFBAT >//ISPFBAT PROC >//*

Re: Request for help with removing sequence numbers from PDS members

gt; //BATCHPDF.SYSTSIN DD DUMMY > > > -Ursprungligt meddelande- > Från: IBM Mainframe Discussion List För Paul > Gilmartin > Skickat: den 11 januari 2021 17:07 > Till: IBM-MAIN@LISTSERV.UA.EDU > Ämne: Re: Request for help with removing sequence numbers from PDS members &g

Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021 15:37:55 +, Sean Gleann wrote: >Many thanks to all who responded. >I opted to adapt and (try to) use the REXX that Andy Styles gave, but I'm >tripping up over something that has to be one of those 'simple, basic' >things. >The "ISPEXEC CONTROL ERRORS RETURN" command gives

Re: Request for help with removing sequence numbers from PDS members

On Mon, 11 Jan 2021, at 15:37, Sean Gleann wrote: > Many thanks to all who responded. > I opted to adapt and (try to) use the REXX that Andy Styles gave, but I'm > tripping up over something that has to be one of those 'simple, basic' > things. > The "ISPEXEC CONTROL ERRORS RETURN" command gives

Re: Request for help with removing sequence numbers from PDS members

Of R.S. >> Sent: 11 January 2021 10:21 >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Request for help with removing sequence numbers from PDS >> members >> >> W dniu 11.01.2021 o 10:05, Sean Gleann pisze: >> > This has almost certainly cropped up be

Re: Request for help with removing sequence numbers from PDS members

t TSO EDIT (yes TSO, not ISPF) in batch. > Lennie > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of R.S. > Sent: 11 January 2021 10:21 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Request for help with removing sequence numbers from PDS &g

Re: Request for help with removing sequence numbers from PDS members

How about TSO EDIT (yes TSO, not ISPF) in batch. Lennie -Original Message- From: IBM Mainframe Discussion List On Behalf Of R.S. Sent: 11 January 2021 10:21 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members W dniu 11.01.2021 o 10

Re: Request for help with removing sequence numbers from PDS members

On Behalf Of Styles, Andy (ITS zPlatform Services) Sent: 11 January 2021 10:46 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Request for help with removing sequence numbers from PDS members -- This email has reached the Bank via an external source -- Classification: Public Quick and dirty

Re: Request for help with removing sequence numbers from PDS members

Edit - Save - ISRE006 MY.DATASET(UTF16) - member saved. Andy Styles z/Series System Programmer -Original Message- From: IBM Mainframe Discussion List On Behalf Of Chris Hoelscher Sent: 11 January 2021 10:26 To: IBM-MAIN@LISTSERV.UA.

Re: Request for help with removing sequence numbers from PDS members

Here is something I am doing (for other reasons) but it might help Run IEBPTPCH against the old pds(e) Walk thru the IEBPTPCH output - grabbing the member name and doing what you need to do to each line or build iebgener control cards to clear the columns When you hit a new member, dispose of

Re: Request for help with removing sequence numbers from PDS members

W dniu 11.01.2021 o 10:05, Sean Gleann pisze: This has almost certainly cropped up before but try as I might, I can't spot anything obvious in the archives. I have a need to strip sequence numbers from members in a PDS or PDSE. The input PDS(E) has DCB characteristics of REFCM=FB,LRECL-80, and