RE: VMS equivalent of ls -lrt

From: Jesse, Rich <Rich.Jesse_at_qtiworld.com>
Date: Fri, 16 Nov 2001 11:27:27 -0800
Message-ID: <F001.003C7A75.20011116100526@fatcity.com>

Ahhhhh...VMS and DCL. <warm fuzzy>

I couldn't find an easy way to do this without possibly screwing up other things, so you'll need to do this from a DCL command procedure ("shell script"), because the date format displayed in the DIRECTORY command depends on where in the world you are (I think it's the LIB$DT_DATE_FORMAT logical, but I forget). So, try this:

Copy the following into a file called "LSLRT.COM" on your VMS box.

$!--------------- START CUT HERE ------------------------
$ ON WARNING THEN GOTO end
$ ON CONTROL_Y THEN GOTO end
$!
$ in_dirspec = F$PARSE(p1,"*.*;*",,,"SYNTAX_ONLY")
$ IF F$EDIT(P1,"UPCASE,COLLAPSE").EQS."-D"
$ THEN
$ sortorder = ",DESC"
$ in_dirspec = F$PARSE("","*.*;*",,,"SYNTAX_ONLY")
$ ENDIF
$!
$ IF F$EDIT(P2,"UPCASE,COLLAPSE").EQS."-D"
$ THEN
$ sortorder = ",DESC"
$ ELSE
$ sortorder = ""
$ ENDIF
$!
$ wso := WRITE SYS$OUTPUT
$ wsf := WRITE schn
$ delete := delete
$ DateStamp = F$CVTIME("",,"YEAR")+F$CVTIME("",,"MONTH")+ -

                F$CVTIME("",,"DAY")


$       TimeStamp = F$CVTIME("",,"HOUR")+F$CVTIME("",,"MINUTE")+ -

                F$CVTIME("",,"SECOND")


$       sortspec = "SYS$SCRATCH:LSLRT_" + DateStamp + TimeStamp + -

                F$GETJPI("","PID") + ".TMP"


$       CREATE 'sortspec'

$       OPEN/READ/WRITE schn 'sortspec'

$!

$       dirspec = F$PARSE(in_dirspec,,,"DEVICE") + -

                F$PARSE(in_dirspec,,,"DIRECTORY")

$!
$DirLoop:
$ ON WARNING THEN GOTO DirLoop
$ nextfile = F$SEARCH("''in_dirspec'")
$ IF nextfile.EQS."" THEN GOTO EndDirLoop
$ filename = F$PARSE(nextfile,,,"NAME") + F$PARSE(nextfile,,,"TYPE") +
-

                F$PARSE(nextfile,,,"VERSION")


$       filesize = F$FILE_ATTRIBUTES(nextfile,"EOF")

$       filedate = F$FILE_ATTRIBUTES(nextfile,"RDT")

$       sortdate = F$CVTIME(filedate)

$       wsf F$FAO("!47<!AS!>  !6UL  !23<!AS!>",filename,filesize,sortdate)

$       goto DirLoop

$EndDirLoop:

$       IF F$TRNLNM("schn").NES."" THEN CLOSE schn

$       SORT/KEY=(POS:57,SIZE:23'sortorder') 'sortspec' 'sortspec'2

$       wso "Directory ",dirspec

$       wso ""

$       FileTot = 0

$       SizeTot = 0

$       OPEN/READ schn 'sortspec'2

$ReadLoop:

$       READ/ERROR=End schn srec

$       FileTot = FileTot + 1

$       SizeTot = SizeTot + F$INTEGER(F$EXTRACT(49,6,srec))

$       wso srec

$       GOTO ReadLoop

$!
$End:
$ SET NOON
$ WSO ""
$ WSO F$FAO("Total of !UL file!1%C!%Es!%F, !UL block!1%C!%Es!%F", -

                FileTot,SizeTot)


$       IF F$TRNLNM("schn").NES."" THEN CLOSE schn

$       IF F$SEARCH("''sortspec'*;*").NES."" THEN -

                DELETE/NOLOG/NOCONFIRM 'sortspec'*;*


$       EXIT

$!---------------  END CUT HERE ------------------------


2)      Create an "alias" in VMS:

        LSLRT :== @my_device:[my_dir]LSLRT

        ...where "my_device:[my_dir]" is the location where you created the
        LSLRT.COM file.  For best results, also put this command in your
        SYS$LOGIN:LOGIN.COM (".profile or .login in Unix"), so the "alias"
        will work the next time you login.

3)      To use:

        LSLRT [-d] [filespec]

        If you specify "-d", the sort order will be descending.

This is a quick'n'dirty DCL procedure, so USE AT YOUR OWN RISK!!! I tried to make the best use of DCL (some error trapping and formatting) and also to make this procedure readable and maintainable, but don't hold me or my employer accountable for it use or misuse. (I hate the legal stuff!)

CAVEATS: You may get some "file access conflict" errors if it looks at open files. Sorry, I didn't have time to code around this. Also, if you get stars for the filesize, you can increase the "6" in the "!6UL" for the filesize, and decrease the "47" for the filesize in the same line. And, the date displayed is the revision date. If you would like other dates displayed, type "HELP LEX F$FILE ARG" and select the appropriate replacement argument for the "filedate" symbol's call to F$FILE_ATTRIBUTE. And, finally, this code won't handle stepping through some VMS structures like nested logicals and the like.

That being said, I hope this helps! If I had time, I'd code one for ya in BASIC or C...

Enjoy! :)

Rich Jesse                          System/Database Administrator
Rich.Jesse_at_qtiworld.com             Quad/Tech International, Sussex, WI USA

Owner of 3 VAXstations. :)

-----Original Message-----
Sent: Friday, November 16, 2001 04:00
To: Multiple recipients of list ORACLE-L

A user has asked me about identifying most recently created trace files on a VMS system. I have shown him where they are and how to do a DIR/SIN=TODAY command to get todays files.
However he was complaining that there was no equivalent on VMS to ls -lrt to list all files oldest first.
I have looked at PIPE DIR *.TRC |SORT commands but you need a key and it is not to obvious how to do it easily.
Does anybody know an easy way of doing it. I have never needed to do it because I have always find the date parameter to DIR to be sufficient but it would be nice to help a user out for a change !!!
John
Oracle DBA
BTcellnet
* john.hallas_at_btcellnet.net
( 0113 388 6062 Desk
) 07713 066194 BT Mobile

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.com
-- 
Author: Jesse, Rich
  INET: Rich.Jesse_at_qtiworld.com

Fat City Network Services    -- (858) 538-5051  FAX: (858) 538-5051
San Diego, California        -- Public Internet access / Mailing Lists
--------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).

Received on Fri Nov 16 2001 - 13:27:27 CST