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. firstname.lastname@example.org +--- | 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: email@example.com +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.