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

C\ Process all of the entries.

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

C

1

DO

NUMENT

I

.6/

C

 

EXSR

PROC2

 

 

C

 

ENDDO

 

 

 

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

C\ If all entries in this user space

have been processed, ch￿eck

C\ if more entries exist than can fit in one user space.

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

C

QUSBPJ

IFEQ

'P'

 

 

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

C\ Address the input parameter header.

 

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

C

1

ADD

QUSBPL

STRPOS

 

C

 

Z-ADD68

RCVLEN

Format 1ðð

C

 

CALL

'QUSRTVUS'

 

 

C

 

PARM

 

SPCNAM

Qual User Space

C

 

PARM

 

STRPOS

Start Position

C

 

PARM

 

RCVLEN

Length of Data

C

 

PARM

 

QUSBP

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\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C\ If the continuation handle in the input parameter heade￿r

C\ is blank, then set the list status to complete.

 

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

C

QSYCRJ

IFEQ \BLANKS

 

 

C

 

MOVE 'C'

LSTSTS

 

C

 

ELSE

 

 

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

C\ Else, call QSYLOBJP reusing the user space to get more

C\ list entries.

 

 

 

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

C

 

MOVELQSYCRJ

CONHDL

.2/

C

 

EXSR GETLST

 

 

C

 

Z-ADD1

STRPOS

 

C

 

Z-ADD192

RCVLEN

Format 1ðð

C

 

CALL 'QUSRTVUS'

 

 

C

 

PARM

SPCNAM

Qual User Space

C

 

PARM

STRPOS

Start Position

C

 

PARM

RCVLEN

Length of Data

C

 

PARM

QUSBP

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

 

MOVE QUSBPJ

LSTSTS

 

5-10System API Programming V4R1

Page 122
Image 122
IBM Version 4 manual Nument Exsr PROC2, Qusbpj Ifeq, ADD Qusbpl Strpos, Movelqusrtvusapinam Exsr Apierr Endif