Example 2: request for separate data and index resource pools

This example shows how the two separate data and index resource pools with an identification equal to 3 are created.

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.