Dislaimer: JUST FOR FUN, to enhance our understanding of the system.
If Guy makes you wait too long, then how about trying to 'fix' the FAO/MSG mismatch.
Apparently there is an extra param, which is too large (more likely the wrong type: a piece of string) to be printed in !5UL.
So how about 'eating' that extra param with "!+" and compensating the formatting length by growing the !5UL to !7UL.
In a DCL-only example (.txt attached)
$ write sys$output f$fao("Process Entry Slots !5UL !5UL !5UL !5UL",999999,1,2,3,4)
Process Entry Slots ***** 1 2 3
$ write sys$output f$fao("Process Entry Slots !+!7UL !5UL !5UL !5UL",999999,1,2,3,4)
Process Entry Slots 1 2 3 4
$
So now how to 'patch' the cliutlmsg.exe?
SMOP! (Simple Matter Of Perling)
Here is an example using the message file example from the DCL concepts manual:
$CREATE tmp.msg
.FACILITY INCOME, 1 /PREFIX=INCOME__
.SEVERITY WARNING
LINELOST "Statistics on last line lost due to Ctrl/Z"
.SEVERITY SEVERE
BADFIXVAL "Bad value on /FIX"
CTRLZ "Ctrl/Z entered on terminal"
FORIOERR "Fortran I/O error"
INSFIXVAL "Insufficient values on /FIX"
MAXSTATS "Maximum number of statistics already entered"
NOACTION "No action qualifier specified"
NOHOUSE "No such house number"
NOSTATS "No statistics to report"
.END
$ mess /list tmp
$ sear tmp.lis. already
08018034 9 MAXSTATS "Maximum number of statistics already entered"
$ link /share tmp
$ set mess tmp
$ perl msg.pl tmp.exe "already" > tmp.txt
4 - 8:MAXSTATS 44:Maximum number of statistics already entered
$edit tmp.txt ! Use TPU in OVERSTRIKE mode
Buffer: TMP.TXT | Write | Overstrike | Forward
1 line written to file TMP.TXT
$ copy tmp.exe new.exe
$ perl msg.pl new.exe "already" tmp.txt
4 - 8:MAXSTATS 44:Maximum number of statistics already entered
Updating!
Old:Maximum number of statistics already entered
New:Maximum Hein was here already entered
$
$ exit %x08018034
%INCOME-F-MAXSTATS, Maximum number of statistics already entered
$ set mess new.exe
$ exit %x08018034
%INCOME-F-MAXSTATS, Maximum Hein was here already entered
Now with CLIUTLMSG there is of course the extra complication that it is installed shared: SMOP
(Simple Matter Of Privileges :-)
Below and attached you'll find the perl script I wrote for this.
Hope this makes someone smile...
Cheers,
Hein.
$ typ msg.pl
use strict;
my $usage = "Usage: $0 message-file message-name [new-text-file]";
my $msg = shift @ARGV or die $usage;
my $look_for = shift @ARGV or die $usage;
my $new = shift @ARGV;
my ($i, $update, $record, $found, $text, $name);
my ($text_size, $name_size, $new_size);
if ($new) {
open NEW, "<$new" or die "Failed to open file $new for new text";
$new = ;
chomp $new;
$update = "+";
$new_size = length($new);
}
open MSG, "$update<$msg" or die "Could not open message-file";
binmode MSG;
# step through file reading 512 byte chunks but in 256 byte steps
while (read (MSG, $record, 512) == 512) {
seek (MSG, -256, 1);
$i++;
$found = index ($record, $look_for);
# print length ($record) . " - $i - $found - $look_for\n" unless ($found<0);
next if ($found < 128);
next if ($found >= 384);
while (--$found) {
$name_size = ord (substr ($record, $found));
if ($name_size < 16) {
$found++;
$name = substr ($record, $found, $name_size);
$text_size = ord (substr ($record, $found + $name_size));
$text = substr ($record, $found + $name_size + 1, $text_size);
print STDERR "$i - $name_size:$name $text_size:$text\n";
if ($new_size == $text_size) {
print STDERR "Updating!\nOld:$text\nNew:$new\n";
seek (MSG, -256 + $found + $name_size + 1, 1);
print MSG $new;
seek (0,0,2); # done
} else {
print STDOUT "$text\n";
}
last;
}
}
}
