I have an interesting issue. Take a look at this snippet of code from a program in RPGLE:
d sys_timdat s 12 0
d sys_datusa s 8 0
D DS
D TimeDate 14 0
D Time 6 0 OVERLAY(TimeDate)
D MM 2 0 OVERLAY(TimeDate:7)
D DD 2 0 OVERLAY(TimeDate:9)
D YYYY 4 0 OVERLAY(TimeDate:11)
C Call 'TO0P07'
C Parm sys_timdat
C Parm sys_datusa
C Movel sys_timdat Time
C Move sys_datusa TimeDate
Now take a look at the same section of code in a SQLRPGLE program
d sys_timdat s 12 0
d sys_datusa s 8 0
D DS
D TimeDate 14 0
D Time 6 0 OVERLAY(TimeDate)
D MM 2 0 OVERLAY(TimeDate:7)
D DD 2 0 OVERLAY(TimeDate:9)
D YYYY 4 0 OVERLAY(TimeDate:11)
C Call 'TO0P07'
C Parm sys_timdat
C Parm sys_datusa
C Movel sys_timdat Time
C Move sys_datusa TimeDate
By the way this code is from the same program.
My issue is that the SQLRPGLE program errors out with a data decimal error on this line C Move sys_datusa TimeDate
The RPGLE program does not error out. Program TO0P07 just returns the time and date for systems that support multiple time zones.
So after TO0P07 run sys_timdat = 073141092509 and sys_dateusa = 09252009. This is correct in both programs.
Any ideas as to the root cause of this error?
Thanks
George
George Van Eaton
Clinical Programmer Analyst
Healthcare Management Systems, Inc.
3102 West End Avenue
Suite 400
Nashville, Tennessee 37203
(615) 383-7300 Ext.7007
Fax (615) 386-6662
gvaneaton@xxxxxxxxx
www.hmstn.com<
http://www.hmstn.com>
HMS welcomes your feedback on our service. If there are any areas we can improve, please email our Quality Service Department at hmsquality@xxxxxxxxx<mailto:hmsquality@xxxxxxxxx>. If you receive STAR service, please email hmsstar@xxxxxxxxx<mailto:hmsstar@xxxxxxxxx> and tell us about your experience. We appreciate your business.
CONFIDENTIALITY STATEMENT: The documents accompanying this transmission may contain confidential health information that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party unless required to do so by law or regulation and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or action taken in reliance on the contents of these documents is strictly prohibited. If you have received this information in error, please notify the sender immediately and arrange for the return or destruction of these documents.
As an Amazon Associate we earn from qualifying purchases.