;----------------------------------------------------------------------------
; MODULE NAME: REXAMPLE.X
;
; $Author: USER "Dennis" $
; $Revision: 1.0 $
; $Date: 30 Mar 2001 18:05:34 $
; $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 30 Mar 2001 18:05:34 USER "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

Saturday May 28 2022 at 2:55pm