Frosty the Coder
Legendary Poster
List,
A user asked me to populate the DD items
DTBT and TCDE on F06116. These two DD's
represent TIME CLOCK START DATE & TIME and
TIME CLOCK END DATE & TIME.
Both DD's are numeric 13,0.
According to the KG they should be populated
as 0CYYDDDHHMMSS (zero, century, year, day,
hours, minutes, seconds).
At the time that I need to fill them, I
have a jdDATE (DWK - date worked) and
HHMM keyed into another control.
I've tried to concat(DWK,HHMM) but concat
changes the jdDATE into MMDDYY.
I've tried to substr(DWK,0,6) and still end
up w/MMDDYY.
I've tried to convert date to string (and
then convert the string to math_numeric)
to calc DTBT as ((DWK_math * 1000000) +
(HHMM * 100)) and _still_ it converts my
DWK into MMDDYY.
I've looked at various bsfns, all of which
seem to convert to MMDDYY.
How can I get my jdDATE into a math, or string,
and keep the format at CYYDDD?
Any/all help would be greatly appreciated.
Thanks
Gene
Gene Piekarski, Jr
AS/400, B733, SP11.2, NT client
AS/400, B733, SP14, W2000 client
XE, SP15.1
A user asked me to populate the DD items
DTBT and TCDE on F06116. These two DD's
represent TIME CLOCK START DATE & TIME and
TIME CLOCK END DATE & TIME.
Both DD's are numeric 13,0.
According to the KG they should be populated
as 0CYYDDDHHMMSS (zero, century, year, day,
hours, minutes, seconds).
At the time that I need to fill them, I
have a jdDATE (DWK - date worked) and
HHMM keyed into another control.
I've tried to concat(DWK,HHMM) but concat
changes the jdDATE into MMDDYY.
I've tried to substr(DWK,0,6) and still end
up w/MMDDYY.
I've tried to convert date to string (and
then convert the string to math_numeric)
to calc DTBT as ((DWK_math * 1000000) +
(HHMM * 100)) and _still_ it converts my
DWK into MMDDYY.
I've looked at various bsfns, all of which
seem to convert to MMDDYY.
How can I get my jdDATE into a math, or string,
and keep the format at CYYDDD?
Any/all help would be greatly appreciated.
Thanks
Gene
Gene Piekarski, Jr
AS/400, B733, SP11.2, NT client
AS/400, B733, SP14, W2000 client
XE, SP15.1