*DECK DDLCGP2 
          IDENT  DL30602
*CALL COMCGP2 
