MVSFORUMS.com

[madisand]

Hi,

I am trying to copy a VB file into another VB file, but I am getting error.
Here is my control card
OPTION COPY
OUTREC FIELDS=(1,16104)

input file has LRECL=16104.

This is my sortout file

//SORTOUT DD DSN=AAAA.RED,
// DISP=(,CATLG,DELETE),SPACE=(CYL,(25,10),RLSE)
// DCB=(LRECL=16104,RECFM=VB)

However I am getting a syncsort error message as follows
WER108I SORTIN : RECFM=VB ; LRECL= 16104; BLKSIZE= 27998
WER237I OUTREC RECORD LENGTH = 16104
WER110I SORTOUT : RECFM=VB ; LRECL= 16104; BLKSIZE= 27998
WER244A OUTREC - SHORT RECORD
Tried to search in the forum. Couldnt find any. The error seems to be because some input records donot entriely fill outrec.

I have to use outrec only as the above requirement is only a subset of some editing with ALTSEQ parameter.

[kolusu]

madisand,

For VB files you don't have to specify the length. However you do need to specify the RDW . Let us say you want to change the first 10 bytes with altseq then try this

[madisand]

Hi Kolusu,

Let me be more specific as to what I wanted to achieve. I wanted to change all occurences of X'D1' to X'40' in the input record.

So this is what I had given.
SORT FIELDS=COPY
ALTSEQ CODE=(D140)
OUTREC FIELDS=(5,16100,TRAN=ALTSEQ)

Now I accomodated for RDW with
OUTREC FIELDS=(1,4,
5,16100,TRAN=ALTSEQ)
Again it failed with the message as above.

So I removed length parameter & gave as below
OUTREC FIELDS=(1,4,
5,TRAN=ALTSEQ)
Now it ran successfully. But I didnot understand the significance of 15 in OUTREC. What is that for ? Are you outputting 15 bytes with 10 characters altered by ALTSEQ?

[kolusu]

[Nic Clouston]

Kolusu

I have to admit that, having read the query about what the 15 stood for I wondered as well but then I READ the MANUAL and NOW i UNDERSTAND

[madisand]

Thanks kolusu.

Your tip may come in hand in future though. You & Frank have always been outstanding with your quick solutions.

Cheers