PPWIZARD Manual
REXAMPLE.X
;----------------------------------------------------------------------------
; MODULE NAME: REXAMPLE.X
;
; $Author: Dennis $
; $Revision: 1.0 $
; $Date: 14 Dec 2000 19:45:24 $
; $Logfile: C:/DBAREIS/Projects.PVCS/MultiOs/PPWIZARD/rexample.x.pvcs $
;
; DESCRIPTION: Small example routine.
;
;----------------------------------------------------------------------------
/*--- Want the following comment in the generated output --------------------*/
/*
* $Header: C:/DBAREIS/Projects.PVCS/MultiOs/PPWIZARD/rexample.x.pvcs 1.0 14 Dec 2000 19:45:24 Dennis $
*/
/*--- I want all my routines to (1) be procedures & (2) Expose some variables ---*/
#define Procedure procedure expose Variable1 Variable2
/*--- Load supporting routines ----------------------------------------------*/
#define INCL_StringReplace
#define INCL_AddCommas2DecimalNumber
#include "REXAMPLE.XH"
/*--- Make a few changes and Generate the output message --------------------*/
Count = 0; ;;Initialize Counter (this is a PPWIZARD comment)
String = StringReplace('AAAA', 'A', 'B', "Count"); /* Make some changes (this is a REXX comment) */
if Count = 0 then
say 'No Changes made';
else
say 'Count = ' || AddCommas2DecimalNumber(Count);
return(Count);
PPWIZARD Manual

Tuesday January 02 2001 at 7:37am