MVSFORUMS.com

Biskhel · Beginner Joined: 09 Mar 2006 Posts: 5 Topics: 2

Hi,

I have a VSAM file of average record length of 30 and maximum record length of 50.

File:
pos 1............................................30........................50
dat 0000000000000000000000000000000000000
dat ...........data1..........................|..........blank........
dat ...........data2..........................|..........blank........
dat ...........data3..........................|..........blank........

If I use ICETOOL to copy the above file to sequential file zeros getting added instead of blanks

The sequential file record length is 50

Output:
pos 1............................................30........................50
dat 000000000000000000000000000000000000000
dat ...........data1..........................|000000000000000
dat ...........data2..........................|000000000000000
dat ...........data3..........................|000000000000000
The command I used:

COPY FROM(INFILE) TO(OUTFILE)

Please let me know the actual problem and solution if anyone knows.

Thanks in Advance,
Bishkel

kolusu · Posted: Fri Apr 21, 2006 6:48 am Post subject:

Biskhel,

I am not sure as to why you get those zeroes instead of spaces at the end.

Try this Job and see if you still got zeroes instead of blanks

Biskhel · Beginner Joined: 09 Mar 2006 Posts: 5 Topics: 2

Thanks Kolusu!

But logically that ICETOOL also doing the same thing you mentioned. Anyway I have tried what you suggested and also giving same result.

Biskhel

kolusu · Posted: Fri Apr 21, 2006 8:11 am Post subject:

Biskhel,

Ok then the data in the vsam file itself has zeroes. can you post your sysout from the job I gave?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Frank Yaeger · Posted: Fri Apr 21, 2006 11:15 am Post subject:

The VSAM input file is variable-length (30 to 50 bytes). I suspect you're treating it as fixed-length (F) in which case the missing bytes are padded with binary zeros. If you treated the input file as variable-length (V) then the output records would also be variable-length and not padded.

If you want the output file to have RECFM=FB and LRECL=50 with the short records padded with blanks, use these control statements:

Biskhel · Beginner Joined: 09 Mar 2006 Posts: 5 Topics: 2

Thanks Frank,

Actually I am not using OUTFIL but I am using like this:

COPY FROM(INFILE) TO(OUTFILE) USING(CTL1)

CTL1:
OUTREC FIELDS=(1,50)

This method is not supporting the option VTOF.

How can I solve this problem?

Biskhel

Frank Yaeger · Posted: Tue Apr 25, 2006 9:49 am Post subject:

You can use VTOF on the OUTFIL statement with an OUTREC or BUILD parameter. (You cannot use VTOF on the OUTREC statement.) You probably want something like this: