The following example of the #ENQ statement tests for the availability of a resource. Register 5 contains the address of the field that contains the resource id, the user-defined field LENGTH contains the length of the resource id, and if the test indicates the resource is free, control is returned to the routine labeled GETRTN:
#ENQ RSCID=(R5),LENGTH,TYPE=TEST,FREEXIT=GETRTN
|
Copyright © 2014 CA.
All rights reserved.
|
|