Re: cannot get rid of decimal point

[John Sayre <John_Sayre@GAP.COM>]

John Sayre@GAPINC
10/28/98 02:00 PM
Maybe an easier way , but I did it this way

let $money=edit(#money,'999999.99')
do stripchar($money,'.')
lpad ($money,8,' ')



begin-procedure stripchar(:$string,$char)
let $extracted=''
let $returnstring=''
let #stringlen=length($string)
LET #CTR=1
WHILE  #CTR <=#stringlen
  LET $EXTRACTED=SUBSTR($STRING,#CTR,1)
  IF $EXTRACTED<>$CHAR
     LET $RETURNSTRING=$RETURNSTRING||$EXTRACTED
  END-IF
  ADD 1 TO #CTR
END-WHILE
MOVE $RETURNSTRING TO $STRING
END-PROCEDURE