On Mon, 30 Sep 1996, David Randall wrote:
> Hello luminaries,
>
> Emboldened by the warmth of the response to my previous question on the Y2000
> I am once again lured from my shadowy place to seek wisdom.
>
> Despite having worked with 3000's for many years now I have either forgotten -
> or never
> knew - is there a way of listing files in a group in date order (modified,
> accessed or
> created?)
Hello David:
If you have not MPEX, like me, you can write the programs manually
I have MPE/V programs, and UDC-s which are solve the task.
The UDC has three steps:
1) A small program that prepares input from the file mask for the
LISTDIR5.PUB.SYS utility.
2) The input of the first step is passed to the LISTDIR5.PUB.SYS which
generates an ugly table which contains very much information about each
file.
3) The table from the second step is passed to the program which
3.1.) Excludes the files not matching the mask given as the second UDC
parameter.
3.2.) Generates one 132 character long line for each file from the ugly
and paper wasting output of LISTDIR5.PUB.SYS.
3.3.) Sorts the list according to the user's wish given in the second
parameter of the UDC.
You should set your terminal to 132 columns mode before the calling of the
UDC.
I have more versions of the third step, and the corresponding UDC-s:
A. Simple lister
B1. Lister with the first lines of the file.
B2. Lister with first lines of the file specialized for BRW report
specification files.
C. Interactive lister/purger: The program stops at each file and prompts
the user: "Type, Leave, Delete, Move to other group?"
D. Batch purger: The program purges all files which match the file name
and the file code mask.
I attach for YOU and for the CSL the program and UDC files. If the CSL
staff ore you are interested in the PASCAL source code then I try dig out
the complete one.
Recommended file transfer to HP in terms of AdvanceLink:
&SEND "FILE x=FILENAME;CODE=PROG;DISC=,1,1"
&DSCOPY FILENAME.PRO TO *x;binary
Account used in UDC-s: IKINFO.
Groups used in UDC-s: NF, FERI.
Frank
|\ /~ ~~|~~~ Family : NAGY; first name : FERENC; title : Ph. D.
| \ | -+- Institute of Isotopes of the Hungarian Academy of Sciences
| \| | 1121 BUDAPEST Konkoly-Thege M. ut 29, HUNGARY (1525 Bp. POB 77)
`-' ' `-' E-mail : [log in to unmask]
Fax: (36)-1-156-5045, work phone: (36)-1-275-4351, home phone: (36)-1-277-4229.
Home address: H-1214 BUDAPEST Raketa u. 29. I. 3.
There are 3 kinds of programming errors: syntactical, semantical and mystical.
The programmers have to suck up the users just as much as absolutely necessary.
dir d@,prog,b+
END OF PROGRAM
END OF PROGRAM
SELECTED FILE CODE=PROG
SORT ORDER: PAGE # 1 OF LISTDIR5>LISTF DIRECTORY REFORMATTED BY DIR.NF
1 B ASCENDING Birth [creation] date l‚trehoz s kelte
FILE NAMES RECORDS BYTES DATES
Name Group Account Code Prot Size Written Maxrecn Used Total Birth [creation] Last modified Read access
------------------------------------------------------------------------------------------------------------------------------------
DIR NF IKINFO PROG T 256 52 52 13312 13312 1992. 9. 1 TUE, 1992. 9. 1 TUE,15:29 1996.10. 1 TUE
DIRK NF IKINFO PROG T 256 63 63 16128 16128 1992. 9. 1 TUE, 1992. 9. 1 TUE,15:29 1996.10. 1 TUE
DIRL NF IKINFO PROG T 256 60 60 15360 15360 1992. 9. 1 TUE, 1992. 9. 1 TUE,15:30 1996.10. 1 TUE
DIRI NF IKINFO PROG T 256 10 10 2560 2560 1995. 6. 7 WED, 1995. 6. 7 WED,14:37 1996.10. 1 TUE
====================================================================================================================================
TOTAL: 4 FILES 4 PROTECTED 0.045 0.045 MB
END OF PROGRAM
:
dir mask="@",code="@",order="N",space=20000
option nolist,help
purge work,temp
build work;temp;rec=-136,1,v,ascii;cctl;disc=!space
file out=$newpass
run diri.nf.ikinfo;info="!mask"
file work=work;acc=append
file out=$oldpass
run listdir5.pub.sys;stdin=*out;stdlist=$null
file input=work,oldtemp
run dir.nf.ikinfo;info="!order,!code"
reset out
reset input
reset work
comment SORTED DIRECTORY WITH ATTACHED DATES
comment
comment PARAMETERS : DEFAULT VALUES:
comment 1) MASK = file search mask[s] separated by comma, "@";
comment 2) CODE = type (CODE) of files to be listed, "@";
comment 3) ORDER = sort conditions, "N";
comment 4) SPACE = workspace, 20000.
comment
comment The ORDER parameter contains the fields determining the
comment sort order. It can be a string containing the following letters:
comment A: account
comment B: birth [creation] date
comment C: code
comment G: group
comment L: last modification date
comment M: maximal number of records
comment N: name
comment P: protected [security is on] [false: RELEASED]
comment R: read [access] date
comment S: size of records
comment T: total bytes [file size]
comment U: used bytes [fill size]
comment W: written records tele¡rt
comment
comment After each letter can be:
comment + ascending
comment - descending
comment
comment WORKSPACE >SPACE=20*estimated_number_of_files.
comment
comment The listing is written to the device determined
comment by the OUTPUT file equation.
comment
comment You should switch before its use to 132 column mode
comment on your terminal.
comment
comment ^ SORTED DIRECTORY WITH ATTACHED DATES
* ^SORTED DIRECTORY WITH ATTACHED DATES
dirl mask="@",code="@",order="N",lines=1,space=20000
option nolist,help
purge work,temp
build work;temp;rec=-136,1,v,ascii;cctl;disc=!space
file out=$newpass
run diri.nf.ikinfo;info="!mask"
file work=work;acc=append
file out=$oldpass
run listdir5.pub.sys;stdin=*out;stdlist=$null
file input=work,oldtemp
run dirl.nf.ikinfo;parm=!lines;info="!order,!code"
reset out
reset input
reset work
purge $oldpass,temp
purge work,temp
comment SORTED DIRECTORY WITH DATES & THE BEGINNING OF THE FILES
comment
comment PARAMETERS : DEFAULT VALUES:
comment 1) MASK = file search mask[s] separated by comma, "@";
comment 2) CODE = type (CODE) of files to be listed, "@";
comment 3) ORDER = sort conditions, "N";
comment 4) LINES = number of lines to be listed, 1;
comment 5) SPACE = workspace, 20000.
comment
comment The ORDER parameter contains the fields determining the
comment sort order. It can be a string containing the following letters:
comment A: account
comment B: birth [creation] date
comment C: code
comment G: group
comment L: last modification date
comment M: maximal number of records
comment N: name
comment P: protected [security is on] [false: RELEASED]
comment R: read [access] date
comment S: size of records
comment T: total bytes [file size]
comment U: used bytes [fill size]
comment W: written records tele¡rt
comment
comment After each letter can be:
comment + ascending
comment - descending
comment
comment WORKSPACE >SPACE=20*estimated_number_of_files.
comment
comment The listing is written to the device determined
comment by the OUTPUT file equation.
comment
comment You should switch before its use to 132 column mode
comment on your terminal.
comment
comment ^ SORTED DIRECTORY WITH DATES & THE BEGINNING OF THE FILES
* ^DIRectory + Listing
autodel mask="@",code="@",order="N",space=20000
option nolist,help
purge work,temp
build work;temp;rec=-136,1,v,ascii;cctl;disc=!space
file out=$newpass
run diri.nf.ikinfo;info="!mask"
file work=work;acc=append
file out=$oldpass
run listdir5.pub.sys;stdin=*out;stdlist=$null
file input=work,oldtemp
run purgeall.feri.ikinfo;info="!order,!code"
reset out
reset work
reset input
purge $oldpass,temp
purge work,temp
COMMENT AUTOMATIC GENERAL DELETION BASED ON SORTED DIRECTORY.
comment
comment PARAMETERS : DEFAULT VALUES:
comment 1) MASK = file search mask[s] separated by comma, "@";
comment 2) CODE = type (CODE) of files to be listed, "@";
comment 3) ORDER = sort conditions, "N";
comment 4) SPACE = workspace, 20000.
comment
comment The ORDER parameter contains the fields determining the
comment sort order. It can be a string containing the following letters:
comment A: account
comment B: birth [creation] date
comment C: code
comment G: group
comment L: last modification date
comment M: maximal number of records
comment N: name
comment P: protected [security is on] [false: RELEASED]
comment R: read [access] date
comment S: size of records
comment T: total bytes [file size]
comment U: used bytes [fill size]
comment W: written records tele¡rt
comment
comment After each letter can be:
comment + ascending
comment - descending
comment
comment WORKSPACE >SPACE=20*estimated_number_of_files.
comment
comment The listing is written to the device determined
comment by the OUTPUT file equation.
comment
comment You should switch before its use to 132 column mode
comment on your terminal.
comment
comment ^AUTOMATIC GENERAL DELETION BASED ON SORTED DIRECTORY.
* ^AUTOmatic DELetion INTERACTIVE GENERAL DELETION BASED ON SORTED DIRECTORY.
gdel mask="@",code="@",order="N",space=20000
option nolist,help
purge work,temp
build work;temp;rec=-136,1,v,ascii;cctl;disc=!space
file out=$newpass
run diri.nf.ikinfo;info="!mask"
file work=work;acc=append
file out=$oldpass
run listdir5.pub.sys;stdin=*out;stdlist=$null
file input=work,oldtemp
file newplace=newpljob;temp;rec=-80,16,f,ascii;nocctl;disc=!space
run gdel.nf.ikinfo;info="!order,!code"
reset out
reset work
reset input
reset newplace
purge $oldpass,temp
purge work,temp
comment INTERACTIVE GENERAL DELETION BASED ON A SORTED DIRECTORY.
comment USEFUL FOR MOVING AND COPYING TO AN OTHER GROUP, TOO.
comment
comment The ORDER parameter contains the fields determining the
comment sort order. It can be a string containing the following letters:
comment A: account
comment B: birth [creation] date
comment C: code
comment G: group
comment L: last modification date
comment M: maximal number of records
comment N: name
comment P: protected [security is on] [false: RELEASED]
comment R: read [access] date
comment S: size of records
comment T: total bytes [file size]
comment U: used bytes [fill size]
comment W: written records tele¡rt
comment
comment After each letter can be:
comment + ascending
comment - descending
comment
comment WORKSPACE >SPACE=20*estimated_number_of_files.
comment
comment The listing is written to the device determined
comment by the OUTPUT file equation.
comment
comment You should switch before its use to 132 column mode
comment on your terminal.
comment
comment ^INTERACTIVE GENERAL DELETION BASED ON A SORTED DIRECTORY.
comment ^AZ LLOMNYOK THELYEZSRE IS HASZNLHAT•.
* ^General DELetion
dirk mask="@",CODE="@",order="N",lines=1,space=20000
option nolist,help
purge work,temp
build work;temp;rec=-136,1,v,ascii;cctl;disc=!space
file out=$newpass;disc=3
run diri.nf.ikinfo;info="!mask"
file out=$oldpass
run listdir5.pub.sys;stdin=*out;STDLIST=*OUTPUT
file input=work,oldtemp
run dirk.nf.ikinfo;parm=!lines;info="!order,!CODE"
reset out
reset input
purge $oldpass,temp
purge work,temp
comment BRW REPORT DIRECTORY WITH THE BEGINNING OF THE FILES
comment
comment PARAMETERS : DEFAULT VALUES:
comment 1) MASK = file search mask[s] separated by comma, "@";
comment 2) CODE = type (CODE) of files to be listed, "@";
comment 3) ORDER = sort conditions, "N";
comment 4) LINES = number of lines to be listed, 1;
comment 5) SPACE = workspace, 20000.
comment
comment The ORDER parameter contains the fields determining the
comment sort order. It can be a string containing the following letters:
comment A: account
comment B: birth [creation] date
comment C: code
comment G: group
comment L: last modification date
comment M: maximal number of records
comment N: name
comment P: protected [security is on] [false: RELEASED]
comment R: read [access] date
comment S: size of records
comment T: total bytes [file size]
comment U: used bytes [fill size]
comment W: written records tele¡rt
comment
comment After each letter can be:
comment + ascending
comment - descending
comment
comment WORKSPACE >SPACE=20*estimated_number_of_files.
comment
comment The listing is written to the device determined
comment by the OUTPUT file equation.
comment
comment You should switch before its use to 132 column mode
comment on your terminal.
comment
comment ^ BRW REPORT DIRECTORY WITH THE BEGINNING OF THE FILES
* ^DIRectory + K listing
|
