RE: Best way of using Service programs.

[rob@xxxxxxxxx]

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