C

 

PARM

RCVLEN

Rec Var Length

C

 

PARM

RJOBDF

Format

C

 

PARM

SPCNAM

Qual User Space

C

 

PARM

SPCTYP

User object typ

C

 

PARM

QUSBN

Error Code

C\

 

 

 

 

C

QUSBNC

IFGT ð

 

 

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

C\ If a CPF98ð1 error

was received, then the user space was n￿ot

C\ found.

 

 

 

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

C

QUSBND

IFEQ 'CPF98ð1'

 

 

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

C\

Create a user space for the list

generated by QSYLOBJP.

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

C

 

CALL 'QUSCRTUS'

 

 

C

 

PARM

SPCNAM

Qual User Space

C

 

PARM

EXTATR

Extended Attrib

C

 

PARM

SPCSIZ

Size user space

C

 

PARM

SPCINT

Space Initializ

C

 

PARM

SPCAUT

Public Authorit

C

 

PARM

SPCTXT

User space text

C

 

PARM

SPCREP

Replace existin

C

 

PARM

QUSBN

Error Code

C

 

PARM

SPCDMN

Domain of us

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

C\ Check for errors on QUSCRTUS.

 

 

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

C

QUSBNC

IFGT ð

 

 

C

 

MOVEL'QUSCRTUS'APINAM

 

C

 

EXSR APIERR

 

 

C

 

ENDIF

 

 

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

C\ An error occurred accessing the user space.

 

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

C

 

ELSE

 

 

C

 

MOVEL'QUSROBJD'APINAM

 

C

 

EXSR APIERR

 

 

C

 

ENDIF

 

CPF98ð1 ELSE

C

 

ENDIF

 

BYTAVL > ð

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

C\ Set QSYLOBJP (via GETLST) to start a new list.

 

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

C

 

MOVE \BLANKS

CONHDL

 

C

 

EXSR GETLST

 

 

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

C\ Let's retrieve the generic header

information from the u￿ser

C\ space since OPM RPG does not have

pointer support.

 

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

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

5-8System API Programming V4R1

Page 119 Page 121
Page 120
Image 120
IBM Version 4 Parm Rjobdf, Parm Spcnam, Parm Spctyp, Qusbnc, Qusbnd, Parm Extatr, Parm Spcsiz, Parm Spcint, Parm Spcaut
Page 119 Page 121
Top Page Image Contents