Troubleshooting
Problem
This document contains an example of how to code an ILE RPG program that calls the QSYRUSRI API.
Resolving The Problem
|
Caution: This is an example only. IBM accepts no responsibility for its correctness. |
Following is an example of how to code an ILE RPG program that calls the QSYRUSRI API.
Example
/COPY QSYSINC/QRPGLESRC,QUSEC
/COPY QSYSINC/QRPGLESRC,QSYRUSRI
D GetUsrInf PR ExtPgm('QSYRUSRI')
D RcvVar Likeds(QSYI0200)
D RcvVarLen 10i 0 const
D Format 8 const
D UserPrf 10 const
D Error Likeds(QUSEC)
D Msg s 40
/Free
QUSBPRV = 0; // Bytes provided in QUSEC error code parameter
callp GetUsrInf(QSYI0200:%Size(QSYI0200):'USRI0200':'*CURRENT'
:QUSEC);
Msg = 'Group profile is ' + QSYGP01;
Dsply Msg;
*InLR = *On;
Note: To use the copybooks, you will need to install Option 13 of 5722SS1 or 5761SS1 to get the QSYSINC library.
[{"Type":"MASTER","Line of Business":{"code":"LOB57","label":"Power"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SWG60","label":"IBM i"},"Platform":[{"code":"PF012","label":"IBM i"}],"Version":"6.1.0"}]
Historical Number
353841672
Was this topic helpful?
Document Information
Modified date:
18 December 2019
UID
nas8N1015883