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