MPEX can make MPE

A whole lot easier

to live with

MPEX*3000

PRODUCTIVITY TOOL FOR HP 3000

Have you ever been forced to recompile 50 programs? Or perhaps list them out? Or RELEASE them and FCOPY them one by one? Now, with MPEX/3000, you can avoid the loss of precious time and the inevitable (and possible destructive) errors and perform these operators by merely typing a few lines.

• MPEX/3000 enables the use of FILESETS (e.g., "GL@") in commands such as COBOL, PRINT, FCOPY, RENAME, PURGE and others, which under MPE can handle only a single file, as well as "new" commands link EDIT and ALTFILE. An MPEX fileset can be not only the usual LISTF fileset, but also a fileset such as "AP+GL@-@20(CODE=EDTCT)", which means all files in the set AP@ and files in the set GL@ that have a file code of EDTCT, except files in the fileset @20!

• MPEX/3000 can perform its commands OFFLINE (in a stream), ONLINE, or ONLINE with Y/N verification

• MPEX/3000’s ALTFILE command permits you to save a lot of disc space by squeezing out disc space between a file’s end of file and its file limit; change the creatorof a database or of any fileset; move a group of files to one disc drive; change capabilities, maxdata, etc., of program files; and more!

• MPEX/3000’s expanded LISTF command allows you to see files’ creator id, creation date, last access date and last modification date (and even time); or a file’s extent map; or the capabilities and maxdata of program files; or who and how a file is been accessed; or database information including set name, capacities, percentage full, etc. MPEX/3000 includes 20+ LISTF modes and the facility to create your own!

• MPEX/3000’s PURGE command permit’s one to purge filesets of spoolfiles, purge unneeded privileged files. RENAME, RELEASE, SECURE and ALTSEC files that you did not create (but have appropriate access to).

• MPEX/3000 includes MPEXHOOK, which allows you to :RUN, COMPILE, and even execute UDCs from with your editor (and most other subsystems, e.g. QUERY, DBUTIL) without ever EXITing!

• And more. Much more!

An example is worth a thousand syntax diagrams. Here are only a few of the

things you can do with MPEX. We won't discuss each one in too great a detail

-- see the appropriate manual section for a complete explanation. (Remember

also that these examples are only the tip of the iceberg; there are many more

features discussed further in the manual.)

%ALTFILE @.@(CREATOR="JOHN"); CREATOR=MANAGER

After you purge the user JOHN, this command will change all of his files

to have creator ID (IDentification) MANAGER.

%ALTFILE @.DATA-CUST@.DATA(INTCODE=0); FLIMIT=EOF*1.5

Sets the file limit of the (MPE and KSAM) files in the DATA group (except

for files that start with CUST) to be 50% greater than the current EOF.

%ALTSPOOLFILE $STDLIST.@.@(SPOOL.JSNAME="MCOMPILE"); PRI=8

Changes to 8 the output priority of all $STDLISTs belonging to jobs that

logged on with job/session name MCOMPILE.

%COPY @.@.AP, @/=.@.APBACKUP; KEEPATTR

Copies all the files in the AP account into the APBACKUP account,

preserving file attributes (e.g. creator ID, file limit, lockword, etc.).

%COPY @.DATA, =.=; YES; DEV=ROBIN#

Copies all the files in the group DATA (including IMAGE databases and KSAM

files!) over a DSLINE (or NS LAN, etc.) to system ROBIN, purging any files

that already exist with the same name.

%DELETESPOOLFILE $STDLIST.@.@(SPOOL.OUTPRI<=2)

Deletes all the $STDLISTs that have output priority 2 or less.

%LISTF MYFILE, ACCESS

Shows all the accessors of MYFILE: accessing program name, access job

number/name, current record being accessed, etc.

%LISTF @.DATA, DISCUSE

Shows which devices the files in the "DATA" group reside on (invaluable if

you're interested in disc balancing).

%MPEXSTORE @.@.@ - @.@.SYS - @.@.VESOFT &

(ACCDATE<TODAY-90 and NOT ISPRIV); *T; SHOW

%MPEXSTORE / - /SYS/ - @.@.VESOFT &

(ACCDATE<TODAY-90 and NOT ISPRIV); *T; SHOW (POSIX)

Implements the sophisticated MPEX FILESETS (with multiple "-"s, combining

MPE & HFS syntax, selection criteria, etc.) on the MPE :STORE command.

%REPEAT

%>ECHO -----Formatting !MPEXCURRENTFILE

%>RUN MYFMT;INFO="!MPEXCURRENTFILE"

%>FORFILES X@.SOURCE

Performs a user-specified set of commands (here ECHO and RUN) on a

fileset.

%SHOWOUT $STDLIST.@.@(SPOOL.OUTPRI=1)

Shows information on all $STDLISTs with output priority 1 in the system,

including job number, job name, ready date, etc.

%SHOWOUTJ COMP010,@.PROD

Shows information on all the spool files created by a job that logged on

with job name COMP010 in the PROD account.

%ALTFILE @.@.@; XLTRIM; KEEPAMDATES (MPE/iX)

%ALTFILE / ; XLTRIM; KEEPAMDATES (POSIX)

On MPE/iX systems, this command releases a lot of currently unused disc

space that has been allocated to files, without changing the capacity

(FLIMIT) of the files in any way. (The "KEEPAMDATES" option tells MPEX

not to change the last access/modify dates of any files it alters, so they

won't appear on your next partial backup.)

%COPY @.@.MFG, =.=.MFGBACK

Makes a backup copy of the MFG account to the MFGBACK account.

%LISTF @.DATA(ISASCII and SAVABLESECTORS>100),2

Lists all the MPE ("flat") files that have FLIMIT greater than EOF and/or

inefficient R/B (blocking factor); by SQUEEZEing and reblocking (BEST)

them one might save more than 100 sectors on each file.

%ALTFILE RPT@.DATA(ISASCII); SQUEEZE

"Squeezes out" all the unused space between EOF and file limit in all

blank-code files that start with RPT in the DATA group.

%EDIT @.SOURCE(CODE="EDTCT"), SET VARIABLE

Converts all EDITOR COBOL-format files in the SOURCE group to be variable

record length files, saving 30-50% of the disc space while still leaving

them editable, compilable, etc.

%LISTF @.@.@(ACCDATE<TODAY-120), 3

Finds all the files that haven't been accessed in the last 120 days and

lists their names, access dates, modify dates, etc.; also shows total

number of files and sectors.

%PURGE K#######.@.@+LOG####.@.@(CREDATE<TODAY-7)

Purges EDITOR K-files and system log files created more than a week ago.

Prompts you for confirmation before purging anything!

%PURGE @.@.@ - @.@.VESOFT(ACCDATE<TODAY-120 and NOT ISPRIV)

%PURGE / - @.@.VESOFT(ACCDATE<TODAY-120 and NOT ISPRIV) (POSIX)

Purges all the non-privileged (mostly non-IMAGE) files that haven't been

accessed in the last 120 days.

%COBOL AP@.SOURCE,AP@.PUB,*LP

Compiles using COBOL and :PREPs all the AP@.SOURCE files into program

files with the same name in the PUB group. (Of course, the same works for

FORTRAN, PASCAL, RPG, etc.)

%PRINT @.SOURCE;SEARCH="ITEM-NUM" or "ITEM-NAME" or "ITEM-DESC";NUM

Finds all the occurrences of the strings "ITEM-NUM" or "ITEM-NAME" or

"ITEM-DESC" in all files in the SOURCE group. (Does your editor give you

this kind of power?)

%PRINT @.SOURCE;SEARCH=DELIM "MYVAR";PREV="PROCEDURE" or "FUNCTION"

Prints all occurrences of the string "MYVAR" -- for each occurrence, also

prints the last prior occurrence of the line that contains the strings

"PROCEDURE" or "FUNCTION"; in other words, shows you all the lines that

refer to "MYVAR" AND indicates what procedure they occur in!

The DELIM means that "MYVAR" will be searched for as a delimited string,

i.e. surrounded by special characters (e.g. lines containing "TEMPMYVAR"

or "MYVARIATION" will not be found).

%COBOL @.PRODSRC(FSEARCHEXP("'CUST-NO' or 'CUST-NAME'")>0), =.PUB

Recompiles all the files in PRODSRC that contain within them either the

string CUST-NO or the string CUST-NAME!

%EDITCHG @.SOURCE, "ITEM-NO", "ITEM-NUMBER"

Changes all occurrences of "ITEM-NO" to "ITEM-NUMBER" in all files in the

SOURCE group, /KEEPing only those files that were actually changed.

%LISTF @.PRODSRC(MODDATE>3/15/91), 3

Finds all the files in PRODSRC that have been modified since 3/15/91

(perhaps the last production release date).

%PRINT @.SOURCE; OUT=*LP; PAGEHEAD; NUM

Prints all the SOURCE group files to the line printer (with page headers,

nicely-formatted line numbers, etc.).

%COBOL @.PRODSRC(MODDATETIME>VEFINFO(FILE+".PUB").MODDATETIME), =.PUB

Compiles all the PRODSRC files whose modify dates (and times) are later

than the modify dates (and times) of files with the same name in the PUB

group (VEFINFO(FILE+".PUB").MODDATETIME). In other words, this recompiles

all the programs that have been modified but not recompiled into PUB.

Fancy, eh?

%ALTFILE CUST?#.DB(DBSETTYPE="D"); DEV=2

%ALTFILE CUST?#.DB(DBSETTYPE<>"D"); DEV=3

These two commands move all detail datasets of the CUST database to device

2 and all non-detail datasets to device 3.

%ALTFILE @.@.AP(CREATOR<>"DBA" and ISPRIV); CREATOR=DBA

Changes the creator ID of all AP databases (ISPRIV) to be DBA, thus making

sure that DBA -- and only DBA -- can run DBUTIL, DBSTORE, etc. against

all those databases.

%COPY APDB@, DBNEW@; DEV=3

Copies the APDB database into a new database called DBNEW, moving all the

files onto disc device 3.

%DBADGALT @.DB(DBSETFULLNESS>.8 and MODDATE>TODAY-30), 0.6

%DBGENALT @.DB(DBSETFULLNESS>.8 and MODDATE>TODAY-30), 0.6

%DBMGRALT @.DB(DBSETFULLNESS>.8 and MODDATE>TODAY-30), 0.6

Use ADAGER, DBGENERAL/BRADMARK, or DBMGR/DISC to alter the capacity of all

datasets in the DB group that are currently more than 80% full (and have

been modified within the last 30 days) so that they will only be 60% full.

%LISTF @.@.AP(DBSETFULLNESS>.70 and MODDATE>TODAY-7), DB

Shows database information (dataset name, type, capacity, etc.) for all

datasets in the AP account that are more than 70% full and have been

modified in the past week.

%RENAME MYDB@(ISPRIV), NEWDB@

Renames a database.

%LISTF @.@.@(ISPROG and PROG.PMCAP), 5

Finds all the privileged-mode program files in the system and lists their

program file information.

%LISTF @.@.PAYROLL(ACCDATE>=TODAY-2)

On Monday, this shows all files in the PAYROLL account that were accessed

over the weekend.

%SECURE @.@.@(ISPROG and ISRELEASED and DIRGROUP.CAP("PM"))

Secures all the :RELEASEd program files in privileged groups (which are a

SERIOUS THREAT to system security).

%LISTF @,SEC

Shows the "true" access to the file, factoring in both the group- and

account-level restrictions as well as the file restrictions and the

:RELEASE/:SECURE status.

!JOB JOBA,MGR.PROD

!RUN MAIN.PUB.VESOFT;PARM=1

%WHILE JSCOUNT("JOBB,MGR.PROD&BATCH")>0 DO

% PAUSE 120

%ENDWHILE

%EXIT

...

If the job JOBB,MGR.PROD is logged on, waits until it logs off before

continuing execution of JOBA.

!JOB JOBA,MGR.PROD

...

!RUN MAIN.PUB.VESOFT;PARM=1

%WHILE VEFINFO("DATAFILE").OPENED DO

% PAUSE 120

%ENDWHILE

%EXIT

...

If the file DATAFILE is opened, waits until it is closed before continuing

execution.

!JOB JOBA,MGR.PROD

...

!RUN MAIN.PUB.VESOFT;PARM=1

%SETVAR FNAME PRINTOPREPLY('Which file should we output to?')

%IF FEXISTS(FNAME) THEN

% IF PRINTOPREPLY('OK to purge file '+FNAME+'?')='Y' THEN

% PURGE !FNAME

% ENDIF

%ENDIF

%FILE MYOUTFIL=!FNAME,NEW;SAVE

%EXIT

...

Asks the console operator for feedback via the :REPLY command and uses it

to set up a :FILE-equation and possibly purge the file (if it already

exists).