IBM Mainframe Forum

by **thotlma** » Wed Sep 19, 2018 7:55 pm

Hi all

iam using the below code to add leading leading zeros to account number.
the input file was VB format so am writing op in the VB format and added +4 in the INREC fileds
still getting the error. could you please help on this or any other best way to alter the code?

Select all

//STEP001   EXEC PGM=SORT                                    
//SORTIN    DD DSN=XXX.Q.KR0Z2N99.XXXIZ2WT.ISA.DAT,DISP=SHR  
//SORTOUT   DD DSN=XXX.Q.KR0Z2R99.XXXIZ291.ISA.DAT(+1),      
//             DISP=(NEW,CATLG,DELETE),                      
//             SPACE=(CYL,(1,1),RLSE),                       
//             DCB=(DSORG=PS,RECFM=VB,LRECL=255,BLKSIZE=6233)
//SYSOUT    DD SYSOUT=*                                      
//SYSPRINT  DD SYSOUT=*                                      
//SYSIN     DD *                                             
  OPTION COPY                                                
  INREC BUILD=(10,19,UFF,M11,LENGTH=19)

by **enrico-sorichetti** » Wed Sep 19, 2018 8:14 pm

still getting the error

what error ?
if You want useful answers You should learn to post better worded questions

by **thotlma** » Wed Sep 19, 2018 9:23 pm

please see the below error

Select all

SYNCSORT FOR Z/OS  2.1.7.0R    U.S. PATENTS: 4210961, 5117495   (C)
                                   SYNCSORT AT KEYBANK  R2.1.7.0N  
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 93367, MODEL 2964 512      
SYSIN :                                                            
  OPTION COPY                                                      
  INREC BUILD=(10,19,UFF,M11,LENGTH=19)                            
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED     
WER276B  SYSDIAG= 14322173, 19912129, 19912129, 18271235           
WER164B  7,908K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED, 
WER164B     4K BYTES RESERVE REQUESTED, 2,016K BYTES USED          
WER146B  32K BYTES OF EMERGENCY SPACE ALLOCATED                    
WER108I  SORTIN   : RECFM=VB   ; LRECL=   255; BLKSIZE=  6233      
WER073I  SORTIN   : DSNAME=TRP.Q.KR0Z2N99.TRPIZ2WT.ISA.DAT         
WER235A  INREC    RDW NOT INCLUDED                                 
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                      
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

by **Robert Sample** » Wed Sep 19, 2018 9:29 pm

This is for DFSORT, but the principle still applies:

For variable-length records, the first entry in the FIELDS, BUILD, or IFTHEN BUILD parameter must specify or include the unedited 4-byte record descriptor word (RDW), that is, the first field must be 1,4 or 1,m with m greater than 4. DFSORT sets the length of the reformatted record in the RDW.

IBM Mainframe Forum

INREC RDW NOT INCLUDED

INREC RDW NOT INCLUDED

Re: INREC RDW NOT INCLUDED

Re: INREC RDW NOT INCLUDED

Re: INREC RDW NOT INCLUDED