Software development, photography, jokes, ....

Sites by me

 
tas-logoTransportation Administration System
snoezelkussen-logo-kleinstSnoezelkussens voor verstandelijk gehandicapten
ikzoekeenbegeleider-logoBegeleiders voor gehandicapten
Laat uw hond het jaarlijkse vuurwerk overwinnen
logo 50x50Hey Vos! Je eigen naam@vos.net emailadres?
Kunst in huis? Nicole Karrèr maakt echt bijzonder mooie dingen
nettylogo2Kunst in huis? Netty Franssen maakt ook bijzonder mooie dingen
Salarisadministratie en belastingadvies bij De Zaak Loont
Zutphense Bomenstichting

Hosting Favorites

 
ANU Internet Services
XelMedia .internet Services
register.com

Blogroll

 
Bomenstichting
LassoSoft
MacFreak
Quality that computes
The Economy of Motion
Wheel 2.0
IntrAktv



Website Hosting bij Xel Media

Marc's Place

 

FN_E$BDR - Alphanumeric number to number/amount

Inclusion in RPG source

C /COPY E$LIB/SRC(ILE),FN_E$BDG
C /COPY E$LIB/SRC(ILE),FN_E$CLZ

Invocation

EXSR E$BDR

Input Parameters

@BDGFM (a15)
Field in which the alphanumeric amount must be stored prior to the call to E$BDR.
 
@BDGFL (d1)
When 1, signals E$BDR that the alphanumeric amount is formatted with decimals (either . or ,).

Output Parameters

@BDG (d13.2)
Field in which the formatted amount is stored after processing by E$BDR.

What it does

Formats an alphanumeric amount into a numeric field. Normal alphanumeric number fields (without decimals) can be converted to real numeric fields by using the MOVE statement.

Examples

 * Amount field = 6.2
 * Alpha amount  = '      40,00-'
 * Currency = NLG (= with comma)
 *
C                     Z-ADD1         @BDGFL
C                     MOVE AMOUNT    @BDGFM           ('    40,00-')
C                     EXSR E$BDR
C                     Z-ADD@BDG      #FIELD
 *
 
Go to download page
© 1997- Marc Vos (and others) Contact Me