通过CLP实现library之间的自动复制!
因业务需要定期从生产LIB复制数据到目标LIB,考虑执行效率和降低人为出错率,写了CLP工具实现自动复制.
程序思路:
1.因LF关联PF,所以必须先删除LF后才能删除其他objects,通过DSPFD过滤出LF文件,然后循环执行删除.
2.当监控到CPF2123系统提示不存在LF文件,程序直接跳转NEXT处理.
3.当LF删除完毕系统提示CPF0864,程序跳转NEXT处理.
4.删除LF文件后,清除整个LIB.
5.为了提高程序自动维护效率,同时考虑LIB处于使用中情况,将创建临时qtemp/savf,并savlib时使用SAVACT(*LIB)参数.
6.目标library恢复完毕,执行授权autl;
7.所有步骤完成后系统通过SNDDST自动发送邮件通知管理员.
8.程序结束执行清除QTEMP下临时workfile,tempsavf文件.
9.最后将工具写成CMD,便于调用.
**注意:编译前需执行DSPFD产生临时文件QTEMP/WORKFILE后编译才能通过.
CLP: AUTOUPDLIB ,编译在QGPL/AUTOUPDLIB
/*===================================================================*/
/* PROGRAM NAME : AUTOUPDLIB */
/* CREATED BY : BOT LIU YUAN YAO */
/* CREATED DATE : 2008/02/21 */
/* DESCRIPTION : AUTO-UPDATE OVER SELECTED LIBRARIES */
/* USAGE : BEFORE COMPILE [2008/03/06 DSPOBJD->DSPFD] */
/* DSPFD FILE(&TRGLIB/*ALL) TYPE(*MBR) + */
/* OUTPUT(*OUTFILE) OUTFILE(QTEMP/WORKFILE) */
/*===================================================================*/
PGM PARM(&SRCLIB &TRGLIB)
DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&TRGLIB) TYPE(*CHAR) LEN(10)
DCLF FILE(QTEMP/WORKFILE) RCDFMT(QWHFDMBR)
DCL VAR(&SRCAUTL) TYPE(*CHAR) LEN(10)
DCL VAR(&TRGAUTL) TYPE(*CHAR) LEN(10)
/** AUTO-DELETE ALL LF OF TARGET LIBRARY [2008/03/06] **/
DSPFD FILE(&TRGLIB/*ALL) TYPE(*MBR) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/WORKFILE)
MONMSG MSGID(CPF2123) EXEC(GOTO CMDLBL(NEXT))
LOOP: RCVF RCDFMT(QWHFDMBR)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(NEXT))
IF COND(&MBFATR *EQ 'LF') THEN(DO)
DLTF FILE(&TRGLIB/&MBFILE)
ENDDO
GOTO CMDLBL(LOOP)
NEXT:
CLRLIB LIB(&TRGLIB)
MONMSG MSGID(CPF0000)
/** USE TEMPORARY SAVF TO SAVE AND RESTORE LIBRARY **/
CRTSAVF FILE(QTEMP/TMPSAVF) TEXT('Temporary savf')
SAVLIB LIB(&SRCLIB) DEV(*SAVF) SAVF(QTEMP/TMPSAVF) +
SAVACT(*LIB)
MONMSG MSGID(CPF0000)
RSTLIB SAVLIB(&SRCLIB) DEV(*SAVF) +
SAVF(QTEMP/TMPSAVF) RSTLIB(&TRGLIB)
MONMSG MSGID(CPF0000)
/** AUTO-MAINTAIN AUTHORIZATION LIST [2008/03/05] **/
CHGVAR VAR(&SRCAUTL) VALUE('A' *CAT %SST(&SRCLIB 1 +
7))
CHGVAR VAR(&TRGAUTL) VALUE('A' *CAT %SST(&TRGLIB 1 3))
CHKOBJ OBJ(&SRCAUTL) OBJTYPE(*AUTL)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(GRTAUTL))
RVKOBJAUT OBJ(&TRGLIB/*ALL) OBJTYPE(*ALL) AUTL(&SRCAUTL)
MONMSG MSGID(CPF0000)
GRTAUTL:
CHKOBJ OBJ(&TRGAUTL) OBJTYPE(*AUTL)
MONMSG MSGID(CPF9801) EXEC(DO)
CRTAUTL AUTL(&TRGAUTL)
ENDDO
GRTOBJAUT OBJ(&TRGLIB/*ALL) OBJTYPE(*ALL) AUTL(&TRGAUTL)
MONMSG MSGID(CPF0000)
GRTOBJAUT OBJ(&TRGLIB/*ALL) OBJTYPE(*ALL) +
USER(*PUBLIC) AUT(*EXCLUDE)
MONMSG MSGID(CPF0000)
/** AUTO-SEND EMAIL TO OPERATOR AFTER FINISHED ALL STEPS **/
SNDDST TYPE(*LMSG) +
TOINTNET((liuyuanyao@swirebev.com)) +
DSTD('Update Data Successfully!') +
LONGMSG('Update data from source to +
target library successfully,thanks!')
ENDPGM: DLTF FILE(QTEMP/WORKFILE)
MONMSG MSGID(CPF2105)
DLTF FILE(QTEMP/TMPSAVF)
MONMSG MSGID(CPF2105)
ENDPGM
CMD:UPDLIB
===> CRTCMD CMD(QGPL/UPDLIB) PGM(QGPL/AUTOUPDLIB) SRCFILE(LIUYY/QCMDSRC)
/*===================================================================*/
/* PROGRAM NAME : AUTOUPDLIB */
/* DESCRIPTION : AUTO-UPDATE OVER SELECTED LIBRARIES */
/* PROGRAMMER : BOT LIU YUAN YAO */
/* DATE : 2008/02/27 */
/*===================================================================*/
CMD PROMPT('Auto-Update Selected Libraries')
PARM KWD(SRCLIB) TYPE(*CHAR) LEN(10) +
DFT('SRCLIB') REL(*NE ' ') +
SPCVAL(('HZTDB01') ('XMTDB01') +
('GDTDB01') ('NJTDB01') ('XATDB01') +
('ZZTDB01') ('HFTDB01') ('LQTDB01')) +
MIN(0) MAX(1) PROMPT('Source Library')
PARM KWD(TRGLIB) TYPE(*CHAR) LEN(10) +
DFT('TRGLIB') REL(*NE ' ') +
SPCVAL((HHDXA01) (HHDXA02) (HHDXA03) +
(HHDXA05) (HHDXA06) (HHDHF01) (HZUDB01) +
(XMPDB01)) MIN(0) MAX(1) PROMPT('Traget +
Library')
UPDLIB+F4显示如下:
Auto-Update Selected Libraries (UPDLIB)
Type choices, press Enter.
Source Library . . . . . . . . . > 'srclib' Character value, HZTDB01...
Traget Library . . . . . . . . . > 'trglib' Character value, HHDXA01...
以后可以QBATCH下执行:
===> SBMJOB CMD(UPDLIB SRCLIB('srclib') TRGLIB('trglib')) JOB(UPDLIB) JOBQ(QGPL/QBATCH)
或QINTER下交互使用.
===> UPDLIB SRCLIB('srclib') TRGLIB('trglib')
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。