Exception (nach Sql-Error) werfen

[tarkusch]

Morgen,

ich habe das api QMHSNDM ausprobiert:

       //    Message  = 'Fehler aufgetreten! Test';
       //    QMHSNDM(   *blanks
       //             : *blanks
       //             : Message
       //             : %len(Message)
       //             : '*INQ'
       //             : MsgQ
       //             : %elem(MsgQ)
       //             : '*PGMQ'
       //             : MsgKey
       //             : ErrorCode );

Ich prüfe Daten für den Import, nur wenn die ok sind möchte ich eine weitere Verarbeitung, ansonsten muss der Import-File bearbeitet werden und noch einmal eingespielt werden.

Mein Rpg programm wird von einem CL aufgerufen und ich hätte gerne das das Rpg Programm "stürzt" und das aufrufende CL auch.

Habt ihr Vorschläge für mich?

Dank im Voraus

Tarki

[Fuerchau]

Dies ist dann wieder eine SNDPGMMSG (QMHSNDPM) vom Typ *ESCAPE.
Hier gibst du den Callstack an, an den die Nachricht geht.
* = Du selbst (das geht auch, allerdings bekommt das CLP dann eine RPG-Nachricht und nicht deine)
1 = nächst höhere (bei ILE ist das die aufrufende Prozedur oder die RPG-Main)
2 = noch höher ...