Type | Procedure |
---|
*INIT | #onerr *ignore |
*INIT | |
*INIT | /* unique file name for EACH system = GONZO */ |
*INIT | #var var(&ip) value('_84') |
*INIT | #var var(&sys) value('GONZO') |
*INIT | |
*INIT | /* 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) |
*INIT | |
*INIT | /* create master backup libraries on first use */ |
*INIT | crtlib lib(&lib) |
*INIT | |
*INIT | /* create temporary save file library */ |
*INIT | dltlib lib(&tmp) |
*INIT | crtlib lib(&tmp) |
*INIT | |
*INIT | /* create save file containers */ |
*INIT | crtsavf file(&tmp/MERLIN) |
*INIT | |
*INIT | /* save libraries into temporary save files */ |
*INIT | savlib lib(MERLIN) dev(*SAVF) savf(&tmp/MERLIN) dtacpr(*HIGH) savact(*LIB) |
*INIT | |
*INIT | /* save the temporary save file library to a single save file */ |
*INIT | crtsavf file(&lib/&obj) text('Daily save of system(&sys) on &isodate') |
*INIT | savlib lib(&tmp) dev(*savf) savf(&lib/&obj) dtacpr(*HIGH) |
*INIT | |
*INIT | /* clean up and send a completion message */ |
*INIT | dltlib lib(&tmp) |
*INIT | sndmsg msg('Back Up of system(&sys) completed') tousr(*sysopr) |
Type | Object | User | Authority |
---|
Job Name | Job User | Job No | Date | Time | Description | Logs |
---|
LCL_BACKUP | AUGEL | 025050 | 2015-09-29 | 01.51.17 | Check for Internet Connection | job |