Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Rainers-Beispiele/ (Columbo Version 0.7^©) Datei vom 4.1.2008 mit Größe 2 kB

Quelle last50-dynamisch.cob Sprache: Cobol

       Identification Division.
       Program-Id. last50d.
       Environment Division.
       Input-Output Section.
       Data Division.
       Working-Storage Section.
       01 row        pic S9(8) occurs 100.
       77 anzahl     pic S9(8).
       77 von-lfdnr  pic S9(8).
       77 bis-lfdnr  pic S9(8).
       01 mysqlx-fetch-array occurs 100.
         05 zeile pic X(80).
       77 sql-code   pic S9(8).
       77 sqlx       pic x(80).
       77 result     pic x(80).
       01 this.
         05 log        pic x(80).
       77 die-par    pic x(80).
       Procedure Division.
      * Es werden die letzten 50 LOGIN angelistet
         string " Select sqlx-SMALL-RESULT MAX(lfdnr) as anzahl ";
                " from ta-logging "
         delimited by size into sqlx.
         call MYsqlx-QUERY using sqlx, result
         if result=0
           display "
F E H L E R
" sqlx "
"
           display "
" sql-code "
"
           call MYsqlx-CLOSE
           string "ABBRUCH: Fehler beim Lesen ta-logging für "
                  "Statuskontrolle (select #3)
"
           into die-par
           call die using die-par
         else
           call MYsqlx-FETCH-array using result 1 row
           move row('anzahl') to anzahl
         end-if
         if anzahl <= 50
           move 0 to von-lfdnr
         else
           compute von-lfdnr = anzahl - 50;
         end-if
         compute bis-lfdnr = 99;
         string " Select * "
                " from ta-logging ";
                " LIMIT $von-lfdnr,$bis-lfdnr "
         into sqlx
         call MYsqlx-QUERY using sqlx result
         if result=0 then
           display "
F E H L E R
" sqlx "
"
           display "
" sql-code "
"
           call MYsqlx-CLOSE
           string "ABBRUCH: Fehler beim Lesen ta-logging für "
                  "Statuskontrolle (select #4)
"
           delimited by size into die-par
           call die using die-par
         else
           perform until row not= MYsqlx-FETCH-array(result,1)
             move row to log of this
           end-perform
         end-if
       End-Program last50d.

quality100%

¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤

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.