Figure 6. Setting pointer to starting position

/* Set pointer to starting position of the User Space
             CALL       PGM(QUSPTRUS) PARM(&uSpaceName &HeaderPtr +
                          &ApiErrDS)

             CHGVAR     VAR(&QuslobjPtr) VALUE(&HeaderPtr)


/* Call API to load object names and attributes to user space------*/
             CALL       PGM(QUSLOBJ) PARM(&uSpaceName 'OBJL0700' +
                          &QualifyObj &ObjectType &APIERRDS)

             CHGVAR     VAR(&ListOffset) VALUE(%BIN(&ListOffseA))
             CHGVAR     VAR(&EntryCount) VALUE(%BIN(&EntryCounA))
             CHGVAR     VAR(&EntrySize) VALUE(%BIN(&EntrySizeA))