Re: Rexx detail, or things I dont do often enough
On Fri, 14 Aug 2020 23:29:21 +, Dymoke-Bradshaw, Lennie wrote: >There is a DATA ENDDATA pair that can be used in TSO CLIST processing. > What does that have to do with Rexx? The CLIST Ref. says: commands | subcommands The data to be ignored and passed to TSO/E for execution. I don't believe this meets the OP's need. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx detail, or things I dont do often enough
I don't need it often, but it's pretty handy when I want to hard-code a table of data for the program to use. If the values are static enough, it makes sense to store them in the program's comments instead of in a separate dataset. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* An appeaser is one who feeds a crocodile, hoping it will eat him last. -Winston Churchill */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lionel B Dyck Sent: Friday, August 14, 2020 17:29 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. >> > -Original Message- >> > From: Seymour J Metz >> > Sent: Friday, August 14, 2020 1:02 PM >> > >> > You can cheat. Put the data inside a comment and access the source >> > lines. >> > >> > >> > From: Gibney, Dave >> > Sent: Friday, August 14, 2020 3:56 PM >> > >> >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? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx detail, or things I dont do often enough
There is a DATA ENDDATA pair that can be used in TSO CLIST processing. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Gibney, Dave Sent: 14 August 2020 20:56 To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] 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
Re: Rexx detail, or things I dont do often enough
Opps. Forgot the sigl... בתאריך שבת, 15 באוג׳ 2020, 0:31, מאת Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu>: > On Fri, 14 Aug 2020 23:45:19 +0300, ITschak Mugzach 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've done this with a few tweaks: > o I *do* put the instream data in a comment to avoid problems with > lookahead by the Rexx interpreter reporting syntax errors. I have > not needed to deal with embedded comment delimiters; I could > encode them if necessary. > o SOURCELINE returns the line number of the final line in the program if > you omit n > (from the TSO/E Rexx Ref.), not "this line number". So I put my > instream data > after the call to DataStack and use SIGL in DataStack. > o I let DataStack fetch the instream data rather than putting it after > the call. Purely a matter of style. > o You don't need to initialize xData because "until" tests at end of loop. >But you may need to ensure that "EOF" is not treated as data. > o For generality you could pass the terminator as an arg to DataStack. > > >I think I have to supply Lionel with some ISPF tricks that he can add to > >his manual... > > > Yes. > > >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 > > -- gil > > -- > 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
Re: Rexx detail, or things I dont do often enough
On Fri, 14 Aug 2020 23:45:19 +0300, ITschak Mugzach 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've done this with a few tweaks: o I *do* put the instream data in a comment to avoid problems with lookahead by the Rexx interpreter reporting syntax errors. I have not needed to deal with embedded comment delimiters; I could encode them if necessary. o SOURCELINE returns the line number of the final line in the program if you omit n (from the TSO/E Rexx Ref.), not "this line number". So I put my instream data after the call to DataStack and use SIGL in DataStack. o I let DataStack fetch the instream data rather than putting it after the call. Purely a matter of style. o You don't need to initialize xData because "until" tests at end of loop. But you may need to ensure that "EOF" is not treated as data. o For generality you could pass the terminator as an arg to DataStack. >I think I have to supply Lionel with some ISPF tricks that he can add to >his manual... > Yes. >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 -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx detail, or things I dont do often enough
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 < 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 On Behalf Of ITschak Mugzach Sent: Friday, August 14, 2020 3:45 PM To: IBM-MAIN@LISTSERV.UA.EDU 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 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 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 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!!JmPE >> > g >> > BY0HMszNaDT!_8ZlS18tlFSehELrkDJm-SdL4kdSh4x5MLNKPALpw8c- >> > yeSsg4Vf-GBrak71rQ$ >> > >> > >> > >> > From: IBM Mainframe Discussion List on >> > behalf of Gibney, Dave >> > 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 >> > >> >
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 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 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 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 on >> > behalf of Gibney, Dave >> > 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
Re: Rexx detail, or things I dont do often enough
Thank you. That looks like it would do the trick. I think I'll just use PUSH. I think I was remembering SAS, or maybe academic versions of PASCAL or FORTRAN > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Seymour J Metz > Sent: Friday, August 14, 2020 1:09 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Rexx detail, or things I dont do often enough > > ">>-SOURCELINE(--+---+--)--->< > '-n-' > > returns the line number of the final line in the program if you omit n or 0 if > the implementation does not allow access to the source lines. If you specify > n, returns the nth line in the program if available at the time of execution; > otherwise, returns the null string. If specified, n must be a positive whole > number and must not exceed the number that a call to SOURCELINE with no > arguments returns." > > > -- > Shmuel (Seymour J.) Metz > https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!JmPEg > BY0HMszNaDT!8vFmu991KqxtSWRmpDOs5xvwyhaOusxe9DvoJyZ3SnbI3WY2 > OQsgAJDlBiDDaw$ > > > > From: IBM Mainframe Discussion List on > behalf of Gibney, Dave > Sent: Friday, August 14, 2020 4:04 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Rexx detail, or things I dont do often enough > > 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 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 on > > behalf of Gibney, Dave > > 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx detail, or things I dont do often enough
">>-SOURCELINE(--+---+--)--->< '-n-' returns the line number of the final line in the program if you omit n or 0 if the implementation does not allow access to the source lines. If you specify n, returns the nth line in the program if available at the time of execution; otherwise, returns the null string. If specified, n must be a positive whole number and must not exceed the number that a call to SOURCELINE with no arguments returns." -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Gibney, Dave Sent: Friday, August 14, 2020 4:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Rexx detail, or things I dont do often enough 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 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 on > behalf of Gibney, Dave > 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
Re: Rexx detail, or things I dont do often enough
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 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 on > behalf of Gibney, Dave > 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
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 http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Gibney, Dave 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
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
Re: (yet another) problem with zcx container
I doubt it would be in production if it wasn't ready :) On 2020-08-14 4:32 PM, Brian Westerman wrote: I hate to say this but I can't help myself, but what makes you think they actually got it to work? :) But seriously, the redbooks are written sometimes before the final processes are set in place, so sometimes they tell you what "should be" instead of what "is be". From what you are saying, your way should certainly work, but it's hard to debug without the entire process to look at and implement myself. Brian -- 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
Re: (yet another) problem with zcx container
I hate to say this but I can't help myself, but what makes you think they actually got it to work? :) But seriously, the redbooks are written sometimes before the final processes are set in place, so sometimes they tell you what "should be" instead of what "is be". From what you are saying, your way should certainly work, but it's hard to debug without the entire process to look at and implement myself. Brian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Remember the 9370?
W dniu 14.08.2020 o 00:48, Jesse 1 Robinson pisze: At one shop, before we moved to cartridge, we had 3420s that were so 'obsolete' that spare parts became prohibitively expensive. On more than one occasion, our loyal CE team carved replacement parts out of wood (!) to extend the lifespan of decrepit drives. I read somewhere that last "3420 compatible" drive was sold in 2006. I mean new equipment. en.wikipedia says last new tapes (media) were delivered in 2001 or 2002. However it is still possible to buy 9-track drives (usually small, desktop ones) and tapes. And there are companies which can read reels on request. Of course it is typical for old equipment - it is worth nothing when you want to dispose it, but it can be really expensive when you need it. It's more or less similar to cars: old crock magically changes to noble oldtimer. The older the nobler. ;-) -- Radoslaw Skorupka Lodz, Poland == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACF ICHDEX01 Exit
Why? It fits in 12 bits, so LA will work. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Charles Mills Sent: Monday, August 10, 2020 11:22 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: RACF ICHDEX01 Exit > LA R15,8 SET RC 16 I would call that a misleading comment. :-) FWIW, I would code RACF_Use_DES_then_Mask EQU 8 ... LHI R15,RACF_Use_DES_then_Mask Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mark Jacobs Sent: Monday, August 10, 2020 8:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: RACF ICHDEX01 Exit Maybe try this. ICHDEX01 AMODE 31 LA R15,8 SET RC 16 * RACF IS TO ATTEMPT TO COMPARE THE DATA BY USING THE RACF * DES ALGORITHM * IF DES PROCESSING FAILS, RACF USES MASKING. BR R14RETURN TO SYSTEM END ICHDEX01 Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://secure-web.cisco.com/13ME_bEc0SK55CRIRmJOdJ9S7YtKKHz1GqxdE5fmuRheANHb9xHcBIFWRej2jTWT0-WSnA7Ox3qk2Lo8VgL6B6JM2HqeUsIrR29eFWON2gWPv_ytEq1WC2mEo0a8n7DvlrtLr1pifbYr2-G4SdBGe9l6daEJwHygCFxUhTJv-08tOaESEDL9M-BYO92GgVTTMG8elacIhnFdfHSyslsBKp1iy7OLIRz3Wl0RkL9T0T2k5LgMmPY5fZ5TAv0Z7TzroK9z_e3vGXKMJ7U_lCQL5FDR6_i4TXHaEzXrXy0-Xu2mzYhjeB8zONfYOXCW1R-e7VtnWiv7sjBdJttU0-rzVSe492VYVybJ4S-aVTQaQan2CYWjgGbECgT5pXqNqVPKbbfQv-VWMJL86YWGWAsYksZExDblbt1ieE87AgS4ikl_OMFwOgOm2SSRvSU2wdesi/https%3A%2F%2Fapi.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40protonmail.com ‐‐‐ Original Message ‐‐‐ On Monday, August 10, 2020 11:05 AM, Pesce, Andy wrote: > Good morning everyone ! > > I am going to post this over in the RACF Listserv as well. So, I am trying to > go to z/OS 2.2 and I found this APAR OA49109. > I have a ton of accounts that were created many years ago that are not able > to login to z/OS 2.2. Of course once I go and > change the password on the account it works fine. These accounts have not had > their passwords changed since the > late 90's. Anyone have a sample "ICHDEX01" or can point me to a sample of > that exit. I want to be able to allow these > old passwords that are still using the old encryption. Thanks in advance. > > --- > > 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
