| *INIT | #onerr *msgID |
| *INIT | chgcurlib curlib(MERLIN) |
| *INIT | |
| *INIT | /* unique file name for EACH system _81 = QSSS */ |
| *INIT | #var var(&ip) value('_81') |
| *INIT | #var var(&sys) value('QSSS') |
| *INIT | |
| *INIT | /* standard variable declaration */ |
| *INIT | #date fmt(*INT) var(&intdate) |
| *INIT | #date fmt(*YMD) var(&isodate) |
| *INIT | #var var(&tmp) value('qDAILY') |
| *INIT | #var var(&lib) value('qBACKUP') |
| *INIT | #var var(&obj) value('q *tcat &intdate *tcat &ip') type(*chrx) |
| *IRP | /* Import from file (Q273/QSAI) mbr(ARDAYCS2) */ |
| *IRP | #onerr pgm(*msgID) |
| *IRP | /*********************************************************************/ |
| *IRP | /* DAY END PROCEDURE LESS PRINT */ |
| *IRP | /* */ |
| *IRP | /* 11.01.00 DF01 BSP1691 - CHANGE TO SUBMIT TO QNITE */ |
| *IRP | /*********************************************************************/ |
| *IRP | /* ARDAYCS2: */ |
| *IRP | /* PGM */ |
| *IRP | /* DCL VAR(&CO#) TYPE(*CHAR) LEN(3) */ |
| *IRP | /* DCL VAR(&DATE) TYPE(*CHAR) LEN(6) */ |
| *IRP | /* use -> #var */ /* DCL VAR(&WRK2) TYPE(*CHAR) LEN(5) VALUE('ARDTA') */ |
| *IRP | #var VAR(&WRK2) TYPE(*CHAR) LEN(5) VALUE('ARDTA') |
| *IRP | |
| *IRP | /*MMDDYY*/ |
| *IRP | /* DCL VAR(&LIB) TYPE(*CHAR) LEN(8) */ |
| *IRP | /*MMDDYY*/ |
| *IRP | /* use -> #var */ /* DCL VAR(&CN) TYPE(*CHAR) LEN(2) VALUE('19') */ |
| *IRP | #var VAR(&CN) TYPE(*CHAR) LEN(2) VALUE('19') |
| *IRP | |
| *IRP | /* DCL VAR(&YR) TYPE(*CHAR) LEN(2) */ |
| *IRP | /* DCL VAR(&MO) TYPE(*CHAR) LEN(2) */ |
| *IRP | /* DCL VAR(&DA) TYPE(*CHAR) LEN(2) */ |
| *IRP | /* DCL VAR(&JOB) TYPE(*CHAR) LEN(10) */ |
| *IRP | /* use -> #var */ /* DCL VAR(&WRK) TYPE(*CHAR) LEN(7) VALUE('DER6__U') */ |
| *IRP | #var VAR(&WRK) TYPE(*CHAR) LEN(7) VALUE('DER6__U') |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #rtvdtaa */ /* RTVDTAARA DTAARA(MDVCO (31 3)) RTNVAR(&CO#) */ |
| *IRP | #rtvdtaa dtaara(*LIBL/MDVCO) from(31) leng(3) var(&CO#) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #var */ /* CHGVAR VAR(&JOB) VALUE(&WRK *CAT &CO#) */ |
| *IRP | #chgvar VAR(&JOB) VALUE('&WRK *CAT &CO#') |
| *IRP | |
| *IRP | /* use -> #var */ /* CHGVAR VAR(&LIB) VALUE(&WRK2 *CAT &CO#) */ |
| *IRP | #chgvar VAR(&LIB) VALUE('&WRK2 *CAT &CO#') |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(CHGVAR VAR(&JOB) VALUE(&WRK *CAT &CO#)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chgvar VAR(&JOB) value('&WRK *CAT &CO#')) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVDTAARA DTAARA(MDVCO (31 3)) RTNVAR(&CO#)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#rtvdtaa dtaara(*LIBL/MDVCO) from(31) leng(3) var(&CO#)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #rtvsysv */ /* RTVSYSVAL SYSVAL(QABNORMSW) RTNVAR(&QABNORMSW) */ |
| *IRP | #rtvsysv tag(QABNORMSW) var(&QABNORMSW) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #rtvjoba */ /* RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR) TYPE(&TYPE) */ |
| *IRP | #RTVJOBA tag(JOB) var(&JOB) |
| *IRP | #RTVJOBA tag(USER) var(&USER) |
| *IRP | #RTVJOBA tag(NBR) var(&NBR) |
| *IRP | #RTVJOBA tag(TYPE) var(&TYPE) |
| *IRP | |
| *IRP | /* use -> #rtvlibd */ /* RTVLIBD LIB(ARPGMR04) TYPE(&TYPE) ASP(&ASP) ASPDEV(&ASPDEV) CRTAUT(&CRTAUT) */ |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(TYPE) var(&TYPE) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(ASP) var(&ASP) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(ASPDEV) var(&ASPDEV) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(CRTAUT) var(&CRTAUT) |
| *IRP | |
| *IRP | /* use -> #rtvmbrd */ /* RTVMBRD FILE(ZXDRT) MBR(*FIRST) RTNSYSTEM(&RTNSYS) RTNLIB(&RTNLIB) RTNMBR(&RTNMBR) */ |
| *IRP | #RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNSYSTEM) var(&RTNSYS) |
| *IRP | #RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNLIB) var(&RTNLIB) |
| *IRP | #RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNMBR) var(&RTNMBR) |
| *IRP | |
| *IRP | /* use -> #rtvobjd */ /* RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) ASPDEV(*) RTNLIB(&RTNLIB) OBJATR(&OBJATR) TEXT(&TEXT) */ |
| *IRP | #RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(RTNLIB) var(&RTNLIB) |
| *IRP | #RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(OBJATR) var(&OBJATR) |
| *IRP | #RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(TEXT) var(&TEXT) |
| *IRP | |
| *IRP | /* use -> #rtvneta */ /* RTVNETA SYSNAME(&SYSNAME) LCLNETID(&LVLNETID) LCLCPNAME(&LCLCPNAME) */ |
| *IRP | #RTVNETA tag(SYSNAME) var(&SYSNAME) |
| *IRP | #RTVNETA tag(LCLNETID) var(&LVLNETID) |
| *IRP | #RTVNETA tag(LCLCPNAME) var(&LCLCPNAME) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVSYSVAL SYSVAL(QABNORMSW) RTNVAR(&QABNORMSW)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#rtvsysv tag(QABNORMSW) var(&QABNORMSW)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVJOBA DATE(&DATE)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#RTVJOBA tag(DATE) var(&DATE)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVLIBD LIB(ARPGMR04) TYPE(&TYPE)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#RTVLIBD LIB(ARPGMR04) tag(TYPE) var(&TYPE)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVMBRD FILE(ZXDRT) MBR(*FIRST) RTNMBR(&MBRNAME)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNMBR) var(&MBRNAME)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) ASPDEV(*) RTNLIB(&RTNLIB)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(RTNLIB) var(&RTNLIB)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVNETA SYSNAME(&SYSNAME)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#RTVNETA tag(SYSNAME) var(&SYSNAME)) |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR) TYPE(&TYPE)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | #RTVJOBA tag(JOB) var(&JOB) |
| *IRP | #RTVJOBA tag(USER) var(&USER) |
| *IRP | #RTVJOBA tag(NBR) var(&NBR) |
| *IRP | #RTVJOBA tag(TYPE) var(&TYPE) |
| *IRP | #end |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVLIBD LIB(ARPGMR04) TYPE(&TYPE) ASP(&ASP) ASPDEV(&ASPDEV) CRTAUT(&CRTAUT)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(TYPE) var(&TYPE) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(ASP) var(&ASP) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(ASPDEV) var(&ASPDEV) |
| *IRP | #RTVLIBD LIB(ARPGMR04) tag(CRTAUT) var(&CRTAUT) |
| *IRP | #end |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVMBRD FILE(ZXDRT) MBR(*FIRST) RTNSYSTEM(&RTNSYS) RTNLIB(&RTNLIB) RTNMBR(&RTNMBR)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | #RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNSYSTEM) var(&RTNSYS) |
| *IRP | #RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNLIB) var(&RTNLIB) |
| *IRP | #RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNMBR) var(&RTNMBR) |
| *IRP | #end |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) ASPDEV(*) RTNLIB(&RTNLIB) OBJATR(&OBJATR) TEXT(&TEXT)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | #RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(RTNLIB) var(&RTNLIB) |
| *IRP | #RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(OBJATR) var(&OBJATR) |
| *IRP | #RTVOBJD OBJ(ARDAYCS2) OBJTYPE(*PGM) tag(TEXT) var(&TEXT) |
| *IRP | #end |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(&DATE 5 2) < '90') THEN(RTVNETA SYSNAME(&SYSNAME) LCLNETID(&LVLNETID) LCLCPNAME(&LCLCPNAME)) */ |
| *IRP | #if cond('%SST(&DATE 5 2) < ''90''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | #RTVNETA tag(SYSNAME) var(&SYSNAME) |
| *IRP | #RTVNETA tag(LCLNETID) var(&LVLNETID) |
| *IRP | #RTVNETA tag(LCLCPNAME) var(&LCLCPNAME) |
| *IRP | #end |
| *IRP | |
| *IRP | |
| *IRP | CLRPFM FILE(SVCOLS37) |
| *IRP | CALL PGM(SVCOLR36) |
| *IRP | |
| *IRP | /* BSP 2891 CPYSPLF FILE(SVCOLT36) TOFILE(SVCOLS36) MBROPT(*REPLACE) CTLCHAR(*FCFC) */ |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(*LDA 15 1) *EQ '2') THEN(DO) */ |
| *IRP | #if cond('%SST(*LDA 15 1) *EQ ''2''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | CALL PGM(SVCOLR37) |
| *IRP | /* MONMSG MSGID(CPF0000) */ |
| *IRP | |
| *IRP | /* BSP 2891 CPYSPLF FILE(SVCOLT37) TOFILE(SVCOLS37) MBROPT(*REPLACE) CTLCHAR(*FCFC) */ |
| *IRP | /* BSP 2891 MONMSG MSGID(CPF0000) */ |
| *IRP | /* use -> #end */ /* ENDDO */ |
| *IRP | #end |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #if */ /* IF COND(%SST(*LDA 15 1) *EQ '1') THEN(DO) */ |
| *IRP | #if cond('%SST(*LDA 15 1) *EQ ''1''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | /* use -> #end */ /* ENDDO */ |
| *IRP | #end |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | CHGJOB LOGCLPGM(*NO) |
| *IRP | CALL PGM(BLREGR01) PARM(&P1 &P2 'DATA') |
| *IRP | /* or use -> #call with #var */ |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #chkobj */ /* CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) */ |
| *IRP | #chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) |
| *IRP | |
| *IRP | /* MONMSG MSGID(CPF0000) EXEC(DO) */ |
| *IRP | #doif var(&Q_MSGID) ops(*eq) exp('CPF****') |
| *IRP | |
| *IRP | CALL PGM(BLREGR05) PARM(&P1 &P2 'DATA') |
| *IRP | /* or use -> #call with #var */ |
| *IRP | |
| *IRP | /* use -> #end */ /* ENDDO */ |
| *IRP | #end |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #chkobj */ /* CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) */ |
| *IRP | #chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) |
| *IRP | |
| *IRP | /* MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&JOB) VALUE(&WRK *CAT &CO#)) */ |
| *IRP | #if cond('&Q_MSGID *eq ''CPF****''') then(#chgvar VAR(&JOB) value('&WRK *CAT &CO#')) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #chkobj */ /* CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) */ |
| *IRP | #chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) |
| *IRP | |
| *IRP | /* MONMSG MSGID(CPF0000) EXEC(CHGDTAARA DTAARA(*LDA (206 2)) VALUE(&CN)) */ |
| *IRP | #if cond('&Q_MSGID *eq ''CPF****''') then(CHGDTAARA DTAARA(*LDA (206 2)) VALUE(&CN)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #chkobj */ /* CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) */ |
| *IRP | #chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) |
| *IRP | |
| *IRP | /* MONMSG MSGID(CPF0000) EXEC(RTVMBRD FILE(ZXDRT) MBR(*FIRST) RTNMBR(&MBRNAME)) */ |
| *IRP | #if cond('&Q_MSGID *eq ''CPF****''') then(#RTVMBRD FILE(ZXDRT) MBR(*FIRST) tag(RTNMBR) var(&MBRNAME)) |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #chkobj */ /* CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) */ |
| *IRP | #chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) |
| *IRP | |
| *IRP | /* MONMSG MSGID(CPF0000) EXEC(RTVOBJD OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) RTNLIB(&RTNLIB) OBJATR(&OBJATR) OWNER(&OWNER)) */ |
| *IRP | #if cond('&Q_MSGID *eq ''CPF****''') then(#chgvar var(&DO) value(1)) |
| *IRP | #doif var(&DO) |
| *IRP | #RTVOBJD OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) tag(RTNLIB) var(&RTNLIB) |
| *IRP | #RTVOBJD OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) tag(OBJATR) var(&OBJATR) |
| *IRP | #RTVOBJD OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) tag(OWNER) var(&OWNER) |
| *IRP | #end |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | /* use -> #chkobj */ /* CHKOBJ OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) */ |
| *IRP | #chkobj OBJ(MYLIB/MYOBJ) OBJTYPE(*FILE) |
| *IRP | |
| *IRP | /* MONMSG MSGID(CPF0000) EXEC(DO) */ |
| *IRP | #doif var(&Q_MSGID) ops(*eq) exp('CPF****') |
| *IRP | |
| *IRP | CALL PGM(BLREGR05) PARM('A' 'B' 'C') |
| *IRP | /* use -> #end */ /* ENDDO */ |
| *IRP | #end |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | |
| *IRP | /* SEND 'JOB SUBMITTED' MESSAGE */ |
| *IRP | CHGDTAARA DTAARA(*LDA (200 6)) VALUE(&DATE) |
| *IRP | CHGDTAARA DTAARA(*LDA (206 2)) VALUE(&CN) |
| *IRP | /* SEND 'JOB SUBMITTED' MESSAGE */ |
| *IRP | /* use -> sndmsg */ /* SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Day End has been submitted.................................. ............') TOPGMQ(*EXT) MSGTYPE(*STATUS) */ |
| *IRP | |
| *IRP | CHGDTAARA DTAARA(*LDA (87 2)) VALUE(&CN) |
| *IRP | CHGDTAARA DTAARA(*LDA (89 2)) VALUE(&YR) |
| *IRP | CHGDTAARA DTAARA(*LDA (91 2)) VALUE(&MO) |
| *IRP | CHGDTAARA DTAARA(*LDA (93 2)) VALUE(&DA) |
| *IRP | CHGDTAARA DTAARA(*LDA (95 2)) VALUE(&CN) |
| *IRP | CHGDTAARA DTAARA(*LDA (97 2)) VALUE(&YR) |
| *IRP | CHGDTAARA DTAARA(*LDA (99 2)) VALUE(&MO) |
| *IRP | CHGDTAARA DTAARA(*LDA (101 2)) VALUE(&DA) |
| *IRP | CHGDTAARA DTAARA(*LDA (41 3)) VALUE(&CO#) |
| *IRP | CHGDTAARA DTAARA(*LDA (50 8)) VALUE(&LIB) |
| *IRP | DSPDTAARA DTAARA(*LDA) OUTPUT(*PRINT) |
| *IRP | /* DER6__U: */ |
| *IRP | SBMJOB CMD(CALL PGM(ARDAYC02)) JOB(&JOB) /* DF01 */ JOBD(ARJOBD) JOBQ(QNITE) |
| *IRP | /* DF01 *************** JOBD(ARJOBD) ****************/ |
| *IRP | /* ENDPGM: */ |
| *IRP | /* ENDPGM */ |
| *XCHG | #nfmt namefmt(0) |
| *XCHG | |
| *XCHG | /* create temporary save file library */ |
| *XCHG | #rcmd cmd(dltlib lib(&tmp)) ign(*yes) |
| *XCHG | #rcmd cmd(crtlib lib(&tmp)) ign(*yes) |
| *XCHG | |
| *XCHG | /* create containers */ |
| *XCHG | #rcmd cmd(crtsavf file(&tmp/MERLIN)) ign(*yes) |
| *XCHG | |
| *XCHG | /* save libraries */ |
| *XCHG | #rcmd cmd(savlib lib(MERLIN) dev(*SAVF) savf(&tmp/MERLIN) dtacpr(*HIGH) savact(*LIB)) ign(*yes) |
| *XCHG | |
| *XCHG | /* save the temporary save file library to a single save file */ |
| *XCHG | #rcmd cmd(crtsavf file(qtemp/&obj) text('Daily save of system(&sys) on &isodate')) ign(*yes) |
| *XCHG | #rcmd cmd(savlib lib(&tmp) dev(*savf) savf(qtemp/&obj) dtacpr(*HIGH) savact(*LIB)) ign(*yes) |
| *XCHG | |
| *XCHG | /* send to master backup system */ |
| *XCHG | #rcmd cmd(crtsavf file(qtemp/qsavf)) ign(*yes) |
| *XCHG | #rcmd cmd(savobj obj(&obj) lib(qtemp) dev(*savf) savf(qtemp/qsavf) savact(*LIB)) ign(*yes) |
| *XCHG | #get from('qtemp/qsavf') to('qtemp/qsavf') optn(*SAV) ifssrc(*QSYS) ifstgt(*QSYS) |
| *XCHG | |
| *XCHG | /* clean up */ |
| *XCHG | #rcmd cmd(dltlib lib(&tmp)) ign(*yes) |
| *TERM | rstobj obj(*all) savlib(qtemp) dev(*savf) savf(qtemp/qsavf) rstlib(&lib) alwobjdif(*all) mbropt(*all) output(*print) |