/* Do not delete and re-create if HSP001 already exist */
/* - for call centre, HSP001 has been created in initial program */
CHKOBJ OBJ(QTEMP/HSP001) OBJTYPE(*DTAARA)
MONMSG MSGID(CPF9801) EXEC(DO)
CRTDTAARA DTAARA(QTEMP/HSP001) TYPE(*CHAR) LEN(20)
ENDDO