Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?Q?Arne_Vajh=C3=B8j?= <arne@vajhoej.dk>
Newsgroups: comp.os.vms
Subject: Re: C Error Number to Symbol
Date: Wed, 19 Mar 2025 14:20:43 -0400
Organization: A noiseless patient Spider
Lines: 43
Message-ID: <vrf1tr$1cg4c$1@dont-email.me>
References: <f96165dde75337ce16c809cf96d03a24216699a4@i2pn2.org>
 <vrefcn$tfpi$1@dont-email.me> <vrehcj$v11r$1@dont-email.me>
 <1ea0522d871af165039ec8dfef1f85f51d88f3bd@i2pn2.org>
 <vreq6a$16r1p$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 19 Mar 2025 19:20:44 +0100 (CET)
Injection-Info: dont-email.me; posting-host="724685a51ed73d36d6e88d196a132cee";
	logging-data="1458316"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/JAjgcbFXwqXoci6Pd14GcHe/7+RrAepc="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:p3lif8Gu5Q/GUKjzWp/Mc1b6+zY=
Content-Language: en-US
In-Reply-To: <vreq6a$16r1p$1@dont-email.me>
Bytes: 2585

On 3/19/2025 12:08 PM, Craig A. Berry wrote:
> On 3/19/25 9:29 AM, Michael Brown wrote:
>> On 20/3/25 00:38, Craig A. Berry wrote:
>>> I _think_ what he wants is some kind of translation table between errno
>>> values and VMS condition codes.  For example, starting with errno of
>>> ESRCH and getting to RMS$_RNF or vice versa.  I'm not aware of any such
>>> table, and if there were, it wouldn't be a one-to-one  mapping.
>>
>> yes if I get a return status of 98994 I would like to be able to look 
>> it up and get "RMS$_RNF" to output that in my error handling routine.
> 
> No, I guessed wrong.  You are not dealing with errno at all but rather
> VMS condition code to message lookup, which, as you've now discovered,
> has already been fully answered.

I was starting to think that it was about translating from
numeric value to symbolic name, which is a weird one.

$ type moremsgfun.pas
[inherit('sys$library:pascal$lib_routines')]
program moremsgfun(input,output);

type
    pstr = varying [255] of char;

var
    fac, id, name : pstr;
    code : integer;

begin
    code := 98962;
    lib$sys_getmsg(code, fac.length, fac.body, 8);
    lib$sys_getmsg(code, id.length, id.body, 2);
    name := substr(fac, 2) + '$_' + substr(id, 2);
    writeln(code:1, ' = ', name);
end.
$ pas moremsgfun
$ lin moremsgfun
$ run moremsgfun
98962 = RMS$_FNF

Arne