**********************************************************
----------------------------------SYSOUT ----------------------------------
**********************************************************
SARPAGE 10 DS=DFSMSG .STEPXXX . /0000159
SYNCSORT FOR Z/OS 1.3.2.1RI U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCSO
z/OS 1.11.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 134F0, MODEL 2094 605 LICEN
CTL1CNTL :
OUTREC BUILD=(38,4,8X,42,40,11X,116,6,121X,82,12,
37X,94,22,739X,1001:C'BB')
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=IN1,SORTOUT=T1,SORTDD=CTL1,COPY
WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
WER276B SYSDIAG= 4915273, 5888755, 5888755, 3153300
WER164B 6,884K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 992K BYTES USED
WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I IN1 : RECFM=FB ; LRECL= 78; BLKSIZE= 27924
WER230A OUTREC FIELD OUTSIDE RANGE
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
**********************************************************
----------------------------------CODE ----------------------------------
**********************************************************
//STEPXXX EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=LODP.V32.HCM31.GOD54.FILTER
//*N1 DD DISP=SHR,DSN=LODP.V32.HCM31.GOD54.FILTER
//IN2 DD DISP=SHR,DSN=LODP.V32.GOD106.GGODBA24.E1.TEMP
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(500,500)),DISP=(MOD,PASS)
//OUT1 DD DSN=LODT.V32.GOD106.GGODBA24.OMIT,
// DISP=(NEW,CATLG,KEEP),
// SPACE=(CYL,(500,500),RLSE),
// DCB=(RECFM=FB,BLKSIZE=0)
//OUT2 DD DSN=LODT.V32.GOD106.GGODBA24.E1.D,
// DISP=(NEW,CATLG,KEEP),
// SPACE=(CYL,(500,500),RLSE),
// DCB=(RECFM=FB,BLKSIZE=0)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(1,4,CH) -
ON(13,40,CH) -
ON(64,06,CH) -
ON(191,12,CH) -
ON(240,22,CH) -
KEEPBASE KEEPNODUPS WITHALL WITH(1,1001) USING(CTL3)
/*
//CTL1CNTL DD *
OUTREC BUILD=(38,4,8X,42,40,11X,116,6,121X,82,12,
37X,94,22,739X,1001:C'BB')
/*
//CTL2CNTL DD *
OUTREC OVERLAY=(1,1000,1001:C'VV')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT1,INCLUDE=(1001,2,CH,EQ,C'VB'),
BUILD=(1,1000)
OUTFIL FNAMES=OUT2,INCLUDE=(1001,2,CH,EQ,C'VV'),
BUILD=(1,1000)
/*
WER230A OUTREC FIELD OUTSIDE RANGE .......please help
Moderators: Frank Yaeger, DikDude, Moderator Group
-
- Active Member
- Posts: 52
- Joined: Wed Mar 25, 2009 11:56 pm
- Location: Banglore
OUTREC is trying to read more than record lenght of current input file.
your input file is haivng record lenght of 78 only.
Code: Select all
WER108I IN1 : RECFM=FB ; LRECL= 78; BLKSIZE= 27924
Code: Select all
OUTREC BUILD=(38,4,8X,42,40,11X,116,6,121X,82,12,
37X,94,22,739X,1001:C'BB')
Thanks
MaheshVamsi
MaheshVamsi
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page