CA Datacom/DB SQL Preprocessors › SQL Work Area (SQLWA) › SQLWA Examples › SQLWA - DB2 Format (Assembler)

SQLWA - DB2 Format (Assembler)

     SQLWA    DSECT
     SQLWAEYE DS    CL8    .EYE CATCHER
     SQLWALEN DS    F      .BLOCK LENGTH
     SQLWACMD DS    CL5    .COMMAND
     SQLWAFLG DS    X      .FLAGS   /* always x'01' */
     SQLWAFIL DS    CL2    .UNUSED
     SQLWARTN DS    CL8    .ROUTINE NAME
     SQLWASTP DS    F      .STAMP
     SQLWASID DS    F      .STATEMENT ID
     SQLWAHDS DS    F      .ADDR HOST VAR AREA
     SQLWAPGM DS    CL8    .UNUSED
     SQLWAATH DS    CL18   .AUTH ID
     SQLWAPLN DS    CL18   .PLANNAME
     SQLWADBV DS    CL2    .VERSION
     SQLWADVR DS    CL2    .RELEASE
     SQLWAEND DS    CL8    .END EYE CATCHER
     SQLWADLN EQU   *-SQLWA
     SQLHAARA DS    0CL8    .HOST VAR AREA
     SQLHAHVL DS    F       .LENGTH OF VARS
     SQLHANHV DS    H       .NBR OF VARS
     SQLHAFIL DS    CL2     .UNUSED
     SQLHAALN EQU   *-SQLHAARA .LENGTH OF HOST VAR AREA
     SQLHVBGN DS    0C      .START OF VARS
     SQLWATLN EQU   *-SQLWA .LENGTH OF SQLWA & HOST HDR
                                                    0 to n VARs depending
                                                         on statement
     SQLHVTYP DS    H       .STORAGE TYPE
     SQLHVLEN DS    H       .LENGTH OR PRECISION/SCALE
     SQLHVDAT DS    F       .ADDR OF RECEIVING FIELD
     SQLHVIND DS    F       .ADDR OF INDICATOR FIELD
     SQLHVDIR DS    CL1     .DIRECTION
     SQLHVFIL DS    CL3     .UNUSED
     SQLHVDLN EQU   *-SQLHVAR .LENGTH OF HOST VAR