Hallo,
anderes Programm aber wieder etwas mit DDS, deshalb wieder dieser Thread. Ich bekomme zz einen Fehler beim Open. Beschrieben ist die Datei so:
PHP-Code:
FDDS O F 92 Disk UsrOpn
f ExtFile(Path)
f ExtMbr(Mbr)
MBR wird an das Prog übergeben
PHP-Code:
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:
PHP-Code:
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:
PHP-Code:
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:
PHP-Code:
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.
Bookmarks