Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Need a job for executing the ISPF Edit Macro

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
ganga79

New User


Joined: 16 Nov 2005
Posts: 23

PostPosted: Mon Oct 09, 2006 4:18 pm    Post subject: Need a job for executing the ISPF Edit Macro
Reply with quote

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
Back to top
View user's profile Send private message

kamran

New User


Joined: 01 May 2005
Posts: 55

PostPosted: Mon Oct 09, 2006 5:48 pm    Post subject:
Reply with quote

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 ...
Back to top
View user's profile Send private message
ganga79

New User


Joined: 16 Nov 2005
Posts: 23

PostPosted: Tue Oct 10, 2006 12:47 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Tue Oct 10, 2006 1:52 pm    Post subject:
Reply with quote

issue a "cancel" or "save" before exit.
Back to top
View user's profile Send private message
ganga79

New User


Joined: 16 Nov 2005
Posts: 23

PostPosted: Tue Oct 10, 2006 4:53 pm    Post subject:
Reply with quote

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

Regards,
Ganga
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Tue Oct 10, 2006 5:49 pm    Post subject:
Reply with quote

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

"CANCEL"
exit
Back to top
View user's profile Send private message
kamran

New User


Joined: 01 May 2005
Posts: 55

PostPosted: Tue Oct 10, 2006 7:37 pm    Post subject:
Reply with quote

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


ganga79 wrote:
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
Back to top
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Wed Oct 11, 2006 6:21 pm    Post subject: Re: Need a job for executing the ISPF Edit Macro
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISREDIT MACRO NOT WORKING! :cry: kirank889 TSO/ISPF 3 Thu Aug 03, 2017 5:46 pm
No new posts saving your settings in ISPF. VintageReceiver TSO/ISPF 9 Wed Jul 26, 2017 6:42 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts Edit large number of datasets (QSAM) zh_lad TSO/ISPF 3 Tue Apr 04, 2017 6:08 pm
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us