Re: Rexx detail, or things I dont do often enough

[Dymoke-Bradshaw, Lennie]

Gil asked.
" What does that have to do with Rexx?"

The link to REXX is simply that CLIST language was around long before REXX was 
thought of.

The OP said he had a "vague memory" of doing this, so I simply wondered if he 
had remembered doing in in CLIST language rather than REXX.
My memory of CLIST language is pretty vague too. But there is also a DATA 
PROMPTENDDATA sequence which can be used.

I was not suggesting that the OP use CLIST (despite one or two advantages 
against REXX). I was merely trying to assist with the "vague memory".

Lennie

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: 15 August 2020 01:53
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] 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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

AW: Rexx detail, or things I dont do often enough

[Mike Beer]

QUERY RDR gives you more information about the origin.
If this is what you are looking for.

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von
Phil Smith III
Gesendet: Sunday, August 16, 2020 19:58
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Rexx detail, or things I dont do often enough

Gil wrote:

>... All I see is:

>Purpose

>Use the RECEIVE command to read onto a disk or directory one of the 
> files

>or notes in your virtual reader. ...

 

>... no suggestion of RECEIVE from a SFS or MDFS file.

 

Oh, sorry. I missed that you were asking about origin, not destination. In
CMS, you'd just PUNCH the file to yourself and RECEIVE it. Semi-inelegant
but easy.


--
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

[Phil Smith III]

Gil wrote:

>... All I see is:

>Purpose

>Use the RECEIVE command to read onto a disk or directory one of the files

>or notes in your virtual reader. ...

 

>... no suggestion of RECEIVE from a SFS or MDFS file.

 

Oh, sorry. I missed that you were asking about origin, not destination. In CMS, 
you'd just PUNCH the file to yourself and RECEIVE it. Semi-inelegant but easy.


--
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

[Rupert Reynolds]

I'm glad you asked, because I'm rusty and I recently used "parse source" to
get the name of the running Rexx file and then read it line-by-line.
(Regina Rexx, just for my own use. I wanted a model input file available
from comments in the source).

I think sourceline() is likely to be more reliable. I use it in error
handling, so I can't explain with I didn't use it here :-)

Roo

On Fri., Aug. 14, 2020, 20:56 Gibney, Dave,  wrote:

>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

[Paul Gilmartin]

On Sun, 16 Aug 2020 12:20:10 -0400, Phil Smith III wrote:
>
>>z/OS TSO RECEIVE has the useful FROMDSN and FROMDD options.  Has
>>CMS RECEIVE anything similar?  But there are the Pipelines 64DECODE
>>and DEBLOCK NETDATA filters which should be useful for this.  No
>>PIPELINES VMARC, AFAIK.
>
>Sure: RECEIVE >>
>
Should I be able to find that in:

https://www.ibm.com/support/knowledgecenter/en/SSB27U_6.4.0/com.ibm.zvm.v640.dmsb4/receive.htm

... All I see is:
Purpose
Use the RECEIVE command to read onto a disk or directory one of the files
or notes in your virtual reader. ...

... no suggestion of RECEIVE from a SFS or MDFS file.

-- 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

[Phil Smith III]

Paul Gilmartin wrote:

>z/OS TSO RECEIVE has the useful FROMDSN and FROMDD options.  Has

>CMS RECEIVE anything similar?  But there are the Pipelines 64DECODE

>and DEBLOCK NETDATA filters which should be useful for this.  No

>PIPELINES VMARC, AFAIK.

 

Sure: RECEIVE >>

 

MAILABLE was also designed to be as robust as possible: Lotes at the time had a 
tendency to indent and/or split lines, even short ones (I forget the details), 
and it was usually able to deal with that.

 

Again, not so useful nowdays: an XMITted/DMSDDL DUMPed file, transferred as F 
80 and binary, works pretty reliably. But MAILABLE was fun to write.

 

...phsiii 


--
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

[Paul Gilmartin]

On Sun, 16 Aug 2020 00:50:28 -0400, Phil Smith III wrote:

>http://www.vmworkshop.org/HENSLER/ includes my MAILABLE EXEC, which uses this 
>technique to create self-extracting blobs wrapped in Rexx code to unpack them. 
>Alas, it's VM-only, but it illustrates the idea.
>
>This was useful back in the era when folks had a lot of problems getting 
>EBCDIC objects (especially executables) sent via email; less so nowadays, when 
>most people have VMARC.
> 
z/OS TSO RECEIVE has the useful FROMDSN and FROMDD options.  Has
CMS RECEIVE anything similar?  But there are the Pipelines 64DECODE
and DEBLOCK NETDATA filters which should be useful for this.  No
PIPELINES VMARC, AFAIK.

-- 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

[Phil Smith III]

http://www.vmworkshop.org/HENSLER/ includes my MAILABLE EXEC, which uses this 
technique to create self-extracting blobs wrapped in Rexx code to unpack them. 
Alas, it's VM-only, but it illustrates the idea.

 

This was useful back in the era when folks had a lot of problems getting EBCDIC 
objects (especially executables) sent via email; less so nowadays, when most 
people have VMARC.

 


--
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

[Robert Prins]

On 2020-08-14 19:56, Gibney, Dave wrote:
> 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?

See , an exec containing 
embedded panels, and the exec to generate the queue statements, and optionally 
reconvert them back to whatever they were 



Note that you can even embed load libraries into an exec, see 
 for an example - note that this 
one still needs to be rewritten (RSN...) to make it a bit more user friendly, by 
replacing the embedded XMIT member with an "EPANQ"ed version of the AMATERSE'd 
load library.


Robert
--
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather - https://prino.neocities.org/indez.html
Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html

--
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

[Paul Gilmartin]

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

[Bob Bridges]

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

[Dymoke-Bradshaw, Lennie]

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

[ITschak Mugzach]

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

[Paul Gilmartin]

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

[Lionel B Dyck]

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 QU

Re: Rexx detail, or things I dont do often enough

[ITschak Mugzach]

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

[Gibney, Dave]

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

[Seymour J Metz]

">>-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

[Gibney, Dave]

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

[Seymour J Metz]

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

[Gibney, Dave]

   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