RE: Best way of using Service programs.

Fortunately, things have not gotten that complicated just yet, only two of
us have written the service programs so far, and we both religiously use the
conditional defines. 

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Friday, February 17, 2006 11:55 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Best way of using Service programs.

Francis,

We used to have this big monolithic copy member for all the prototypes for
API's.  In a futile attempt to appease those who wouldn't use copy books
because it copied in a lot of stuff they didn't use we broke it apart. Now
each api has it's own copy member.  For all those old programs that have the
monolith in it we changed the monolith to use the following for each api
(using QUSLJOB as an example):
      /IF NOT DEFINED (QUSLJOB) 
      /COPY QAPISRC,QUSLJOB
      /ENDIF

And each api's copy member begins with 
      /DEFINE QUSLJOB

So if you did write a program with
      /COPY QAPISRC,QUSLJOB
      /COPY QAPISRC,MONOLITH
You'd be ok.  However it you did it vice versa you'd have to do
      /COPY QAPISRC,MONOLITH
      /IF NOT DEFINED (QUSLJOB) 
      /COPY QAPISRC,QUSLJOB
      /ENDIF
The theory is to get in the habit of the IF NOT...

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com