CL Programming

Saving Specific Objects in an Application (System Operator)

Example

PGM
SAVOBJ OBJ(FILE1 FILE2) LIB(LIBA) OBJTYPE(*FILE) DEV(TAP01) +
  CLEAR(*YES)
SAVOBJ OBJ(DTAARA1) LIB(LIBA) OBJTYPE(*DTAARA) DEV(TAP01)
SNDPGMMSG MSG('Save of daily backup of LIBA completed') +
  MSGTYPE(*COMP)
ENDPGM

This program ensures consistent command entry for regularly repeated procedures.

Additional Save Object (SAVOBJ) commands can, of course, be added. However, this program relies on the operator selecting the correct diskette or tape for each periodic backup of each application. This can be controlled by assigning unique names to each diskette or tape set for each save operation. If you want to save your payroll files separately each week for four weeks, for instance, you might name each diskette or tape differently and write the program to compare the name of the diskette or tape against the correct name for that week.


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]