DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape

Verifying start-up parameters – part 2
This month we conclude the program that reads the values of ZPARM
in the DB2 control blocks, converts the parameter values to report
format, and writes to a report file.
*
SPRMØ13Ø DS ØH
MVC PRGFINST,=C' NO'
*
SPRMØ135 DS ØH
TM SPRMREGF,X'4Ø' RGFDEDPL CHECK
BNO SPRMØ14Ø
MVC PRGFDEDP,=C'YES'
B SPRMØ145
*
SPRMØ14Ø DS ØH
MVC PRGFDEDP,=C' NO'
*
SPRMØ145 DS ØH
TM SPRMREGF,X'2Ø' RGFFULLQ CHECK
BNO SPRMØ15Ø
MVC PRGFFULL,=C'YES'
B SPRMØ155
*
SPRMØ15Ø DS ØH
MVC PRGFFULL,=C' NO'
*
SPRMØ155 DS ØH
TM SPRMREGF,X'1Ø' RGFDEFLT CHECK
BNO SPRMØ16Ø
MVC PRGFDEFL,=C'ACCEPT'
B SPRMØ17Ø
*
SPRMØ16Ø DS ØH
TM SPRMREGF,X'Ø1'
BNO SPRMØ165
MVC PRGFDEFL,=C' APPL'
B SPRMØ17Ø
*
SPRMØ165 DS ØH
MVC PRGFDEFL,=C'REJECT'
*
SPRMØ17Ø DS ØH
MVC PRGFESCP,SPRMREGE
TM SPRMTYP,X'8Ø' SITETYPE CHECK
BNO SPRMØ175
MVC PSITETYP,=C' LOCALSITE'
34
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.