*DECK GEN                                                               000170
      PROC GEN;                                                         000180
*CALL COMGEN                                                            000190
