senjay
Active User
Joined: 10 May 2007
Posts: 147
Location: India
|
|
|
|
Hi,
I am new to macros and i am getting below error when i am submitting via batch. I have used the ISPF libraries in the JCL by looking via ISRDDN, kept the macro in ISRDDN specified library. Could some one help me out where i am wrong?
Error:
------
| Code: |
READY
ISPSTART CMD(%CHK1 AAAAAA.COPYBACK)
3 *-* ADDRESS ISREDIT
4 *-* 'MACRO'
>L> "MACRO"
+++ RC(20) +++
5 *-* "CHG SEN THI ALL"
>L> "CHG SEN THI ALL"
+++ RC(20) +++
6 *-* 'END'
>L> "END"
+++ RC(20) +++
AAAAAA.CPU1.SPFLOG1.LIST has been kept.
READY
END
|
Macro:
--------
| Code: |
/*REXX*/
TRACE I
ADDRESS ISREDIT
'MACRO'
"CHG SEN THI ALL"
'END'
|
JCL:
----
| Code: |
//S020 EXEC PGM=IKJEFT01
//ISPPROF DD DISP=(,DELETE),UNIT=SYSDA,SPACE=(TRK,(5,5,10)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)
//ISPLLIB DD DSN=DB2ACCT.QMF.SDSQLOAD,DISP=SHR
// DD DSN=SYS9.MQ.Q2.SCSQAUTH,DISP=SHR
// DD DSN=MQ2P.MA10.LOAD,DISP=SHR
//SYSEXEC DD DSN=AAAAAA.ISPF.EXEC,DISP=SHR
// DD DSN=CIPDEV.ISPF.EXEC,DISP=SHR
// DD DSN=SYSSHR.CPU1.ISPEXEC,DISP=SHR
// DD DSN=SYSSHR.CIP.ISPEXEC,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPEXEC,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPEDMAC,DISP=SHR
// DD DSN=SYS1.SISPEXEC,DISP=SHR
//SYSPROC DD DSN=AAAAAA.ISPF.CLIST,DISP=SHR
// DD DSN=CIPDEV.ISPF.CLIST,DISP=SHR
// DD DSN=SYSSHR.CIP.ISPCLIB,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPCLIB,DISP=SHR
// DD DSN=SYS1.SISPCLIB,DISP=SHR
// DD DSN=SYS1.SBLSCLI0,DISP=SHR
// DD DSN=SYS3.PROJCL.PPJEXEC,DISP=SHR
//ISPMLIB DD DSN=AAAAAA.ISPF.MSGS,DISP=SHR
// DD DSN=CIPDEV.ISPF.MSGS,DISP=SHR
// DD DSN=SYSSHR.CIP.ISPMLIB,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPMLIB,DISP=SHR
// DD DSN=SYS1.SISPMENU,DISP=SHR
// DD DSN=SYS1.SISFMLIB,DISP=SHR
// DD DSN=SYS1.SBPXMENU,DISP=SHR
//ISPPLIB DD DSN=AAAAAA.ISPF.PANELS,DISP=SHR
// DD DSN=CIPDEV.ISPF.PANELS,DISP=SHR
// DD DSN=SYSSHR.CPU1.ISPPLIB,DISP=SHR
// DD DSN=SYSSHR.CIP.ISPPLIB,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPPLIB,DISP=SHR
// DD DSN=SYS1.SISPPENU,DISP=SHR
// DD DSN=SYS1.SISFPLIB,DISP=SHR
// DD DSN=SYS1.SBPXPENU,DISP=SHR
// DD DSN=SYS3.DV.CAIISPP,DISP=SHR
// DD DSN=MQ2P.MA10.ISPPENU,DISP=SHR
//ISPSLIB DD DSN=AAAAAA.ISPF.SKELS,DISP=SHR
// DD DSN=CIPDEV.ISPF.SKELS,DISP=SHR
// DD DSN=SYSSHR.CIP.ISPSLIB,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPSLIB,DISP=SHR
// DD DSN=SYS1.SISPSENU,DISP=SHR
// DD DSN=SYS1.SISPSLIB,DISP=SHR
//SYSUADS DD DSN=SYS1.UADS,DISP=SHR
//SYSHELP DD DSN=SYS1.HELP,DISP=SHR
//ISPTABL DD DISP=(,DELETE),UNIT=SYSDA,SPACE=(TRK,(5,5,10)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)
//ISPTLIB DD DSN=AAAAAA.ISPF.TABLES,DISP=SHR
// DD DSN=CIPDEV.ISPF.TABLES,DISP=SHR
// DD DSN=SYSSHR.CPU1.ISPTLIB,DISP=SHR
// DD DSN=SYSSHR.EDC.ISPTLIB,DISP=SHR
// DD DSN=SYS1.SISPTENU,DISP=SHR
// DD DSN=SYS1.SISFTLIB,DISP=SHR
// DD DSN=SYS1.SBPXTENU,DISP=SHR
// DD DSN=SYS3.DV.CAIISPT,DISP=SHR
//ISPCTL0 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),
// DISP=(,DELETE,DELETE)
//ISPCTL1 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),
// DISP=(,DELETE,DELETE)
//ISPCTL2 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),
// DISP=(,DELETE,DELETE)
//ISPWRK0 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=2560),
// DISP=(,DELETE,DELETE)
//ISPWRK1 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=2560),
// DISP=(,DELETE,DELETE)
//ISPWRK2 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=2560),
// DISP=(,DELETE,DELETE)
//ISPLST0 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210),
// DISP=(,DELETE,DELETE)
//ISPLST1 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210),
// DISP=(,DELETE,DELETE)
//ISPLST2 DD UNIT=SYSDA,
// SPACE=(TRK,(5,5)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210),
// DISP=(,DELETE,DELETE)
//SYSPRINT DD SYSOUT=*,HOLD=YES
//SYSTSPRT DD SYSOUT=*,HOLD=YES
//SYSTSIN DD *
ISPSTART CMD(%CHK1 AAAAAA.COPYBACK)
/*
|
CHK1 - Macro
AAAAAA.COPYBACK - PS file |
|
