5722WDS V5R1M0  010525                  SEU SOURCE LISTING                            09/22/03 14:34:08                 PAGE    1

  SOURCE FILE . . . . . . .  MRCAPPLLIB/QOBJLESRC
  MEMBER  . . . . . . . . .  OVLDSRVEXP

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
    100       * This is an example of RPG validation in Web/Servlet apps.                                               09/22/03
    200       *                                                                                                         09/22/03
    300       * The RPG program must be defined to m-Power as                                                           09/22/03
    400       * an external object. The first parameter is the error message.                                           09/22/03
    500       * If it is returned blank to the calling servlet, then the validation                                     09/22/03
    600       * has passed successfully. If not, then that message is displayed.                                        09/22/03
    700       * That first parameter must contain the text *VALID in the parameter                                      09/22/03
    800       * description, and it should not be mapped to any field in the                                            09/22/03
    900       * application.                                                                                            09/22/03
   1000       *                                                                                                         09/22/03
   1100      C                                                                                                          12/26/01
   1200      C     *entry        plist                                                                                  12/26/01
   1300      C                   parm                    @error           99                                            09/22/03
   1400      C                   parm                    @cust             6 0                                          09/22/03
   1500      C                                                                                                          12/26/01
   1600      C                   eval      @error = *blanks                                                             09/22/03
   1700      C                   if        @cust = 0                                                                    09/22/03
   1800      C                   eval      @error = 'This is the error message.'                                        09/22/03
   1900      C                   endif                                                                                  12/26/01
   2000      C                                                                                                          12/26/01
   2100      C                   eval      *inlr=*on                                                                    12/26/01


                                  * * * *  E N D  O F  S O U R C E  * * * *