Following is the COBOL version of an SQLWA. In the example, n represents the number for each SQLWA generated by the Preprocessor, while x represents the number generated for each host-variable referenced in the SQL statement.
01 SQLWAn.
05 SQLWAn-EYE-CATCH PIC X(08) VALUE 'SQLWA***'.
05 SQLWAn-LEN PIC S9(9) COMP VALUE +48.
05 SQLWAn-COMMAND PIC X(05) VALUE 'QEXEC'.
05 SQLWAn-FILLER PIC X(03).
05 SQLWAn-PROC-NAME PIC X(08) VALUE SPACES.
05 SQLWAn-CURS-T PIC S9(9) COMP VALUE +0.
05 SQLWAn-STMT-ID
PIC S9(9) COMP VALUE +0.
05 SQLWAn-ADDR-HOST-DESC PIC S9(9) COMP VALUE +0.
05 SQLWAn-END-CATCH PIC X(08) VALUE 'ENDSQLWA'.
05 HOST-VARn-AREA.
10 HOST-VARn-LEN PIC S9(9) COMP VALUE +104.
10 HOST-VARn-NBR-ENT PIC S9(4) COMP VALUE +6.
10 HOST-VARn-FILLER PIC X(02).
10 HOST-VARn-DESC.
15 HOST-VARn-x-TYPE
PIC S9(4) COMP VALUE +452.
15 HOST-VARn-x-LEN
PIC S9(4) COMP VALUE +3.
15 HOST-VARn-x-DATA
PIC S9(9) COMP.
15 HOST-VARn-x-IND
PIC S9(9) COMP.
15 HOST-VARn-x-DIR
PIC X(01) VALUE 'F'.
88 HOST-VARn-x-TO-MUF
VALUE 'T'.
88 HOST-VARn-x-FROM-MUF
VALUE 'F'.
15 HOST-VARn-x-FILLER
PIC X(03).
|
Copyright © 2014 CA.
All rights reserved.
|
|