MVSFORUMS.com

[zossy]

Hi everybody!

I have a variable legth dataset with the following records
REC1rrraaaaaxaaaaax
REC2rrrbbbbbbbybbbbbbby

The parts aaaaax and bbbbbbby can by repeated 1 to 100 times counted in rrr.

I want to remove every x and every y and get the correct VL RDW:
REC1rrraaaaaaaaaa
REC2rrrbbbbbbbbbbbbbb

Using an OUTREC statement

[kolusu]

zossy,

The reason you got an error is because you already used OUTREC and the 2nd one is a duplicate.

DFSORT automatically calculates the RDW for you when you use BUILD. You don't have to overlay it once again by calculating it again.

for example try this jcl

[zossy]

kolusu,

Thank you for your explanation and ideas. The VLTRIM would be very nice, but the last data field can contain spaces as well.
So I modified your JCL with some "real" data:

[zossy]

The displayed output was after adding VLTRIM in STEP0300:

[kolusu]

[zossy]

kolosu,

sorry for not explaining the intention of that. Of course, DFSORT always put the correct length in the RDW.

The record contains a record header including a repeat count and n repeats of a fixed data part.
In the (real) input file there is a repeated length of 6 and the recordlength contains always all bytes of the last repeated part even if the last three bytes are spaces.

In the output file is a repeated length of 5. With VLTRIM the recordlength varies dependig on content of the last two bytes:
1 byte shorter if the last byte is space,
two bytes shorter if the two last bytes are space.
That is the problem, because the record must include all bytes of the last repeated part.

The easiest way would be

[kolusu]

zossy,

If I understand your question correctly, you are indeed building a fixed length record in your variable length file.

You can achieve that using IFOUTLEN parm. Since you have 1 to 100 occurrences of data you can code

IFOUTLEN=511 ( 4 byte RDW + 7 byte indicator + (100 * 5 ) ) = 511

So your outrec statement will be

[zossy]

kolusu,

thank you for your answer again.
No, I don't need a full fixed length record.
I now found the following solution (in STEP0300) to archive the result:

[kolusu]

zossy,

You need to be clear on what you want. Looking at your control cards now, we can do it with 1 set of IFTHEN statements it self. You can use VLTRIM on any character. So we use $ as pad character. We validate the array counter and pad the rest of the contents with $. Also note that the last IFTHEN is checking for counter > 100 where I am initializing the contents as if there is no array at all. Similar to counter being zero.

[zossy]

kolusu,

thanks a lot . With your suggestions I found this solution:

[kolusu]