View source for List.Path.Readu

This program reads in <tt>list.readu</tt> output and changes the device number and inode to pathname.
Needs program dskdevno.c compiled and available. Others call it devices.c. The output is path space device number. The paths are the attached file systems.

Requires a file: INODE.XREF to be built in a common area.
Make pointers in other VOCs where needed:
<pre>
       INODE.XREF
0001: F
0002: /pathto/common/area[[/INODE]].XREF
0003: /pathto/common/area[[/D_INODE]].XREF
</pre>
If you know the number of files on your system, divide by 20, make prime, resize to that modulo with a sep of 4. If you don't know at all use 10007. After filling it up, do file.stat and resize to better design.

Usage: <pre>>RUN XBP LIST.PATH.READU [REBUILD | [EVERY | "" ] ] [ WRAP ]</pre>

Note: you may rescale the width of the display for pathname by changing the size of ADJ variable in the program, Line: 170, 176, & 181. For wide, wrap, and normal.
<pre>
*-----------------------------------------------------------------------
* TITLE:  LIST.PATH.READU
* AUTH: Rich Sias
* DATE: 05/15/2003
* ID:   LIST.PATH.READU
*-----------------------------------------------------------------------
*Narrative:
*----------------------
* Takes LIST.READU command and detemines pathname from device number
* and inode. Alters display depending on screen width.
*-----------------------------------------------------------------------
* EXT CALLS            NONE
* FILES READ:          INODE.XREF
* FILES UPDATE:        INODE.XREF
* CONSTANTS UPDATE:    NONE
* RESTART INSTRUCTIONS NONE
*-----------------------------------------------------------------------
* MODIFICATIONS
* mm-dd-yy Login (sar######) Description
*
*-----------------------------------------------------------------------
*
* include section: "COMMON" include files should be preceded
*                  "EQUATES" include files
*-----------------------------------------------------------------------
$INCLUDE MERCY.COMMON STANDARD.EQUATES
*-----------------------------------------------------------------------
* equate section
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* initialization section: do not include variables that are
*---------------------- re-initialized prior to usage ------------------
*-----------------------------------------------------------------------
      PROG.ID = "LIST.PATH.READU"
*-----------------------------------------------------------------------
* open-file section: use OPEN.FILE routine to open files
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* main program body
*-----------------------------------------------------------------------
      GET(ARG.) COND ELSE COND = ""
      BEGIN CASE
         CASE COND = "REBUILD"
            GOSUB REBUILD
         CASE COND = "SILLY"
         CASE COND = "FUFU"
         CASE 1
            GOSUB LIST.READU
      END CASE
      RETURN

* This is the final return and should cause the logic to exit the pgm

*-----------------------------------------------------------------------
* subroutines: include desc ( function, variables used and changed, etc)
*-----------------------------------------------------------------------
********************
$INCLUDE HELP
********************

      **************
REBUILD:
      **************
      * Clear then open the data file.
      ECMD = "CLEAR.FILE INODE.XREF"
      EXECUTE ECMD
      OPEN "INODE.XREF" TO XREF ELSE STOP 204,"INODE.XREF"
      * Gather disk device numbers for all file systems.
      UNIX = 'dskdevno.3k|grep -v mirror'
      EXECUTE "SH -c":QUOTE(UNIX),/[[/OUT]].>CAP
      CAP = CONVERT(" ",@VM,TRIM(CAP))
      KNT = DCOUNT(CAP,@FM)

      * Weed out blank & root responses.
      IF CAP<KNT,1> < "  " THEN
         CAP = FIELD(CAP,@FM,2,KNT-2)
         KNT -= 2
      END ELSE
         CAP = FIELD(CAP,@FM,2,KNT-1)
         KNT -= 1
      END
      IF CAP<KNT,1> < "  " THEN
         CAP = FIELD(CAP,@FM,1,KNT-1)
         KNT -= 1
      END
      * Initialize conditions.
      DAMT = KNT
      J = 0
      *** (DIRS.TO.CHK is a mv string with all the file systems)
      * First value is path, second is device number.
      DIRS.TO.CHK = CAP
      OK = 1

      * Loop through all file systems.
      FOR I = 1 TO DAMT
         * Get working dir and device number.
         DIR = DIRS.TO.CHK<I,1>
         DIR1 = DIR
         DEVNO = DIRS.TO.CHK<I,2>
         * Get the inodes of all items in file system.
         STMT = 'sh -c "ls -lRi ':DIR:'"'
         EXECUTE STMT CAPTURING DIR.REC
         VAMT = DCOUNT(DIR.REC,@FM)
         DIR.REC = CHANGE(TRIM(DIR.REC)," ",@VM)
         CRT I, DAMT, VAMT, J, DIR
         * Loop through all items in file system.
         FOR J = 1 TO VAMT
            LINE = DIR.REC<J>
            BEGIN CASE
               CASE LINE EQ ""
                  * Empty line.
               CASE LINE<1,1>[1,1] EQ "/"
                  * Line has new dir name.
                  * OK means local path, not a mount point.
                  IF OK THEN OLD.DIR = "PASS"
                  FLIP = 0
                  LOD = LEN(OLD.DIR)
                  DIR1 = FIELD(LINE<1,1>,":",1)
                  * Check if dir is a mount point.
                  FIND DIR1 IN DIRS.TO.CHK SETTING BEGN,PTR THEN
                     OK = 0
                     * Retain old mount point dir.
                     OLD.DIR = DIR1
                  END ELSE
                     * Check if new dir is sub dir of interim mount pt.
                     IF OLD.DIR = DIR1[1,LOD] THEN OK = 0
                        ELSE OK = 1
                  END
               CASE LINE<1,11> # ""
                  * Line begins with device number.
                  IF OK THEN
                     * OK means is not a mount point within file system.
                     INODE = LINE<1,2>
                     FNAM = LINE<1,11>
                     PATH = DIR1:"/":FNAM
                     WRITE PATH ON XREF,DEVNO:"*":INODE
                        ELSE CRT 'BAD DEAL ':PATH
                  END
               CASE 1
            END CASE
*        ---
*          bla bla bla - I go create an xref file, (I did it above.)
*         ---
         NEXT J
      NEXT I
      RETURN

************
LIST.READU:
************
      WRAP = 0
      OPEN "INODE.XREF" TO XREF ELSE STOP 204,"INODE.XREF"
      * Get all pass parameters.
      GET(ARG.) COND1 THEN
         IF COND1 = "WRAP" THEN WRAP = 1 ; COND1 = ""
      END
         ELSE COND1 = ""
      GET(ARG.) COND2 THEN
         IF COND2 = "WRAP" THEN WRAP = 1 ; COND2 = ""
      END
         ELSE COND2 = ""
      GET(ARG.) COND3 THEN
         IF COND3 = "WRAP" THEN WRAP = 1 ; COND3 = ""
      END
         ELSE COND3 = ""
      * Set size parameters for formatting. ADJ is for width of output.
      BEGIN CASE
         CASE WRAP
            * Allows full path and all data to be shown.
            ADJ = 30
            GWID = ADJ + 12
            PWID = ADJ + 7
            RWID = ADJ - 4
         CASE @CRTWIDE > 97
            * For wide screen support, no wraps and full formatting.
            ADJ = 30
            GWID = ADJ + 12
            PWID = ADJ + 7
            RWID = ADJ + 7
         CASE 1
            ADJ = 26
            * For little screens just let letters wrap to beginng of line.
            GWID = ADJ + 12
            PWID = ADJ + 7
            RWID = ADJ + 7
      END CASE
      * Get list.readu data.
      ECMD = "LIST.READU ":COND:" ":COND1:" ":COND2:" INTERNAL"
      EXECUTE ECMD,/[[/OUT]].>GRAB
      * Make up header info for list.readu.
      HDRF = "Active File Locks:'L'":SPACE(RWID- 9):"Pathname "
      HDRF := '[[UsrNo]] Lmode   Pid Login ID'
      HDRG = "Active Group Locks:":SPACE(GWID)
      HDRG := "Rec Grp Grp Grp'L'":SPACE(RWID- 8):"Pathname "
      HDRG := '[[UsrNo]] Lmode G-Address Lcks .RD'
      HDRG := ' .SH .EX'
      HDRR = "Active Record Locks:'L'":SPACE(RWID- 8):"Pathname "
      HDRR := '[[UsrNo]] Lmode   Pid Login ID Item-ID'
      OLD.CT = 0                         ; * Determines when to print revised hea
der.
      * Ignore the last "field" (line), it is empty.
      KNT = COUNT(GRAB,@FM)
      FOR I = 1 TO KNT
         LCT = DCOUNT(GRAB<I>,@VM)
         IF OLD.CT # LCT THEN
            * Need new header info printed.
            BEGIN CASE
               CASE LCT EQ 9
                  HEADING HDRF
                  OLD.CT = LCT
               CASE LCT EQ 12
                  HEADING HDRG
                  IF I > 2 THEN
                     HDG = EREPLACE(HDRG,"'L'",@FM)
                     PRINT
                     PRINT HDG<1>
                     PRINT HDG<2>
                  END
                  OLD.CT = LCT
               CASE LCT EQ 10
                  HEADING HDRR
                  IF I > 2 THEN
                     * GOSUB PRT.HDR
                     HDG = EREPLACE(HDRR,"'L'",@FM)
                     PRINT
                     PRINT HDG<1>
                     PRINT HDG<2>
                  END
                  OLD.CT = LCT
               CASE 1
            END CASE
         END
         * Read path info from XREF file.
         READ PATH FROM XREF,GRAB<I,1>:"*":GRAB<I,2>
            ELSE PATH = ' bum deal'
         * Begin printing.
         PRINT FMT(PATH,PWID:"R"):
         * Check for wrap (fold) condition.
         IF WRAP THEN
            CRT
            CRT SPACE(RWID):
         END
         * Print second third of output.
         PRINT GRAB<I,4>"6R":GRAB<I,5>"3R":GRAB<I,6>"3R":
         BEGIN CASE
            CASE LCT EQ 9
               CRT GRAB<I,7>"6R":GRAB<I,8>
            CASE LCT EQ 12
               CRT GRAB<I,7>"11R":GRAB<I,8>"4R":
               CRT GRAB<I,9>"4R":GRAB<I,10>"4R":GRAB<I,11>"4R"
            CASE LCT EQ 10
               CRT GRAB<I,7>"6R":GRAB<I,8>"9R":" ":GRAB<I,9>
            CASE 1
               CRT '    LCT = ':LCT
         END CASE
      NEXT I
      RETURN

************
TERMINATION:
************
      PRINT 'Terminating now '
      STOP
* last statement in a program don't add code after this line
</pre>