Need a job for executing the ISPF Edit Macro

ganga79 · New User Joined: 16 Nov 2005 Posts: 23

Hi,
I want to edit a dataset (USER.TEST.SEQ) by submitting a
JCL. For this I have written a simple edit macro (Macr) and then written
following rexx (EDTREXX).EDTREXX looks like this :

/*REXX*/
ADDRESS ISPEXEC
"EDIT DATASET('USER.TEST.SEQ') MACRO(MACR)"
RETURN

Now I am trying to submit the above REXX through JCL which
should have done my task. The JCL looks like :

//job card.....
//EXTRACT EXEC PGM=IKJEFT01
//SYSPROC DD DSN=USER.TEST.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
EXEC 'USER.TEST.EXEC(EDTREXX)' EXEC
/*

However, after submission the JCL output gives following
error :
"READY
EXEC 'USER.TEST.SEQ(SAMGANGA)'
3 *-* ADDRESS ISPEXEC "LMINIT DATAID("DTPDS") DATASET('"YOURPDS"') ENQ(SHR
+++ RC(-3) +++
4 *-* ADDRESS ISPEXEC " LMOPEN DATAID("DTPDS") OPTION(INPUT)"
+++ RC(-3) +++
USER.TEST.INPUT
17 *-* ADDRESS ISPEXEC " LMMLIST DATAID("DTPDS") OPTION(FREE)"
+++ RC(-3) +++
18 *-* ADDRESS ISPEXEC " LMCLOSE DATAID("DTPDS")"
+++ RC(-3) +++
19 *-* ADDRESS ISPEXEC " LMFREE DATAID("DTPDS")"
+++ RC(-3) +++
However if I execute the above rexx by giving an 'ex' in
front of USER.TEST.EXEC(EDTREXX), the REXX execution goes on fine and the
macro is also executed yielding the intended results.

But I want the above REXX to be successfuly run when
submitted through JCL.

Please let me know we need to add any System libraries.Thanks.

Regards,
Ganga

kamran · New User Joined: 01 May 2005 Posts: 55

hi,
you need to use exec card like bellow:
//ISPF EXEC PGM=IKJEFT01,DYNAMNBR=90,
// PARM='ISPSTART CMD(&CMD)'
which &cmd is the clist or rexx member.and also you must allocate ispf libraries in your jcl like ispllib and ...

ganga79 · New User Joined: 16 Nov 2005 Posts: 23

hi Kamaran,
Thanks for your Reply....

//STEP001 EXEC PGM=IKJEFT01,COND=(4,LT),DYNAMNBR=90,PARM=' '
//SYSPROC DD DSN=userid.WORK.SAMPLE,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//SYSTSIN DD *
PROFILE PREFIX(userid)
ISPSTART CMD(%SAMGANGA 'userid.WORK.SAMPLE') NEWAPPLN(ISR)
/*

i coded like that it is giving the MAX CC=998
and error information is:
READY
PROFILE PREFIX(userid)
READY
ISPSTART CMD(%SAMGANGA 'userid.WORK.SAMPLE') NEWAPPLN(ISR)
ISPI003 Following file was not preallocated:
ISPPROF
READY
END

Please let me if you have any issues..Thanks..

Regards,
Ganga

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

issue a "cancel" or "save" before exit.

ganga79 · New User Joined: 16 Nov 2005 Posts: 23

Where can i give the Cancel or save?please give the full details.Thanks

Regards,
Ganga

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

/* rexx */
Address isredit
"MACRO"
....

"CANCEL"
exit

kamran · New User Joined: 01 May 2005 Posts: 55

Hi,
I bring a sample procedure so you can change it according to naming convention in your site.you can invoke it as a procedure or include it in your executing jcl.

//ISPFPROC PROC PREFP='ISP',PREFS='CPAC',CMD=
//ISPF EXEC PGM=IKJEFT01,DYNAMNBR=90,
// PARM='ISPSTART CMD(&CMD)'
//SYSLBC DD DISP=SHR,
// DSN=SYS1.BRODCAST
//SYSTCPD DD DISP=SHR,DSN=TCPIP.SEZAINST(TCPDATA)
//SYSTERM DD TERM=TS,SYSOUT=*
//SYSIN DD TERM=TS,SPACE=(CYL,(5,5))
//*
//ISPPROF DD DISP=NEW,UNIT=SYSDA,SPACE=(TRK,(1,1,1)),
// DCB=(LRECL=80,BLKSIZE=8000,RECFM=FBA)
//*
//SYSPROC DD DISP=SHR,DSN=&PREFS..CMDPROC
//ISPPLIB DD DISP=SHR,DSN=&PREFP..SISPPENU
//ISPMLIB DD DISP=SHR,DSN=&PREFP..SISPMENU
//ISPSLIB DD DISP=SHR,DSN=&PREFP..SISPSLIB
//ISPTLIB DD DISP=SHR,DSN=&PREFP..SISPTENU
//ISPTABL DD DISP=SHR,DSN=&PREFP..SISPTENU
//ISPLOG DD DUMMY,DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPLIST DD DUMMY,DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPLST1 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//ISPLST2 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//ISPCTL1 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//ISPCTL2 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//ISPWRK1 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=256,BLKSIZE=2560,RECFM=FB)
//ISPWRK2 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=256,BLKSIZE=2560,RECFM=FB)
//DDNM DD DSN=&&TEMP,UNIT=SYSDA,DISP=(MOD,PASS),
// SPACE=(CYL,(5,5)),DCB=(LRECL=130,RECFM=FB,BLKSIZE=8960)
//*
//SYSUDUMP DD DUMMY
//SYSTSPRT DD SYSOUT=A
//SYSPRINT DD DUMMY
//SYSTSIN DD DUMMY

Kevin · Active User Joined: 25 Aug 2005 Posts: 234

I don't know what your EDIT Macro is doing, but for simple FIND/CHANGE or INSERT/DELETE operations, it sometimes seems like I'm the only one who finds it easier to code either an IPOUPDTE job or a TSO EDIT job.