Replace packed decimal field with zeroes

Ed Groneman · Posted: Fri Oct 12, 2007 1:28 am

Need to replace packed decimal field with zeroes. Can this be done with OUTFIL? or inrec/outrec? Any example would be appreciated!

Frank Yaeger · Posted: Fri Oct 12, 2007 1:37 am

A little more detail would have been helpful.

Let's say you want to replace a PD field in positions 11-15 with PD zeros. You can use INREC, OUTREC or OUTFIL OVERLAY to do it. For example, you could use these DFSORT statements:

Lkmi · New User Joined: 04 Mar 2005 Posts: 53 Location: Newyork

I have a similar scenario, I am creating an output file and I need packed zeroes at the 21st character of teh output file.
when this file is read, the packed zeroes will be read into PIC S9(15)V9(3) COMP-3. How do I create the packed zeroes in the o/p file??

Frank Yaeger · Posted: Fri Oct 12, 2007 1:57 am

PIC S9(15)V9(3) COMP-3 is a 10-byte PD field. So the DFSORT statements would be:

Lkmi · New User Joined: 04 Mar 2005 Posts: 53 Location: Newyork

Iam trying to create the ourec from the input file. But for positions, 194:10 char in o/p file and similarly for 212:4 char, 285:10 chars, there is no input in the inrec and i have to create the output with packed zeroes
Is the below syntax correct??

SORT FIELDS=(181,16,CH,A)
OUTFIL FILES=02,
INCLUDE=(33,9,CH,EQ,C'EXFORDC04'),
OUTREC=(11,10,
15:C'MLCND ACCT ',C' MLCND',42,91,2Z,129:133,64,
194:+0,TO=PD,LENGTH=10
,8X,
212:+0,TO=PD,LENGTH=4
,70X,
285:+0,TO=PD,LENGTH=10,
294:33,9,21,12)

Frank Yaeger · Posted: Fri Oct 12, 2007 2:17 am

Lkmi · New User Joined: 04 Mar 2005 Posts: 53 Location: Newyork

Thanks Frank..I'll check the field's.