1 dcl tedget_segment_ entry (             /* get a segment to work in          */
2                     ptr,                /* -> database                       */
3                     ptr,                /* -> gotten segment           [OUT] */
4                     fixed bin,          /* sequence # of it         [IN/OUT] */
5                                         /* if >0 upon entry, it will then    */
6                                         /*  fill that entry in seg_p array   */
7                                         /* otherwise it will take any one    */
8                     );
9