Change alpha field to date field 1

[H1004]

DEFINE FILE
COMP_DT/YYMD = EDIT(WRK_DTM);
ORG_SCH/YYMD = EDIT(ORG_WNT);
END

It doesn't like my field conversion!!! Am I using the right one?

 

[H1004]

Sorry I meant to write
DEFINE FILE tablename
COMP_DT/YYMD = EDIT(WRK_DTM);
ORG_SCH/YYMD = EDIT(ORG_WNT);
END

 

[kiddpete]

If WRK_DTM were defined as, for example, A8YYMD, then:

COMP_DT/YYMD = WRK_DTM;

should work.

 

[H1004]

WRK_DTM and ORG_WNT are A12 format, and I want these two fields to convert into DATE (YYMD)

 

[kiddpete]

What is in the A12 positions?

 

[H1004]

The thing is that this field capture time as well..But I've already extracted the time out, so what left is only the date which is like 20031112

 

[kiddpete]

Cool, then you're almost there. Try:

WORK_DTM/A8YYMD=EDIT(WRK_DTM,'99999999$$$$');
COMP_DT/YYMD = WORK_DTM;

if the date is left justified in the 12 byte field. If not, adjust the position of the 9's.

 

[H1004]

That works!!! Why do we have to put the A8 in front of it???

 

[kiddpete]

Because you want to tell Focus what type and size the field is.

 

[kiddpete]

Sorry, maybe that was too brief. You don't have a date field, you have an 8 byte alpha field. The YYMD just tells Focus how to format it if it prints it. Fortunately, it also tells Focus how to decode it if you want to set up a real date field.