C\

 

 

 

 

 

C\ Set Error Code structure to not use exceptions

 

C\

 

 

 

 

 

C

 

Z-ADD

16

QUSBPRV

 

C\

 

 

 

 

 

C\ Create a User Space for QDBRTVFD

 

 

C\

 

 

 

 

 

C

 

CALL

'QUSCRTUS'

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

\BLANKS

EXT_ATTR

1ð

C

 

PARM

1ð24

SPC_SIZE

 

C

 

PARM

 

SPC_INIT

 

C

 

PARM

'\CHANGE'

SPC_AUT

1ð

C

 

PARM

'QDBRTVFD'

SPC_TEXT

5ð

C

 

PARM

'\YES'

SPC_REPLAC

1ð

C

 

PARM

 

QUSEC

 

C

 

PARM

'\USER'

SPC_DOMAIN

1ð

C\

 

 

 

 

 

C\ Check for errors on QUSCRTUS

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QUSCRTUS'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ Change the User Space so that it is extendable

 

C\

 

 

 

 

 

C

 

CALL

'QUSCUSAT'

 

 

C

 

PARM

 

LIB_NAME

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

 

CHG_ATTR

 

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ Check for errors on QUSCUSAT

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QUSCUSAT'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ Get a resolved pointer to the User Space

 

 

C\

 

 

 

 

 

C

 

CALL

'QUSPTRUS'

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

 

SPCPTR

 

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ Check for errors on QUSPTRUS

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QUSPTRUS'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C\

 

 

 

 

 

C\ If no errors, then call QDBRTVFD passing

the address of t￿he

C\ User Space as the receiver

variable. As

Data Structure

 

C\ QDBQ25 is defined as BASED(SPCPTR) and SPCPTR is set to th￿e

C\ first byte of the User Space, simply passing QDBQ25 will￿ cause

B-164System API Programming V4R1

Page 441 Page 443
Page 442
Image 442
IBM Version 4 manual Call Quscrtus Parm Spcname \BLANKS Extattr, Spcsize Parm Spcinit \CHANGE Spcaut Qdbrtvfd Spctext
Page 441 Page 443
Top Page Image Contents