Passing value using temp variable in sysin card
Posted: Wed Jan 30, 2013 3:30 pm
Hi,
I am trying to pass a value to the sysin card using temp variable, but getting some error. Here is my JCL
It is conversion job where VB file will be converted into FB file. The file details will be coming from Online screen(file name and its length)
and the error I am getting is:
Can you please help me out to resolve this issue.
I am trying to pass a value to the sysin card using temp variable, but getting some error. Here is my JCL
// SET RECLN=711
//STEP001 EXEC PGM=SORT,PARM='JP1"&RECLN"'
//SORTIN DD DISP=SHR,DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS
//SORTOUT DD DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS.FLN,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=&RECLN)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,JP1)
/*
//STEP001 EXEC PGM=SORT,PARM='JP1"&RECLN"'
//SORTIN DD DISP=SHR,DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS
//SORTOUT DD DSN=DPFCB84.C1207.C14T01.SVP022.SRTDBITS.FLN,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=&RECLN)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,JP1)
/*
It is conversion job where VB file will be converted into FB file. The file details will be coming from Online screen(file name and its length)
and the error I am getting is:
ICE270I 0 PROCESSING SYMNAMES STATEMENTS
ICE280I 1 ORIGINAL STATEMENTS FROM SYSIN FOLLOW
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,JP1)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE805I 1 JOBNAME: D393990B , STEPNAME: STEP001
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 20:49 ON WED JA
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,JP1)
$
ICE007A E SYNTAX ERROR
ICE751I 0 C5-K76982 C6-K90026 C7-K82419 C8-K67572 E7-K79990
ICE052I 3 END OF DFSORT
ICE280I 1 ORIGINAL STATEMENTS FROM SYSIN FOLLOW
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,JP1)
ICE282I 0 PERFORMING SYMBOL SUBSTITUTION AS NEEDED
ICE805I 1 JOBNAME: D393990B , STEPNAME: STEP001
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 20:49 ON WED JA
OPTION COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,JP1)
$
ICE007A E SYNTAX ERROR
ICE751I 0 C5-K76982 C6-K90026 C7-K82419 C8-K67572 E7-K79990
ICE052I 3 END OF DFSORT
Can you please help me out to resolve this issue.