PPWIZARD Manual
REXAMPLE.REX (generated output)
/*
* Generator : PPWIZARD version 2K.319
* : FREE tool for Windows, OS/2, DOS and UNIX by Dennis Bareis (dbareis@labyrinth.net.au)
* : http://www.labyrinth.net.au/~dbareis/ppwizard.htm
* Time : Tuesday, 14 Nov 2000 9:02:48pm
* Input File : C:\DBAREIS\Projects\MultiOs\PPWIZARD\rexample.x
* Output File : out\REXAMPLE.REX
*/
if arg(1)="!CheckSyntax!" then exit(21924)
/*
* $Header: E:/DB/PVCS.IT/OS2/PPWIZARD/REXAMPLE.X_V 1.0 15 Mar 1999 17:33:38 Dennis_Bareis $
*/
/*
* $Header: E:/DB/PVCS.IT/OS2/PPWIZARD/REXAMPLE.XHV 1.2 09 Sep 1999 13:29:16 Dennis_Bareis $
*/
signal REXAMPLE_1
AddCommas2DecimalNumber:
procedure expose Variable1 Variable2
z1NoComma = strip( arg(1) )
if pos(',', z1NoComma) <> 0 then
return(z1NoComma)
z1DotPos = pos('.', z1NoComma)
if z1DotPos = 0 then
z1AfterDecimal = ''
else
do
if z1DotPos = 1 then
return("0" || z1NoComma)
z1AfterDecimal = substr(z1NoComma, z1DotPos+1)
z1NoComma = left(z1NoComma, z1DotPos-1)
end
z1NoComma = reverse(z1NoComma)
z1ResultWithCommas = ""
do while length(z1NoComma) > 3
z1ResultWithCommas = z1ResultWithCommas || left(z1NoComma, 3) || ','
z1NoComma = substr(z1NoComma, 4)
end
z1ResultWithCommas = z1ResultWithCommas || z1NoComma
z1ResultWithCommas = reverse(z1ResultWithCommas)
if z1AfterDecimal <> '' then
z1ResultWithCommas = z1ResultWithCommas || '.' || z1AfterDecimal
return(z1ResultWithCommas)
StringReplace:
z2String = arg(1)
z2ChangeFrom = arg(2)
z2ChangeTo = arg(3)
z2ChangeCntVar = arg(4)
z2ChangeFromLength = length(z2ChangeFrom)
z2ChangeToLength = length(z2ChangeTo)
z2FoundPosn = pos(z2ChangeFrom, z2String)
z2ChangesMade = 0
do while z2FoundPosn <> 0
z2String = left(z2String, z2FoundPosn-1) || z2ChangeTo || substr(z2String, z2FoundPosn+z2ChangeFromLength)
z2FoundPosn = pos(z2ChangeFrom, z2String, z2FoundPosn+z2ChangeToLength)
z2ChangesMade = z2ChangesMade + 1
end
if z2ChangeCntVar <> "" then
interpret z2ChangeCntVar || " = z2ChangesMade + " || z2ChangeCntVar
return(z2String)
REXAMPLE_1:
Count = 0
String = StringReplace('AAAA', 'A', 'B', "Count")
if Count = 0 then
say 'No Changes made'
else
say 'Count = ' || AddCommas2DecimalNumber(Count)
return(Count)
PPWIZARD Manual

Tuesday January 02 2001 at 7:37am