View previous topic :: View next topic
Author
Message
Gary McDowell Active User Joined: 15 Oct 2012Posts: 139 Location: USA
Can an Edit Macro run in batch, and if so does anyone have example JCL?
A developer on my team has a 3-step job process that requires manual intervention from an edit-macro. If we can get an example of running an edit-macro in batch, we can fully automate his process.
What the developer does is…
Runs first-step to create an output, then ends job.
Edits first-step output with his edit-macro.
Continues job past the first-step using a RESTART.
Thanks.
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
Yes it can !
ISPSTART CMD(xxxxx)
inside xxxxx
Address ISPEXEC EDIT .... MACRO( the edit macro )
Back to top
Gary McDowell Active User Joined: 15 Oct 2012Posts: 139 Location: USA
Hey enrico.
Not really sure I understand the coding and format you have suggested. I did some scans on our JCL libraries (Address, ISPEXEC) and did not find an example. What would be an example of "xxxxx"? I understand the "ISPEXEC EDIT" but not sure of the JCL format.
Thanks for any clarification.
Code:
//STEP010 EXEC PGM=IEBGENER
//SYS... DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=input.name.here
//SYSUT2 DD DSN=output.name.here,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(15,15),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//* ???
//ISPSTART CMD(xxxxx ?)
inside xxxxx ?
//Address ISPEXEC EDIT output.name.here MACRO( the edit macro )
//*
//*STEP030 ...
Back to top
superk Global Moderator Joined: 26 Apr 2004Posts: 4652 Location: Raleigh, NC, USA
This ISPF BATCH code snippet is straight from IBM:
Code:
//USERAA JOB (ISPF),'ISPF USER',MSGCLASS=X,
// CLASS=A,NOTIFY=&SYSUID
//*
//ISPFSTP EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=32M
//ISPPROF DD RECFM=FB,LRECL=80,SPACE=(TRK,(2,2,2))
//ISPLLIB DD DSN=USERA.LOADLIB,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
// DD DSN=ISP.SISPSLIB,DISP=SHR
//ISPTLIB DD RECFM=FB,LRECL=80,SPACE=(TRK,(1,0,1))
// DD DSN=ISP.SISPTENU,DISP=SHR
//ISPCTL1 DD SPACE=(CYL,1),RECFM=FB,LRECL=80
//ISPLOG DD SYSOUT=*,RECFM=FB,LRECL=133
//SYSEXEC DD DSN=ISP.SISPEXEC,DISP=SHR
//SYSPROC DD DSN=ISP.SISPCLIB,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD(ISPFCMD)
Back to top
Gary McDowell Active User Joined: 15 Oct 2012Posts: 139 Location: USA
Ah, thanks Kevin.
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
Quote:
Not really sure I understand the coding and format you have suggested.
the format I posted was not coding or formal representation ...
just a hint on how to proceed.
run ISPF in batch ( gazillions of example here )
invoking a generic ( You choose the name ) script
and inside the script invoke the ISPF EDIT services with a MACRO
Back to top
Please enable JavaScript!