When we receive an inbound purchase order and we we need to ensure pricing exists for each item based on the address book number, item, ordering UOM, PO date then we might need to perform several queries of the JDE files: F4104_14 -> F4101_2 -> F03012_3 -> F4094LC -> F4106LC.
The gist of the RPGLE program is to run each time with the short item number, ordering UOM, and PO date to determine pricing exists. We even look at the F4106 records to ensure the PO date falls between the effective date and expiration date.
If pricing does not exist, then we will force an error by populating ‘P0RTN’ and then using an EXTOL formula to populate the EXTOL Connection MSGQ with the error notification.
Copyright 2012 @ www.seanhoppe.com
By: Sean Hoppe on