Re: QWCRSSTS problem

Hi David,

Afaik, a CLLE program is not a procedure, and cannot return a value the way you used it. Also, the system name is only 8 characters in length Try this:

D AcqSysNm PR EXTPGM ( 'SYS000£' ) D peSysName LIKE ( DFN_SYSNM )
// In myPgm
AcqSysNm ( gSysNm );

//Module SYS000£
PGM PARM(&OSYSNM) DCL VAR(&OSYSNM) TYPE(*CHAR) LEN(8)
RTVNETA SYSNAME(&OSYSNM)
ENDPGM

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /
David FOXWELL wrote:

It's definitely not my day. I put RTVNETA in a CLLE, made a module and bound it to my program. First time I ever did that.
I'm just getting rubbish back instead of the system name, although debugging shows the correct system name at the endpgm line of the CL. As I was mixing data types. Debug gives TYPE = FIXED LENGTH STRING, LENGTH = 10 BYTES for the system name in the CLLE and in the RPGLE

At least I learnt how to do post my code :
http://code.midrange.com/fb27feaf79.html

And how to post smileys. If only I new how to code RPG programs :)

From: David FOXWELL <David.FOXWELL@xxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Date: 01/18/2010 09:00 AM
Subject: QWCRSSTS problem
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



Hi,

We need the system name in a program so we've been using QWCRSSTS. Apparently, on rare occasions, we are getting blanks in the name, with no error. I've been told to QWCRSSTS replace with RTVNETA. I don't see the point in using QWCRNETA so I was just going to create a CL module that does RTVNETA.

Once this is in place we won't know what was wrong with the QWCRSSTS API.

Any thoughts?