Home > Archive > Cobol > June 2006 > can't invoke ISPEDIT through REXX
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
can't invoke ISPEDIT through REXX
|
|
|
| Hi everybody.
I need your advice....
I want to submit a job that formats text file using an ISPEDIT macro
* JCL *
//TSOREXX EXEC PGM=IKJEFT1A,DYNAMNBR=200
//SYSEXEC DD DSN=KPIRG.CLIST,DISP=SHR REXX PROGRAM LIBRARY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE PREFIX(KPIRG)
%REXMACRO KPIRG.SYSPRINT.TEMP MM
* REXX *
PARSE ARG DDNAME MACRONAM
ADDRESS ISPEXEC
"EDIT DATASET('"KPIRG.SYSPRINT.TEMP"') MACRO(MM)"
EXIT
* MACRO *
ADDRESS ISREDIT
'MACRO'
'CHANGE "|" " " ALL'
'SAVE'
EXIT
* Job output *
READY
PROFILE PREFIX(KPIRG)
READY
%REXMACRO KPIRG.SYSPRINT.TEMP MM
6 *-* PARSE ARG DDNAME MACRONAM[color=darkred]
7 *-* ADDRESS ISPEXEC
8 *-* "EDIT DATASET('"KPIRG.SYSPRINT.TEMP"') MACRO(MM)"[color=darkred]
+++ RC(-3) +++
9 *-* EXIT
READY
END
So, I though maybe something wrong with EDIT command in ISPF. And when
I try to invoke EDIT from ISPF main screen I always get 'invalid
option'. It looks like I don't have this command available in our
installation.
Do you have any idea how to make it work?
Thank you in advance
| |
| William M. Klein 2006-06-26, 6:55 pm |
| I suggest posting this question to a forum dealing with
- ISPF
and/or
- REXX
not COBOL
--
Bill Klein
wmklein <at> ix.netcom.com
"Pirg" <pirgalin@gmail.com> wrote in message
news:1151332439.016943.208320@p79g2000cwp.googlegroups.com...
> Hi everybody.
> I need your advice....
>
> I want to submit a job that formats text file using an ISPEDIT macro
>
> * JCL *
>
> //TSOREXX EXEC PGM=IKJEFT1A,DYNAMNBR=200
> //SYSEXEC DD DSN=KPIRG.CLIST,DISP=SHR REXX PROGRAM LIBRARY
> //SYSPRINT DD SYSOUT=*
> //SYSTSPRT DD SYSOUT=*
> //SYSTSIN DD *
> PROFILE PREFIX(KPIRG)
> %REXMACRO KPIRG.SYSPRINT.TEMP MM
>
> * REXX *
>
> PARSE ARG DDNAME MACRONAM
> ADDRESS ISPEXEC
> "EDIT DATASET('"KPIRG.SYSPRINT.TEMP"') MACRO(MM)"
> EXIT
>
> * MACRO *
>
> ADDRESS ISREDIT
> 'MACRO'
> 'CHANGE "|" " " ALL'
> 'SAVE'
> EXIT
>
> * Job output *
>
> READY
> PROFILE PREFIX(KPIRG)
> READY
> %REXMACRO KPIRG.SYSPRINT.TEMP MM
> 6 *-* PARSE ARG DDNAME MACRONAM
> 7 *-* ADDRESS ISPEXEC
> 8 *-* "EDIT DATASET('"KPIRG.SYSPRINT.TEMP"') MACRO(MM)"
> +++ RC(-3) +++
> 9 *-* EXIT
> READY
> END
>
> So, I though maybe something wrong with EDIT command in ISPF. And when
> I try to invoke EDIT from ISPF main screen I always get 'invalid
> option'. It looks like I don't have this command available in our
> installation.
>
> Do you have any idea how to make it work?
> Thank you in advance
>
|
|
|
|
|