convert the date in file s9(7) comp-3 to x(10)

d_sarlie · Posted: Thu Aug 09, 2012 3:39 pm

hi,

I want to convert the date in file s9(7) comp-3 to x(10)

file date data:

Bill Woodger · Posted: Thu Aug 09, 2012 3:54 pm

So you have YYMMDD in your packed-decimal field.

You want YYMMDD in your 10-byte character field, or what?

If not, 54,4,PD,EDIT= and a suitable EDIT mask will get you there, perhaps.

However, without describing the format of your 10-character field, we'll not get much further.

d_sarlie · Posted: Thu Aug 09, 2012 4:08 pm

You want YYMMDD in your 10-byte character field, or what? - Yes, I want to convert s9(7) Comp-3 Date field to 10byte character.

Pandora-Box · Posted: Thu Aug 09, 2012 4:34 pm

I am not an expert but it looks strange to me

Why date field need to be a signed field ??

d_sarlie · Posted: Thu Aug 09, 2012 4:41 pm

This field and its value I get from upstream

Bill Woodger · Posted: Thu Aug 09, 2012 4:51 pm

So, go wih the EDIT with a mask. Manual link in the DFOSRT forum and at the top of the page. Many examples here. Just search for EDIT.

dick scherrer · Posted: Thu Aug 09, 2012 7:29 pm

Hello,

Now that you have posted 3 times, why have you not shown what you want in the x(10) field

Skolusu · Posted: Thu Aug 09, 2012 9:39 pm

d_sarlie,

The input you have shown is 4 byte Y2V(P'yymmdd') format. Use the following control cards. I assumed that your date in PD format is at pos 1 and you need the formatted date at position 20.