1 dcl tedaddr_        entry (             /* process request addresses         */
 2                     ptr,                /* -> database                       */
 3                     ptr,                /* -> string containing address      */
 4                     fixed bin (21),     /*   length of it               [IN] */
 5                                         /* If <0 then recursive call         */
 6                                         /*   how much was used up      [OUT] */
 7                     ptr,                /* -> buffer control block  [IN/OUT] */
 8                     char (168) var,     /* place to hold err message if any  */
 9                     fixed bin (35),     /* status code                       */
10                                         /*   0- null address                 */
11                                         /*   1- address found                */
12                                         /*   8- error, msg tells what        */
13                     );
14