RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Retrieve User Information (QSYRUSRI) API Print E-mail
User Rating: / 0
PoorBest 
Written by Chamara Withanachchi   
Retrieve User Information (QSYRUSRI) API

      /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;
       /End-Free
  


User Comments

Please login or register to add comments

<Previous   Next>