SeanHoppe.com > CLEO Tips > Cleo EDI Integrator > EXTOL Integrator - RPGLE - Extract all unwrapped inbound interchange data to IFS directory

EXTOL Integrator - RPGLE - Extract all unwrapped inbound interchange data to IFS directory

17th March 2013

If there is TP data in EXTOL EDI Integrator, for iSeries, and this data needs to be extracted, it might not be easy.

In our example RPGLE program, we will RPGLE Program scans EXTOL file: EXLLIQL2 to then call EXTOL CMD: EXPNWRDTA and then AS400 CMD: CPYTOSTTMF.

CLICK HERE to review the the RPGLE program



Copyright 2013 @ www.seanhoppe.com


By: on
load('http://www.seanhoppe.com/EXTOL-Blog-Feed2/'); $feed2 = array(); foreach ($rss2->getElementsByTagName('item') as $node2) { $item2 = array ( 'title' => $node2->getElementsByTagName('title')->item(0)->nodeValue, 'desc' => $node2->getElementsByTagName('description')->item(0)->nodeValue, 'link' => $node2->getElementsByTagName('link')->item(0)->nodeValue, 'date' => $node2->getElementsByTagName('pubDate')->item(0)->nodeValue, ); array_push($feed2, $item2); } $limit2 = 5; $rss3 = new DOMDocument(); $rss3->load('http://www.ebithree.com/EBIThree-RSS/'); $feed3 = array(); foreach ($rss3->getElementsByTagName('item') as $node3) { $item3 = array ( 'title' => $node3->getElementsByTagName('title')->item(0)->nodeValue, 'link' => $node3->getElementsByTagName('link')->item(0)->nodeValue, ); array_push($feed3, $item3); } $limit3 = 5; $rss4 = new DOMDocument(); //$rss4->load('http://www.ebithree.com/EBIThree-RSS/'); $rss4->load('http://www.ebiworld.com/EBI-Feed/'); $feed4 = array(); foreach ($rss4->getElementsByTagName('item') as $node4) { $item4 = array ( 'title' => $node4->getElementsByTagName('title')->item(0)->nodeValue, 'link' => $node4->getElementsByTagName('link')->item(0)->nodeValue, ); array_push($feed4, $item4); } $limit4 = 5; echo ' '; ?>