PROC GetID:
GLOBAL Pid%,Name$(128)
Name$="sys$shll.*"
Pid%=CALL($0188,ADDR(Name$)+1)
PRINT Pid%
GET
ENDP