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

User Login from outside by QSYGETPH Print E-mail
User Rating: / 0
PoorBest 
Written by Chamara Withanachchi   
 DWkUser           S             10A 
 DWKPassword       S             10A 
 DProfileHandle    S             12A 
  *                              10A 
 DQUSEC            DS 
 D QUSBPRV                 1      4B 0 
 D QUSBAVL                 5      8B 0 
 D QUSEI                   9     15 
 D QUSERVED               16     16 
 D ERRC0100               17    274    Varying 
 
 D Error           S                   like(*IN40) 
 
 C                   Eval      WKUser     = 'CHAMARA' 
 C                   Eval      WKPassword = '12345' 
 
 C                   Call      'QSYGETPH' 
 C                   Parm                    WKUser 
 C                   Parm                    WKPassword 
 C                   Parm                    ProfileHandle 
 C                   Parm                    QUSEC 
 * 
 C                   If        QUSBAVL > 0 

 C                   Eval      Error = *ON     
C Endif

C Eval *INLR = *ON

User Comments

Please login or register to add comments

<Previous   Next>