QWCRSSTS - Obtain System Name (RPGLE)

 

 

 ** Parameter section for QWCRSSTS (Retrieve System Info) API
D  SysIRcv        DS            80
D    SysName                     8A   Overlay(SysIRcv:17)
D  SysILen        S             10I 0 Inz(%Len(SysIRcv))
D  SysIFormat     S              8A   Inz('SSTS0100')
D  SysIReset      S             10A   Inz('*YES')

** General error code structure for APIs
D  ErrorCode      DS            16
D    ByteIn                     10I 0 Inz(%Len(ErrorCode))
D    ByteRet                    10I 0
D Qwcrssts        PR                  ExtPgm('QWCRSSTS')
D                               80A
D                               10I 0
D                                8A
D                               10A
D                               16A

*****************************************************************
** Obtain System Name                                           *
*****************************************************************
C                   CallP(E)  Qwcrssts(SysIRcv:SysILen:SysIFormat:
C                                 SysIReset:ErrorCode)

C                   If        (Not %Error) And (ByteRet = 0)
C     SysName       Dsply     '*REQUESTER'
C                   Endif

C                   Eval      *INLR = *ON
C                   Return

Thanks to Brian Parkins