PPWIZARD Manual
[Bottom][Contents][Search][Prev]: Rexx Example[Next]: REXAMPLE.XH

REXAMPLE.X

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



[Top][Contents][Search][Prev]: Rexx Example[Next]: REXAMPLE.XH

PPWIZARD Manual
My whole website and this manual itself was developed using PPWIZARD (free preprocessor written by Dennis Bareis)
Wednesday October 04 2000 at 5:05pm