Please send updates for the ispf tips/tricks. I've used the sourceline extensively - check out the LOADISPF exec on my site - copy it into your exec and then you can insert inline using control records ispf panels, msgs, skels, and clists and execs. All are copied to temp allocated libraries and libdef'd or altlib'd - then the DROPISPF routine (included in LOADISPF) releases the resources.
That trick is also used in the ZTSOHELP dialog (again on my website). It is very helpful when you don't want to distribute multiple elements as all can be in one. A bit more overhead but for infrequent use it is ideal. Lionel B. Dyck <sdg>< Website: https://www.lbdsoftware.com "Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - John Wooden -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of ITschak Mugzach Sent: Friday, August 14, 2020 3:45 PM To: [email protected] Subject: Re: Rexx detail, or things I dont do often enough 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 <[email protected]> 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**: [email protected] **|* *Mob**: +972 522 986404 > **|* > *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > > On Fri, Aug 14, 2020 at 11:05 PM Gibney, Dave <[email protected]> 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 <[email protected]> On >> > Behalf Of Seymour J Metz >> > Sent: Friday, August 14, 2020 1:02 PM >> > To: [email protected] >> > 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!!JmPE >> > g >> > BY0HMszNaDT!_8ZlS18tlFSehELrkDJm-SdL4kdSh4x5MLNKPALpw8c- >> > yeSsg4Vf-GBrak71rQ$ >> > >> > >> > ________________________________________ >> > From: IBM Mainframe Discussion List <[email protected]> on >> > behalf of Gibney, Dave <[email protected]> >> > Sent: Friday, August 14, 2020 3:56 PM >> > To: [email protected] >> > 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 [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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
