C

PARM

FORMAT

C

PARM

OBJECT

C

PARM

OBJTYP

C

PARM

QUSBN

C\ See if any errors were returned in the error code parame￿ter.

C

EXSR ERRCOD

C\

 

C\ Look at the generic header.

C\ The generic header contains information

C\ about the list data section that is needed when processi￿ng

C\ the entries.

 

 

C\

 

 

C

CALL 'QUSRTVUS'

 

C

PARM

USERSP

C

PARM

STRPOS

C

PARM

LENDTA

C

PARM

QUSBP

C

PARM

QUSBN

C\ See if any errors were returned in the error code parame￿ter.

C

 

EXSR ERRCOD

C\

 

 

C\ Check the information status field, QUSBPJ, to see if

C\ the API was able to return all the information.

C\ Possible values are:

C\

C -- Complete and accurate

C\

P -- Partial but accurate

C\

I -- Incomplete

 

C\

 

 

C

QUSBPJ

IFEQ 'C'

C

QUSBPJ

OREQ 'P'

C\

 

 

C\ Check to see if any entries were put into the user space.

C\

 

 

 

C

QUSBPS

IFGT ð

 

C

 

Z-ADD1

COUNT

C

 

Z-ADDQUSBPQ

STRPOS .18/

C

 

Z-ADD3ð

LENDTA

C\ Walk through all the entries in the user space.

C

COUNT

DOWLEQUSBPS

 

C

 

CALL 'QUSRTVUS'

 

C

 

PARM

USERSP

C

 

PARM

STRPOS

C

 

PARM

LENDTA

C

 

PARM

QUSDM

C

 

PARM

QUSBN

C\ See if any errors were returned in the error code parame￿ter.

C

EXSR ERRCOD

 

C\

 

 

 

C\

 

 

 

C\ Process the objects.

 

 

C\

 

 

 

C

ADD

1

COUNT

C

ADD

QUSBPT

STRPOS

C

ENDDO

 

 

C

ENDIF

 

 

C\

 

 

 

C\ Information in the user space is not accurate

C\

9-30System API Programming V4R1

Page 235 Page 237
Page 236
Image 236
IBM Version 4 manual Qusbpj Ifeq C Oreq P, Qusbps, ADD1 Count Addqusbpq Strpos, Lendta, Count Dowlequsbps, ADD Qusbpt
Page 235 Page 237
Top Page Image Contents