C\ if more entries exist

than

can fit in one user space

 

C\

 

 

 

 

 

 

C

QUSIS

IFEQ

 

'P'

 

 

C\

 

 

 

 

 

 

C\ by resetting LSTPTR to the

start of the user space

 

C\

 

 

 

 

 

 

C

 

EVAL

 

LSTPTR = SPCPTR

 

C\

 

 

 

 

 

 

C\ and then incrementing

LSTPTR to the input parameter hea￿der

C\

 

 

 

 

 

 

C

 

EVAL

 

LSTPTR = %ADDR(ARR(QUSOIP + 1))

C\

 

 

 

 

 

 

C\ If the continuation handle

in the input parameter heade￿r is

C\ blank, then set the list status to Complete

 

C\

 

 

 

 

 

 

C

QSYCVðð

IFEQ

 

\BLANKS

 

 

C

 

MOVE

 

'C'

LST_STATUS

 

C

 

ELSE

 

 

 

 

C\

 

 

 

 

 

 

C\ Else, call QSYLOBJP reusing the User Space to get more

C\ List entries

 

 

 

 

 

C\

 

 

 

 

 

 

C

 

MOVE

 

QSYCVðð

CONTIN_HDL

 

C

 

EXSR

 

GETLST

 

 

C

 

MOVE

 

QUSIS

LST_STATUS

 

C

 

END

 

 

 

 

C

 

END

 

 

 

 

C

 

ELSE

 

 

 

 

C\

 

 

 

 

 

 

C\ And if an unexpected status, log an error (not shown) and e￿xit

C\

 

 

 

 

 

 

C

 

EXSR

 

DONE

 

 

C

 

END

 

 

 

 

C

 

END

 

 

 

 

C

 

ENDSR

 

 

 

 

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

C

GETLST

BEGSR

 

 

 

 

C\

 

 

 

 

 

 

C\ Call QSYLOBJP to generate a list

 

 

C\ The continuation

handle is

set by the caller of this sub￿routine.

C\

 

 

 

 

 

 

C

 

CALL

 

QSYLOBJP

 

 

C

 

PARM

 

 

SPC_NAME

 

C

 

PARM

 

'OBJPð1ðð'

MBR_LIST

8

C

 

PARM

 

'\CURRENT'

USR_PRF

1ð

C

 

PARM

 

'\ALL'

OBJ_TYPE

1ð

C

 

PARM

 

 

CONTIN_HDL

2ð

C

 

PARM

 

 

QUSEC

 

C\

 

 

 

 

 

 

C\ Check for errors on QSYLOBJP

 

 

C\

 

 

 

 

 

 

C

QUSBAVL

IFGT

 

ð

 

 

C

 

MOVEL

 

'QSYLOBJP'

APINAM

1ð

C

 

EXSR

 

APIERR

 

 

C

 

END

 

 

 

 

C

 

ENDSR

 

 

 

 

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

C

INIT

BEGSR

 

 

 

 

 

 

 

 

Chapter

9. Common API

Programming Errors 9-41

Page 246 Page 248
Page 247
Image 247
IBM Version 4 manual Qusis Ifeq, Eval Lstptr = %ADDRARRQUSOIP +, END Else, Exsr Done END, Mbrlist, CURRENT Usrprf, Objtype
Page 246 Page 248
Top Page Image Contents