|
Hey why don't use just a MOVE operation instead of that %int operation. I guess that should work fine by all means. See the modification I did to your code in BLOCK letters. d sctax# s 2 0 d pay_type_test s 3 d paytyp s 2 ?* is the transaction type code numeric? c testn PAYTYP 99 c if *in99 c MOVE PAYTYP SCTAX# c else c eval msgdata = 'Invalid Transaction Type PS: I'm not sure why you are using a third variable PAY_TYPE_TEST. -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of RPower@xxxxxxxxxx Sent: Tuesday, February 15, 2005 12:50 AM To: RPG programming on the AS400 / iSeries Subject: RE: TESTN Ok thanks all. I went for a break and came back and voila. I love this list. Thanks Bob, Don, and Sudha. Ron Power Programmer Information Services City Of St. John's, NL P.O. Box 908 St. John's, NL A1C 5M2 Tel: 709-576-8132 Email: rpower@xxxxxxxxxx Website: http://www.stjohns.ca/ ________________________________________________________________________ ___ Success is going from failure to failure without a loss of enthusiasm. - Sir Winston Churchill "Bob Cozzi" <cozzi@xxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 14/02/2005 03:37 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> cc Subject RE: TESTN The value could be any of the following, right? '__9' '_99' '999' '9__' '99_' '9_9' '_9_' And then all the negative values, just as J through whatever. If you truly want digits only in the field and to compress out blanks, use the %DIGITS() built-in function. Oh wait, we don't have that do we... Okay do this: D DIGITS C Const('0123456789' D szValue S 5A VARYING C eval szValue = %Trim(pay_type_test) C if %Check(DIGITS:szValue) = 0 C eval sctax = %Int(szValue) -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of RPower@xxxxxxxxxx Sent: Monday, February 14, 2005 12:50 PM To: RPG programming on the AS400 / iSeries Subject: TESTN Ok, Obviously I have something wrong going on here. Any ideas? d sctax# s 2 0 d pay_type_test s 3 d paytyp s 2 ?* is the transaction type code numeric? c evalr pay_type_test = paytyp c testn pay_type_test 99 c if *in99 c eval sctax# = %int(paytyp) c else c eval msgdata = 'Invalid Transaction Type Code' This is supposed to be working, but a user got the RNX0105 error stating that the eval sctax# = %int(paytyp) a character representation of a numeric value is in error. But I'm doing a testn first, is this wrong? I've tried testing and can't get it to blow up, but the joblog says the user's did. Ron Power Programmer Information Services City Of St. John's, NL P.O. Box 908 St. John's, NL A1C 5M2 Tel: 709-576-8132 Email: rpower@xxxxxxxxxx Website: http://www.stjohns.ca/ ________________________________________________________________________ ___ Success is going from failure to failure without a loss of enthusiasm. - Sir Winston Churchill -- This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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 AS400 / iSeries (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. Confidentiality Notice The information contained in this electronic message and any attachments to this message are intended for the exclusive use of the addressee(s) and may contain confidential or privileged information. If you are not the intended recipient, please notify the sender at Wipro or Mailadmin@xxxxxxxxx immediately and destroy all copies of this message and any attachments.
As an Amazon Associate we earn from qualifying purchases.
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.