QWCLOBJL results in CPF3C31-Invalid object type

    DCL  &USRSPC      *CHAR  20  /* Qualified name of User space     */
    DCL  &FORMAT      *CHAR   8  /* User space format name           */
    DCL  &OBJNAME     *CHAR  20  /* Qualified object name            */
    DCL  &ObjType     *char   7  /* Type of object to free locks on  */
    DCL  &MBRNAME     *CHAR  10  /* Member name                      */
    DCL  &ERRORAREA   *CHAR  16  /* Error code from comm status      */
    DCL  &ERRORCODE   *CHAR   7  /* Error code from comm status      */
...
             CALL       PGM(QWCLOBJL) +
                        PARM(&USRSPC +
                             &FORMAT +
                             &OBJNAME +
                             &OBJTYPE +
                             &MBRNAME +
                             &ERRORAREA)
...
             CHGVAR     VAR(&ERRORCODE) VALUE(%SST(&ERRORAREA 9 7))
results in CPF3C31-Invalid object type

*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....
 &USRSPC                  *CHAR           20       'QWCLOBJL  QTEMP     ' 
 &FORMAT                  *CHAR            8       'OBJL0100'
 &OBJNAME                 *CHAR           20       'ROB2      QSYS      '
 &OBJTYPE                 *CHAR            7       '*LIB   ' 
 &MBRNAME                 *CHAR           10       '*NONE     '
 &ERRORCODE               *CHAR            7       'CPF3C31' 
 &ERRORAREA               *CHAR           16       '        CPF3C310'
Value of &ERRORAREA in Hexadecimal 
* . . . + . . . . 1 . . . . + . 
000000100000001AC3D7C6F3C3F3F1F0

I can try this for other object types and get the same message.

Rob Berendt