C\ Check for errors on QUSRTVUS.

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

QUSBNC

IFGT ð

 

 

 

C

 

MOVEL'QUSRTVUS'APINAM

 

 

C

 

EXSR APIERR

 

 

 

C

 

ENDIF

 

 

 

 

C

1

ADD

QUSBPQ

STRPOS

Offset to List

.5/

C

 

ENDSR

 

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ Function:

 

proc2

 

 

 

 

C\

 

 

 

 

 

 

C\ Description:

This function processes each entry returned by

 

C\

 

QSYLOBJP.

 

 

 

 

C\

 

 

 

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

PROC2

BEGSR

 

 

 

 

C

 

CALL 'QUSRTVUS'

 

 

 

C

 

PARM

 

SPCNAM

Qual User Space

 

C

 

PARM

 

STRPOS

Start Position

 

C

 

PARM

 

SIZENT

Length of Data

 

C

 

PARM

 

QSYB6

Receiver Var.

 

C

 

PARM

 

QUSBN

Error Code

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ Check for errors on QUSRTVUS.

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

QUSBNC

IFGT ð

 

 

 

C

 

MOVEL'QUSRTVUS'APINAM

 

 

C

 

EXSR APIERR

 

 

 

C

 

ENDIF

 

 

 

 

C

 

EXCPTPRTENT

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ After each entry, increment to the next entry.

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

STRPOS

ADD

SIZENT

STRPOS

.7/

 

C

 

ENDSR

 

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ Function:

 

proc1

 

 

 

 

C\

 

 

 

 

 

 

C\ Description:

This function processes each entry returned by

 

C\

 

QSYLOBJP.

 

 

 

 

C\

 

 

 

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

PROC1

BEGSR

 

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ If valid information was returned.

 

.1/

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

 

Z-ADDQUSBPS

NUMENT

 

 

C

QUSBPJ

IFEQ 'P'

 

 

 

C

QUSBPJ

OREQ 'C'

 

 

 

C

NUMENT

IFGT ð

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ Get the size of each entry to use later.

.4/

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

 

Z-ADDQUSBPT

SIZENT

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C\ Increment to the first list entry.

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

 

C

1

ADD

QUSBPQ

OFFSET

 

 

 

 

 

 

 

Chapter 5. List

APIs5-9

Page 121
Image 121
IBM Version 4 ADD Qusbpq Strpos, PROC2, QSYB6, Excptprtent, ADD Sizent Strpos, PROC1, Addqusbps Nument, Ifeq P, Oreq C