RE: Automating BIL500

Here is what we did (AS/400 V5R1- BPCS v6.0.04MM July Cumm):

   Created a separate job queue (BILLING) which will only be used for
   billing.
   Created a CL "front-end" to replace the normal BIL500.
      This will hold the BILLING jobq queue
      Change the user's job queue to BILLING
      Call BIL500D allowing normal selection to occur, and submit the
      billing run to batch
      Change the user's job queue back to QBATCH

      /*===================================================================*/

      /*      COPYRIGHT (C) THE MEDALCRAFT MINT, INC.   2001
      */
      /*===================================================================*/

      /*
      */
      /*       PROGRAM ID     - BILM500C
      */
      /*       DESCRIPTON     - HLDJOBQ BILLING before submitting BIL500
      */
      /*       DATE CREATED   - 05/02/2001
      */
      /*
      */
      /*-------------------------------------------------------------------*/

      PGM
             DCL        VAR(&WSID) TYPE(*CHAR) LEN(10)
             DCL        VAR(&DTAARA) TYPE(*CHAR) LEN(10)

             HLDJOBQ    JOBQ(BILLING)
             MONMSG     MSGID(CPF3425)

             RTVDTAARA  DTAARA(*LDA (485 10)) RTNVAR(&WSID)
             CHGVAR     VAR(&DTAARA) VALUE('Q' *CAT &WSID)
             CHGDTAARA  DTAARA(&DTAARA (1 10)) VALUE('BILLING')

             CALL       PGM(BIL500D)

             CHGDTAARA  DTAARA(&DTAARA (1 10)) VALUE('QBATCH    ')
   ENDPGM
4.    Create a scheduled job entry to release the BILLING job queue at 8:00
p.m. (20:00:00) each night.
5.    Change the BIL menu for option 2 to call BILM500C instead of BIL500D
6.    Restrict "billing" users from BIL500 and give them access to BILM500C
instead
7.    Instruct users, if necessary, to run BILM500C instead of BIL500.

John Techmeier
IT Director
The Medalcraft Mint, Inc.
Phone:      920-499-4249
Fax:  920-499-7092
Email:      jtechmeier@medalcraft.com



                      "Tom Jedrzejewicz
                      @ San Pedro"             To:       <bpcs-l@midrange.com>
                      <TJedrzejewicz           cc:
                      Sent by:                 Fax to:
                      bpcs-l-admin@midr        Subject:  RE: Automating BIL500
                      ange.com


                      08/15/2002 11:18
                      AM
                      Please respond to
                      bpcs-l






We are on version 4.00.04.

In addition to SYS664, do we have to do anything with respect to the
"workstation data area" to automate some of the batch jobs that are run?
 If anyone is willing to post the code of an automated invoicing (or
anything else) job I would be appreciate it.

Thanks.