Example: Make independent disk pool available at startup

If you need your independent disk pools to be made available in most cases when your server is restarted, you might want to consider including the following control language (CL) at the beginning of your Start Up Program (QSTRUP). If you do not want the independent disk pools to be made available when you restart the server, you can either Delete the Data Area (DLTDTAARA) or Rename it (RNMOBJ). However, you need to remember to either Create the Data Area (CRTDTAARA) again or Rename it (RNMOBJ) back to the data area being checked in your Start Up Program. Only the QSYSWRK subsystem should be started before making the independent disk pools available. Then other work will not compete for system resources while your independent disk pools are being made available.

In this example, the data area VARYONIASP is used. You can name your data area whatever you like. Also, in this example the QRECOVERY library contains the data area; however, you may choose a different library that resides on the system disk pool.

     MONMSG MSGID(CPF0000)
     QSYS/STRSBS SBSD(QSYSWRK)
     QSYS/CHKOBJ OBJ(QRECOVERY/VARYONIASP) OBJTYPE(*DTAARA)
     MONMSG MSGID(CPF9801) EXEC(GOTO SKIPVRYCFG)
     QSYS/VRYCFG CFGOBJ(IASP1) CFGTYPE(*DEV) STATUS(*ON)
     QSYS/VRYCFG CFGOBJ(IASP2) CFGTYPE(*DEV) STATUS(*ON)
SKIPVRYCFG: