Symfoware Server アプリケーション開発ガイド(埋込みSQL編) - FUJITSU -
目次 索引 前ページ次ページ

付録B COBOL言語のサンプルプログラム

B.5 拡張カーソルを使用したカーソル操作の使用例

拡張カーソルを使用したカーソル操作の使用例を以下に示します。

000010 IDENTIFICATION   DIVISION.
000020 PROGRAM-ID.      DYNCUR.
000030 DATA             DIVISION.
000040 WORKING-STORAGE  SECTION.
000050*
000060      EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000070 01  SQLSTATE     PIC X(5).
000080 01  SQLMSG       PIC X(255).
000090 01  STRSQL.
000100   49  STRSQL-L   PIC S9(4)  BINARY.
000110   49  STRSQL-D   PIC X(28).
000120 01  CMD.
000130   49  CMD-L      PIC S9(4)  BINARY.
000140   49  CMD-D      PIC X(5).
000150 01  CUR.
000160   49  CUR-L      PIC S9(4)  BINARY.
000170   49  CUR-D      PIC X(5).
000180 01  COUNTRY.
000190   49  COUNTRY-L  PIC S9(4)  BINARY.
000200   49  COUNTRY-D  PIC X(100).
000210 01  COUNTRY_NUM PIC S9(4)  BINARY.
000220      EXEC SQL END DECLARE SECTION END-EXEC.
000230*
000240 01  ENDFLAG      PIC X(2).
000250 01  INDATA       PIC X(2).
000260 01  INNUM        PIC S9(2).
000270 01  LOOP         PIC S9(2).
000280*
000290 PROCEDURE DIVISION.
000300*
000310      EXEC SQL WHENEVER SQLERROR GOTO :CONNECT-ERROR END-EXEC.
000320      EXEC SQL WHENEVER NOT FOUND GOTO :NOT-FOUND-ERROR END-EXEC.
000330      EXEC SQL CONNECT TO 'DB01' END-EXEC.
000340*
000350      EXEC SQL WHENEVER SQLERROR GOTO :STM-ERROR END-EXEC.
000360      EXEC SQL WHENEVER NOT FOUND GOTO :NOT-FOUND-ERROR END-EXEC.
000370*
000380     PERFORM TEST BEFORE
000390             VARYING LOOP FROM 0 BY 1
000400             UNTIL LOOP > 9
000410*
000420         MOVE LOOP TO INDATA
000430         STRING "SELECT COUNTRY FROM SCH.TBL" INDATA DELIMITED BY "#"
000440                 INTO STRSQL-D
000450         MOVE FUNCTION LENG(STRSQL-D) TO  STRSQL-L
000460*
000470         STRING "CMD" INDATA  DELIMITED BY "#"
000480                 INTO CMD-D
000490         MOVE FUNCTION LENG(CMD-D) TO  CMD-L
000500         STRING "CUR" INDATA  DELIMITED BY "#"
000510                 INTO CUR-D
000520         MOVE FUNCTION LENG(CUR-D) TO  CUR-L
000530*
000540         EXEC SQL PREPARE :CMD FROM :STRSQL END-EXEC
000550*
000560         EXEC SQL ALLOCATE :CUR CURSOR FOR :CMD END-EXEC
000570     END-PERFORM.
000580*
000590      EXEC SQL WHENEVER NOT FOUND GOTO :NODATA END-EXEC.
000600*
000610 GET-DATA.
000620      DISPLAY  "何番目の表のデータを表示するか入力してください (0-9)>> ".
000630      ACCEPT  INNUM.
000640      IF  INNUM < 0  AND  INNUM > 9
000650          DISPLAY  "入力されたデータに誤りがあります"
000660        GO  TO  GET-DATA
000670      END-IF.
000680*
000690      MOVE INNUM TO INDATA.
000700      STRING "CUR" INDATA  DELIMITED BY "#"
000710                  INTO CUR-D.
000720      MOVE FUNCTION LENG(CUR-D) TO  CUR-L.
000730      EXEC SQL OPEN :CUR END-EXEC.
000740*
000750     PERFORM TEST BEFORE
000760             VARYING COUNTRY_NUM FROM 1 BY 1
000770             UNTIL COUNTRY_NUM < 0
000780        EXEC SQL FETCH :CUR INTO :COUNTRY END-EXEC
000790        DISPLAY  COUNTRY_NUM "件目の国名は" COUNTRY-D "です"
000800     END-PERFORM.
000810*
000820 NODATA.
000830      EXEC SQL CLOSE :CUR END-EXEC.
000840      EXEC SQL COMMIT WORK END-EXEC.
000850*
000860      DISPLAY "終了しますか?(Y/y) >>".
000870      ACCEPT  ENDFLAG.
000880      IF  ENDFLAG NOT = "Y"  AND  ENDFLAG NOT = "y"
000890        GO  TO  GET-DATA
000900      END-IF.
000910*
000920      EXEC SQL COMMIT WORK END-EXEC.
000930      EXEC SQL DISCONNECT 'DB01' END-EXEC.
000940*
000950      EXIT PROGRAM.
000960*
000970 NOT-FOUND-ERROR.
000980 STM-ERROR.
000990      DISPLAY  "SQLSTATE :"  SQLSTATE.
001000      DISPLAY  "SQLMSG :  "  SQLMSG. 
001010*
001020      EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
001030      EXEC SQL COMMIT WORK END-EXEC.
001040      EXEC SQL DISCONNECT 'DB01' END-EXEC.
001050*
001060      EXIT PROGRAM.
001070*
001080 CONNECT-ERROR.
001090      DISPLAY  "SQLSTATE :"  SQLSTATE.
001100      DISPLAY  "SQLMSG :  "  SQLMSG. 
001110      EXIT PROGRAM.

目次 索引 前ページ次ページ

All Rights Reserved, Copyright(C) 富士通株式会社 2007-2008