Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 

products/sources/formale Sprachen/Cobol/verschiedene-Autoren/IBM/   (Columbo Version 0.7©)  Datei vom 4.1.2008 mit Größe 8 kB image not shown  

Impressum P5.cob   Sprache: Cobol

 
      ***********************************************************************
      ** Licensed Materials - Property of IBM
      **
      ** Governed under the terms of the International
      ** License Agreement for Non-Warranted Sample Code.
      **
      ** (C) COPYRIGHT International Business Machines Corp. 1995 - 2002
      ** All Rights Reserved.
      **
      ** US Government Users Restricted Rights - Use, duplication or
      ** disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
      ***********************************************************************
      **
      ** SOURCE FILE NAME: joinsql.sqb
      **
      ** SAMPLE: An example using advanced SQL join expressions
      **
      **         The advanced SQL statement to be executed and displayed is:
      **
      **         WITH
      **         DEPT_MGR AS
      **            ( SELECT DEPTNO, DEPTNAME, EMPNO, LASTNAME, FIRSTNME,
      **               PHONENO FROM DEPARTMENT D, EMPLOYEE E
      **               WHERE D.MGRNO=E.EMPNO AND E.JOB='MANAGER'
      **            ),
      **         DEPT_NO_MGR AS
      **            ( SELECT DEPTNO, DEPTNAME, MGRNO AS EMPNO
      **               FROM DEPARTMENT
      **               EXCEPT ALL
      **               SELECT DEPTNO, DEPTNAME, EMPNO
      **               FROM DEPT_MGR
      **            ),
      **         MGR_NO_DEPT (DEPTNO, EMPNO, LASTNAME, FIRSTNME, PHONENO) AS
      **            ( SELECT WORKDEPT, EMPNO, LASTNAME, FIRSTNME, PHONENO
      **               FROM EMPLOYEE
      **               WHERE JOB='MANAGER'
      **               EXCEPT ALL
      **               SELECT DEPTNO,EMPNO, LASTNAME, FIRSTNME, PHONENO
      **               FROM DEPT_MGR
      **            )
      **         SELECT DEPTNO, DEPTNAME, EMPNO, LASTNAME, FIRSTNME, PHONENO
      **            FROM DEPT_MGR
      **         UNION ALL
      **         SELECT DEPTNO, DEPTNAME, EMPNO,
      **            CAST(NULL AS VARCHAR(15)) AS LASTNAME,
      **            CAST(NULL AS VARCHAR(12)) AS FIRSTNME,
      **            CAST(NULL AS CHAR(4)) AS PHONENO
      **            FROM DEPT_NO_MGR
      **         UNION ALL
      **         SELECT DEPTNO,
      **            CAST(NULL AS VARCHAR(29)) AS DEPTNAME,
      **            EMPNO, LASTNAME, FIRSTNME, PHONENO
      **            FROM MGR_NO_DEPT;
      **
      ** SQL STATEMENTS USED:
      **         BEGIN DECLARE SECTION
      **         END DECLARE SECTION
      **         CONNECT
      **         DECLARE
      **         FETCH
      **         OPEN
      **
      ** OUTPUT FILE: joinsql.out (available in the online documentation)
      ***********************************************************************
      **
      ** For more information on the sample programs, see the README file.
      **
      ** For information on developing COBOL applications, see the
      ** Application Development Guide.
      **
      ** For information on using SQL statements, see the SQL Reference.
      **
      ** For the latest information on programming, compiling, and running
      ** DB2 applications, visit the DB2 application development website:
      **     http://www.software.ibm.com/data/db2/udb/ad
      ***********************************************************************

       Identification Division.
       Program-ID. "joinsql".

       Data Division.
       Working-Storage Section.

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

           EXEC SQL BEGIN DECLARE SECTION END-EXEC.
       01 userid            pic x(8).
       01 passwd.
         49 passwd-length   pic s9(4) comp-5 value 0.
         49 passwd-name     pic x(18).
       01 deptno            pic x(3).
       01 d-ind             pic s9(4) comp-5 value 0.
       01 deptname          pic x(29).
       01 dn-ind            pic s9(4) comp-5 value 0.
       01 empno             pic x(6).
       01 e-ind             pic s9(4) comp-5 value 0.
       01 lastname.
         49 lastname-len    pic s9(4) comp-5 value 15.
         49 lastname-name   pic x(15).
       01 l-ind             pic s9(4) comp-5 value 0.
       01 firstname.
         49 firstname-len   pic s9(4) comp-5 value 12.
         49 firstname-name  pic x(12).
       01 f-ind             pic s9(4) comp-5 value 0.
       01 phoneno           pic x(4).
       01 p-ind             pic s9(4) comp-5 value 0.

           EXEC SQL END DECLARE SECTION END-EXEC.

       77 errloc          pic x(80).
       77 counter         pic s9(4) comp-5 value 0.

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

      * 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 " ".

           display " ".

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

      * declare the cursor for the advanced SQL statement.
           EXEC SQL DECLARE c1 CURSOR FOR
                    WITH
                    DEPT_MGR AS
                    (SELECT DEPTNO, DEPTNAME, EMPNO, LASTNAME, FIRSTNME,
                       PHONENO FROM DEPARTMENT D, EMPLOYEE E
                       WHERE D.MGRNO=E.EMPNO AND E.JOB='MANAGER'),
                    DEPT_NO_MGR AS
                    (SELECT DEPTNO, DEPTNAME, MGRNO AS EMPNO
                       FROM DEPARTMENT EXCEPT ALL
                       SELECT DEPTNO, DEPTNAME, EMPNO FROM DEPT_MGR),
                    MGR_NO_DEPT (DEPTNO, EMPNO, LASTNAME, FIRSTNME,
                    PHONENO) AS
                    (SELECT WORKDEPT, EMPNO, LASTNAME, FIRSTNME,
                       PHONENO FROM EMPLOYEE
                       WHERE JOB='MANAGER' EXCEPT ALL
                       SELECT DEPTNO,EMPNO, LASTNAME, FIRSTNME, PHONENO
                       FROM DEPT_MGR)
                    SELECT DEPTNO, DEPTNAME, EMPNO, LASTNAME, FIRSTNME,
                       PHONENO FROM DEPT_MGR
                    UNION ALL
                    SELECT DEPTNO, DEPTNAME, EMPNO,
                       CAST(NULL AS VARCHAR(15)) AS LASTNAME,
                       CAST(NULL AS VARCHAR(12)) AS FIRSTNME,
                       CAST(NULL AS CHAR(4)) AS PHONENO
                       FROM DEPT_NO_MGR END-EXEC.

           EXEC SQL OPEN c1 END-EXEC.
           move "OPEN" to errloc.
           call "checkerr" using SQLCA errloc.

           display "DEPTNO DEPTNAME EMPNO LASTNAME
      -            " FIRSTNAME PHONENO".
           display "====================================================
      -            "=========================".

      * FETCH the rows from the table corresponding to the SQL statement.
           perform Fetch-Loop thru End-Fetch-Loop
              until SQLCODE not equal 0.

           display " ", counter, " record(s) selected".

           EXEC SQL CONNECT RESET END-EXEC.
           move "CONNECT RESET" to errloc.
           call "checkerr" using SQLCA errloc.
       End-Main.
           go to End-Prog.

       Fetch-Loop Section.
           move spaces to phoneno.
           EXEC SQL FETCH c1 INTO :deptno:d-ind, :deptname:dn-ind,
                    :empno:e-ind, :lastname:l-ind, :firstname:f-ind,
                    :phoneno:p-ind END-EXEC.

           if SQLCODE not equal 0
              display " "
              go to End-Fetch-Loop.
           if l-ind not equal 0
              move " " to lastname-name
              move 1 to lastname-len.
           if f-ind not equal 0
              move " " to firstname-name
              move 1 to firstname-len.
           display deptno, " ", deptname, " ", empno, " ",
                   lastname-name(1:lastname-len), " ",
                   firstname-name(1:firstname-len), " ", phoneno.

           add 1 to counter.
       End-Fetch-Loop. exit.

       End-Prog.
           stop run.

96%


¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.25Bemerkung:  (vorverarbeitet)  ¤

*Bot Zugriff




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.