1 dcl tedpromote_     entry (             /* get a larger data buffer          */
2                     ptr,                /* -> buffer to promote              */
3                     fixed bin (21)      /* amount not fitting                */
4                     );
5