Demonstrates how to use a Large Object (LOB)

***********************************************************************
** (c) Copyright IBM Corp. 2007 All rights reserved.
**
** The following sample of source code ("Sample") is owned by International
** Business Machines Corporation or one of its subsidiaries ("IBM") and is
** copyrighted and licensed, not sold. You may use, copy, modify, and
** distribute the Sample in any form without payment to IBM, for the purpose of
** assisting you in the development of your applications.
**
** The Sample code is provided to you on an "AS IS" basis, without warranty of
** any kind. IBM HEREBY EXPRESSLY DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR
** IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
** MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. Some jurisdictions do
** not allow for the exclusion or limitation of implied warranties, so the above
** limitations or exclusions may not apply to you. IBM shall not be liable for
** any damages you suffer as a result of using, copying, modifying or
** distributing the Sample, even if IBM has been advised of the possibility of
** such damages.
***********************************************************************
**
** SOURCE FILE NAME: lobeval.sqb
**
** SAMPLE: Demonstrates how to use a Large Object (LOB)
**
** This sample program demonstrates the use of LOB values.
** The program creates a CURSOR , and fetches the contents
** of the "emp_resume" table (the SAMPLE database must be
** installed with the "db2sampl" executable), and then
** outputs the first 15 lines of the resume.
**
** SQL STATEMENTS USED:
** BEGIN DECLARE SECTION
** END DECLARE SECTION
** FREE LOCATOR
** CONNECT
** SELECT
** DELETE
** VALUES
** INSERT
**
**
***********************************************************************
**
** For more information on the sample programs, see the README file.
**
** For information on developing embedded SQL applications see the Developing Embedded SQL Applications book.
**
** For information on using SQL statements, see the SQL Reference.
**
** For the latest information on programming, compiling, and running
** DB2 applications, visit the DB2 Information Center:
** http://publib.boulder.ibm.com/infocenter/db2luw/v9r7/index.jsp
***********************************************************************

Identification Division.
Program-ID. "lobeval".

Data Division.
Working-Storage Section.

copy "sqlenv.cbl".
copy "sql.cbl".
copy "sqlca.cbl".

EXEC SQL BEGIN DECLARE SECTION END-EXEC. 1
01 userid pic x(8).
01 passwd.
49 passwd-length pic s9(4) comp-5 value 0.
49 passwd-name pic x(18).
01 hv-start-deptinfo pic s9(9) comp-5.
01 hv-start-educ pic s9(9) comp-5.
01 hv-return-code pic s9(9) comp-5.
01 hv-new-section-buffer USAGE IS SQL TYPE IS CLOB(5K).
01 hv-doc-locator1 USAGE IS SQL TYPE IS CLOB-LOCATOR.
01 hv-doc-locator2 USAGE IS SQL TYPE IS CLOB-LOCATOR.
01 hv-doc-locator3 USAGE IS SQL TYPE IS CLOB-LOCATOR.
EXEC SQL END DECLARE SECTION END-EXEC.

77 errloc pic x(80).

Procedure Division.
Main Section.
display "Sample COBOL program: LOBEVAL".

* Get database connection information.
display "Enter your user id (default none): "
with no advancing.
accept userid.

if userid = spaces
EXEC SQL CONNECT TO sample END-EXEC
else
display "Enter your password : " with no advancing
accept passwd-name.

* Passwords in a CONNECT statement must be entered in a VARCHAR
* format with the length of the input string.
inspect passwd-name tallying passwd-length for characters
before initial " ".

EXEC SQL CONNECT TO sample USER :userid USING :passwd
END-EXEC.
move "CONNECT TO" to errloc.
call "checkerr" using SQLCA errloc.

* Delete any instance of "000180" from previous executions
EXEC SQL DELETE FROM emp_resume
WHERE empno = '000180' END-EXEC.

* use a single row select to get the document
EXEC SQL SELECT resume INTO :hv-doc-locator1 2
FROM emp_resume
WHERE empno = '000130'
AND resume_format = 'ascii' END-EXEC.
move "SELECT" to errloc.
call "checkerr" using SQLCA errloc.

* use the POSSTR function to locate the start of sections
* "Department Information" & "Education"
EXEC SQL VALUES (POSSTR(:hv-doc-locator1,
'Department Information'))
INTO :hv-start-deptinfo END-EXEC. 3
move "VALUES1" to errloc.
call "checkerr" using SQLCA errloc.

EXEC SQL VALUES (POSSTR(:hv-doc-locator1,
'Education')) INTO :hv-start-educ END-EXEC.
move "VALUES2" to errloc.
call "checkerr" using SQLCA errloc.

* replace Department Information section with nothing
EXEC SQL VALUES (SUBSTR(:hv-doc-locator1, 1,
:hv-start-deptinfo - 1) ||
SUBSTR(:hv-doc-locator1, :hv-start-educ))
INTO :hv-doc-locator2 END-EXEC.
move "VALUES3" to errloc.
call "checkerr" using SQLCA errloc.

* move Department Information section into hv-new-section-buffer
EXEC SQL VALUES (SUBSTR(:hv-doc-locator1,
:hv-start-deptinfo,
:hv-start-educ - :hv-start-deptinfo))
INTO :hv-new-section-buffer END-EXEC.
move "VALUES4" to errloc.
call "checkerr" using SQLCA errloc.

* Append the new section to the end (assume it has been filled)
* Effectively, this just moves the Dept Info to the bottom of
* the resume.
EXEC SQL VALUES (:hv-doc-locator2 ||
:hv-new-section-buffer)
INTO :hv-doc-locator3 END-EXEC.
move "VALUES5" to errloc.
call "checkerr" using SQLCA errloc.

* Store this resume in the table.
* This is where the LOB value bytes really move.
EXEC SQL INSERT INTO emp_resume 4
VALUES ('000180', 'ascii', :hv-doc-locator3)
END-EXEC.
move "INSERT" to errloc.
call "checkerr" using SQLCA errloc.

display "LOBEVAL completed".

EXEC SQL FREE LOCATOR :hv-doc-locator1, :hv-doc-locator2, 5
:hv-doc-locator3 END-EXEC.
move "FREE LOCATOR" to errloc.
call "checkerr" using SQLCA errloc.

EXEC SQL CONNECT RESET END-EXEC.
move "CONNECT RESET" to errloc.
call "checkerr" using SQLCA errloc.

End-Prog.
stop run.