*//////////////////////////////////////////////////////////////*                              
      * (#SndPm) Send Program Message                                *                              
      *                                                              *                              
      * InMsgData (Input) - Data to include in message               *                              
      * InMsgType (Input) - Message Type                             *                              
      *   C - *COMP                                                  *                              
      *   D - *DIAG                                                  *                              
      *   E - *ESCAPE                                                *                              
      *   I - *INFO                                                  *                              
      *   S - *STATUS                                                *                              
      *   X - *STATUS (Blank)                                        *                              
      *                                                              *                              
      *//////////////////////////////////////////////////////////////*                              
     D #SndPm          PR                                                                           
     D  InMsgData                 32765    Const Varying                                            
     D  InMsgType                     1    Const