cicsdb2demo.cob

来自「用COBOL基于IBM大型机操作DB2及CICS的样例。」· COB 代码 · 共 17 行

       IDENTIFICATION  DIVISION.
       PROGRAM-ID      DB2DEMO.
       DATA            DIVISION.
       WORKING-STORAGE SECTION.
           EXEC SQL INCLUDE SQLCA   END-EXEC.
           EXEC SQL INCLUDE AIRVEN  END-EXEC.
       01  RESP-CODE    PIC S9(8)  COMP.
       01  RESP2-CODE   PIC S9(8)  COMP.
       LINKAGE         SECTION.
       PROCEDURE       DIVISION.
           EXEC SQL
             SELECT ID INTO VEN-ID FROM AITVEN
           END-EXEC.
           
           EXEC CICS RETURN END-EXEC.
           GOBACK.