Example

To call a resource adjustment exit, specify the following:

         IWMMXRA                                             X
               RES_ADJ_EXIT@=ADJEXIT@,                       X
               OWNER_TKN=OWNERTKN,                           X
               RESOURCE_TYPE=BUFFER_POOL,                    X
               RESOURCE_TKN=RSCTOKEN,                        X
               RES_CUR_SIZE=RESCURSIZE,                      X
               RES_NEW_SIZE=RESNEWSIZE,                      X
               RETCODE=RC,RSNCODE=RSN
*
* Storage areas
*
RESCURSIZE DS  FL4             contains the current size of the
*                              specified resource in 4K pages
RESNEWSIZE DS  FL4             contains the new target size of the
*                              specified resource in 4K pages
ADJEXIT@   DS  AL4             contains the address of the
*                              Resource Adjustment Exit
*                              to be invoked
OWNERTKN DS    CL8             Contains data maintained by
*                              the user
RSCTOKEN DS    CL8             WLM resource token
RC       DS    F               Return code
RSN      DS    F               Reason code