Ver Mensaje Individual
  #15
Antiguo 4 de junio de 2026, 08:42
Eslopes
Creador de
PowerRustCOBOL
Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por ámplios conocimientos en la materia Concurso: Tercer puesto: Ganador/a del Tercer puesto en un concurso - Issue reason: Juego  Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras 
Última Actividad 27.10.2026 07:38
Posts Posts: 396
Likes enviados Enviados: 31
Likes recibidos Recibidos: 172

Not bad, not bad at all

FILE I/O TEST SUITE
===================
All files are created under /tmp
Existing files with the same names may be replaced.

SEQUENTIAL FILE TESTS
File: /tmp/seq-test.dat
PASS S001 OPEN OUTPUT SEQUENTIAL
PASS S002 WRITE FIRST SEQUENTIAL RECORD
PASS S003 WRITE SECOND SEQUENTIAL RECORD
PASS S004 OPEN INPUT SEQUENTIAL
PASS S005 READ FIRST SEQUENTIAL RECORD
PASS S006 READ SECOND SEQUENTIAL RECORD
PASS S007 SEQUENTIAL AT END

LINE SEQUENTIAL FILE TESTS
File: /tmp/lineseq-test.txt
PASS L001 OPEN OUTPUT LINE SEQUENTIAL
PASS L002 WRITE FIRST LINE
PASS L003 WRITE MIXED CASE LINE
PASS L004 WRITE LOWERCASE LINE
PASS L005 OPEN INPUT LINE SEQUENTIAL
PASS L006 READ FIRST LINE
PASS L007 READ MIXED CASE LINE
PASS L008 READ LOWERCASE LINE
PASS L009 LINE SEQUENTIAL AT END

INDEXED FILE TESTS
File: /tmp/idx-main.dat
PASS I001 OPEN OUTPUT INDEXED MAIN
PASS I002 WRITE UPPERCASE PRIMARY KEY
PASS I003 WRITE LOWERCASE PRIMARY KEY
PASS I004 WRITE MIXED CASE PRIMARY KEY
PASS I005 WRITE ALPHABETIC-ONLY PRIMARY KEY CONTENT
PASS I006 DUPLICATE PRIMARY KEY RETURNS 22
PASS I007 DUPLICATE ALTERNATE KEY WITHOUT DUPLICATES
PASS I008 OPEN I-O INDEXED MAIN
PASS I009 RANDOM READ BY LOWERCASE PRIMARY KEY
PASS I010 RANDOM READ BY UNIQUE LOWER ALTERNATE KEY
PASS I011 START/READ DUPLICATE UPPER ALTERNATE KEY
PASS I012 START/READ DUPLICATE MIXED ALTERNATE KEY
PASS I013 START GE PRIMARY KEY
PASS I014 START INVALID KEY RETURNS 23
PASS I015 REWRITE INDEXED RECORD
PASS I016 READ REWRITTEN INDEXED RECORD
PASS I017 DELETE CURRENT INDEXED RECORD
PASS I018 READ DELETED RECORD RETURNS 23

INDEXED NUMERIC KEY TESTS
File: /tmp/idx-numeric.dat
PASS N001 OPEN OUTPUT NUMERIC KEY INDEXED FILE
PASS N002 WRITE NUMERIC KEY 00000001
PASS N003 WRITE NUMERIC KEY 00001000
PASS N004 RANDOM READ NUMERIC DISPLAY KEY

INDEXED ALPHABETIC KEY TESTS
File: /tmp/idx-alpha.dat
PASS A001 OPEN OUTPUT ALPHA KEY INDEXED FILE
PASS A002 WRITE UPPER ALPHA KEY
PASS A003 WRITE LOWER ALPHA KEY CONTENT
PASS A004 WRITE MIXED ALPHA KEY CONTENT
PASS A005 RANDOM READ MIXED ALPHA KEY

INDEXED PERFORMANCE PROFILE
File kept on disk after test.
File path: /tmp/idx-perf-uuid-1m.dat
Record count target: 1,000,000
Primary key size: 40 bytes
Record size: 1024 bytes
PASS P001 OPEN OUTPUT PERFORMANCE INDEXED FILE
PASS P002 PERFORMANCE FILE WRITE LOOP COMPLETED

INDEXED WRITE PERFORMANCE STATISTICS
Path : /tmp/idx-perf-uuid-1m.dat
Start time HHMMSSHS : 05372400
End time HHMMSSHS : 05374400
Records attempted : 1,000,000
Elapsed seconds : 20.00
Records per second : 50,000
Approx data MB : 976
Final file status : 00
PASS P003 OPEN INPUT PERFORMANCE INDEXED FILE
PASS P004 PERFORMANCE FILE READ LOOP COMPLETED

INDEXED READ PERFORMANCE STATISTICS (READ INVALID KEY)
Path : /tmp/idx-perf-uuid-1m.dat
Start time HHMMSSHS : 05374400
End time HHMMSSHS : 05380100
Records attempted : 1,000,000
Records found : 1,000,000
Elapsed seconds : 17.00
Records per second : 58,823

Final file status : 00
PASS P005 OPEN INPUT PERFORMANCE INDEXED FILE FOR SCAN
PASS P006 PERFORMANCE FILE SEQUENTIAL SCAN COMPLETED

INDEXED SCAN PERFORMANCE STATISTICS (READ NEXT)
Path : /tmp/idx-perf-uuid-1m.dat
Start time HHMMSSHS : 05380100
End time HHMMSSHS : 05380600
Records scanned : 1,000,000
Records found : 1,000,000
Elapsed seconds : 5.00
Records per second : 200,000

Final file status : 00
The indexed performance file was intentionally kept.
===================
TESTS RUN : 00049
TESTS PASSED : 00049
TESTS FAILED : 00000
RESULT : PASS
Eslopes is offline   Responder Con Cita