Guten Morgen,

nachdem ich gestern nun so stolz war, dass es läuft, kommt heute die Ernüchterung :-)

Also ich starte das Programm mit der *PSSR. Beim ersten mal kommt auch die richtige Fehlerbehandlung. Das Window wird angezeigt mit dem Text "Keine Berechtigung". Ich drücke F12 und bin wieder in dem Programm mit der *PSSR. Dann lege ich wieder einen neuen Satz an, und es sollte wieder das Fehlerwindow kommen. Aber falsch gedacht - Es kommt ein neuer Fehler: RNX9998 (E/A Fehler CPF5134 in Datei BFEPRTCTR erkannt. E/A Operation nicht zulässig da Teildatei BFEPRTCTR in Bibliothek xxx fehlerhaft.) Ist sie aber nicht. Mit DFU kann ich die Datei bearbeiten.

Hier mal der Form halber der Quellcode von meinem Testprogramm:


* Druckersteuerung
FBFEPRTCTR UF A E K Disk Infds(#INFDS1) Infsr(*PSSR)
* Tabellendatei !!! nur für *LIKE Defn
FBfeTabTab IF E K Disk
*--------------------------------------------------------------------
* Datei-Informationsdatenstruktur Infds1
*--------------------------------------------------------------------
d#Infds1 DS
d File *FILE
d Status *STATUS
d Opcode *OPCODE
d Routine *ROUTINE
d Record *RECORD



*-------------------------------------------------------------------
* *PSSR Programmfehler-Ausnahmeroutine
*-------------------------------------------------------------------
C *PSSR Begsr
c Eval Return = '*DETC '
*
c call 'PSSR001R'
c Parm 'BFEP9001PS' PssPgm
c Parm 'PKIBERECHT' PssPli
c Parm 'BFEP9001FM' PssDsp
c Parm 'LEI' PssDli
c Parm File PssFil
c Parm 'Bibliothek' PssFli
c Parm Opcode PssOpc
c Parm 'Error' PssErr
c Parm 'Hier Text' PssBem
c Endsr Return


Viele Grüße von

Peter