× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.