1 misc.
          5 data-source-name       pic x(50).
          5 user-id                pic x(10).
          5 password               pic x(10).
          5 return-code            pic s9(05).
          5 row-position           pic s9(05).
          5 formatted-balance      pic $$$,$$$.99.
       1 customer-table.
          5 customer-first-name    pic x(20).
          5 customer-last-name     pic x(20).
          5 customer-description   pic x(70).
          5 customer-balance       pic 9(06).99.
       1 sql-return-codes.
          5 sqlstate               pic x(05).
          5 sqlnativeerror         pic s9(06).
          5 sqlerrormessage        pic x(500).
          5 sqlstatement           pic x(500).
       main.
           perform connect_to_database.
           perform create_table.
           perform alter_table.
           perform create_index.
           perform insert_into_table.
           perform select_from_table.
           perform build_cursor.
           perform update_table.
           perform delete_from_table.
           perform drop_index.
           perform drop_table.
           perform disconnect_from_database.
           stop run.
       connect_to_database.
           move `MysqL`      to data-source-name.
           move `testuser`   to user-id.
           move `testpass`   to password.
           opendb using      data-source-name
                             user-id
                             password
                             return-code.
       create_table.
           exec sql
              create table customer 
              (firstname   varchar(20),description varchar(70)  )
           end-exec.
       alter_table.
           exec sql
              alter table customer add
                balance decimal(6,2) 
           end-exec.
       create_index.
           exec sql
              create index cust_index on customer (firstname)
           end-exec.
       insert_into_table.
           exec sql
              commit
           end-exec.
           move `John`  to customer-first-name.
           move `Doe`  to customer-last-name.
           move `Senior Director at ACME Software House` to customer-description.
           move 99.95 to customer-balance.
           exec sql
              insert into customer
              values (:customer-first-name,:customer-description,:customer-balance )
           end-exec.
           exec sql
              insert into customer
              values ('Jane','Doe','Senior Programmer',123.95 )
           end-exec.
           exec sql
              insert into customer
              values ('Matt','Junior Programmer',23.00 )
           end-exec.
           exec sql
              insert into customer
              values ('Charles','GEM Programmer',199.99 )
           end-exec.
           exec sql
              commit
           end-exec.
           exec sql
              insert into customer
              values ('Jason','Programmer',99.00 )
           end-exec.
           exec sql
              rollback
           end-exec.
       select_from_table.
           exec sql
               select firstname,description,balance
               into :customer-first-name,:formatted-balance
               from customer
               where lastname = 'Doe' and
                     firstname = 'Charles'
           end-exec.
           if sqlnativeerror = 0 then
              display `select into statement successful`
              display `firstname: ` & customer-first-name
              display `lastname: ` & customer-last-name
              display `description: ` & customer-description
              display `balance: ` & formatted-balance
           else
              display `select into statement Failed`
              display `sql-return-codes: ` & sql-return-codes
           end-if.
       build_cursor.
           exec sql
                declare cust_cursor cursor for
                select firstname,balance
                from customer
               order by balance
           end-exec.
        open_cursor.
           exec sql
                open cust_cursor
           end-exec.
        fetch_cursor.
           display ``.
           display `firstname            lastname                balance`.
           display `----------------------------------------------------`.
           exec sql
              fetch last cust_cursor
              into :customer-first-name,:formatted-balance
           end-exec.
           if sqlnativeerror = 0 then
              display customer-first-name & ` ` & customer-last-name & ` ` & formatted-balance
           end-if.
           move -1 to row-position.
           exec sql
              fetch relative :row-position  cust_cursor
              into :customer-first-name,:formatted-balance
           end-exec.
           if sqlnativeerror = 0 then
              display customer-first-name & ` ` & customer-last-name & ` ` & formatted-balance
           end-if.
           perform fetch-data-from-database
              until sqlnativeerror = 100.
           display `----------------------------------------------------`.
           display ``.
           exec sql
                close cust_cursor
           end-exec.
           if sqlnativeerror = 0 then
              display `close cursor successful`
           else
              display `close cursor Failed`
              display `sql-return-codes: ` & sql-return-codes
           end-if.
       fetch-data-from-database.
           exec sql
              fetch next cust_cursor
              into :customer-first-name,:formatted-balance
           end-exec.
           if sqlnativeerror = 0 then
              display customer-first-name & ` ` & customer-last-name & ` ` & formatted-balance
           end-if.
       update_table.
           move `Doe` to customer-last-name.
           exec sql
              update customer
              set lastname = 'Jones'
              where firstname = 'Matt' and
                    lastname  = :customer-last-name
           end-exec.
           exec sql
              commit
           end-exec.
       delete_from_table.
           exec sql
               delete from customer
               where firstname = 'Charles' and lastname = 'Doe'
           end-exec.
           exec sql
              commit
           end-exec.
       drop_index.
           exec sql
              drop index cust_index on customer
           end-exec.
       drop_table.
           exec sql
              drop table customer
           end-exec.
       disconnect_from_database.
           closedb using return-code.