1 /* BEGIN INCLUDE FILE ..... tederror_.incl.pl1 ..... 09/02/76 J Falksen      */
2 
3 dcl tederror_       entry(ptr, char(168)var);
4 dcl tederror_rc_    entry(ptr, char(168)var,fixed bin(35));
5 
6 dcl msg             char(168)var;
7 dcl msg_ptr         ptr;
8 
9 /* END INCLUDE FILE ..... tederror_.incl.pl1 .....                                     */