Example: Application exit program

This code example contains an application cluster resource group exit program.

You can find this code example in the QUSRTOOL library.

Sample source code is provided in the QUSRTOOL library, which can be used as a basis for writing an exit program. See the TCSTAPPEXT member in the QATTSYSC file. To view the sample source code, issue one of the following commands:
  • DSPPFM QUSRTOOL/QATTSYSC TCSTAPPEXT
  • STRSEU SRCFILE(QUSRTOOL/QATTSYSC) SRCMBR(TCSTAPPEXT)
  • WRKMBRPDM FILE(QUSRTOOL/QATTSYSC) MBR(TCSTAPPEXT), then place a 5 in front of the member name

If you receive CPF8056, EDT0213, or PDM0308 messages when running the commands, QUSRTOOL files need to be converted from save files to source physical files. Issue this command, CALL PGM(QUSRTOOL/UNPACKAGE) PARM('*ALL ' 1).