Batch submit BIL500

[JTechmeier@xxxxxxxxxxxxxx]

I created an RPG program to build the parameter lists for submitting BIL500
to batch. It builds the lists as follows:

W7PLST
   xfsts   1    A    '1'
   xdata   1    A    '0'
   xwsid   10   A    'TCP01'
   xd4fg   1    A    '0'
   xfill1  243  A    blanks

W7SLST
   xinvp   1    A    '0'
   xinvd   8,0  P    current date
   xcons   6,0  P    0
   xfldn   6,0  P    0
   xtldn   6,0  P    999999
   xfspn   3,0  P    0
   xtspn   3,0  P    999
   xfscu   6,0  P    0
   xtscu   6,0  P    999999
   xfcus   6,0  P    0
   xtcus   6,0  P    999999
   xfshp   4,0  P    0
   xtshp   4,0  P    9999
   xford   6,0  P    0
   xtord   6,0  P    999999
   xityp   1    A    '0'
   xprnt   1    A    '1'
   xrunt   1    A    '1'
   xfpkg   8,0  P    0
   xtpkg   8,0  P    99999999
   xbslf   1    A    ' '
   xbfcg   8,0  P    0
   xbtcg   8,0  P    99999999
   xfill2  180  A    blanks

I also created a  CL program that calls the previous RPG program and
submits BIL500 to batch. When I run this application the billing takes
place but no invoices are generated. My submit consists of the following:

      SBMJOB     CMD(CALL PGM(BIL500B) PARM(&W0INTR &W7PLST &W7SLST))
JOB(BIL500) +
                JOBD(BPCSUSR/BPCSJOBD) INLLIBL(*JOBD)

Field W0INTR = 'B'

I have called the HelpLine and they don't know why it isn't working. Now
that's reassuring.

John Techmeier
IT Director
The Medalcraft Mint, Inc.
jtechmeier@medalcraft.com


+---
| This is the BPCS Users Mailing List!
| To submit a new message, send your mail to BPCS-L@midrange.com.
| To subscribe to this list send email to BPCS-L-SUB@midrange.com.
| To unsubscribe from this list send email to BPCS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: dasmussen@aol.com
+---