Focal Point
[UNSOLVED] Convert date/time stored as numeric to Timestamp

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/952105062

October 07, 2009, 11:39 AM
Pascal Bellerose
[UNSOLVED] Convert date/time stored as numeric to Timestamp
Hi,

I have a two fields containing a Date and a time in numeric values.

Ex.: FieldA(I8) = 20091007
FieldB(I6) = 113743

How can I convert this into a date/time value of format HYYMDm?

Thanks

This message has been edited. Last edited by: Pascal Bellerose,


WFS/FFS/DM 7.6.4 / WFS/FFS/DM 7.6.8 / WFS/FFS/DM 7.6.9 / AS400 V5R4M0 / HTML / iSM 5.5sp2
October 07, 2009, 12:11 PM
Darin Lee
Probably the easiest way would be to refer back to the documentation (online or "Using Functions" manual.) It describes in detail with examples what you would need to do to create date-time fields. Easiest would be to use EDIT and concatenation to create an alpha string and then use the HINPUT function. You could also use your date and the HDTTM function to create a date-time field and then insert your time with HSETPT. And there are probably many others.


Regards,

Darin



In FOCUS since 1991
WF Server: 7.7.04 on Linux and Z/OS, ReportCaster, Self-Service, MRE, Java, Flex
Data: DB2/UDB, Adabas, SQL Server Output: HTML,PDF,EXL2K/07, PS, AHTML, Flex
WF Client: 77 on Linux w/Tomcat
October 07, 2009, 01:51 PM
Pascal Bellerose
Darin,

Here's the code I have as of now:
DEFINE FILE EFTRFP
CRTTSP/HYYMDm=HDTTM(HDATE(TRFTRFDDTE, 'YYMD'), 8, 'HYYMDm') ;
Now/HYYMDm=HGETC(10, 'HYYMDm');
END

TABLE FILE EFTRFP
SUM
...


I added the date to CRTTSP, and now I'd like to add the time. Now this may sound stupid: Can I write multiple statements to modify the value of CRTTSP in order to add the time to it? Because from what I read in the documentation, date/time components can be added only on at a time.

Thanks,


WFS/FFS/DM 7.6.4 / WFS/FFS/DM 7.6.8 / WFS/FFS/DM 7.6.9 / AS400 V5R4M0 / HTML / iSM 5.5sp2
October 07, 2009, 04:45 PM
Waz
Use the function HINPUT, as Darin says, Check out the documentation, its all in there.

TABLE FILE CAR
PRINT COMPUTE
FieldA/I8 = 20091007 ;
FieldB/I6 = 113743;
DateText/A14 = EDIT(FieldA) | EDIT(FieldB);
HDate/HYYMDm = HINPUT(14, DateText, 8, 'HYYMDS');
BY COUNTRY NOPRINT
END



Waz...

Prod:WebFOCUS 7.6.10/8.1.04Upgrade:WebFOCUS 8.2.07OS:LinuxOutputs:HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

October 08, 2009, 08:41 AM
Pascal Bellerose
Waz,

Wow! it almost look too easy!

The thing is, I'm starting on this thing and I'm a bit lost when it's time to exploit functions.

But with this one, I learned a lot!

Thanks to both of you guys!


WFS/FFS/DM 7.6.4 / WFS/FFS/DM 7.6.8 / WFS/FFS/DM 7.6.9 / AS400 V5R4M0 / HTML / iSM 5.5sp2