how to execute REXX in CA-7

surya_pathaus · Active User Joined: 28 Aug 2006 Posts: 110

Hi,

While searching I got following pgms to run REXX.
IRXJCL, IKJEFT01,IKJEFT1B can be used to execute REXX in Batch, TSO. But when I am using them in my jcl and submitting the jcl in CA7 then its giving abend.

Can anybody suggest me what PGM can be used to execute REXX in CA7.

dick scherrer · Posted: Fri Jan 23, 2009 2:11 am

Hello,

Do not post "it did not work" - no useful replies can be made. . .

If you want help, you have to post what the problem is - any and all diagnostic info provided by the system.

Once you provide sufficient details, someone may have a suggestion.

Robert Sample · Posted: Fri Jan 23, 2009 2:11 am

From what I can tell in the CA documentation, you can invoke CA-7 from a REXX by using the CA7REXX sample code in CAICLIB. It does not appear that you can invoke REXX under CA-7 at this time. If you don't know where your CAICLIB is, you'll need to contact your site CA-7 support person to find out which high level qualifier was used for this PDS.

surya_pathaus · Active User Joined: 28 Aug 2006 Posts: 110

Dick,

Using IEBGENER, below rexx code is copied to A012345.TEST.IEBGENER(REXX1).

/* REXX */
EOFFLAG = 2
RETURN_CODE = 0
EXITCODE = 0
IN_CNTR = 0
OUT_CNTR = 0
"EXECIO 0 DISKR "FILEIN" (OPEN"
DO WHILE (RETURN_CODE ¬= EOFFLAG)
"EXECIO 1 DISKR FILEIN"
RETURN_CODE = RC
IF RETURN_CODE = 0 THEN
DO
IN_CNTR = IN_CNTR + 1
PULL RECORD
PARSE VAR RECORD . "DD DSN=" DSN "," TAIL

QUEUE DSN
"EXECIO * DISKW FILEOUT"
OUT_CNTR = OUT_CNTR + 1
END
END

SAY 'RECS READ =' IN_CNTR
SAY 'RECS OUT =' OUT_CNTR
"EXECIO 0 DISKR FILEIN (FINIS"
"EXECIO 0 DISKW FILEOUT (FINIS"

In the next step, used "IRXJCL" to execute REXX1.

//STEP055 EXEC PGM=IRXJCL,PARM='REXX1'
//****************************************************
//SYSEXEC DD DSN=A012345.TEST.IEBGENER,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//FILEIN DD DSN=OUTPUT1,DISP=SHR
//FILEOUT DD DSN=OUTPUT2,DISP=SHR

OUTPUT OF STEP055:
1 *-* /* REXX */
+++ RC(-3) +++
7 *-* /********************************************************************
+++ RC(-3) +++
8 *-* /* OPEN THE "DDNAME" FILE, BUT DO NOT READ ANY RECORDS YET. ALL
+++ RC(-3) +++
9 *-* /* RECORDS WILL BE READ AND PROCESSED WITHIN THE LOOP BODY.
+++ RC(-3) +++
10 *-* /********************************************************************
+++ RC(-3) +++
X0617E EXECIO error. Unrecognized or ambiguous keyword option found.
12 *-* /********************************************************************
+++ RC(-3) +++
13 *-* /* NOW READ ALL LINES FROM "DDNAME" STARTING AT LINE 1.
+++ RC(-3) +++
14 *-* /********************************************************************
+++ RC(-3) +++
15 +++ DO WHILE (RETURN_CODE ¬= EOFFLAG) /* LOOP WHILE NOT END-OF-FILE
IRX0034I Error running REXX1, line 15: Logical value not 0 or 1

When I am executing these steps in TSO using "SUB", job is giving RC=0; When I am executing the same steps in CA-7, its giving the above output with abend code 3650.

While searching I came to know on TSO REXX can be executed using PGM "IRXJCL". But I never find any PGM to execute REXX in CA-7.

Please suggest and let me know for any more information.

dick scherrer · Posted: Fri Jan 23, 2009 3:06 am

Hello,

Possibly there is something i am missing, but the errors posted do not match the rexx code posted. . .

surya_pathaus · Active User Joined: 28 Aug 2006 Posts: 110

Dick,

While copying the REXX code I removed the comments, that is why you found mis match in errors.

dick scherrer · Posted: Fri Jan 23, 2009 9:57 pm

Hello,

Please post the "I"nfo from tso/ispf 3.4 for your pds. CA7 may expect lrecl 80 and this pds may be otherwise defined. Compare the Info from your pds against a pds that is successfully used by ca7 to submit jobs.

surya_pathaus · Active User Joined: 28 Aug 2006 Posts: 110

Dick,

below is the PDS information: