*DECK GEN 
      PROC GEN; 
*CALL COMGEN
