POOL1 BLDVRP BUFFERS=(2048(4)), x
TYPE=(LSR,DATA), x
SHRPOOL=3, x
STRNO=2, x
RMODE31=ALL
*
LTR R15,R15 Check return code.
BNZ ERROR Do not build index if error.
*
POOL2 BLDVRP BUFFERS=(1024(5)), x
TYPE=(LSR,INDEX), x
SHRPOOL=3, x
STRNO=2, x
RMODE31=ALL
Requirement: POOL1 must be created first because the data pool must exist before the index pool with the same shared pool ID can be built. Also, only one data and one index pool can be built for a shared pool ID.