John,
cool down - you simply used it the wrong way!
Keep the statements Alfredo sent in a file named MODDATE.LISTF.VESOFT, and
execute it (like Alfredo said) within MPEX as listf @.source, moddate
That's all (and easy) and will definetly work!
If you do not have access to LISTF.VESOFT then store the file MODDATE
locally (in your logon account) and execute it via
LISTF ...., ^MODDATE
This will compile the file as well to MODDATE8 in your logon group and will
show the files using this format.
Hope that will help!
Best regards,
Andreas Schmidt
CSC Managed Services GmbH
Global Infrastructure Services, Global Processing Engineering Services
DuPont-Strasse 1, Room 1-346
D-61352 Bad Homburg
Germany
Phone: +49 (0) 6172 / 87-2117 Fax -2195 DUCOM x951-2117
eMail: [log in to unmask]
HP e3000 Intranet Information at http://web1.cscbhg.dupont.com/web/hp3000/
Unix Intranet Information at http://bhghpx12.bhg.dupont.com/
----------------------------------------------------------------------------------------
This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery. NOTE: Regardless of content, this e-mail shall not operate to
bind CSC to any order or other contract unless pursuant to explicit written
agreement or government initiative expressly permitting the use of e-mail
for such purpose.
----------------------------------------------------------------------------------------
"Penney, John"
<John.Penney To: [log in to unmask]
@corr.ca.gov> cc:
Sent by: HP-3000 Subject: Re: [HP3000-L] Sorting MPEX %listf by moddate
Systems
Discussion
<HP3000-L
07/01/2004 11:43
PM
Please respond
to "Penney,
John"
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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
