Filter
Top Products
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 124 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 the
Cᑍ User Space as the receiver variable. As Data Structure
Cᑍ QDBQ25 is defined as BASED(SPCPTR) and SPCPTR is set to the
Cᑍ first byte of the User Space, simply passing QDBQ25 will cause
B-164 System API Programming V4R1