*DECK DDLCGP1 
          IDENT  DL30601
*CALL COMCGP1 
