MACRO -- $GETLOK -- GET CMS LOCK                               DL002000
&NAME    $GETLOK                                                        DL004000
&NAME    L     R15,$GETLOK         POINT TO ROUTINE                     DL006000
         BALR  LINK,R15            ENTER GET LOCK ROUTINE               DL008000
         MEND                                                           DL010000