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 '. . me .' completely, leaving just 'parse source'. Which in turn led to a different can of worms, and from there on it was just downhill all the way. As I said early on, it had to be one of those 'basic, simple' things...
Regards Sean On Tue, 12 Jan 2021 at 13:23, Andy Styles <[email protected]> wrote: > 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: > > parse source . . me . > > Andy > > On Tue, 12 Jan 2021, 13:16 Sean Gleann, <[email protected]> wrote: > > > 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 <input pds dsname> > > > > 07:08 ***** Dialog Error ***** - Application(ISP); Function Command > > (STRIPNOS); Service(EDIT) > > 07:08 Line from cmd: - EDIT DATAID(ISR00001) MEMBER(TEST1) > > MACRO() << 'TEST1' is the name of the first > > member in the incoming PDS, though. > > 07:08 BDISPMAX exceeded - 100 displays exceeded in batch mode on > > panel > > > > Regards > > Sean > > > > On Tue, 12 Jan 2021 at 12:56, Sri h Kolusu <[email protected]> wrote: > > > > > 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 > > > //SYSIN DD * > > > $$FILEM FCH INPUT=PDS > > > C P'=' ' ' 73 80 > > > /* > > > > > > > > > Thanks, > > > 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 > > > > ---------------------------------------------------------------------- > 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
