Huzefa
New User
Joined: 05 Dec 2006
Posts: 83
Location: Bangalore
|
|
|
|
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) |
|
|
