PGM        PARM(&TOOL)
             DCL &TOOL *CHAR 10
             OVRDBF     FILE(INFO) TOFILE(QUSRTOOL/QATTINFO) +
                          MBR(TAASUMMARY)
             OVRDBF     FILE(TOOLMBR) TOFILE(QUSRTOOL/QATTINFO) +
                          MBR(&TOOL)
             CHKOBJ     OBJ(QTEMP/TOOLDQ) OBJTYPE(*DTAQ)
              MONMSG CPF9801 EXEC(DO)
               CRTDTAQ    DTAQ(QTEMP/TOOLDQ) MAXLEN(80) SEQ(*KEYED) +
                          KEYLEN(3)
               GOTO SUITE
              ENDDO
              CALL QCLRDTAQ PARM('TOOLDQ   ' 'QTEMP     ')
SUITE:       CALL WRKTOOL3 PARM(&TOOL)
             CALL WRKTOOL4 PARM(&TOOL)
             CALL WRKTOOL5 PARM(&TOOL)
             DLTOVR     FILE(TOOLMBR INFO)
             ENDPGM