;----------------------------------------------------------------------------
; MODULE NAME: REXAMPLE.X
;
; $Author: Dennis_Bareis $
; $Revision: 1.0 $
; $Date: 15 Mar 1999 17:33:38 $
; $Logfile: E:/DB/PVCS.IT/OS2/PPWIZARD/REXAMPLE.X_V $
;
; DESCRIPTION: Small example routine.
;
;----------------------------------------------------------------------------
/*--- Want the following comment in the generated output --------------------*/
/*
* $Header: E:/DB/PVCS.IT/OS2/PPWIZARD/REXAMPLE.X_V 1.0 15 Mar 1999 17:33:38 Dennis_Bareis $
*/
/*--- I want all my routines to (1) be procedures & (2) Expose some variables ---*/
#define Procedure procedure expose Variable1 Variable2
/*--- Load supporting routines ----------------------------------------------*/
#define INCL_ReplaceString
#define INCL_AddCommasToDecimalNumber
#include "REXAMPLE.XH"
/*--- Make a few changes and Generate the output message --------------------*/
Count = 0; ;;Initialize Counter (this is a PPWIZARD comment)
String = ReplaceString('AAAA', 'A', 'B', "Count"); /* Make some changes (this is a REXX comment) */
if Count = 0 then
say 'No Changes made';
else
say 'Count = ' || AddCommasToDecimalNumber(Count);
return(Count);