DDS in ILE RPG

[DVE]

Wie du schon schreibst, du brauchst im CL ein OVRDBF. Ansonsten ist es wie beim schreiben.

Gruß
DVE

[Squall]

Wie du schon schreibst, du brauchst im CL ein OVRDBF. Ansonsten ist es wie beim schreiben.

Gruß
DVE

Danke!

Gruß Martin .

[Squall]

Hallo,

anderes Programm aber wieder etwas mit DDS, deshalb wieder dieser Thread. Ich bekomme zz einen Fehler beim Open. Beschrieben ist die Datei so:

FDDS       O    F   92        Disk    UsrOpn       
f                                     ExtFile(Path)
f                                     ExtMbr(Mbr) 

MBR wird an das Prog übergeben

CALL       PGM(DDSGENLINE) PARM(&ZNAM &FLIB &FFILE &MBR) 

und aus 2 Vars setze ich den Pfad zusammen. Das hat bisher immer funktioniert(habe das aus meinem DDS Prog. genommen). Die Datei wird ordnungsgemäß erstellt, der OVR Befehl ist auch i.O.
Nun bekomme ich aber den Fehler:

call ddsbasis parm(ddst liba libb ddste test textf textm ZPROG)   
Datei DDST in Bibliothek liba erstellt.                             
Teildatei TEST zu Datei DDST in liba hinzugefügt.                   
Datei          + in Bibliothek *LIBL mit Teildatei TEST nicht gefunden
Fehlernachricht CPF4102 während OPEN angezeigt. 

Fehler soll das sein:

03 - Datei nicht vorhanden. Bibliothek als *LIBL angegeben. 

DDSBasis ist ein CL Prog das dann das ILE Prog aufruft. Die Datei ist jedoch erstellt worden.

Ein andere Fehler ist ein Dezimalstellenfehler. Hier stimmt jedoch die Zeilenangabe nicht. Auf Zeile XYZ steht nur C/EXEC SQL. Kann es sein das er Platz/Leerzeilen also (0010.00 - damit der Code übersichtlicher wird), ignoriert und sich die Zeilenangabe dadurch verändert?

Gruß Martin

EDIT: Dateifehler behoben. Dafür gibts jetzt einen andren:
Er will einen Open auf Datei DDS machen, welche aber schon auf ist. Der einzige Open den ich mache ist jedoch der hier:

C                   eval      Path = FLib+'/'+FFile 
C                   eval      Path = %trim(Path)    
C*                  close     dds                   
C                   open      dds                   
C                   eval      datnam=FFile          
C                   exsr      fill                  
C                   exsr      head                  
C                   exsr      rec                   
C                   exsr      Line                  
C                   close     dds                   
C                   return 

In den Untermethoden werden nur Writes gemacht um die Datei zu erstellen.

[Squall]

Hallo,

(Ja ich bringe diese Thema wieder mal hoch. ) Ich hätte eine Frage zum return bei CL und zwar steht im Programming Guide das man über diesen Return keine Paramater zurückgeben kann. (Insofern ich mich nicht verlesen habe.) Ich würde jedoch gerne wissen ob das CL Programm das ich von VARPG aufrufe alle Dateien richtig erstellt hat, oder ob etwas schiefgegangen ist und die halb erstellten Dateien wieder gelöscht wurden.

Da ich beim Return ja anscheinend nichts übergeben kann wie kann ich das sonst überprüfen um dem User eine Rückmeldung geben zu können ob alles i.O. ist oder ob etwas schiefgegangen ist.

Gruß Martin

[Fuerchau]

Alle Parameter beim CLP sind per Reference.
Das CLP kann diese verändern, der Inhalt steht dann im rufenden Programm.

[BenderD]

Hallo,

für die Rückgabe von Fehlern hat OS400 einen speziellen Mechanismus: man sendet einfach per API eine Escape Message, das kommt sogar beim SBMJOB noch beim Submitter an.

mfg

Dieter Bender

Hallo,

(Ja ich bringe diese Thema wieder mal hoch. ) Ich hätte eine Frage zum return bei CL und zwar steht im Programming Guide das man über diesen Return keine Paramater zurückgeben kann. (Insofern ich mich nicht verlesen habe.) Ich würde jedoch gerne wissen ob das CL Programm das ich von VARPG aufrufe alle Dateien richtig erstellt hat, oder ob etwas schiefgegangen ist und die halb erstellten Dateien wieder gelöscht wurden.

Da ich beim Return ja anscheinend nichts übergeben kann wie kann ich das sonst überprüfen um dem User eine Rückmeldung geben zu können ob alles i.O. ist oder ob etwas schiefgegangen ist.

Gruß Martin

[Squall]

Ah ok vielen Dank.

Gruß Martin

[Squall]

Hallo,

eine kurze Frage: Warum bzw. wie muss ich die Längen/den Aufbau(SEQ; DAT DTA) definieren wenn ich statt in ein PF in eine RPGLE Datei schreiben will?

Ich hatte es mit demselben Aufbau wie beim PF probiert, nur hatten da ca. 5-6 Zeichen am Anfang gefehlt. Als ich im CL dann die zu schreibende Datei als PF erstellen lies klappte das Schreiben wunderbar. Alles war da.

Gruß Martin

[DVE]

DSPFFD LIBNAMe/QRPGLESRC dann siehst du die Namen der Felder und der Länge.
Gruß
DVE

[Squall]

Hm die Werte sollten ok sein, 6 0; 6 2; 80.

Aber sobald ich das PF wieder in ein RPGLE umwandle fehlen wieder Zeichen.

PF:

C     odbc          Setatr    1             'Column' 

RPGLE:

 odbc          Setatr    1             'Column' 

Woran liegt das?

Gruß Martin

EDIT: Kann ich auch ein PF für /COPY nehmen oder muss das File RPGLE sein?

[Pikachu]

Hallo!

Hm die Werte sollten ok sein, 6 0; 6 2; 80.

Nimm' mal gezonte Felder (6S 0; 6S 2) anstelle von gepackten für die beiden ersten Spalten.

[Pikachu]

Hallo Martin!

Was meinst du mit "PF wieder in RPGLE umwandeln"? Änderst du nur das Attribut der Teildatei und siehst dir diese Teildatei dann mit dem SEU an? Der SEU zeigt Teildateien der Art RPGLE etwas versetzt an. Mit Hilfe der Funktionstasten F7 und F8 kannst du den angezeigten Bereich nach rechts oder links verschieben.

Viele Grüße
Jürgen