Übersicht der Quellen

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

products/Sources/formale Sprachen/C/Linux/lib/crc/   (Linux Kernel Version 6.17.9©)  Datei vom 24.10.2025 mit Größe 2 kB image not shown  

Bilddatei

last50.cob


products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Rainers-Beispiele/diverse/last50.cob

Identification Division. Program-Id. last50. 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 last50.

                                                                                                                                                                                                                                                                                                                                                                                                     

Neuigkeiten

     Aktuelles
     Motto des Tages

Open Source Software

     Quellcodebibliothek
     Eigene Quellcodes
     Fremde Quellcodes
     Suchen
Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik
Statistik
#Sources=141584
#Domains=752002