VAR
    tmv$ptl_lock: [XREF] tmt$ptl_lock;
?? PUSH( LISTEXT := ON) ??
*copyc tmt$ptl_lock
?? POP ??
