× 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.



Thanks. That worked.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark S. Waterbury
Sent: Friday, September 25, 2009 9:56 AM
To: RPG programming on the IBM i / System i
Subject: Re: differences between RPGLE and SQLRPGLE

Hi, again, George:

I think you can include this parameter as an H-spec in RPG IV, e.g.:

H FIXNBR(*ZONED)

That should allow you to use CRTSQLRPGI (and not have to remember that parameter on subsequent compiles).

All the best,

Mark S. Waterbury

George Van Eaton wrote:
It was *Zoned.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark S. Waterbury
Sent: Friday, September 25, 2009 9:16 AM
To: RPG programming on the IBM i / System i
Subject: Re: differences between RPGLE and SQLRPGLE

Hi, George:

What parameters did you specify on e.g. CRTBNDRPG? Specifically, what was specified for FIXNBR? Was it FIXNBR(*ZONED)?

I notice that the IBM CRTSQLRPGI command does not even allow you to
specify FIXNBR ... :-o

You might have to get the source generated in QTEMP from CRTSQLRPGI and then recompile it with CRTBNDRPG, to specify FIXNBR.

Mark S. Waterbury

> George Van Eaton wrote:

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.





--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.