Craig,
On “real” MPE, many years ago. I just used it on our <plug alert>AMXW</plug alert> product. Since it uses HPCI@ variables, this may not work on older MPE such as the MPE Simulator. Someone else may want to confirm.
Thanks…François
From: Craig Lalley <[log in to unmask]>
Sent: Thursday, December 3, 2020 8:54 AM
To: [log in to unmask]; Francois Desrochers <[log in to unmask]>
Subject: Re: [EXT]: GETVAR/SETVAR in COBOL
So, when was the last time you used this trick?
-Craig
On Thursday, December 3, 2020, 5:46:35 AM PST, Francois Desrochers <[log in to unmask]<mailto:[log in to unmask]>> wrote:
The program can call the HPERRMSG intrinsic with the HPCIGETVAR status to retrieve the error message.
The other trick is to use the CI.
:SETVAR CIERROR <HPCIGETVAR error number>
:SHOWVAR HPCIERRMSG
For example
:SETVAR CIERROR 8116
:SHOWVAR HPCIERRMSG
HPCIERRMSG = No match found for this variable set. (CIWARN 8116)
Thanks...François
-----Original Message-----
From: HP-3000 Systems Discussion <[log in to unmask]<mailto:[log in to unmask]>> On Behalf Of Keven Miller(3k)
Sent: Thursday, December 3, 2020 12:52 AM
To: [log in to unmask]<mailto:[log in to unmask]>
Subject: Re: [HP3000-L] [EXT]: GETVAR/SETVAR in COBOL
Caution: This email originates from outside of Fresche | Attention: Ce message provient de l'extérieur de Fresche
Also, the old peek in CATALOG.PUB.SYS works too!!
Text in CATALOG.PUB.SYS.
Find "8103"
Then Look in that local list.
Something like this:
$
$ variable management errors
$
8100 Quotes around the variable name do not match. (CIWARN 8100)
8101 Variable name not found in variable table. (CIWARN 8101)
8102 Variable name exceeds 255 characters. (CIWARN 8102)
8103 Invalid character in variable name. (CIWARN 8103)
8104 Variable name must start with alphabetic character or "_".& (CIWARN 8104)
8105 Expanded command line exceeds 511 characters. (CIERR 8105)
8106 Variable not found in variable table. (CIERR 8106)
8107 Could not read from symbol table - internal error. (CIERR 8107)
8108 Could not delete via symbol table - internal error. (CIERR 8108)
8109 Value string cannot exceed 1024 characters. (CIERR 8109)
8110 Invalid variable name. (CIERR 8110)
8111 Variable name exceeds 255 characters. (CIERR 8111)
8112 Integer overflow. (CIERR 8112)
8113 Integer underflow. (CIERR 8113)
8114 Unexpected nil pointer encountered. (CIERR 8114)
8115 Assignment to variable not allowed: readonly. (CIERR 8115)
8116 No match found for this variable set. (CIWARN 8116)
8117 Permanent variable: no deletion done. (CIERR 8117) ...
Keven
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html <http://raven.utc.edu/archives/hp3000-l.html%20> *
Confidentiality Warning/Avertissement de confidentialité:
This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html <http://raven.utc.edu/archives/hp3000-l.html%20> *
Confidentiality Warning/Avertissement de confidentialité:
This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
