107 lines
2.7 KiB
Plaintext
107 lines
2.7 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Display help from SYS.HELP, USER.HELP, or BASIC.HELP
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intended
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenence log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
$OPTIONS DEFAULT
|
||
|
|
|
||
|
|
dim line(1000)
|
||
|
|
|
||
|
|
open "ERRMSG" to f.ERRMSG else
|
||
|
|
print 'Unable to open the ERRMSG file'
|
||
|
|
stop
|
||
|
|
end
|
||
|
|
|
||
|
|
matparse line from trim(@sentence) , " "
|
||
|
|
|
||
|
|
tokens = inmat();
|
||
|
|
|
||
|
|
begin case
|
||
|
|
|
||
|
|
case tokens = 1
|
||
|
|
|
||
|
|
* check for active select list *
|
||
|
|
|
||
|
|
if system(11) then
|
||
|
|
10 *
|
||
|
|
readnext id else stop
|
||
|
|
read item from f.ERRMSG, id then
|
||
|
|
errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
|
||
|
|
end else
|
||
|
|
print "Item '":id:"' not found in the ERRMSG file"
|
||
|
|
end
|
||
|
|
goto 10
|
||
|
|
end else
|
||
|
|
print "Item must be specifed."
|
||
|
|
end
|
||
|
|
|
||
|
|
case tokens = 2
|
||
|
|
|
||
|
|
* check for '*' to select all items *
|
||
|
|
* else assume single item id *
|
||
|
|
|
||
|
|
if line(2) = '*' then
|
||
|
|
select f.ERRMSG
|
||
|
|
20 *
|
||
|
|
readnext id else stop
|
||
|
|
read item from f.ERRMSG, id then
|
||
|
|
errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
|
||
|
|
end else
|
||
|
|
print "Item '":id:"' not found in the ERRMSG file"
|
||
|
|
end
|
||
|
|
goto 20
|
||
|
|
end else
|
||
|
|
id = line(2)
|
||
|
|
fst = id[1,1]
|
||
|
|
if fst = '"' or fst = "'" or fst = "\" then
|
||
|
|
max = len(id)
|
||
|
|
lst = id[max,1]
|
||
|
|
if fst = lst then id = id [2,max-2]
|
||
|
|
end
|
||
|
|
read item from f.ERRMSG, id then
|
||
|
|
errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
|
||
|
|
end else
|
||
|
|
print "Item '":id:"' not found in the ERRMSG file"
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
case 1
|
||
|
|
|
||
|
|
* assume list of item ids *
|
||
|
|
|
||
|
|
for x = 2 to tokens
|
||
|
|
id = line(x)
|
||
|
|
fst = id[1,1]
|
||
|
|
if fst = '"' or fst = "'" or fst = "\" then
|
||
|
|
max = len(id)
|
||
|
|
lst = id[max,1]
|
||
|
|
if fst = lst then id = id [2,max-2]
|
||
|
|
end
|
||
|
|
read item from f.ERRMSG, id then
|
||
|
|
errmsg id, "A","B","C","D","E","F","G","H","I","J","K","L","M","O","P","Q","R","S","T","U","V","W","X","Y","Z"
|
||
|
|
end else
|
||
|
|
print "Item '":id:"' not found in the ERRMSG file"
|
||
|
|
end
|
||
|
|
next x
|
||
|
|
|
||
|
|
end case
|
||
|
|
|
||
|
|
stop
|
||
|
|
end
|