Re: QWCRSSTS problem

[Peter Dow <petercdow@xxxxxxxxx>]

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?
> >