SCAN_FILE_LOCKSV3.031-MAY-2004 18:55 VAX MACRO V5.4-3MACRO/OBJECT=SCAN_FILE_LOCKS.VAX_OBJ SYS$LIBRARY:ARCH_DEFS+SYS$DISK:[]SCAN_FILE_LOCKS SCAN_FILE_LOCKS INPUT_KEYWORD_TBL INPUT_STATE_TBLLIB$FID_TO_NAMELIB$GET_FOREIGNLIB$PUT_OUTPUT LIB$SIGNALLIB$STOP LIB$TPARSELIB$TRIM_FILESPECLIB_OUTPUT_SEG_TLIB_OUTPUT_SEG_TZBLIB_OUTPUT_SEG_ZBSTR_LEN STR_UPPERCASE SYS$ASSIGN SYS$CMKRNLSYS$EXITSYS$FAO SYS$GETDVIW SYS$GETJPIW SYS$GETLKIW SYS$PARSESYS$QIOW SYS$SEARCHSYS$SYSTEM:SYS.STB . ABS .P$ABS$PPPPPPPPPPPv _UTIL_DATA_RWP$ _UTIL_DATA_ROP _UTIL_CODEPP3Scan_File_Locks V3.0Q&Q 3TTQ&Q*3_File: Q&Q 93 Q&QPPQQ$$Q44[ PP  UTIL_START&LIB$PUT_OUTPUT|~C  SYS$ASSIGN?3 &; LIB$GET_FOREIGNP3 PJj j UTIL_EXIT&5LIB$PUT_OUTPUTPSYS$EXIT UTIL_SET_CTRLCAST&|~|~<#~<C ~ SYS$QIOW>PB3!/Looking for locks on !AS!/!21* !AS(!UW,!UW,!UW)!/Q3&Q9}3FILE.DATQ&Q3Resource name is [!AF]!/ File ID is [!XB !XB !XB !XB !XB !XB]QB&QHPc PQ@@c @c Q  Q    Q`` Q\ PPQNQQ QQ`Q^QQQQQQL RMS$(  '' "  P VALIDATE_FILESPEC&3  STR_UPPERCASE<3 34 3 LIB$TPARSEP N   1}\  PROCESS_FILE_ID&N  3R  33V  33F  <F P<(PJ c <  ? 3 LIB$FID_TO_NAMEP PLIB$STOP }PROCESS_FILESPEC&y\ 53y3\ 033 \ 434\ ,3  3   3\  SYS$PARSEP PLIB$STOP\  SYS$SEARCHP PLIB$STOP  3  $3 3 $33 33 $33 33 3P<(P 33c <  STR_LENc  P:`  \CREATE_RESOURCE_NAME& 3  33 3 33 3|~3  <~ SYS$GETDVIW<,    < 33 33 3  ,$>SYS$FAO$LIB$PUT_OUTPUT 3 3 3 3 3  ,$ SYS$FAO$LIB$PUT_OUTPUTP3!78*-!/LockID !XL, state !AC/!AC/!AC, Granted !UL, Wait !UL, Cvt !UL, Sublocks !UL (!UL)QX&Q^73!8* PID !XL !AS !AS !ASQ&Q Y3!8* Ver !UB, MBC !UB, LRL !UW, FFB !UW, Hi block !UL, EOF block !ULQC&QI3 !74*-!/ SubLockID !XL, state !AC/!AC/!AC, Granted !UL, Wait !UL, Cvt !UL, Sublocks !ULQY&Q_3!10* PID !XL !AS !AS !ASQ&Q '3!78*-Q&Q 43!6* Bucket at VBN !UL (valblk sequence !UL)Q-&Q3i3!6* !40 !AC/!AC/!ACQ(&Q.3!6* Lock on record !UL,!ULQ&Q 3!6* !40 !AC/!AC/!ACQ-&Q33!7* !XL (!-!UL.)Q&Q--QQCOQQGRQQWAQQNLQQCRQQCWQQPRQQPWQQEXQQJPC PQC C    QQQ                |QQQ@Q@ *Q |t@-@, *JP JUTIL_SCAN_LOCKS&Џn  SYS$CMKRNLP P 1' ٻ<)