Can you help me what's wrong in the above REXX?
First, get into the habit of properly allocating DD's in TSO. There's no reason NOT to always use the REUSE keyword. So, re-do your allocations:
alloc shr reu fi(input) da('CSCSG1.REXX.INPUT')
alloc shr reu fi(out) da('CSCSG1.REXX.OUTPUT')...
Just copy you macro into your site-specfied ISPF macro library and be done with it. If you must use your own library, then talk to your site support team to find out how to include your library into your ISPF library concatenation.
I know that you can use REXX, like any other language, to invoke ISPF Services using the ISPEXEC address, or from within an ISPF Edit Macro using the ISREDIT address. I personally don't know of any other Address type that's relevant to the ISPF envitronment, but I'm not an ISPF expert.
Don't really know what to say. Did it ever work calling it from TSO? I'm wondering if that program is specifically designed to not be executable from within a TSO session. What have your Sysprogs said about it?
This was a quick test to figure out how to display the panel on the row where it was last displayed:
crp = 1
"ISPEXEC TBTOP tbl0"
"ISPEXEC TBSKIP tbl0 NUMBER("crp")"
Do Forever...
Well, obviously, TSO SUBMIT is converting the non-display (i.e. transparent) characters to other values. I don't see anything in the command documentation to prevent that. Have you considered NOT using TSO SUMBIT and trying another method? I noticed that this doesn't happen with an ISPF Edit SUB...
Actually, the RC (-3) usualy means that the Address environment is not available. If, in your, case, you find I'm right and ISPF isn't active, then you need to address these issues:
1. Before, you can use ISPF, you must have TSO/E available.
2. Once TSO/E is available, you have to start ISPF...
Not exactly a REXX problem, but anyway ...
Whenever I see a RC(-3) for an ISPF Service call, I immediately get suspicious that ISPF is not available. Is it? You can use a PARSE SOURCE SRC command at the top, and see if within the SRC variable is the keyword ISPF. If should look something like...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.