Change a position

Garpen · New User Joined: 03 Jan 2007 Posts: 14 Location: Sweden

Hi again

This time I have a question about replacing one position. The position can contain hexvalues C0-C9 or D0-D9. If it's C0 or D0 I want it to be F0 and so on C9/D9 to F9

File is VB lrecl 133

William Thompson · Posted: Thu Jan 04, 2007 2:19 pm

Sort has a translate function, but is sounds like you want to make a zoned decimal number with a sign, unsigned?

Garpen · New User Joined: 03 Jan 2007 Posts: 14 Location: Sweden

Your assumption is correct. We receive the file from a customer who have a date stored as a signed field, now they want that data loaded into a DATE-column in DB2

guptae · Posted: Thu Jan 04, 2007 2:25 pm

Hi Garpen,

This can be done using change option but you please provide 1 example by giving i/p & op .

Dont forget to tell byte postion of that field

Garpen · New User Joined: 03 Jan 2007 Posts: 14 Location: Sweden

Here is a record from the file :

0200000000000050201055232006103A000?00ABEH 001

It's the bold A(hex C1) I want to change, in this case to hex F1

guptae · Posted: Thu Jan 04, 2007 2:53 pm

Hi there,

Frank Yaeger · Posted: Thu Jan 04, 2007 10:28 pm

Garpen,

Here's a DFSORT job that will do what you asked for for all of the values X'C0'-X'C9' and X'D0'-X'D9'. For negative values (D sign), we multiply the value by -1 to get a positive value and use TO=ZD to get an F sign. For positive values (C sign), we use TO=ZD to get an F sign. I assumed the byte you want to change is at position 36.