Bei Aufruf _C_IFS_FOPEN Deskriptor - Fehler

[TheDevil]

Hallo.

Versuch doch mal
'/home/PCTransfer/SAP_PI/SAP_DISPO/Filename'

Gruß
Ralf

[Fuerchau]

Mittels "/xxx" gibst du einen absoluten Pfad an.
Somit sollte die Datei auch da stehen, wo du sie erwartest.
Wie mein Vorredner ja schrieb, ist der Pfad ja vielleicht in "/Home/....".

[WiedemeierP]

Guten Morgen!
Ich weiss, das ich damit den absoluten Pfad angebe! Das File steht in diesem Pfad. Das File sehe ich sowohl im IFS des RDi als auch im Green Screen über den Befehl WRKLNK. Über beide Wege kann ich auch auf diesen Pfad zugreifen und die Datei öffenen, nur nicht mit dem '_C_IFS_fopen' im CL-Programm!

Gruss Peter

[Fuerchau]

Wo liegt denn nun deine Datei wirklich:

Zitat: "Dieses Steht auch dem Home Verzeichnis '/home/"
'/PCTransfer/SAP_PI/SAP_DISPO/Filename'

oder

'/Home/PCTransfer/SAP_PI/SAP_DISPO/Filename'

Desweiteren sind manche API's auch noch case sensitive und da benötigt man die genau Schreibweise.
Manchmal, das habe ich auch schon erlebt, ist es auch nur ein zusätzliches Leerzeichen am Ende, was weder per WRKLNK noch in Windows angezeigt wird.
In Windows hilft da u.U. mal der Versuch, den Namen zu ändern. In dem Eingabefeld findet man dann die am Ende vorhandenen Leerzeichen.

[WiedemeierP]

Hallo!

Der genaue Pfad ist '/PCTransfer/SAP_PI/SAP_DISPO/BEST.TXT'. Dieser ist so über den wrklink zu erreichen und wird auch so als Variable an den '_C_IFS_fopen' übergeben!

Gruß Peter

[Fuerchau]

Ja ja, die C-Funktionen:
C-Funktionen benötigen i.d.R. einen Nul-Terminated String, also X'00'.
Hänge mal per *TCAT ein X'00' an den Dateinamen. Dasselbe gilt auch für den Openmode.
Definiere die Felder 1 Byte größer also du brauchst für das X'00'.

[WiedemeierP]

Hallo!

Danke für die Hilfe !Leider verlief der Test negativ
CHGVARVAR(&FNAME)VALUE(&PATH*TCAT&X00)
CHGVARVAR(&OMODE)VALUE('r, crln=y'*CAT&X00)
CALLPRC'_C_IFS_fopen'(&fname&omode)rtnval(&atfdi)

[Fuerchau]

Warum muss es denn unbedingt CLP sein?
Kannst du das nicht per SQLRPGLE ganz einfach mit "set : MyBuffer = : MyFileVar" machen?
Das Stichwort hier ist CLOB/BLOB/DBCLOB für den Puffer und CLOB_FILE:

 dcl-ds IFS_File             qualified inz;
      Filename                SQLTYPE(CLOB_FILE);    // Standard-ANSI ISO-8859-1
  END-DS;

  dcl-ds *n                   static;
    FileString                SQLTYPE(DBCLOB:8000000) ccsid(1200);
  END-DS;

   IFS_File.FILENAME_NAME = %trim(Filename);
   IFS_File.FILENAME_NL   = %len(%trim(IFS_File.FILENAME_NAME));
   IFS_File.FILENAME_FO   = SQFRD;      // Datei lesen

   exec sql values(:IFS_File.Filename) into  :FileString;

[WiedemeierP]

Hallo!

Danke für die Idee! Das muss ich jetzt ins Festformat umgesetzt bekommen!

Gruss Peter

[Fuerchau]

Was ja auch kein Hexenwerk ist;-).
Beim C-API könnte es noch an den beteiligten CCSID's liegen.
Prüfe die CCSID der IFS-Datei (Attribute anzeigen) und deines Job's.
Da ja viele im Glauben sind, mit der System-CCSID 65535 am Besten zu fahren, steht der Job natürlich auch auf 65535. Somit gibt es beim Open Probleme, da das System nicht in die korrekte CCSID wandeln kann.

Dies wird dir übrigens mit ILERPG dann auch passieren. Mein Vorschlag wandelt die Daten in Unicode um. Möchtest du die Daten im SBCS-Code bearbeiten, so muss der Job auf eine korrekte CCSID gesetzt werden.

[WiedemeierP]

Bei der C-APi habe ich dann noch eine Frage!
Muss ich nur die CCSID des Job und der Datei berücksichtigen oder auch die des Verzeichnispfads?
Wie ich RDi nachvollziehen konnte wechselt diese munter,. Je nachdem auf welchem Ordner des Pfad man steht!

[WiedemeierP]

Hallo!

Danke für die Hilfe! Lider verlief der nachfolgende Test mit der gleichen Fehlermeldung!

Nachfolgend der Ausschnitt aus dem Coding mit entsprechend groß definierten Feldern:

CHGVARVAR(&FNAME)VALUE(&PATH*TCAT&X00)
CHGVARVAR(&OMODE)VALUE('r, crln=y'*TCAT&X00)
CALLPRC'_C_IFS_fopen'(&fname&omode)rtnval(&atfdi)

Gruss Peter