I once wrote an installer that behaved like a zip exec. I think it was discussed here as well. The idea is like the sample code below that demonstrates reading panel from the program body for later saving it in a temporary file. Remember That as this is not a comment the data that you can store instream is limited as the rexx restrictions apply here (for example /* will fail the program.
I think I have to supply Lionel with some ISPF tricks that he can add to his manual... ITschak /* Rexx */ Call DataStack xData = '' Do I = StackStart + 2 until xData = 'EOF' /* StackStart + 2 is the line number of )ATTR */ /* READ PANEL FROM INSTREAM DATA */ ..... Ens Return DataStack: StackStart = SourceLine() /* get this line number */ Return )ATTR DEFAULT(...) )BODY )INIT .... )PROC .... )END EOF ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Continuous Monitoring for z/OS, x/Linux & IBM I **| z/VM comming son * On Fri, Aug 14, 2020 at 11:31 PM Itschak Mugzach <i_mugz...@securiteam.co.il> wrote: > I once wrote an installer that behaved like a zip exec. I think it was > discussed here as well. The idea is like the sample code below that > demonstrates reading panel from the program body for later saving it in a > temporary file. Remember That as this is not a comment the data that you > can store instream is limited as the rexx restrictions apply here (for > example /* will fail the program. > > I think I have to supply Lionel with some ISPF tricks that he can add to > his manual... > > ITschak > > /* Rexx */ > Call DataStack > xData = '' > Do I = StackStart + 2 until xData = 'EOF' /* StackStart + 2 is the line > number of )ATTR */ > /* READ PANEL FROM INSTREAM DATA */ > > ..... > Ens > Return > DataStack: > StackStart = SourceLine() /* get this line number */ > Return > )ATTR DEFAULT(...) > )BODY > )INIT > .... > )PROC > .... > > )END > EOF > > *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > Platform* *|* *Information Security Continuous Monitoring for Z/OS, > zLinux and IBM I **| * > > *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|* > *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > > On Fri, Aug 14, 2020 at 11:05 PM Gibney, Dave <gib...@wsu.edu> wrote: > >> I think this is what I was looking for. Couldn't find the source line >> access in the fine manual. >> >> > -----Original Message----- >> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On >> > Behalf Of Seymour J Metz >> > Sent: Friday, August 14, 2020 1:02 PM >> > To: IBM-MAIN@LISTSERV.UA.EDU >> > Subject: Re: Rexx detail, or things I dont do often enough >> > >> > You can cheat. Put the data inside a comment and access the source >> lines. >> > >> > >> > -- >> > Shmuel (Seymour J.) Metz >> > https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!JmPEg >> > BY0HMszNaDT!_8ZlS18tlFSehELrkDJm-SdL4kdSh4x5MLNKPALpw8c- >> > yeSsg4Vf-GBrak71rQ$ >> > >> > >> > ________________________________________ >> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on >> > behalf of Gibney, Dave <gib...@wsu.edu> >> > Sent: Friday, August 14, 2020 3:56 PM >> > To: IBM-MAIN@LISTSERV.UA.EDU >> > Subject: Rexx detail, or things I dont do often enough >> > >> > I have this vague memory of being able to have data embedded inside a >> > Rexx Exec. Some manner of data start and end delimiting lines and >> accessed >> > via looping with PULL or PARSE. >> > I know I can just PUSH or QUEUE data onto the stack, but that's not >> what I >> > vaguely remember. Am I all wet, or just can't RTFM as well as I did >> before? >> > >> > Dave Gibney >> > Information Technology Services >> > Washington State University >> > >> > >> > ---------------------------------------------------------------------- >> > For IBM-MAIN subscribe / signoff / archive access instructions, >> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > >> > ---------------------------------------------------------------------- >> > For IBM-MAIN subscribe / signoff / archive access instructions, >> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
