ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 1897
Location: Israel
|
|
|
|
Here is an example of executing a REXX exec directly from NATURAL under TSO or batch.
This example uses IRXJCL, which is the REXX standard routine for invoking REXX in MVS batch. The IRXJCL routine documented in the REXX Reference manual.
I put "directly", as opposed to other ways of executing REXX from within NATURAL. I will post the other ways in separate posts.
The NATURAL program:
| Code: |
DEFINE DATA LOCAL
1 #REXX-PARM
2 #LEN (B2)
2 #PARM (A80)
END-DEFINE
*
#PARM := 'FROMNAT OFERF.A.REXX(FROMNAT)'
#LEN := 80
*
CALL 'IRXJCL' #LEN #PARM
*
END
|
The REXX (this is an example only, you can execute any REXX):
| Code: |
/*------------------------------- REXX -------------------------------
* PROGRAM : FROMNAT
* FUNCTION : CALLED FROM NATURAL. ACCEPTS DS NAME AND VIEW IT.
* AUTHOR : OFER
* DATE : 15/12/03
* HOW TO USE:
* :
*------------------------------------------------------------------*/
ARG DS
DS = STRIP(DS,"B","'")
DS = STRIP(DS)
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
ADDRESS ISPEXEC "VIEW DATASET('"DS"')"
EXIT
|
O. |
|
