saiprasadh
Active User
Joined: 20 Sep 2006 Posts: 154 Location: US
|
|
|
|
Hi All ,
I am facing the following issue while using the file tailoring command in batch, I added my Skeleton library to ISPSLIB even though , i am facing problem
My Rexx Code:
Code: |
trace C
TBL_JCL=USERID()'.TABLE.JCL'
IF SYSDSN("'"TBL_JCL"'") = 'OK' THEN
DO
X = OUTTRAP('ZZZ.')
"DELETE '"TBL_JCL"'"
X = OUTTRAP('OFF')
END
ADDRESS TSO
"ALLOCATE DA('"TBL_JCL"') FI(ISPFILE) REUSE NEW ",
"RECFM(F,B) LRECL(80) BLOCK(80)"
ADDRESS ISPEXEC "FTOPEN"
ADDRESS ISPEXEC "FTINCL " TBL
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS TSO
"FREE F(ISPFILE)"
ADDRESS TSO
"SUBMIT '"TBL_JCL"'" |
My JCl :
Code: |
//TSOBTCH1 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//ISPLOG DD DUMMY,DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPLIST DD DUMMY,DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPLST1 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//ISPLST2 DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//SYSPRINT DD SYSOUT=*
//SYSPROC DD DSN=<My REXX PDS>,DISP=SHR
//ISPSLIB DD DSN=<My skeleton PDS>,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%SKLTEST
/* |
The Trace Output is :
Code: |
ADDRESS ISPEXEC "FTOPEN"
"FTOPEN"
RC(-3) +++
ADDRESS ISPEXEC "FTINCL " TBL
"FTINCL TBL"
RC(-3) +++
ADDRESS ISPEXEC "FTCLOSE"
"FTCLOSE"
RC(-3) +++
"FREE F(ISPFILE)"
"FREE F(ISPFILE)"
"SUBMIT '"TBL_JCL"'"
"SUBMIT 'A028113.TABLE.JCL'"
INPUT DATA SET A028113.TABLE.JCL NOT USABLE+ |
Thanks
Sai |
|