{"id":1735,"date":"2011-09-26T03:45:49","date_gmt":"2011-09-26T08:45:49","guid":{"rendered":"http:\/\/www.mrc-productivity.com\/docs\/?page_id=1735"},"modified":"2021-09-30T09:45:42","modified_gmt":"2021-09-30T14:45:42","slug":"sample-external-object-rpg-source-code","status":"publish","type":"ht_kb","link":"https:\/\/www.mrc-productivity.com\/docs\/knowledge-base\/sample-external-object-rpg-source-code","title":{"rendered":"Sample External Object (RPG) Source Code"},"content":{"rendered":"\n<h3 class=\"wp-block-heading\">Source Code<\/h3>\n\n\n\n<p><code>5761WDS V7R1M0&nbsp; 100416&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SEU SOURCE LISTING<br>\n09\/23\/11 11:34:47&nbsp;&nbsp;&nbsp; MRC&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PAGE<br>\nSOURCE FILE . . . . . . .&nbsp; MRCWORKLIB\/QRPGLESRC<br>\nMEMBER&nbsp; . . . . . . . . .&nbsp; DELDETAIL<br>\nSEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7<br>\n1100&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *Author: Rick Hurckes<br>\n1101&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *Date: 2011-09-22<br>\n1102&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *This program will accept an order number. Based on this order<br>\n1103&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;*number, this program&nbsp;&nbsp; 09\/23\/11<br>\n1104&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *will delete all matching records from the order detail table.<br>\n1105&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FORDDET&nbsp;&nbsp;&nbsp; UF&nbsp;&nbsp; E&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; K DISK<br>\n1200&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp; *entry&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; plist<br>\n1300&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; parm&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; KEY60&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 6 0<br>\n1400&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *<br>\n1401&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp; KEY60&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CHAIN&nbsp;&nbsp;&nbsp;&nbsp; ORDDET&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 90<br>\n1402&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp; *IN90&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DOWEQ&nbsp;&nbsp;&nbsp;&nbsp; '0'<br>\n1403&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DELETE&nbsp;&nbsp;&nbsp; ORDDET<br>\n1404&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp; KEY60&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READE&nbsp;&nbsp;&nbsp;&nbsp; ORDDET&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 90<br>\n1405&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; END<br>\n1800&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C<br>\n1900&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; eval&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *inlr=*on<br>\n* * * *&nbsp; E N D&nbsp; O F&nbsp; S O U R C E&nbsp; * * * *<br>\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Source Code 5761WDS V7R1M0&nbsp; 100416&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SEU SOURCE LISTING 09\/23\/11 11:34:47&nbsp;&nbsp;&nbsp; MRC&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PAGE SOURCE FILE . . . . . . .&nbsp; MRCWORKLIB\/QRPGLESRC MEMBER&nbsp; . . . . . . . . .&nbsp; DELDETAIL SEQNBR*&#8230;+&#8230; 1 &#8230;+&#8230; 2 &#8230;+&#8230; 3 &#8230;+&#8230; 4 &#8230;+&#8230; 5 &#8230;+&#8230; 6 &#8230;+&#8230; 7 1100&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *Author: Rick&#8230;<\/p>\n","protected":false},"author":1,"comment_status":"closed","ping_status":"closed","template":"","format":"standard","meta":{"footnotes":""},"ht-kb-category":[],"ht-kb-tag":[],"class_list":["post-1735","ht_kb","type-ht_kb","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb\/1735","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb"}],"about":[{"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/types\/ht_kb"}],"author":[{"embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/comments?post=1735"}],"version-history":[{"count":3,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb\/1735\/revisions"}],"predecessor-version":[{"id":11084,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb\/1735\/revisions\/11084"}],"wp:attachment":[{"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/media?parent=1735"}],"wp:term":[{"taxonomy":"ht_kb_category","embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb-category?post=1735"},{"taxonomy":"ht_kb_tag","embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb-tag?post=1735"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}