Article View: bit.listserv.vm-util
Article #3855Re: VMARC front-end
From: Scott (nmi) Mattes
Date: Tue, 31 Dec 1991 16:38
Date: Tue, 31 Dec 1991 16:38
706 lines
25723 bytes
25723 bytes
:READ QVMARC VMSHARE
Fullscreen front end to the VMARC command from the 1990 Workshop tape
:READ QVMARC EXEC
/* -------------------------------------------------------- */
trace
ADDRESS command
'XEDIT QUERY VMARC S (PROFILE QVMARC WIDTH 108)'
EXIT rc
:READ QVMARC XEDIT
/**/
TRACE
ADDRESS xedit
/*----------------------------------------------------------
Setup pfk definitions
----------------------------------------------------------*/
DO i=1 TO 24
'COMMAND SET PF'i' AFTER DUMMY DEF'
END
'COMMAND SET PA2 DUMMY DEF'
'COMMAND SET PA3 DUMMY DEF'
/*----------------------------------------------------------
Setup the XEDIT environment
----------------------------------------------------------*/
'COMMAND SET LRECL 108'
'COMMAND SET TRUNC *'
'COMMAND SET CASE MIXED IGNORE'
'COMMAND SET CMDLINE OFF'
'COMMAND SET ESCAPE OFF'
'COMMAND SET LINEND OFF'
'COMMAND SET PREFIX OFF'
'COMMAND SET SCALE OFF'
'COMMAND SET MSGMODE OFF'
'COMMAND SET MSGLINE ON 1 OVERLAY'
'COMMAND SET STAY ON'
'COMMAND SET WRAP ON'
'COMMAND SET CURLINE ON 4'
'COMMAND SET COLOR CURLINE NOHIGH'
'COMMAND SET TOFEOF OFF'
'COMMAND SET NONDISP'
'COMMAND SET CTLCHAR ! ESCAPE'
'COMMAND SET CTLCHAR B PROTECT BLUE HIGH '
'COMMAND SET CTLCHAR b PROTECT BLUE NOHIGH'
'COMMAND SET CTLCHAR G PROTECT GREEN HIGH '
'COMMAND SET CTLCHAR g PROTECT GREEN NOHIGH'
'COMMAND SET CTLCHAR P PROTECT PINK HIGH '
'COMMAND SET CTLCHAR p PROTECT PINK NOHIGH'
'COMMAND SET CTLCHAR R PROTECT RED HIGH '
'COMMAND SET CTLCHAR r PROTECT RED NOHIGH'
'COMMAND SET CTLCHAR T PROTECT TURQUOISE HIGH '
'COMMAND SET CTLCHAR t PROTECT TURQUOISE NOHIGH'
'COMMAND SET CTLCHAR W PROTECT WHITE HIGH '
'COMMAND SET CTLCHAR w PROTECT WHITE NOHIGH'
'COMMAND SET CTLCHAR Y PROTECT YELLOW HIGH '
'COMMAND SET CTLCHAR y PROTECT YELLOW NOHIGH'
'COMMAND SET CTLCHAR I NOPROTECT PINK HIGH '
'COMMAND SET CTLCHAR i NOPROTECT PINK NOHIGH'
/*----------------------------------------------------------
Find and display the names
----------------------------------------------------------*/
Init:
err = 0
/*----------------------------------------------------------
Setup nickname display
----------------------------------------------------------*/
ADDRESS CMS 'LISTFILE * VMARC * (XEDIT FNAME'
IF rc <> 0
THEN DO
'QQUIT 28'
EXIT
END
'VERIFY 6 15'
':1 SORT * 1 9'
'CURSOR SCREEN 2 2'
/*----------------------------------------------------------
Main loop
----------------------------------------------------------*/
DO FOREVER
IF err = 0
THEN errmsg = ''
CALL Display_screen
err = 0
'READ NOCHANGE TAG'
PULL key line column string
SELECT
/*----------------------------------------------------------
FIL - modified personnel data
----------------------------------------------------------*/
WHEN key = 'FIL' THEN NOP
/*----------------------------------------------------------
Enter key
----------------------------------------------------------*/
WHEN key = 'ETK' THEN NOP
/*----------------------------------------------------------
Nickname or person change
----------------------------------------------------------*/
WHEN key = 'RES' THEN NOP
/*----------------------------------------------------------
PF key
----------------------------------------------------------*/
WHEN key = 'PFK' THEN
SELECT
/*----------------------------------------------------------
PF1 key - LIST
----------------------------------------------------------*/
WHEN line=1 : line=13
THEN DO
'EXTRACT /CURLINE /CURSOR /LINE'
IF cursor.3 < 1
THEN DO
errmsg = 'Place the cursor on the archive file',
'to be selected, then Press PF1'
err = 1
END
ELSE DO
'LOCATE :'cursor.3 'EXTRACT /CURLINE'
PARSE VAR curline.3 arc_file .
'EXEC QVMARCL' arc_file
'COMMAND LOCATE :'line.1
END
END
/*----------------------------------------------------------
PF3 key - CANCEL/QUIT
----------------------------------------------------------*/
WHEN line=3 : line=15
THEN DO
DO Queued()
PULL .
END
'QQUIT'
EXIT
END
/*----------------------------------------------------------
PF7 key - SCROLL BACKWARD
----------------------------------------------------------*/
WHEN line=7 : line=19
THEN DO
'COMMAND EXTRACT /RANGE/FLSCREEN/'
IF range.1 < flscreen.1
THEN 'COMMAND BACKWARD'
ELSE DO
errmsg = 'You are at the TOP of the file'
err = 1
END
END
/*----------------------------------------------------------
PF8 key - SCROLL FORWARD
----------------------------------------------------------*/
WHEN line=8 : line=20
THEN DO
'COMMAND EXTRACT /RANGE/FLSCREEN/'
IF range.2 > flscreen.2
THEN 'COMMAND FORWARD'
ELSE DO
errmsg = 'You are at the END of the file'
err = 1
END
END
/*----------------------------------------------------------
Invalid key
----------------------------------------------------------*/
OTHERWISE DO
IF QUEUED() <> 0 THEN 'DESBUF'
errmsg = 'Unsupported PF key'
err = 1
END
END
OTHERWISE DO
IF QUEUED() <> 0 THEN 'DESBUF'
errmsg = 'Unsupported function key'
err = 1
END
END
END
/*----------------------------------------------------------
Setup for screen display
----------------------------------------------------------*/
Display_screen:
'COMMAND SET RESERVED 1 NOH !R'CENTER(errmsg,80)
'COMMAND SET RESERVED 2 NOH !YFiles in VMARC format'
'COMMAND SET RESERVED 3 NOH'
'COMMAND SET RESERVED -2 NOH'
'COMMAND SET RESERVED -1 NOH' CENTER('!bPF1=!WList',
'!bPF3=!WQuit !bPF7=!WBackward !bPF8=!WForward',80)
RETURN
:READ QVMARCL EXEC
/* -------------------------------------------------------- */
ADDRESS command
TRACE
PARSE UPPER ARG arc_file .
'XEDIT QUERY VMARCL A (WIDTH 80 PROFILE QVMARCL)' arc_file
EXIT
:READ QVMARCL XEDIT
/**/
TRACE
ADDRESS xedit
PARSE ARG ')' arclib .
/*----------------------------------------------------------
Setup pfk definitions
----------------------------------------------------------*/
DO i=1 TO 24
'COMMAND SET PF'i' AFTER DUMMY DEF'
END
'COMMAND SET PA2 DUMMY DEF'
'COMMAND SET PA3 DUMMY DEF'
/*----------------------------------------------------------
Setup the XEDIT environment
----------------------------------------------------------*/
'COMMAND SET LRECL 80'
'COMMAND SET TRUNC *'
'COMMAND SET CASE MIXED IGNORE'
'COMMAND SET CMDLINE OFF'
'COMMAND SET ESCAPE OFF'
'COMMAND SET LINEND OFF'
'COMMAND SET PREFIX OFF'
'COMMAND SET SCALE OFF'
'COMMAND SET MSGMODE OFF'
'COMMAND SET MSGLINE ON 1 OVERLAY'
'COMMAND SET STAY ON'
'COMMAND SET WRAP ON'
'COMMAND SET CURLINE ON 4'
'COMMAND SET COLOR CURLINE NOHIGH'
'COMMAND SET TOFEOF OFF'
'COMMAND SET NONDISP'
'COMMAND SET CTLCHAR ! ESCAPE'
'COMMAND SET CTLCHAR B PROTECT BLUE HIGH '
'COMMAND SET CTLCHAR b PROTECT BLUE NOHIGH'
'COMMAND SET CTLCHAR G PROTECT GREEN HIGH '
'COMMAND SET CTLCHAR g PROTECT GREEN NOHIGH'
'COMMAND SET CTLCHAR P PROTECT PINK HIGH '
'COMMAND SET CTLCHAR p PROTECT PINK NOHIGH'
'COMMAND SET CTLCHAR R PROTECT RED HIGH '
'COMMAND SET CTLCHAR r PROTECT RED NOHIGH'
'COMMAND SET CTLCHAR T PROTECT TURQUOISE HIGH '
'COMMAND SET CTLCHAR t PROTECT TURQUOISE NOHIGH'
'COMMAND SET CTLCHAR W PROTECT WHITE HIGH '
'COMMAND SET CTLCHAR w PROTECT WHITE NOHIGH'
'COMMAND SET CTLCHAR Y PROTECT YELLOW HIGH '
'COMMAND SET CTLCHAR y PROTECT YELLOW NOHIGH'
'COMMAND SET CTLCHAR I NOPROTECT PINK HIGH '
'COMMAND SET CTLCHAR i NOPROTECT PINK NOHIGH'
/*----------------------------------------------------------
Find and display the names
----------------------------------------------------------*/
Init:
err = 0
'VMARC LIST' arclib 'VMARC * (FIFO'
DO QUEUED()
PULL line
'INPUT' line
END
':1'
/*----------------------------------------------------------
Main loop
----------------------------------------------------------*/
DO FOREVER
IF err = 0
THEN errmsg = ''
CALL Display_screen
err = 0
'READ NOCHANGE TAG'
PULL key line column string
SELECT
WHEN key = 'FIL' THEN NOP
WHEN key = 'ETK' THEN NOP
WHEN key = 'RES' THEN NOP
/*----------------------------------------------------------
PF key
----------------------------------------------------------*/
WHEN key = 'PFK' THEN
SELECT
/*----------------------------------------------------------
PF1 key - PEEK
----------------------------------------------------------*/
WHEN line=1 : line=13
THEN DO
'EXTRACT /CURLINE /CURSOR /LINE'
IF cursor.3 < 1
THEN DO
errmsg = 'Place the cursor on the archive file',
'to be selected, then Press PF1'
err = 1
END
ELSE DO
'LOCATE :'cursor.3 'EXTRACT /CURLINE'
PARSE VAR curline.3 arcfn arcft .
'VMARC UNPACK' arclib 'VMARC *',
arcfn arcft 'A (IGNORE FIFO'
IF rc = 0
THEN DO
PARSE UPPER PULL 1 fn 9 ft .
'BROWSE' fn ft
'ERASE' fn ft
END
'COMMAND LOCATE :'line.1
END
END
/*----------------------------------------------------------
PF2 key - UNPACK
----------------------------------------------------------*/
WHEN line=2 : line=14
THEN DO
'EXTRACT /CURLINE /CURSOR /LINE'
IF cursor.3 < 1
THEN DO
errmsg = 'Place the cursor on the archive file',
'to be selected, then Press PF1'
err = 1
END
ELSE DO
'LOCATE :'cursor.3 'EXTRACT /CURLINE'
PARSE VAR curline.3 arcfn arcft .
'VMARC UNPACK' arclib 'VMARC *',
arcfn arcft 'A (FIFO IGNORE'
IF rc = 0
THEN DO
PARSE UPPER PULL 1 fn 9 ft .
errmsg = arcfn arcft 'has been unpacked into',
STRIP(fn) STRIP(ft)
err = 1
END
'COMMAND LOCATE :'line.1
END
END
/*----------------------------------------------------------
PF3 key - CANCEL/QUIT
----------------------------------------------------------*/
WHEN line=3 : line=15
THEN DO
DO Queued()
PULL .
END
'QQUIT'
EXIT
END
/*----------------------------------------------------------
PF7 key - SCROLL BACKWARD
----------------------------------------------------------*/
WHEN line=7 : line=19
THEN DO
'COMMAND EXTRACT /RANGE/FLSCREEN/'
IF range.1 < flscreen.1
THEN 'COMMAND BACKWARD'
ELSE DO
errmsg = 'You are at the TOP of the file'
err = 1
END
END
/*----------------------------------------------------------
PF8 key - SCROLL FORWARD
----------------------------------------------------------*/
WHEN line=8 : line=20
THEN DO
'COMMAND EXTRACT /RANGE/FLSCREEN/'
IF range.2 > flscreen.2
THEN 'COMMAND FORWARD'
ELSE DO
errmsg = 'You are at the END of the file'
err = 1
END
END
/*----------------------------------------------------------
Invalid key
----------------------------------------------------------*/
OTHERWISE DO
IF QUEUED() <> 0 THEN 'DESBUF'
errmsg = 'Unsupported PF key'
err = 1
END
END
OTHERWISE DO
IF QUEUED() <> 0 THEN 'DESBUF'
errmsg = 'Unsupported function key'
err = 1
END
END
END
/*----------------------------------------------------------
Setup for screen display
----------------------------------------------------------*/
Display_screen:
'COMMAND SET RESERVED 1 NOH !R'CENTER(errmsg,80)
'COMMAND SET RESERVED 2 NOH !YFiles contained in' arclib 'VMARC *'
'COMMAND SET RESERVED 3 NOH'
'COMMAND SET RESERVED -2 NOH'
'COMMAND SET RESERVED -1 NOH' CENTER('!bPF1=!WPeek !bPF2=!WUnpack',
'!bPF3=!WQuit !bPF7=!WBackward !bPF8=!WForward',80)
RETURN
>>> REVISED 07/19/90 15:48:02 BY SDG/RICH <<<
*** CREATED 07/19/90 10:59:57 BY SDG/RICH ***
Revised on 07/19/90 at 15:48 by Sterling Drug Inc/Richard Ross/201-249-5250:
Revised append dated 07/19/90 at 10:59:57.
*** REVISED 07/19/90 15:48:05 BY SDG/RICH ***
Append on 07/30/90 at 11:03 by Sterling Drug Inc/Richard Ross/201-249-5250:
:READ QVMARCL XEDIT
/**/
TRACE
ADDRESS xedit
PARSE ARG ')' arclib .
/*----------------------------------------------------------
Setup pfk definitions
----------------------------------------------------------*/
DO i=1 TO 24
'COMMAND SET PF'i' AFTER DUMMY DEF'
END
'COMMAND SET PA2 DUMMY DEF'
'COMMAND SET PA3 DUMMY DEF'
/*----------------------------------------------------------
Setup the XEDIT environment
----------------------------------------------------------*/
'COMMAND SET LRECL 80'
'COMMAND SET TRUNC *'
'COMMAND SET CASE MIXED IGNORE'
'COMMAND SET CMDLINE OFF'
'COMMAND SET ESCAPE OFF'
'COMMAND SET LINEND OFF'
'COMMAND SET PREFIX OFF'
'COMMAND SET SCALE OFF'
'COMMAND SET MSGMODE OFF'
'COMMAND SET MSGLINE ON 1 OVERLAY'
'COMMAND SET STAY ON'
'COMMAND SET WRAP ON'
'COMMAND SET CURLINE ON 5'
'COMMAND SET COLOR CURLINE NOHIGH'
'COMMAND SET TOFEOF OFF'
'COMMAND SET NONDISP'
'COMMAND CURSOR SCREEN 3 20'
'COMMAND SET CTLCHAR ! ESCAPE'
'COMMAND SET CTLCHAR B PROTECT BLUE HIGH '
'COMMAND SET CTLCHAR b PROTECT BLUE NOHIGH'
'COMMAND SET CTLCHAR G PROTECT GREEN HIGH '
'COMMAND SET CTLCHAR g PROTECT GREEN NOHIGH'
'COMMAND SET CTLCHAR P PROTECT PINK HIGH '
'COMMAND SET CTLCHAR p PROTECT PINK NOHIGH'
'COMMAND SET CTLCHAR R PROTECT RED HIGH '
'COMMAND SET CTLCHAR r PROTECT RED NOHIGH'
'COMMAND SET CTLCHAR T PROTECT TURQUOISE HIGH '
'COMMAND SET CTLCHAR t PROTECT TURQUOISE NOHIGH'
'COMMAND SET CTLCHAR W PROTECT WHITE HIGH '
'COMMAND SET CTLCHAR w PROTECT WHITE NOHIGH'
'COMMAND SET CTLCHAR Y PROTECT YELLOW HIGH '
'COMMAND SET CTLCHAR y PROTECT YELLOW NOHIGH'
'COMMAND SET CTLCHAR I NOPROTECT PINK HIGH '
'COMMAND SET CTLCHAR i NOPROTECT PINK NOHIGH'
/*----------------------------------------------------------
Find and display the names
----------------------------------------------------------*/
Init:
err = 0
date = 'OLD'
ignore = ''
replace = 'NO'
'VMARC LIST' arclib 'VMARC * (FIFO'
DO QUEUED()
PULL line
'INPUT' line
END
':1 SORT * A 1 8 10 17'
/*----------------------------------------------------------
Main loop
----------------------------------------------------------*/
DO FOREVER
IF err = 0
THEN errmsg = ''
CALL Display_screen
err = 0
'READ NOCHANGE TAG'
PULL key line column string
SELECT
WHEN key = 'FIL' THEN CALL Read_lines
WHEN key = 'RES' THEN CALL Read_lines
/*----------------------------------------------------------
ENTER key
----------------------------------------------------------*/
WHEN key = 'ETK'
THEN DO
CALL Read_lines
IF err = 1 THEN ITERATE
'EXTRACT /CURLINE /CURSOR /LINE'
IF cursor.3 < 1 THEN NOP
ELSE DO
'LOCATE :'cursor.3 'EXTRACT /CURLINE'
PARSE VAR curline.3 arcfn arcft .
'VMARC UNPACK' arclib 'VMARC *',
arcfn arcft 'A (IGNORE FIFO REPLACE'
IF rc = 0
THEN DO QUEUED()
PARSE UPPER PULL 1 fn 9 ft .
'BROWSE' fn ft
'ERASE' fn ft
END
'COMMAND LOCATE :'line.1
END
END
/*----------------------------------------------------------
PF key
----------------------------------------------------------*/
WHEN key = 'PFK' THEN
SELECT
/*----------------------------------------------------------
PF1 key - PEEK
----------------------------------------------------------*/
WHEN line=1 : line=13
THEN DO
CALL Read_lines
IF err = 1 THEN ITERATE
'EXTRACT /CURLINE /CURSOR /LINE'
IF cursor.3 < 1
THEN DO
errmsg = 'Place the cursor on the archive file',
'to be selected, then Press PF1'
err = 1
END
ELSE DO
'LOCATE :'cursor.3 'EXTRACT /CURLINE'
PARSE VAR curline.3 arcfn arcft .
'VMARC UNPACK' arclib 'VMARC *',
arcfn arcft 'A (IGNORE FIFO REPLACE'
IF rc = 0
THEN DO QUEUED()
PARSE UPPER PULL 1 fn 9 ft .
'BROWSE' fn ft
'ERASE' fn ft
END
'COMMAND LOCATE :'line.1
END
END
/*----------------------------------------------------------
PF2 key - UNPACK
----------------------------------------------------------*/
WHEN line=2 : line=14
THEN DO
CALL Read_lines
IF err = 1 THEN ITERATE
'EXTRACT /CURLINE /CURSOR /LINE'
IF cursor.3 < 1
THEN DO
errmsg = 'Place the cursor on the archive file',
'to be selected, then Press PF1'
err = 1
END
ELSE DO
'LOCATE :'cursor.3 'EXTRACT /CURLINE'
PARSE VAR curline.3 arcfn arcft .
'VMARC UNPACK' arclib 'VMARC *',
arcfn arcft 'A (FIFO',
date'DATE' ignore'IGNORE' replace'REPLACE'
DO QUEUED()
IF QUEUED() > 1
THEN mult = 1
ELSE mult = 0
DO QUEUED()
PARSE UPPER PULL 1 fn 9 ft .
END
IF mult & ignore = ''
THEN DO
fn = 'multiple FILEnnnn'
ft = 'VMARCOUT files'
END
errmsg = arcfn arcft 'has been unpacked into',
STRIP(fn) STRIP(ft)
err = 1
END
'COMMAND LOCATE :'line.1
END
END
/*----------------------------------------------------------
PF3 key - CANCEL/QUIT
----------------------------------------------------------*/
WHEN line=3 : line=15
THEN DO
DO Queued()
PULL .
END
'QQUIT'
EXIT
END
/*----------------------------------------------------------
PF7 key - SCROLL BACKWARD
----------------------------------------------------------*/
WHEN line=7 : line=19
THEN DO
CALL Read_lines
IF err = 1 THEN ITERATE
'COMMAND EXTRACT /RANGE/FLSCREEN/'
IF range.1 < flscreen.1
THEN 'COMMAND BACKWARD'
ELSE DO
errmsg = 'You are at the TOP of the file'
err = 1
END
END
/*----------------------------------------------------------
PF8 key - SCROLL FORWARD
----------------------------------------------------------*/
WHEN line=8 : line=20
THEN DO
CALL Read_lines
IF err = 1 THEN ITERATE
'COMMAND EXTRACT /RANGE/FLSCREEN/'
IF range.2 > flscreen.2
THEN 'COMMAND FORWARD'
ELSE DO
errmsg = 'You are at the END of the file'
err = 1
END
END
/*----------------------------------------------------------
Invalid key
----------------------------------------------------------*/
OTHERWISE DO
IF QUEUED() <> 0 THEN 'DESBUF'
errmsg = 'Unsupported PF key'
err = 1
END
END
OTHERWISE DO
IF QUEUED() <> 0 THEN 'DESBUF'
errmsg = 'Unsupported function key'
err = 1
END
END
END
/*----------------------------------------------------------
Setup for screen display
----------------------------------------------------------*/
Display_screen:
'COMMAND SET RESERVED 1 NOH !R'CENTER(errmsg,80)
'COMMAND SET RESERVED 2 NOH !YFiles contained in' arclib 'VMARC'
'COMMAND SET RESERVED 3 NOH !YUNPACK OPTIONS: ('::,
'!i'LEFT(STRIP(date),3)'!TDATE) ('::,
'!i'LEFT(STRIP(ignore),2)'!TIGNORE) ('::,
'!i'LEFT(STRIP(replace),2)'!TREPLACE)!Y'
'COMMAND SET RESERVED 4 NOH'
'COMMAND SET RESERVED -2 NOH'
'COMMAND SET RESERVED -1 NOH' CENTER('!bPF1=!WPeek !bPF2=!WUnpack',
'!bPF3=!WQuit !bPF7=!WBackward !bPF8=!WForward',80)
RETURN
/*----------------------------------------------------------
Read lines stacked
----------------------------------------------------------*/
Read_lines:
DO QUEUED()
PARSE PULL key line column string
SELECT
WHEN line = '3' & column = '20'
THEN date = TRANSLATE(SPACE(string))
WHEN line = '3' & column = '32'
THEN ignore = TRANSLATE(SPACE(string))
WHEN line = '3' & column = '45'
THEN replace = TRANSLATE(SPACE(string))
OTHERWISE NOP
END
END
IF date = '' THEN option_date = 'OLD'
IF date = 'NEW' : date = 'OLD' THEN NOP
ELSE DO
errmsg = 'Option DATE must have a value of NEW or OLD'
err = 1
'COMMAND CURSOR SCREEN 3 20'
RETURN
END
IF ignore = '' : ignore = 'NO' THEN NOP
ELSE DO
errmsg = 'Option IGNORE must be null or NO'
err = 1
'COMMAND CURSOR SCREEN 3 32'
RETURN
END
IF replace = '' : replace = 'NO' THEN NOP
ELSE DO
errmsg = 'Option REPLACE must be null or NO'
err = 1
'COMMAND CURSOR SCREEN 3 45'
RETURN
END
RETURN
*** APPENDED 07/30/90 11:03:48 BY SDG/RICH ***
Scott | No success can compensate for failure in the home. David O. McKay
Mattes | President 1951-70, Church of Jesus Christ of Latter-Day Saints
Technical Details
Message-ID:
<VM-UTIL%91123111464409@OHSTVMA.IRCC.OHIO-STATE.EDU>Path:
arc1-ca.pugleaf.net!gmdzi!ira.uka.de!yale.edu!think.com!zaphod.mps.ohio-state.edu!swrinde!news.dell.com!paladin.american.edu!auvm!SEA04VM.NAVSEA.NAVY.MIL!COTRSSMShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10ab65,24ef0e407568cbb1
X-Google-Attributes: gid10ab65,public
X-Google-ArrivalTime: 1991-12-31 08:55:51 PST
Path: arc1-ca.pugleaf.net!gmdzi!ira.uka.de!yale.edu!think.com!zaphod.mps.ohio-state.edu!swrinde!news.dell.com!paladin.american.edu!auvm!SEA04VM.NAVSEA.NAVY.MIL!COTRSSM
From: COTRSSM@SEA04VM.NAVSEA.NAVY.MIL (Scott (nmi) Mattes)
Newsgroups: bit.listserv.vm-util
Subject: Re: VMARC front-end
Message-ID: <VM-UTIL%91123111464409@OHSTVMA.IRCC.OHIO-STATE.EDU>
Date: 31 Dec 91 16:38:10 GMT
Sender: VM Utilities Discussion List <VM-UTIL@OHSTVMA.BITNET>
Lines: 706
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Comments: To: VM Utilities Discussion List <VM-UTIL@OHSTVMA.ACS.OHIO-STATE.EDU>
In-Reply-To: Message of Tue,
31 Dec 1991 10:20:19 EST from
<MARK%MONTCOLA.BITNET@OHSTVMA.ACS.OHIO-STATE.EDU>