SeanHoppe.com › Cleo Examples › Coding Examples
Cleo Coding Examples
Formulas / CL / RPG / RPG IV / DDS
Below are custom examples of RPG, RPGLE, RPGSQL, CLP, CMD examples. In addition to source code we show how to intergrate CMDs and RPG PGMs with Cleo/EXTOL Formulas
Cleo EDI Integrator supplies examples of RPG program for exit points and external calls. The samples can be FOUND HERE >
-
RPGLE - 856 ASN Outbound S2K External Call to query S2K table:VCODETL to determine backordered/partial shipments
RPGLE program will chain out to VAI's S2K table of VXCODETL for each 856 detail line. Using the backordered amount we will determine if any item was short shipped. With this determination, we will populate the SLN segment with the backordered amount and backordered status code
-
RPGLE - 856 ASN Outbound S2K External Call to query S2K table:VCODETL to determine backordered/partial shipments
RPGLE program will chain out to VAI's S2K table of VXCODETL for each 856 detail line. Using the backordered amount we will determine if any item was short shipped. With this determination, we will populate the SLN segment with the backordered amount and backordered status code
-
RPGLE - 855 PO Ack Outbound S2K External Call to query S2K table:VCODETL to determine backordered/partial shipments
RPGLE program will chain out to VAI's S2K table of VXCODETL for each 855 detail line. Using the backordered amount we will determine if any item was short shipped. With this determination, we will populate the BAK segment accordingly.
-
RPGLE - Outbound TPMC Exit Point using Long Parm List to copy VAI S2K 856 records to temporary tables
SQLRPGLE program will be called as an EEI Exit Point. Using the long parm list, EXTOL calls the program at 'EL' (Enveloping). SQLRPGLE PGM will review a header record to determine the carrier. If the carrier is for UPS we will call 5 SQL Insert statements to copy data to 5 unique DB2 tables..
-
RPGLE - Inbound TPMC Exit Point using Long Parm List to update JDE F47012 detail lines
RPGLE program will be called as an EEI Exit Point. Using the long parm list, EXTOL calls the program at 'TE' (Translation End). RPGLE PGM will review each detail line (F47012) of purchase order to determine if ITEM number needs to be updated. If item number is updated, a notes record is added to F4714.
-
RPGLE - Outbound TPMC Exit Point using Long Parm List to to query F47027 to determine BAK02 Acknowledgement Status Code. ie Amazon.com 855
RPGLE External Call, using the long parm list, EXTOL calls the RPGLE program at BAK02 element. PGM will review each detail line (F47027) of purchase order against order ack data to determine if any differences exsist between Ordering Price vs. Sales Price; Ordering UOM vs. Sales UOM; Ordering Quantity vs. Shipped Quantity
-
RPGLE - EXTOL Purge - Pre-Purge process via DLTAPP
RPGLE program can be called before purge CMD:DLTDTA is called. DLTAPP will delete records out of EXLLAPP if the the status code (LAALPN) IS 'H'. These records would be considered outbound generated errors. This program would be called before the EXTOL Purge PGM:DLTDTA.
- CLP
- Use EXTOL Command: PRTACKTP to report Late FAs (997s) and Rejected FAs (997s)
CLP will execute PRTACKTP two separate times to report late FAs (997s) in the past 24 hours and rejected FAs in the past 24 hours.
- CLP
- Use EXTOL Command: PRTACKTP and PRTCNNSEL to report Late FAs (997s) and Rejected FAs (997s)
CLP will execute PRTACKTP and PRTCNNSEL. In addition to the EXTOL commands, we will execute custom queries via STRQMQRY.
- CLP
- Use EXTOL Commands: PRTGRPLOG and PRTLOMAR. PRTGRPLOG: Report inbound/outbound errors PRTLOMAR: Report Late FAs (997s) and Rejected FAs (997s)
CLP will execute PRTGRPLOG and PRTLOMAR 2 separate times to report late FAs (997s) in the past 24 hours and rejected FAs in the past 24 hours.
- RPGLE
- 997 recap reporting program
By running this program, from the IBM Job Scheduler, we will do a recap of the number of outbound invoices that have been acknowledged in the past 24 hours.
-
RPGLE - Create readable 830 report to email
Inbound 830 report to email to end user. Called by EXTOL Trading Partner Message Class (TPMC) Exit Point CL.
- RPGLE
- Create Check Digit for ASN License Plate
Execute program by creating an external call (short parm list> to create check digit for License Plate number on ASN
- RPGLE
- Inbound 824 report
Inbound 824 report to email to end user. Called by EXTOL Trading Partner Message Class (TPMC) Exit Point CL.
- RPGLE
- 997 reporting program
By running this program, from the IBM Job Scheduler, we can determine the number of outbound invoices and ASNs have been sent, or not, in the past 24 hours. A unique email will be sent out per document type.
- RPGLE - Extract all unwrapped inbound interchange data to IFS directory
RPGLE Program scans EXTOL file: EXLLIQL2 to then call EXTOL CMD: EXPNWRDTA and then AS400 CMD: CPYTOSTTMF.
- CL & RPGLE - Send email from CL job submitting CRTAPPDTA
In the CL that submits the jobs to run CRTAPPDTA, we can monitor the job and query EXLLCRL1 to determine status of EXTOL connection.
- JDE RPGLE - Convert UOM/Quantity
In the EXTOL map, use the 'short' parameter list to pass From/To UOM to program to have F41002 determine if quantity evenly divides into new UOM.
- RPGLE - Send
Email to TP from map
In the EXTOL map, use the 'long' parameter list to pass multiple variables to form an email to send to a trading partner.
- JDE RPGLE -
Create F4104 record if customer item is missing
In the EXTOL map, use the 'long' parameter list to create F4104 record if data is received in x12 data however the data is not found in F4104 table.
- JDE RPGLE -
Check to see if pricing exists for each item.
In the EXTOL map, use the 'short' parameter list to check following files: F4104_14 -> F4101_2 -> F03012_3 -> F4094LC -> F4106LC for pricing.
- RPGLE - Send
email from EXTOL TPMC exit point.
In the EXTOL trading partner exit point, use the 'long' parameter list to send email to used defined as a constant inthe respective map.
- CL & SQLRPGLE -
Create Outbound 810 data
Check for 810 records to process. If records exist, the generate 810 x12 data via EXTOL CMD:CRTAPPDTAB
- CL &
RPGLE - Create readable 864 report to email
Using EXTOL trading partner exit point long parm list, create readable 864 report.
-
CL - EXTOL Shipped CLP: RCVESXDTA
CL provides hook between EXTOL Secure Exchange (ESX) and EXTOL EDI Integrator (EEI). By copying/modifying CL, users can route data to multiple EEI environments.
- RPGLE
- Summarize Freight Lines in F47047
From an outbound EXTOL /JDE map, query F47047 to summarize freight charges.
- EEI
Formula - Add messages to MSGQ
Use an EXTOL formula to add messages to the EXTOL Connection MSGQ.
- EEI
Formula - Send email from Map using EXENOTE
Use an EXTOL formula to send an email using a defined constant in an EXTOL map.
- EEI
Formula - Send email from Map using EXENOTE II
Use an EXTOL formula to send an email using a defined constant in an EXTOL map. The email would be sent if if the x12 850 is not an Original PO.
- EEI
JDEdwards Formula - Duplicate value checking in F4201
There might be times that a PO might come in via fax and then via EDI. If the manual order is entered, we want to prevent the EDI order from coming into the F42 files.
- EEI
JDEdwards Formula - Duplicate value checking in F47011
There might be times that a PO might come in via fax and then via EDI. If the manual order is entered, we want to prevent the EDI order from coming into the F47 files.
- EEI
DDS - Transportation Load Tender Header 204 Header
Users can use the 204 header and 204 detail file to construct an outbound EDI 204 map. For more information on the outbound EDI map, Click here for XLS >
- EEI
DDS - Transportation Load Tender Detail 204 Detail
Users can use the 204 header and 204 detail file to construct an outbound EDI 204 map. For more information on the outbound EDI mapping, Click here for XLS >
- EEI
DDS - Transportation Load Invoice 210 Header
Users can use the 210 header and 210 detail file to construct an inbound EDI 210 map. For more information on the outbound EDI map, Click here for XLS >
- EEI
DDS - Transportation Load Invoice 210 Detail
Users can use the 210 header and 210 detail file to construct an inbound EDI 210 map. For more information on the outbound EDI map, Click here for XLS >
- EEI
DDS - Purchase Order Acknowledgement 855 Header
Users can use the 855 header and 855 detail file to construct an inbound/outbound x12 EDI 855 map. For more information on the inbound EDI map, Click here for XLS >
- EEI
DDS - Purchase Order Acknowledgement 855 Detail
Users can use the 855 header and 855 detail file to construct an inbound/outbound x12 EDI 855 map. For more information on the inbound EDI map, Click here for XLS >
- EEI
DDS - Invoice 810 Header
Users can use the 810 header and 810 detail file to construct an inbound/outbound x12 EDI 810 map. For more information on the inbound EDI map, Click here for XLS >
- EEI
DDS - Invoice 810 Detail
Users can use the 810 header and 810 detail file to construct an inbound/outbound x12 EDI 810 map. For more information on the inbound EDI map, Click here for XLS >
- EEI
DDS - Advanced Shipping Notice 856
Users can use the 856 Shipment, Order, Pack, Item DDS specs to construct an inbound/outbound x12 EDI 856 map. For more information on the outbound 856 EDI map, Click here for XLS >
- EEI
DDS - Inbound/Oubound Notes and Comments
Users can use the inbound and outbound DDS specs to capture MSG/MTX comments.
- EEI
DDS - Inbound/Oubound Address Location/Override Information
Users can use the inbound and outbound DDS specs to capture ship-to, ship-from, remit-to address locations.
- EEI
DDS - Purchase Order 850 Header
Users can use the 850 header and 850 detail file to construct an inbound/outbound x12 EDI 850 map. For more information on the inbound EDI map, Click here for XLS >
- EEI
DDS - Purchase Order 850 Detail
Users can use the 850 header and 850 detail file to construct an inbound/outbound x12 EDI 850 map. For more information on the inbound EDI map, Click here for XLS >
By: Sean Hoppe on