CA IDMS LOOK PROGRAM DC028001 COBOL VERSION