{"id":1732,"date":"2011-09-26T03:45:31","date_gmt":"2011-09-26T08:45:31","guid":{"rendered":"http:\/\/www.mrc-productivity.com\/docs\/?page_id=1732"},"modified":"2021-09-30T09:43:39","modified_gmt":"2021-09-30T14:43:39","slug":"sample-external-object-cl-source-code","status":"publish","type":"ht_kb","link":"https:\/\/www.mrc-productivity.com\/docs\/knowledge-base\/sample-external-object-cl-source-code","title":{"rendered":"Sample External Object (CL) Source Code"},"content":{"rendered":"\n<h3 class=\"wp-block-heading\">Sample 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; DELDETAILC<br>\nSEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7<br>\n100&nbsp; LOOKUP1:&nbsp;&nbsp;&nbsp; PGM&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PARM(&amp;ORDNO)<br>\n300<br>\n1200&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DCL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; VAR(&amp;ORDNO) TYPE(*DEC) LEN(6 0)<br>\n1201<br>\n2500&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OVRDBF&nbsp;&nbsp;&nbsp;&nbsp; FILE(ORDDET) TOFILE(MRCWORKLIB\/ORDDET) +<br>\n2600&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SHARE(*YES)<br>\n3000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CALL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PGM(MRCWORKLIB\/DELDETAIL) PARM(&amp;ORDNO)<br>\n3200<br>\n3400&nbsp; ENDPGM:&nbsp;&nbsp;&nbsp;&nbsp; ENDPGM<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>Sample 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; DELDETAILC SEQNBR*&#8230;+&#8230; 1 &#8230;+&#8230; 2 &#8230;+&#8230; 3 &#8230;+&#8230; 4 &#8230;+&#8230; 5 &#8230;+&#8230; 6 &#8230;+&#8230; 7 100&nbsp; LOOKUP1:&nbsp;&nbsp;&nbsp;&#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-1732","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\/1732","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=1732"}],"version-history":[{"count":3,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb\/1732\/revisions"}],"predecessor-version":[{"id":11082,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb\/1732\/revisions\/11082"}],"wp:attachment":[{"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/media?parent=1732"}],"wp:term":[{"taxonomy":"ht_kb_category","embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb-category?post=1732"},{"taxonomy":"ht_kb_tag","embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/docs\/wp-json\/wp\/v2\/ht-kb-tag?post=1732"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}