{"id":1732,"date":"2011-09-26T03:45:31","date_gmt":"2011-09-26T08:45:31","guid":{"rendered":"http:\/\/www.mrc-productivity.com\/legacy\/?page_id=1732"},"modified":"2011-12-23T08:11:52","modified_gmt":"2011-12-23T14:11:52","slug":"sample-external-object-cl-source-code","status":"publish","type":"page","link":"https:\/\/www.mrc-productivity.com\/legacy\/external-objects-udf\/sample-external-object-cl-source-code","title":{"rendered":"Sample External Object (CL) Source Code"},"content":{"rendered":"<p>&nbsp;<\/p>\n<h1>Sample External Object (CL) 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 DELDETAILC<br \/>\nSEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7<br \/>\n100\u00a0 LOOKUP1:\u00a0\u00a0\u00a0 PGM\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PARM(&amp;ORDNO)<br \/>\n300<br \/>\n1200\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DCL\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 VAR(&amp;ORDNO) TYPE(*DEC) LEN(6 0)<br \/>\n1201<br \/>\n2500\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 OVRDBF\u00a0\u00a0\u00a0\u00a0 FILE(ORDDET) TOFILE(MRCWORKLIB\/ORDDET) +<br \/>\n2600\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SHARE(*YES)<br \/>\n3000\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CALL\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PGM(MRCWORKLIB\/DELDETAIL) PARM(&amp;ORDNO)<br \/>\n3200<br \/>\n3400\u00a0 ENDPGM:\u00a0\u00a0\u00a0\u00a0 ENDPGM<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 (CL) 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 DELDETAILC SEQNBR*&#8230;+&#8230; 1 &#8230;+&#8230; 2 &#8230;+&#8230; 3 &#8230;+&#8230; 4 &#8230;+&#8230; 5 &#8230;+&#8230; 6 &#8230;+&#8230; 7 100\u00a0 LOOKUP1:\u00a0\u00a0\u00a0 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":1652,"menu_order":8,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-1732","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1732","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=1732"}],"version-history":[{"count":1,"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1732\/revisions"}],"predecessor-version":[{"id":3457,"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1732\/revisions\/3457"}],"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=1732"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}