> It's a pity that: > o No similar construct is available for sharing variables with > external procedures.
GLOBALV > o Symbols EXPOSEd from external scopes can't be used as targets of ITERATE and LEAVE. (I eschew GOTO; SIGNAL is worse,) > "The beginning of sin is the belief that SIGNAL is GOTO." > o There's no complement of EXPOSE for the programmer who > wants to protect a few symbols and leave all others accessible > by default. x++ > ooRexx, perhaps? No, but the Local Environment can be used to make objects visible anywhere in the process. It's a pity that o GLOBALV is only available for VM o TSO/E doesn't include equivalents of PCRE and XPARSE o TSO/E REXX isn't ANSI compatible o TSO/E hasn't picked up orexx or oorexx -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of Paul Gilmartin [[email protected]] Sent: Saturday, March 21, 2020 11:45 AM To: [email protected] Subject: Re: Does anybody remember CLIST? On Fri, 20 Mar 2020 22:24:11 -0500, Steve Horein wrote: >Here's a rexx example of a variable containing the names of other variables >that hold values: > >/* This is the main REXX program */ >j=1;k=6;m=9 >a ='j k m' >call test >exit > >/* This is a subroutine */ >test: procedure expose (a) /* Exposes A, J, K, and M */ > say a j k m /* Displays "j k m 1 6 9" */ > return > Then with PARSE VAR A V1 V2 V3 and using VALUE() you can have variable variables. It's a pity that: o No similar construct is available for sharing variables with external procedures. o Symbols EXPOSEd from external scopes can't be used as targets of ITERATE and LEAVE. (I eschew GOTO; SIGNAL is worse,) o There's no complement of EXPOSE for the programmer who wants to protect a few symbols and leave all others accessible by default. ooRexx, perhaps? > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.ikja300/proced.htm -- gil ---------------------------------------------------------------------- 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
