*DECK PUTPIDL 
          IDENT  PUTPIDL
          TITLE  PUTPIDL -  PUT THE PIDL TABLE ON BINARY FILE 
  
          MACHINE  ANY,I
          COMMENT  PUT THE PIDL TABLE ON BINARY FILE
          SPACE  4
* 
*         PUTPIDL;
  
  
          ENTRY  PUTPIDL
 PUTPIDL  CON    *
          EQ     PUTPIDL
          END 
