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


  • Subject: Re: %char?? what am I doing wrong??
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Wed, 8 Sep 1999 14:56:23 -0500

%CHAR converts the value of the expression from graphic, date, time or 
timestamp data to type character.

To convert a numeric try %EDITC or %EDITW




corbett@asresources.com on 09/08/99 02:16:12 PM
Please respond to RPG400-L@midrange.com@Internet
To:     RPG400-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        %char?? what am I doing wrong??

I'm trying to use the BIF %char, I'm getting an error.  I'm doing
something wrong, but what?

------------------------------------------------------------------------------

in subfile
     A            $TCPY#          5Y 0B  6 16
     A            $TCPYB          2Y 0B  6 22CHECK(RZ)
     A            $QTYOR         8Y 0O  8 32EDTCDE(3)

in rpg
D  @@desc                       50    Overlay(nprm:61) Inz
......
Eval            desc = 'Tranfer ' + %char($qtyor) +
                   ' to ' + %char($tcpy#) + ' ' +
                   %char($tcpyb) + ' ' + $tcpyn
..........
*RNF0386 30        146400  The parameter for %CHAR is not valid.
*RNF0386 30        146500  The parameter for %CHAR is not valid.
*RNF0386 30        146600  The parameter for %CHAR is not valid.
------------------------------------------------------------------------------

Thanks for your help

--
William A.(Tony) Corbett
corbett@asresources.com
http://www.asresources.com
http://www.cbt400.com



<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I'm trying to use the BIF %char, I'm getting an error.&nbsp; I'm doing
something wrong, but what?
<p>------------------------------------------------------------------------------

<br><b>in subfile</b>
<br>&nbsp;&nbsp;&nbsp;&nbsp; 
A&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
¤TCPY#&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 5Y 0B&nbsp;
6 16
<br>&nbsp;&nbsp;&nbsp;&nbsp; 
A&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
¤TCPYB&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2Y 0B&nbsp;
6 22CHECK(RZ)
<br>&nbsp;&nbsp;&nbsp;&nbsp; 
A&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
¤QTYOR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 8Y 0O&nbsp; 8 
32EDTCDE(3)
<br>&nbsp;
<br><b>in rpg</b>
<br>D&nbsp; 
@@desc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

50&nbsp;&nbsp;&nbsp; Overlay(nprm:61) Inz
<br>.....
<br>Eval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
desc = 'Tranfer ' + %char(¤qtyor) +
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

' to ' + %char(¤tcpy#) + ' ' +
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

%char(¤tcpyb) + ' ' + ¤tcpyn
<br>.........
<br>*RNF0386 30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 146400&nbsp;
The parameter for %CHAR is not valid.
<br>*RNF0386 30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 146500&nbsp;
The parameter for %CHAR is not valid.
<br>*RNF0386 30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 146600&nbsp;
The parameter for %CHAR is not valid.
<br>------------------------------------------------------------------------------

<p>Thanks for your help
<p>--
<br>William A.(Tony) Corbett
<br>corbett@asresources.com
<br><A HREF="http://www.asresources.com">http://www.asresources.com</A>
<br><A HREF="http://www.cbt400.com">http://www.cbt400.com</A>
<br>&nbsp;</html>

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.