QLICHGLL API

I can't seem to get this to work. Right now the only thing that happens
is the library list is cleared, but the user libraries I want to add are
not being added. Here's what I have. Can anyone see if I am missing
anything? 

 

D CurrLib         S             11a   Inz('*SAME')

D PRODLib1        S             11a   Inz('*SAME')

D PRODLib2        S             11a   Inz('*SAME')

D UserLibS        S             11    DIM(14) CTDATA

D NumOfLibs       S             10P 0

D RetERR          S               *

 

C                   Eval      NumofLibs = %Dec(%ELEM(UserLibs))

 

C                   Call      'QLICHGLL'

C                   Parm                    CurrLib

C                   Parm                    PRODLib1

C                   Parm                    PRODLib2

C                   Parm                    UserLibs

C                   Parm                    NumOfLibs

C                   Parm                    RetERR

 

C                   Eval      *INLR = *ON

**

QTEMP

QGPL

LIB1

LIB2

LIB3

LIB4

LIB5

LIB6

LIB7

LIB8

LIB9

LIB10

LIB11

Lib12