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
 

 

Running ISPF in Batch

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

New User


Joined: 05 Dec 2006
Posts: 85
Location: Bangalore

PostPosted: Fri Jan 12, 2007 5:51 pm    Post subject: Running ISPF in Batch
Reply with quote

I tried to run an rexx program in batch

This is the rexx exec..

Code:
/* REXX */
YYMMDD = RIGHT(DATE('S'),6)
ADDRESS ISPEXEC
GROUP = 'AUDIT'
DSNLEV = 'IMIT.IQ%T.*.D' || YYMMDD || '.*.UPP.IDXC'
"LMDINIT LISTID("LSTID") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTID") OPTION(SAVE) DATASET(DSVAR) GROUP("GROUP")"
EXIT


I have written the following JCL copied from the BATCHPDF macro

Code:

//GENER0   EXEC PGM=IEBGENER
//SYSUT1   DD *
 ISPEXEC VGET (ZTIMEL)       /* ISPF SERVICES CAN RUN HERE */
 WRITE &ZTIMEL


How do I put the above rexx program here. When I put the code as such
it gives mean error which is listed below...
READY
PROFILE PREFIX(userid)
READY
ISPSTART CMD(%TEMPNAME) NEWAPPL(ISR)
06:16:54.59
A command entered or contained in a CLIST has invalid syntax.
userid.userid.JOB07860.D0000105.? was preallocated (no free was done).
READY
END

Code:
SET ZISPFRC = 0
 ISPEXEC VPUT (ZISPFRC) SHARED     /* SET STEP RETURN CODE */
//SYSUT2   DD DISP=(NEW,PASS),DSN=&&CLIST0(TEMPNAME),
//            SPACE=(TRK,(1,1,2),RLSE),UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB)
//PROFILE  DD DISP=(NEW,CATLG,DELETE),DSN=userid.T166657.ISPPROF,
//            SPACE=(TRK,(10,10,5)),UNIT=SYSALLDA,
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB)
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//*
//COPYPROF EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT3   DD UNIT=DISK,SPACE=(TRK,(1))
//SYSUT4   DD UNIT=DISK,SPACE=(TRK,(1))
//IN       DD DSN=userid.ISPF.PROFILE,DISP=SHR
//OUT      DD DSN=&TEMP,DISP=(NEW,PASS,DELETE),
//         UNIT=DISK,SPACE=(TRK,(2,1,4)),
//         DCB=(LRECL=80,BLKSIZE=9040,RECFM=FB,DSORG=PO)
//SYSIN    DD *
  COPY INDD=IN,OUTDD=OUT
   S M=ISPEDIT,ISPPROF,ISPSPROF,ISRPROF
/*
//*
//BATCHPDF EXEC PGM=IKJEFT01
//ISPLLIB DD DISP=SHR,DSN=SYS7.GLOBAL.ISPLLIB
//        DD DISP=SHR,DSN=NBSP.NBS.ISPLLIB
//ISPPLIB DD DISP=SHR,DSN=SYS7A.ISPF.ISPPLIB
//        DD DISP=SHR,DSN=SYS7.GLOBAL.ISPPLIB
//        DD DISP=SHR,DSN=SYS1.ISP.SISPPENU
//        DD DISP=SHR,DSN=SYS1.SBPXPENU
//        DD DISP=SHR,DSN=NBSP.NBS.ISPPLIB
//ISPSLIB DD DISP=SHR,DSN=SYS7A.ISPF.ISPSLIB
//        DD DISP=SHR,DSN=SYS7.GLOBAL.ISPSLIB
//        DD DISP=SHR,DSN=SYS1.ISP.SISPSENU
//        DD DISP=SHR,DSN=SYS1.ISP.SISPSLIB
//        DD DISP=SHR,DSN=NBSP.NBS.ISPSLIB
//ISPMLIB DD DISP=SHR,DSN=SYS7A.ISPF.ISPMLIB
//        DD DISP=SHR,DSN=SYS7.GLOBAL.ISPMLIB
//        DD DISP=SHR,DSN=SYS1.ISP.SISPMENU
//        DD DISP=SHR,DSN=SYS1.SBPXMENU
//        DD DISP=SHR,DSN=NBSP.NBS.ISPMLIB
//ISPPROF DD  DSN=&TEMP,DISP=(OLD,DELETE,DELETE)
//*ISPPROF DD DISP=SHR,DSN=userid.ISPF.PROFILE
//ISPTABL DD DISP=SHR,DSN=SYS7A.ISPF.ISPTLIB
//*ISPTLIB  DD DSN=&&ISPTLIB,DISP=(,DELETE),UNIT=SYSDA,
//*            SPACE=(CYL,(1,1,10),RLSE),LRECL=80,RECFM=FB,BLKSIZE=0
//ISPTLIB DD DISP=SHR,DSN=SYS7A.ISPF.ISPTLIB
//        DD DISP=SHR,DSN=SYS7.GLOBAL.ISPTLIB
//        DD DISP=SHR,DSN=SYS1.ISP.SISPTENU
//        DD DISP=SHR,DSN=SYS1.SBPXTENU
//        DD DISP=SHR,DSN=NBSP.NBS.ISPTLIB
//ISPCTL0  DD DISP=(NEW,DELETE),SPACE=(TRK,(10,10)),UNIT=VIO,
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PS,RECFM=FB)
//ISPCTL1  DD DISP=(NEW,DELETE),SPACE=(TRK,(10,10)),UNIT=VIO,
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PS,RECFM=FB)
//ISPWRK1  DD DISP=(NEW,DELETE),SPACE=(TRK,(10,10)),UNIT=VIO,
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PS,RECFM=FB)
//ISPLST1  DD DISP=(NEW,DELETE),SPACE=(TRK,(10,10)),
//            DCB=(LRECL=133,BLKSIZE=0,DSORG=PS,RECFM=VB)
//ISPLOG   DD SYSOUT=*,
//            DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB)
//ISPLIST  DD SYSOUT=*,DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
    PROFILE PREFIX(userid)
    ISPSTART CMD(%TEMPNAME) NEWAPPL(ISR)
//SYSPROC  DD DISP=(OLD,DELETE),DSN=&&CLIST0
//         DD DISP=SHR,DSN=SYS7A.ISPF.CLIST
//         DD DISP=SHR,DSN=SYS3A.PPG.CLIST
//         DD DISP=SHR,DSN=SYS7.GLOBAL.CLIST
//         DD DISP=SHR,DSN=SYS1.ISP.SISPCLIB
//         DD DISP=SHR,DSN=NBSP.NBS.CLIST
//SYSEXEC  DD DISP=SHR,DSN=SYS7A.ISPF.EXEC
//         DD DISP=SHR,DSN=SYS7.GLOBAL.EXEC
//         DD DISP=SHR,DSN=SYS1.ISP.SISPEXEC
//         DD DISP=SHR,DSN=SYS1.SBPXEXEC
//         DD DISP=SHR,DSN=NBSP.NBS.EXEC
//DELPROF  EXEC PGM=IEFBR14
//DELETEDD DD DSN=userid.T166657.ISPPROF,DISP=(OLD,DELETE)
Back to top
View user's profile Send private message

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 755
Location: Germany

PostPosted: Fri Jan 12, 2007 6:33 pm    Post subject:
Reply with quote

Hi !

Place the rexx in the ISPF SYSPROC Library allocatet to your TSO-User-Startup. User or system library.

Use IKJEFT01 to run the rexx.

Regards, UmeySan
Back to top
View user's profile Send private message
Huzefa

New User


Joined: 05 Dec 2006
Posts: 85
Location: Bangalore

PostPosted: Sat Jan 13, 2007 7:49 pm    Post subject:
Reply with quote

Hi All,
I put my rexx exec in a pds

userid.practice.rexx and allocated the same PDS to sysproc and sysexec.

The Jcl ran well with MAXX CC = 0 but the output dataset(userid.audit.datsets) which rexx exec is suppose to create did not get created..

Could you help me out with it
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 755
Location: Germany

PostPosted: Mon Jan 15, 2007 3:26 pm    Post subject:
Reply with quote

Morning Sir !

Use the "TRACE ?R" command in your rexx and step throu it to see what's
happening.

Regards, UmeySan
Back to top
View user's profile Send private message
Huzefa

New User


Joined: 05 Dec 2006
Posts: 85
Location: Bangalore

PostPosted: Mon Jan 15, 2007 7:03 pm    Post subject:
Reply with quote

Thanks for the reply
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 Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts HLIST Utility In Batch Virendra Shambharkar TSO/ISPF 4 Fri Apr 07, 2017 3:38 pm
No new posts Batch job tuning sgandhla Testing & Performance analysis 5 Fri Mar 24, 2017 9:41 pm
No new posts MIPS/CPU consumption reduction in Batch vishwakotin DFSORT/ICETOOL 4 Sat Mar 18, 2017 5:46 pm
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm


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