open IFS-File CodePage-Probleme

[JonnyBrazil]

Inzwischen kann ich schon die Bildgrösse mittels RPG aus dem .jpg auslesen, aber im Moment hänge ich bei einem seltsamen Fehler.

C                   EVAL      FileID = open(%ADDR(FullName)          
C                               : O_RDONLY + O_CODEPAGE              
C                               : S_IRWXU : Codepage)                
                                                                     
C                   IF        FileID = -1                            
C                   EVAL      msg_data = 'Failed to open file "' +   
C                                %TRIM(FullName) +'". ' + geterrinfo 
C     Msg_Data      DUMP                                             
C                   GOTO      endpgm                                 
C                   ENDIF 

in msg_data steht folgendes: Failed to open file "/Archiv/Moa/MAD020C.txt". - 3.452 : Zu viele offene Dateien für diesen Prozeß.

Ich finde zu diesem Fehler 3452 keine Erklärung.
Irgendeine Idee dazu?

[Fuerchau]

Im Gegensatz zu DB-Dateien gibts bei C-Funktionen für das IFS eine Beschränkung der Anzahl gleichzeitig geöffneter IFS-Dateien.

Wenn du eine Datei öffnest, musst du diese auch explizit schließen, sonst bleibt sie bis zum Jobende geöffnet.
Irgendwann sind alle File-Descriptoren belegt und kein Open geht mehr.

Ein RCLRSC/RCLACTGRP hilft da meines Wissens nicht.

[JonnyBrazil]

Ich mache bei Programmende immer ein

EVAL      ReturnInt = close(FileID) 

Aber ich habe nun am Programmanfang noch diese Befehle eingebaut:

C                   FOR       FileId = 1 to 1000         
C                   EVAL      ReturnInt = close(FileId)  
C                   ENDFOR 

und das hat sichtlich geholfen. Danbke vür die Unterstützung.

[Fuerchau]

Diese Schleife solltest du aber nur zu Testzwecken verwenden, da du damit ggf. geöffnete IFS-Dateien des Job's anderer aktiver Programme (Stack/Actgrp) schließt !!!

Die FileId ist nähmlich Unique für den Job/Thread.

Es kann da schon mal beim Testen dazu führen, dass man das Programm abbricht bevor der Close erreicht wird.

[JonnyBrazil]

Ist klar, habe ich schon wieder entfernt.

Die EXIF-Daten kann ich noch nicht auslesen, aber die Bildgrösse von JPG und GIF geht schon super. Mit RPG!

[Fuerchau]

Für die Codewandlung ist folgendes API ganz hilfreich:

Convert a Graphic Character String (CDRCVRT, QTQCVRT) API

Es klappt auch mit SBCS und ist besser als QDCXLATE (bei dem man ja doch nicht die richtige Tabelle findet).

Ggf. musst du dann von UTF-8 (1208) auf 273 ansonsten von 1252/850 auf 273 wandeln.