home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
GPF.ZIP
/
SAMPLE.SRC
/
SOURCES.ZIP
/
SAMPLE.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1991-04-02
|
1KB
|
33 lines
SAMPLE 2AQ2RCEHUSERID 0
INCLUDE SQLCA
INCLUDE SQLDA
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE CURSOR_10055 CURSOR FOR SELECT ID, NAME, DEPT, JOB, SALARY, COMM FROM STAFF
OPEN CURSOR_10055
FETCH CURSOR_10055 INTO :STAFF_ID, :STAFF_NAME :STAFF_NAME_N, :STAFF_DEPT :STAFF_DEPT_N, :STAFF_JOB :STAFF_JOB_N, :STAFF_SALARY :STAFF_SALARY_N, :STAFF_COMM :STAFF_COMM_N
CLOSE CURSOR_10055
COMMIT WORK
ORG_DEPTNAME
ORG_DEPTNAME_N
ORG_DEPTNUMB
ORG_DIVISION
ORG_DIVISION_N
ORG_LOCATION
ORG_LOCATION_N
ORG_MANAGER
ORG_MANAGER_N
STAFF_COMM
STAFF_COMM_N
STAFF_DEPT
STAFF_DEPT_N
STAFF_ID
STAFF_JOB
STAFF_JOB_N
STAFF_NAME
STAFF_NAME_N
STAFF_SALARY
STAFF_SALARY_N
STAFF_YEARS
STAFF_YEARS_N