{"id":1620,"date":"2008-05-27T03:45:17","date_gmt":"2008-05-27T08:45:17","guid":{"rendered":"http:\/\/www.mrc-productivity.com\/legacy\/?page_id=1620"},"modified":"2011-12-22T16:44:56","modified_gmt":"2011-12-22T22:44:56","slug":"validating-via-an-rpg-external-object-source-code","status":"publish","type":"page","link":"https:\/\/www.mrc-productivity.com\/legacy\/form-validation-techniques\/validating-via-an-rpg-external-object-source-code","title":{"rendered":"Validating via an RPG External Object Source Code"},"content":{"rendered":"<p>&nbsp;<\/p>\n<h1>Validating via an RPG External Object Source Code<\/h1>\n<p>&nbsp;<\/p>\n<p><code>5761WDS V7R1M0\u00a0 100416\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SEU SOURCE LISTING<br \/>\nSOURCE FILE . . . . . . .\u00a0 MRCWORKLIB\/QRPGLESRC<br \/>\nMEMBER\u00a0 . . . . . . . . .\u00a0 VALIDDATES<br \/>\nSEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7<br \/>\n1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 *Author Rick Hurckes<br \/>\n2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 *Date: 2011-09-19<br \/>\n10\u00a0\u00a0\u00a0\u00a0\u00a0 *This example is designed to illustrate how to call external objects<br \/>\n11\u00a0\u00a0 \u00a0\u00a0 *at the *FLDVALID\u00a0\u00a0\u00a0 09\/19\/11<br \/>\n20\u00a0\u00a0\u00a0\u00a0\u00a0 *location of m-Power applications.<br \/>\n21\u00a0\u00a0\u00a0\u00a0\u00a0 *This example will verify that an end user has entered a beginning<br \/>\n22\u00a0\u00a0 \u00a0\u00a0 *and end date and that 09\/19\/11<br \/>\n29\u00a0\u00a0\u00a0\u00a0\u00a0 *the beginning date occurs prior to the end date.<br \/>\n30\u00a0\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0 *entry\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 plist<br \/>\n100\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 @error\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 99<br \/>\n200\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 @startdate\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 8 0<br \/>\n300\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 @enddate\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 8 0<br \/>\n400\u00a0\u00a0\u00a0 C<br \/>\n500\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 @error = *blanks<br \/>\n600\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 if\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 @startdate = 0 and @enddate = 0<br \/>\n700\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 @error = 'Please enter some dates.'<br \/>\n800\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GOTO\u00a0\u00a0\u00a0\u00a0\u00a0 END<br \/>\n801\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 endif<br \/>\n900\u00a0\u00a0\u00a0 C<br \/>\n902\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 if\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 @startdate = 0<br \/>\n903\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 @error = 'You must enter a start date.'<br \/>\n904\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GOTO\u00a0\u00a0\u00a0\u00a0\u00a0 END<br \/>\n905\u00a0\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 endif<br \/>\n1000\u00a0\u00a0 C<br \/>\n1001\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 if\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 @enddate = 0<br \/>\n1002\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 @error = 'You must enter an end date.'<br \/>\n1003\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GOTO\u00a0\u00a0\u00a0\u00a0\u00a0 END<br \/>\n1005\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 endif<br \/>\n1100\u00a0\u00a0 C<br \/>\n1101\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 if\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 @startdate &amp;gt; @enddate<br \/>\n1102\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 @error = 'Start date is after end date.'<br \/>\n1103\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GOTO\u00a0\u00a0\u00a0\u00a0\u00a0 END<br \/>\n1104\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 endif<br \/>\n2500\u00a0\u00a0 C<br \/>\n2501\u00a0\u00a0 C\u00a0\u00a0\u00a0\u00a0 END\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TAG<br \/>\n2600\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; Validating via an RPG External Object Source Code &nbsp; 5761WDS V7R1M0\u00a0 100416\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SEU SOURCE LISTING SOURCE FILE . . . . . . .\u00a0 MRCWORKLIB\/QRPGLESRC MEMBER\u00a0 . . . . . . . . .\u00a0 VALIDDATES SEQNBR*&#8230;+&#8230; 1 &#8230;+&#8230; 2 &#8230;+&#8230; 3 &#8230;+&#8230; 4 &#8230;+&#8230; 5 &#8230;+&#8230; 6 &#8230;+&#8230; 7 1\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 *Author Rick Hurckes [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":1580,"menu_order":7,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-1620","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1620","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=1620"}],"version-history":[{"count":5,"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1620\/revisions"}],"predecessor-version":[{"id":3431,"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1620\/revisions\/3431"}],"up":[{"embeddable":true,"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/pages\/1580"}],"wp:attachment":[{"href":"https:\/\/www.mrc-productivity.com\/legacy\/wp-json\/wp\/v2\/media?parent=1620"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}