DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Verifying start-up parameters <strong>–</strong> <strong>part</strong> 2<br />
<strong>This</strong> month we conclude the program that reads the values of ZPARM<br />
in the <strong>DB2</strong> control blocks, converts the parameter values to report<br />
format, and writes to a report file.<br />
*<br />
SPRMØ13Ø DS ØH<br />
MVC PRGFINST,=C' NO'<br />
*<br />
SPRMØ135 DS ØH<br />
TM SPRMREGF,X'4Ø' RGFDEDPL CHECK<br />
BNO SPRMØ14Ø<br />
MVC PRGFDEDP,=C'YES'<br />
B SPRMØ145<br />
*<br />
SPRMØ14Ø DS ØH<br />
MVC PRGFDEDP,=C' NO'<br />
*<br />
SPRMØ145 DS ØH<br />
TM SPRMREGF,X'2Ø' RGFFULLQ CHECK<br />
BNO SPRMØ15Ø<br />
MVC PRGFFULL,=C'YES'<br />
B SPRMØ155<br />
*<br />
SPRMØ15Ø DS ØH<br />
MVC PRGFFULL,=C' NO'<br />
*<br />
SPRMØ155 DS ØH<br />
TM SPRMREGF,X'1Ø' RGFDEFLT CHECK<br />
BNO SPRMØ16Ø<br />
MVC PRGFDEFL,=C'ACCEPT'<br />
B SPRMØ17Ø<br />
*<br />
SPRMØ16Ø DS ØH<br />
TM SPRMREGF,X'Ø1'<br />
BNO SPRMØ165<br />
MVC PRGFDEFL,=C' APPL'<br />
B SPRMØ17Ø<br />
*<br />
SPRMØ165 DS ØH<br />
MVC PRGFDEFL,=C'REJECT'<br />
*<br />
SPRMØ17Ø DS ØH<br />
MVC PRGFESCP,SPRMREGE<br />
TM SPRMTYP,X'8Ø' SITETYPE CHECK<br />
BNO SPRMØ175<br />
MVC PSITETYP,=C' LOCALSITE'<br />
34<br />
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.