IBM Mainframe Forum

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



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

Can you try the following sort statment.

OPTION COPY
OUTREC OVERLAY=(1041:15X)

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:

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