für die den link benützen
ILE Procedure for using Display File API's
um den quellcode verwenden zu wollen


D apiErrDs Ds
D Apibytpv 10i 0 inz(%size(ApiErrDs))
d ApiErrLen 10i 0 inz(0)
d ApyMsgId 7a
d ApyResVd 1a
d ApyRplDta 50a
kann man so definieren . dann funzt es auch. das fehlt nämlich noch bei diesem code beispiel


oder so

Format ERRC0100

Offset Use Type Field
Dec Hex
0 0 INPUT BINARY(4) Bytes provided
4 4 OUTPUT BINARY(4) Bytes available
8 8 OUTPUT CHAR(7) Exception ID
15 F OUTPUT CHAR(1) Reserved
16 10 OUTPUT CHAR(*) Exception data


Format ERRC0200

Offset Use Type Field
Dec Hex
0 0 INPUT BINARY(4) Key
4 4 INPUT BINARY(4) Bytes provided
8 8 OUTPUT BINARY(4) Bytes available
12 C OUTPUT CHAR(7) Exception ID
19 13 OUTPUT CHAR(1) Reserved
20 14 OUTPUT BINARY(4) CCSID of the CCHAR data
24 18 OUTPUT BINARY(4) Offset to the exception data
28 1C OUTPUT BINARY(4) Length of the exception data
OUTPUT CHAR(*) Exception data


je nachdem. Nachzulesen iSeries Information Center