|
Code as requested. The additional line added is the check on *IN99 C* Access despatch note header to ensure: C* i) The picking note has been printed C* ii) The despatch note is not processed by warehousing C K56OE1 CHAININP56L03 99 C********** PRIN56 ** COMP '2' **************** 4040 OEV1_0461 C PRIN56 IFNE '2' OEV1_0461 C *IN99 OREQ '1' AP01 C SETON 4060 OEV1_0461 C GOTO ERRORS **OEV3_0222 C END OEV1_0461
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.