MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » February 1998

Re: Edit APIs


  • Subject: Re: Edit APIs
  • From: David Morris <dmorris@xxxxxxxxxxxxx>
  • Date: Mon, 09 Feb 1998 09:32:02 -0700

fixed

Chanh Le,

You can pass number to edit as 30S 9 VALUE.  Use built in functions to pass the 
length 
and decimal positions.    Use decimal positions and length passed to extract 
the passed 
number to edit and left justify in parm passed to the edit API.  Return edited 
value.  
Then you don't need to hard code anything in the calling procedure.

David Morris

>>> "Chanh Le" <Chanh_Le@countrywide.com> 02/06 5:39 PM >>>

mahadevan@fuse.net wrote:

EVAL char_str = P_EditCode(number,editcode,length,decimal,special,adjust)

==================================================================

Because this procedure has the first parm as number.  This mean it can only
      edit a fix precision/decimal.

For example:  if size of "number" is 12,2,  a field "my_field" has the size
      of 5,2.

I have to put "my_field" to a temporary field of 12,2 and pass this
      temporary to this procedure.  Unless it is passed by pointer.  And I
      think "QECEDT" can not accept pointer.

                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                   
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact