1 dcl tedstatus_      entry (             /* display saved environments        */
2                     char (*),           /* name of temp dir                  */
3                     fixed bin (35)      /* status code                       */
4                     );
5