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


  1.  Home
  2. RPG400-L
  3. July 2009

Re: Using %DEC with V5R1

Try

If %dec(charVar). = *zeros;
Do some thing
Endif;



Regards,

Chamara Withanachchi
IBM Certified Power System Expert
RPG Programmer
(owner of www.rpgiv.info)

WWW.RPGIV.INFO
Mob: +971 50 5698644
Tel: +971 6 5595887
chamaraw@xxxxxxxxxx
www.rpgiv.info
i want to be future ready. i want control. i want an i.


Sent from my BlackBerry® wireless device

-----Original Message-----
From: "Michael Smith" <msmith@xxxxxxxxxxxxxx>

Date: Tue, 21 Jul 2009 08:30:52
To: <rpg400-l@xxxxxxxxxxxx>
Subject: Using %DEC with V5R1


The following code produces a compile time error:

*RNF0327 30 1 The first parameter for %DEC or %DECH is not valid.



The definition of TWWSECT is:

155=I A 2 5 TWSSECT
SECT



Code:

If %Dec(TwSSect : 4 : 0) = *Zero





Does anyone have a working example of using this BIF in V5R1.



TIA



Michael






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.