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 *
|