Page 1 of 1

Getting 'WER244A OUTREC - SHORT RECORD' while expanding VB

PostPosted: Thu Sep 09, 2010 3:08 am
by reema
Hi All,

Req: need to insert 15 spaces in O/P file at '1041-1055'. Tried different ways got same error.
i/p file = 7911, o/p file = 7926

//S0010     EXEC PGM=SYNCSORT
//SYSOUT   DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SORTIN DD DISP=SHR,DSN=T.OLD
//*
//SORTOUT DD DISP=(NEW,CATLG,DELETE),
//           SPACE=(CYL,(1,1),RLSE),
//           DCB=(LRECL=7926,RECFM=VB,BLKSIZE=27998),
//           DSN=T.CONVERSION
//*


SYSIN :
OPTION COPY,VLSCMP
OUTREC FIELDS=(1:1,1040,15X,1056:1041,6871)

WER276B SYSDIAG= 75590, 1211882, 1211882, 5247900
WER164B 9,900K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 64K BYTES RESERVE REQUESTED, 2,341,848 BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 7911; BLKSIZE= 27998
WER237I OUTREC RECORD LENGTH = 7926
WER110I SORTOUT : RECFM=VB ; LRECL= 7926; BLKSIZE= 27998
WER410B 7,848K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 2,194,392 BYTES USED
WER244A OUTREC - SHORT RECORD
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
--------------------------
SORT FIELDS=COPY
OUTREC FIELDS=(1,1040,15X,1056:1041,6871)

WER901I **WARNING** SYNCSORT 1.3.2.2 WILL EXPIRE IN 32 DAYS
WER276B SYSDIAG= 70785, 1209894, 1209894, 5247900
WER164B 9,900K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 64K BYTES RESERVE REQUESTED, 2,341,848 BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 7911; BLKSIZE= 27998
WER237I OUTREC RECORD LENGTH = 7926
WER110I SORTOUT : RECFM=VB ; LRECL= 7926; BLKSIZE= 27998
WER410B 7,848K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 2,194,392 BYTES USED
WER244A OUTREC - SHORT RECORD
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
------------------------------------------------
SORT FIELDS=COPY
OUTREC BUILD=(1:1,1040,1041:C' ',1056:X)


Data is getting truncated.

Can some one pls, let me know what is wrong the sort cards and how to fix it.

Thanks/Reema

Re: Getting 'WER244A OUTREC - SHORT RECORD' while expanding VB

PostPosted: Fri Sep 10, 2010 3:05 am
by Thampy
Can you try the following sort statment.

OPTION COPY
OUTREC OVERLAY=(1041:15X)

Re: Getting 'WER244A OUTREC - SHORT RECORD' while expanding VB

PostPosted: Fri Sep 10, 2010 8:21 pm
by Alissa Margulies
Thampy wrote:OUTREC OVERLAY=(1041:15X)
OVERLAY will overwrite any data in that field, not simply insert the spaces and move the rest of the data to the right.

Try this instead and let us know if you still encounter the error:
//SYSIN DD *
  SORT FIELDS=COPY
  OUTREC BUILD=(1:1,1040,15X,1056:1041)
/*

Re: Getting 'WER244A OUTREC - SHORT RECORD' while expanding VB

PostPosted: Tue Sep 14, 2010 3:17 am
by reema
Thanks for your inputs.

As the file is being expanded by 15 bytes, need to add this to length of the file. So, I have done this in 3 steps.

1. Convert VB to FB
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,7907),VLFILL=C'*'
/*

2. Update the file:
//SYSIN DD *
SORT FIELDS=COPY
OUTREC BUILD=(1:1,1040,1041:C' ',1041,6867)
/*

3. Convert to FB to VB:
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,FTOV,VLTRIM=C'*'
/*

Thanks/Reema