1 dcl tedget_existing_buffer_ entry (     /* find a named buffer               */
 2                     ptr,                /* -> database                       */
 3                     ptr,                /* -> string containing buffer name  */
 4                     fixed bin (21),     /*   length of string           [IN] */
 5                                         /*   how much was used         [OUT] */
 6                     ptr,                /* buffer control block (OUT)        */
 7                     char (168)var       /* error message text                */
 8                     );
 9 
10 dcl tedget_buffer_  entry (             /* find (or create) a buffer         */
11                     ptr,                /* -> database                       */
12                     ptr,                /* -> string containing buffer name  */
13                     fixed bin (21),     /*   length of string           [IN] */
14                                         /*   how much was used         [OUT] */
15                     ptr,                /* buffer control block (OUT)        */
16                     char (168)var       /* error message text                */
17                     );
18