How to execute CICS commands in REXX?

nilaksh92 · New User Joined: 16 Mar 2015 Posts: 8 Location: Chennai

Hi everyone,

I have started learning REXX programming. I want to execute a CICS command in REXX like

"CICS ASKTIME ABSTIME(VAR)"

I have written a small code for this and on executing that code I am getting return code = -3.

/*REXX*/
ADDRESS CICS
ARG WS_TIME
"CICS ASKTIME ABSTIME(WS_TIME)"
IF RC<>0 THEN
SAY 'ERROR READING RC='RC
ELSE
DO
PARSE WS_TIME
SAY 'TIME IS: ' WS_TIME
END
EXIT

Please give me a solution to solve this issue.

Thanks in advance.

enrico-sorichetti · Posted: Mon Apr 27, 2015 11:09 am

Marso · Posted: Mon Apr 27, 2015 8:22 pm

... or you could use the TIME function, native to rexx ...

Pedro · Posted: Mon Apr 27, 2015 9:43 pm

I have never used CICS, so can not help too much. But it is unlikely that you can just one day decide that you want to start playing with CICS. You likely will need some permissions given to do so.

nilaksh92 · New User Joined: 16 Mar 2015 Posts: 8 Location: Chennai

enrico-sorichetti · Posted: Tue Apr 28, 2015 12:04 pm

what is that You did not understand in my first reply ?

Robert Sample · Posted: Tue Apr 28, 2015 5:46 pm

Pedro · Posted: Tue Apr 28, 2015 7:13 pm

Can you give details about how you are executing your rexx program?

nilaksh92 · New User Joined: 16 Mar 2015 Posts: 8 Location: Chennai

Hi Friends,

My code is working now.

/*REXX*/
ADDRESS REXXCICS
ARG WS
"CICS ASKTIME ABSTIME(WS)"
"CICS FORMATTIME ABSTIME(WS) DDMMYYYY(WS_DATE) TIME(WS_TIME)"
SAY WS_DATE
SAY WS_TIME
SAY "RC :"RC
EXIT

I wrote this program in CICS region.

Thanks to all for help.

One more query "Where I can see description of return codes of REXX for CICS environment"

I am getting rc=-521 and rc=-522 for two different programs.

Thanks in advance

Nic Clouston · Posted: Thu Apr 30, 2015 8:17 pm

Please start a new topic for a new question.

The answer is, probably, one of the manuals for the language in use.

Robert Sample · Posted: Thu Apr 30, 2015 10:59 pm

The REXX for CICS Transaction Server 5.2 Reference manual has a chapter on return codes:

PeterHolland · Posted: Fri May 01, 2015 11:28 am

nilaksh92 · New User Joined: 16 Mar 2015 Posts: 8 Location: Chennai

Nic Clouston · Posted: Mon May 04, 2015 4:33 pm

How about putting a trace into your program and check return codes? You give us absolutely no clue as to which 'command' is giving which return code. You do not even give the full error messages.

PeterHolland · Posted: Tue May 05, 2015 12:07 pm

I don't see your commands here :

www-01.ibm.com/support/knowledgecenter/SSGMCP_5.2.0/com.ibm.cics.rexx.doc/topics/commref.html

nilaksh92 · New User Joined: 16 Mar 2015 Posts: 8 Location: Chennai

Pedro · Posted: Tue May 05, 2015 6:16 pm

Can you give details about how you are executing your rexx program?

enrico-sorichetti · Posted: Tue May 05, 2015 7:35 pm

psychic day is tomorrow ...

today I can just give a wild guess

nilaksh92 · New User Joined: 16 Mar 2015 Posts: 8 Location: Chennai