/*REXX*/
SAY 'AFTER LINE 1 IN TEST2'
ADDRESS ISPEXEC
SAY 'AFTER LINE 2 IN TEST2'
"VIEW DATASET('ABCD.IMS.IMSDBC.DBSPACE.D062112')"
SAY 'AFTER LINE 3 IN TEST2'
EXIT
Below is my output with error....
Code:
READY
ISPSTART CMD(%TEST2)
AFTER LINE 1 IN TEST2
AFTER LINE 2 IN TEST2
ISPP328 Panel 'ISREDDE3' error -/-Required keylist 'ISRSPEC' in applid 'ISR' was not found.
READY
END
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
Why don't you use Trace? You could review the output and see if that gets you anywhere, else post the output of the trace here. You don't need to put your "displays" in.
More test results....that I should have provided...
Originally I was testing with the below REXX code...
Code:
/*REXX*/
SAY 'AFTER LINE 1 IN TEST2'
ADDRESS ISPEXEC
SAY 'AFTER LINE 2 IN TEST2'
"EDIT DATASET('ACSABC.IMS.IMSDBC.DBSPACE.D070912') MACRO("SPACCMDA")"
SAY 'AFTER LINE 3 IN TEST2'
EXIT
code' d
Idea was to edit the dataset and run the ISREDIT macro named SPACCMDA on the dataset. The macro contains a set of ISPF edit commands.
What I failed to notice was, though my batch job was failing with earlier mentioned error message...it was doing the job!! It was editing the dataset and executing my edit macro on it !! my results were good
I still would want to know how to fix the errors I am getting.
*REXX*/
SAY 'AFTER LINE 1 IN TEST2'
ADDRESS ISPEXEC
SAY 'AFTER LINE 2 IN TEST2'
"EDIT DATASET('ACSABC.IMS.IMSDBC.DBSPACE.D070912') MACRO("SPACCMDA")"
SAY 'AFTER LINE 3 IN TEST2'
EXIT
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
mymf doubts wrote:
Hi,
Following is my REXX code...
Code:
/*REXX*/
SAY 'AFTER LINE 1 IN TEST2'
ADDRESS ISPEXEC
SAY 'AFTER LINE 2 IN TEST2'
"VIEW DATASET('ABCD.IMS.IMSDBC.DBSPACE.D062112')"
SAY 'AFTER LINE 3 IN TEST2'
EXIT
In your first sample, there is no MACRO in the VIEW command.
Also, I will try putting all the libraries from TSO ISRDDN. The same REXX script works when I have them coded in the PDS as members, but it fails when I try instream!
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
before you start anything new.
include all the libraries you find from ISRDDN.
and as a last to SYSPROC,
concatenate your output from the IEBUPDTE step
// DD DSN=*.STEP1.SYSUT2,DISP=(OLD,DELETE)
but change your disp to shr.
it is a temp file, will be deleted at end of job anyway.
* you have to ISPSTART your rexx skript.
* the first dsn of isptlib should be a temporary dataset to avoid enq-issues with other batch jobs using the same concatenation at the same time.
* your script will not work this way. the code starting with ISREDIT MACRO must be in a separate member. the EDIT command must point to this member (MACRO(...))
* in your first example you use ... MACRO("SPACCMDA") ... this only works, bec. you are not using SIGNAL ON NOVALUE. use ' instead of "
Joined: 06 Jul 2010 Posts: 765 Location: Whitby, ON, Canada
parsesource wrote:
dick scherrer wrote:
Hello,
You Did notice that TS has posted it was working . . .
d
i saw it too late. still do not believe that it will work this way. will test it on monday.
The TS changed his story so often in this thread I am not sure what he is running now. First the macro was in, and then it was out, sometimes he used ISPSTART sometimes he didn't, then the macro was instream..... all over the map.