HP3000-L Archives

July 2004, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"F. Alfredo Rego" <[log in to unmask]>
Reply To:
F. Alfredo Rego
Date:
Thu, 1 Jul 2004 13:36:13 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (63 lines)
Thanks to everyone who came to my rescue!  I had never done
anything fancy with MPEX (yes, I know: It's never to late to
learn something new and exciting).

Here is the specific MPEX file that I assembled, based on the
advice of my friends:



(* This file is moddate.listf.vesoft (Qedit format is OK)   *)
(*                                                          *)
(* To list a fileset sorted (in descending order) by        *)
(* modification date, do this from Qedit:                   *)
(*                                                          *)
(* /%listf @.source, moddate                                *)

(* To list only those files modified in the last few days,  *)
(* do this from Qedit, depending on the number or days that *)
(* interest you:                                            *)
(*                                                          *)
(* /%listf @.source (moddate > today-30), moddate           *)

(* Assembled by F. Alfredo Rego on July 1, 2004, with       *)
(* many thanks to my MPEX Guru friends from hp3000-L:       *)
(*                                                          *)
(*   Tom Emerson                                            *)
(*   Ron Horner                                             *)
(*   David N. Lukenbill                                     *)
(*   Andreas Schmidt                                        *)


for rFile in mpexFileset

  sort (ModDate:'desc')

  PageHead begin

    writeln (' ');
    writeln (79*'-');

    writeln(svar("mpexFileset"),
            ', sorted by modification date'
            );

    writeln (' ');

    end

  do
    writeln (file:8,
             ModDate:'   %0C%0Y %1M %0D  ',

             (If ModTime=IsTime(0) Then '00:00'
               Else StrWrite(ModTime:'%024h:%0m')) :5
             )

    OnBreakAfter 1
      writeln (' ')
  ;

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2