Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
how to execute REXX in CA-7

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
surya_pathaus

Active User


Joined: 28 Aug 2006
Posts: 110

PostPosted: Fri Jan 23, 2009 2:01 am    Post subject: how to execute REXX in CA-7
Reply with quote

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.
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jan 23, 2009 2:11 am    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8151
Location: East Dubuque, Illinois, USA

PostPosted: Fri Jan 23, 2009 2:11 am    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
surya_pathaus

Active User


Joined: 28 Aug 2006
Posts: 110

PostPosted: Fri Jan 23, 2009 2:29 am    Post subject: Reply to: how to execute REXX in CA-7
Reply with quote

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.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jan 23, 2009 3:06 am    Post subject:
Reply with quote

Hello,

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

Quote:
When I am executing the same steps in CA-7
I do not know what this means. CA7 schedules/submits jobs. How do you execute something "in ca7"?

Suggest you use IKJEFT01 instead of IRXJCL as IRXJCL is quite limited (it does not establish a tso address space, so no tso or ispf commands may be used).
Back to top
View user's profile Send private message
surya_pathaus

Active User


Joined: 28 Aug 2006
Posts: 110

PostPosted: Fri Jan 23, 2009 3:22 am    Post subject: Reply to: how to execute REXX in CA-7
Reply with quote

Dick,

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

Quote:
OUT_CNTR = 0 /* INITIALIZE # OF LINES WRITTEN */
/*********************************************************************/
/* OPEN THE "DDNAME" FILE, BUT DO NOT READ ANY RECORDS YET. ALL */
/* RECORDS WILL BE READ AND PROCESSED WITHIN THE LOOP BODY. */
/*********************************************************************/
"EXECIO 0 DISKR "FILEIN" (OPEN" /* OPEN "DDNAME" */


Quote:
I do not know what this means. CA7 schedules/submits jobs. How do you execute something "in ca7"?

I mean to say when I am demanding the job(which has the REXX execution steps) thru CA7 schedular its abending. When I am submitting job from my PDS in TSO then job is giving RC=0.

Quote:
Suggest you use IKJEFT01 instead of IRXJCL

I did used "IKJEFT01". Changed "SYSEXEC" to "SYSPROC" to pass the PDS name where my REXX code is present. But it is also performing as same.
Sysout is and RC=12
INVALID COMMAND NAME SYNTAX
1 *-* /*%NOCOMMENT*/
+++ RC(-3) +++
INVALID COMMAND NAME SYNTAX
7 *-* /**/ 00117
+++ RC(-3) +++
INVALID COMMAND NAME SYNTAX
8 *-* /**/ 00118
+++ RC(-3) +++
INVALID COMMAND NAME SYNTAX
9 *-* /**/ 00119
+++ RC(-3) +++
INVALID COMMAND NAME SYNTAX
10 *-* /**/ 00120
+++ RC(-3) +++
EXECIO error. Unrecognized or ambiguous keyword option found.
INVALID COMMAND NAME SYNTAX
12 *-* /**/ 00122
+++ RC(-3) +++
INVALID COMMAND NAME SYNTAX
13 *-* /**/ 00123
+++ RC(-3) +++
INVALID COMMAND NAME SYNTAX
14 *-* /**/ 00124
+++ RC(-3) +++
15 +++ DO WHILE (RETURN_CODE ¬= EOFFLAG) /**/ 00125
Error running REXX1, line 15: Logical value not 0 or 1
READY
END
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jan 23, 2009 9:57 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
surya_pathaus

Active User


Joined: 28 Aug 2006
Posts: 110

PostPosted: Fri Jan 23, 2009 10:58 pm    Post subject: Reply to: how to execute REXX in CA-7
Reply with quote

Dick,

below is the PDS information:
Quote:
. . . . . . . . . . . . . . . . . . . . . . . . . .
Data Set Information
Command ===>
More: +
Data Set Name . . . . : A012345.TEST.IEBGENER

General Data Current Allocation
Management class . . : **None** Allocated tracks . : 1
Storage class . . . : **None** Allocated extents . : 1
Volume serial . . . : TEMPV8
Device type . . . . : 3390
Data class . . . . . : **None** Current Utilization
Organization . . . : PO Used tracks . . . . : 1
Record format . . . : FB Used extents . . . : 1
Record length . . . : 80
Block size . . . . : 27920
1st extent tracks . : 1
Secondary tracks . : 1
Data set name type : PDS

Creation date . . . : 2009/01/21 Referenced date . . : 2009/01/21
Expiration date . . : ***None***
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us