1 dcl tedeval_        entry (             /* process evaluations               */
 2                     ptr,                /* -> database                       */
 3                     ptr,                /* -> evaluation string              */
 4                     fixed bin (21),     /*   length thereof             [IN] */
 5                                         /*   amount used up            [OUT] */
 6                     ptr,                /* -> buffer control block           */
 7                     ptr,                /* -> matched string in \g{...}      */
 8                                         /*    null otherwise                 */
 9                     fixed bin (21),     /*  length of string in \g{...}      */
10                                         /* <0 in \{...}, 0 otherwise         */
11                     char (500) var,     /* output string, if any             */
12                     char (168) var,     /* error message, if any             */
13                     fixed bin (35)      /* return code                       */
14                     );
15