Do not delete and re-create if the object already exist

来源:互联网 发布:网络管理规范 编辑:程序博客网 时间:2024/06/05 21:57

/* 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

原创粉丝点击