| The installation code in ALL-IN-1 V3.0 (which includes WPS-PLUS V4.1)
does the following:
$ message/object/nolist/symbols/NOTEXT/object wplmess.obj -
wplmess,wplexcep,'a1$wpldates','a1$wplcurr',wplsort,wplforms
$ library/replace wpadoc.olb wplmess.obj
$!
$ message/object/nolist/symbols/TEXT/object=wplmess.obj -
wplmess,wplexcep,'a1$wpldates','a1$wplcurr',wplsort,wplforms
$ library/replace oallv.olb wplmess.obj
Where 'a1$wpldates' and 'a1$wplcurr' are the date and currency files
for the language/country. E.g. WPLDATES_US_ENGLISH.MSG.
HTH,
Graham
|
| Hi Graham, Hi Andrew, or as said in Austria Servus Graham, Gr�� Dich Andrew
Thank you very much for your replies, I've also trapped into the
KITINSTAL.COM of the OAW024.A Saveset looking for the right
Messagefiles yesterday night, because I'm going on vacations now and
I don't like my customer waiting so long.
Yes, Andrew, the errormessages first were Undefined Symbols MATH_....
(there were a lot maybe 48 or more ...)
I've build it first in our Office, and it worked fine.
Nice to get (a) reply(ies) from the best.
Best regards
Charly_From_Vienna_Austria
PS: Here's a new POST_INSTAL_market_V40.com
$!
$! POST_INSTAL_AUSTRIAN.COM - Post Installation Procedure for the
$! modified message file for WPS-PLUS
$!
$ say = "write sys$output"
$ pre_fix = "%A1L_AUSTRIAN_024"
$!
$ if f$trn("oa$build_share","lnm$system_table","exec") .eqs. "" -
then goto allin1_not_up
$ if f$trn("oa$llv","OA$GERMAN_TABLE","exec") .eqs. "" -
then goto allin1_not_up
$ llv_msg = "''f$trn("oa$llv","OA$GERMAN_TABLE","exec")'"
$ save_dir = "''f$environment("default")'"
$!
$PRE_START:
$
$ msg_list = "''llv_msg'wplmess"+-
"/''llv_msg'wplexcep"+-
"/''llv_msg'wplsort"+-
"/''llv_msg'wplforms"+-
"/''save_dir'wpldates_DE_german"+-
"/''save_dir'wplcurr_de_german"
$!
$ msg_index = 0
$ msg_files = ""
$!
$ say "''pre_fix'-I-MSG, Building object WPLMESS ..."
$!
$MSG_FILE_LOOP:
$ msg_spec = f$element(msg_index,"/",msg_list)
$ if msg_spec .eqs. "/" then $ goto MSG_FILE_END
$ if f$search("''msg_spec'.msg") .eqs. "" then goto msgfile_not_fnd
$ msg_index = msg_index + 1
$ msg_name = f$parse(msg_spec,".MSG") - ";"
$!
$ prp_file_name = f$parse("''f$env("default")'.MSG;",msg_name)
$ if f$search(prp_file_name) .nes. "" then $ msg_name = prp_file_name
$!
$ if msg_files .nes. "" then $ msg_files = msg_files + ","
$ msg_files = msg_files + msg_name
$!
$ goto MSG_FILE_LOOP
$!
$MSG_FILE_END:
$!
$! Rebuild the message modules with the changed file.
$!
$ message/nolist/text/object=wplmess.obj_text 'msg_files'
$!
$ say "''pre_fix'-I-REPL, Replacing WPLMESS.OBJ_text in ''LLV_MSG'OALLV.OLB ..."
$!
$ libr/replace 'llv_msg'oallv wplmess.obj_text
$!
$ set def oa$build_share
$ set term/width=80
$ say "''pre_fix'-I-LNK, Now linking OA$MAIN image ..."
$!
$ @a1lnkdrv ANSWERS ,,,,,
$!
$ set def 'save_dir'
$!
$ exit
$!
$ALLIN1_NOT_UP:
$ say "''pre_fix'-F-NOTREADY, ALL-IN-1 is not startup correctly
$ say "''pre_fix'-F-CORRECT, Please use SYS$MANAGER:A1V24START !"
$ EXIT
$!
$MSGFILE_NOT_FND:
$ say "''pre_fix'-F-MSGNOTFND, Messagefile ''f$edit(msg_spec+".msg","upcase") not found"
$ say "''pre_fix'-F-CORRECT, Please Correct the problem !"
$ exit
|