Initializing packed decimals with ZEROs

sonu_winks · New User Joined: 23 Nov 2005 Posts: 23

I have an input file of length 300. I want to increase the size of it to 400.
This increased file is read in to a copy book which has packed decimals from position 301 to 321. I want to initialize this packed decimal positions to zeroes before read into this copy book in my program.

Frank Yaeger · Posted: Tue Mar 06, 2007 8:50 pm

What is the length of each of the packed decimal fields you want to initialize? What do you want in positions 322-400?

sonu_winks · New User Joined: 23 Nov 2005 Posts: 23

Frank,

I have four packed decimal variables of length 5 bytes each from 301.
I can have spaces after that.

Frank Yaeger · Posted: Wed Mar 07, 2007 9:50 pm

Here's a DFSORT job that will do what you asked for:

sonu_winks · New User Joined: 23 Nov 2005 Posts: 23

Thanks Frank !