REXAMPLE.X

;----------------------------------------------------------------------------
;    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);

email me  any feedback, additional information or corrections.
See this page online (look for updates)

PPWIZARD Manual

Saturday May 28 2022 at 2:55pm