×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
I've got a stored procedure wrapper for a program.
CREATE PROCEDURE ROUTINES/GDSSYS002
(INOUT sysasp INT ,
INOUT pctsysasp INT,
INOUT PctPerm INT ,
INOUT PctTemp INT )
LANGUAGE RPGLE
NOT DETERMINISTIC
CONTAINS SQL
Been working great. However, first time we ran it against a 22TB machine.
Very simple RPG program
D GDSSYS002 PI
D SysAsp 10i 0
D PctSysAsp 10i 0
D PctPerm 10i 0
D PctTemp 10i 0
/free
reset SysAsp;
reset PctSysAsp;
qwcrssts(ssts0200:%len(ssts0200):'SSTS0200':'*NO':ERRC0100);
Select;
When ExceptionId=*blanks; // OK
SysAsp=ssts0200.SysAsp;
PctSysAsp=ssts0200.PctSysAsp;
PctPerm=ssts0200.PctPerm;
PctTemp=ssts0200.PctTemp;
Other;
dsply ExceptionId;
EndSl;
*inlr=*on;
return;
/end-free
In debug mode:
SysAsp=ssts0200.SysAsp;
SYSASP = 22500008
Is there a difference between 10i0 in RPG and
(INOUT sysasp INT , in SQL?
Message ID . . . . . . : MCH1210 Severity . . . . . . . : 40
Message type . . . . . : Escape
Date sent . . . . . . : 07/21/14 Time sent . . . . . . : 14:57:27
Message . . . . : Receiver value too small to hold result.
Rob Berendt
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
