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:
"Penney, John" <[log in to unmask]>
Reply To:
Penney, John
Date:
Thu, 1 Jul 2004 14:43:57 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (129 lines)
OK, guys, -L, whomever, what, zactly as Ricky would say, am I/is going wrong
here? I know, YMMV, IIRC, IMHO etc

This was using the example from David N Lukenbill's posting and I exec's it
from a) within MPEX, and from within QE within MPEX, and UNKNOWN COMMAND is
not a good sign

%MPEXHeader1:='';
Unknown command name. (CIERR 975)
%MPEXHeader2:='MODIFICATION'+32*' '+'FILE';
Unknown command name. (CIERR 975)
%MPEXHeader3:='DATE'+5*' '+'TIME'+3*' '+'FILENAME'+
Unknown command name. (CIERR 975)
%             20*' '+'CODE'+4*' '+'CREATOR';
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader1);
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader1);
Unknown command name. (CIERR 975)
%WriteLn(Today:'%W, %1M %0D, %4Y',', ',Clock:'%h:%0m %x');
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader1);
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader1);
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader2);
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader3);
Unknown command name. (CIERR 975)
%WriteLn(MPEXHeader1);
Unknown command name. (CIERR 975)
%For RFile in MPEXFileSet
Unknown command name. (CIERR 975)
%  Sort (ModDate:'Asc',ModTime:'Asc')
HP31900A.02.00  TurboSORT THU, JUL  1, 2004,  1:55 PM
(C) HEWLETT-PACKARD CO. 1987

>  Do
ILLEGAL COMMAND
>    WriteLn(ModDate:'%0Y/%0M/%0D ',
ILLEGAL COMMAND
>            (If ModTime=IsTime(0) Then ''
ILLEGAL COMMAND
>             Else StrWrite(ModTime:'%024h:%0m ')):7,
ILLEGAL COMMAND
>            FullName:28,
ILLEGAL COMMAND
>            Code:8,
ILLEGAL COMMAND
>            Creator+'.'+Account:11);
ILLEGAL COMMAND
>WriteLN(MPEXHeader1);
ILLEGAL COMMAND

JP in Sacto

-----Original Message-----
From: F. Alfredo Rego [mailto:[log in to unmask]]
Sent: Thursday, July 01, 2004 12:36 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Sorting MPEX %listf by moddate


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 *

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

ATOM RSS1 RSS2