QWCRSVAL- Retrieve System Value (CL)

pgm
   dcl              &rcvvar      *char    999
   dcl              &lenrcvvar   *char      4
   dcl              &nbrsysval   *char      4
   dcl              &sysvalnam   *char     80
   dcl              &errcod      *char      8

   chgvar     %bin( &lenrcvvar )   ( 999 )
   chgvar     %bin( &nbrsysval )   ( 2 )
   chgvar           &sysvalnam     ( +
                                     'QSYSLIBL  '  *cat  +
                                     'QUSRLIBL  '        +
                                   )

   call       QWCRSVAL    ( +
                            &rcvvar     +
                            &lenrcvvar  +
                            &nbrsysval  +
                            &sysvalnam  +
                            &errcod     +
                          )

   dmpclpgm
return
endpgm

Thanks to Tom Liotta