superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Use the LINKMVS as shown in the example:
Code: |
/* REXX */
parm = 'THIS IS A TEST'
Address LINKMVS "MYPROG parm"
Say "'"parm"'"
Exit 0
|
Code: |
IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROG
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 PARM.
05 PARM-LENGTH PIC S9(04) COMP SYNC.
05 THE-PARM PIC X(100).
PROCEDURE DIVISION USING PARM.
DISPLAY THE-PARM.
MOVE 'I GOT IT ALL' TO THE-PARM.
MOVE +12 TO PARM-LENGTH.
GOBACK.
|
Code: |
//STEP1 EXEC PGM=IRXJCL,PARM='MYEXEC'
//STEPLIB DD DISP=SHR,DSN=&SYSUID..COBOL.LOAD
//SYSEXEC DD DISP=SHR,DSN=&SYSUID..REXX
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD DUMMY
|
Results:
THIS IS A TEST
'I GOT IT ALL' |
|