Re: can't invoke ISPEDIT through REXX
- From: "William M. Klein" <wmklein@xxxxxxxxxxxxxxxxx>
- Date: Mon, 26 Jun 2006 22:08:18 GMT
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@xxxxxxxxx> wrote in message
news:1151332439.016943.208320@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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
>>> "KPIRG.SYSPRINT.TEMP"
>>> "MM"
7 *-* ADDRESS ISPEXEC
8 *-* "EDIT DATASET('"KPIRG.SYSPRINT.TEMP"') MACRO(MM)"
>>> "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
.
- References:
- can't invoke ISPEDIT through REXX
- From: Pirg
- can't invoke ISPEDIT through REXX
- Prev by Date: Re: Attribute BASED and LINKAGE SECTION
- Next by Date: Re: OT BRIEF
- Previous by thread: can't invoke ISPEDIT through REXX
- Next by thread: Logic for missing END-xxx statement syntax
- Index(es):
Relevant Pages
|
|
