I use CLIST and Rexx Edit macros to do this.

./ ADD NAME=GO       0138-90310-06339-0900-00005-00008-00000-TRIDJK 
ISREDIT MACRO 
ISREDIT SUBMIT 
ISPEXEC SELECT PGM(IOFSPF) NEWAPPL(IOF) PASSLIB  
/* Edit macro to submit job and invoke IOF */ 
 
./ ADD NAME=GOSDSF   0136-90310-11002-0905-00008-00008-00000-TRIDJK 
/* Rexx */ 
Address ISREDIT 
"ISREDIT MACRO" 
"ISREDIT SUBMIT" 
Address ISPEXEC 
"ISPEXEC SELECT PGM(ISFISP) PARM(ST) NEWAPPL(ISF) PASSLIB" 
Exit 
/* Edit macro to submit job and invoke SDSF */ 

Regards,
John K






ISPF Program Edit Macro

DanD 
to:
IBM-MAIN
12/31/2010 04:24 PM


Sent by:
IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
Please respond to IBM Mainframe Discussion List






With recent SUBMIT discussions (ie. ISPFTEMP data set size / lrecl 
restrictions) I thought I'd try and create a program EDIT MACRO 
(assembler) 
to submit the unsaved EDIT/VIEW data.
The EDIT MACRO is working great but I dislike having to issue !EDITSUB to 
call the macro.

I tried adding "CMD(!EDITSUB)" and "CMD(EDITSUB)" to the command table 
with 
no success.

Can a program EDIT MACRO be called in any other way than !program?

Thanks & Happy New Year.
DanD 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to