SeanHoppe.com > CLEO Tips > Cleo EDI Integrator > EXTOL Supplied RPG External Calls

EXTOL Supplied RPG External Calls

25th October 2014

EXTOL supplies pre-written RPG programs that can be called from wtihin an EXTOL EDI Integrator (ISeries) Map.

Below are some of the commands:

  • EXQLOVR Return qualifier if input is blank
  • EXQUALR Return qualifier value as output
  • EXQLOVZR Return input if not blank/zero; else return qualifier – Long Parm List
  • EXQUAL2 Return qualifier if input is non-blank; else blank
  • EXQUAL3 Return qualifier if input is non-blank; else blank – Long Parm List
  • EXQLOVZR Return input if not blank/zero; else return qualifer
  • EXQUALEQ Return input value if equal to qualifier
  • EXQUALNE Return input value if NOT equal to qualifier; else blanks
  • INCDTAARA Increment a numeric data area; return new value
  • ADDDAYS Convert Date; Add or Subtract Days from Date
  • DATECONVRT Date conv qual:STDLCL YMD;MDY;DMY;JUL;CJL (Y=Z,C)
  • RTVDTM Retrieve system date/time to output
  • ABSOLUTEV Return negated input value
  • EXPARSER Parse input string on word breaks
  • EXCTDFT Return value from code table in qual. if not found return input
  • EXZSP1R Return Input Zero-Suppressed and Left Justified
  • LEFT01R Suppress leading blanks and Left Justify
  • QUOTESTR Place Quotes Around String
  • RTVJOBR Retrieve: Job Name/Profile/Number


CLICK HERE to see more of the RPG programs.


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 ' '; ?>