IBM MAINFRAME HELP & SUPPORT FORUMS

ofer71 · Joined: 27 Dec 2005 Posts: 1959 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.