Display Attribute Hex

[harkne]

Noch eine Frage.

Es gibt doch so viele Dateien in denen die Systeminformationen abgelegt sind. Gibt es nicht auch eine für die Feldbeschreibung ?

[Fuerchau]

Welche meinst du denn ?
a) DSPFFD gilt auch für PF/LF
b) PF/LF kann man per SQL aus QSYS2/SYSCOLUMNS laden
c) Auch dafür gibts natürlich wieder ein API

[harkne]

In Bezug auf mein Problem dachte ich es gibt vielleicht eine Systemtabelle in der die Zeile und Spalte eines Bildschirmfeldes hinterlegt sind.

[Fuerchau]

Nein, die gibts tatsächlich nicht, da DSPF/PRTF so spezifisch sind.
Vor V5 gabs gar keine Möglichkeit, aus dem Objekt Zeilen/Spalten zu extrahieren.

[harkne]

So, ich hab es hinbekommen. Ich habe in der Funktion welches das API beinhaltet die RCVVAR als Array definiert. Jetzt funktionierts.

Vielen Dank an alle für die Hilfe

Viele Grüsse Harald

[woodstock99]

für die den link benützen
ILE Procedure for using Display File API's (http://www.as400pro.com/servlet/sql.tipView?key=177&category=RPG)
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 :p


oder so

Format ERRC0100

<table width="80%" border="1"> <tbody><tr> <th colspan="2" valign="bottom" align="center">Offset</th> <th rowspan="2" valign="bottom" align="left">Use</th> <th rowspan="2" valign="bottom" align="left">Type</th> <th rowspan="2" valign="bottom" align="left">Field</th> </tr> <tr> <th valign="bottom" align="left">Dec</th> <th valign="bottom" align="left">Hex</th> </tr> <tr> <td valign="top" align="center">0</td> <td valign="top" align="center">0</td> <td valign="top" align="left">INPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Bytes provided</td> </tr> <tr> <td valign="top" align="center">4</td> <td valign="top" align="center">4</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Bytes available</td> </tr> <tr> <td valign="top" align="center">8</td> <td valign="top" align="center">8</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">CHAR(7)</td> <td valign="top" align="left">Exception ID</td> </tr> <tr> <td valign="top" align="center">15</td> <td valign="top" align="center">F</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">CHAR(1)</td> <td valign="top" align="left">Reserved</td> </tr> <tr> <td valign="top" align="center">16</td> <td valign="top" align="center">10</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">CHAR(*)</td> <td valign="top" align="left">Exception data</td> </tr> </tbody></table>

Format ERRC0200

<table width="80%" border="1"><tbody><tr> <th colspan="2" valign="bottom" align="center">Offset</th> <th rowspan="2" valign="bottom" align="left">Use</th> <th rowspan="2" valign="bottom" align="left">Type</th> <th rowspan="2" valign="bottom" align="left">Field</th> </tr> <tr> <th valign="bottom" align="left">Dec</th> <th valign="bottom" align="left">Hex</th> </tr> <tr> <td valign="top" align="center">0</td> <td valign="top" align="center">0</td> <td valign="top" align="left">INPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Key</td> </tr> <tr> <td valign="top" align="center">4</td> <td valign="top" align="center">4</td> <td valign="top" align="left">INPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Bytes provided</td> </tr> <tr> <td valign="top" align="center">8</td> <td valign="top" align="center">8</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Bytes available</td> </tr> <tr> <td valign="top" align="center">12</td> <td valign="top" align="center">C</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">CHAR(7)</td> <td valign="top" align="left">Exception ID</td> </tr> <tr> <td valign="top" align="center">19</td> <td valign="top" align="center">13</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">CHAR(1)</td> <td valign="top" align="left">Reserved</td> </tr> <tr> <td valign="top" align="center">20</td> <td valign="top" align="center">14</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">CCSID of the CCHAR data</td> </tr> <tr> <td valign="top" align="center">24</td> <td valign="top" align="center">18</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Offset to the exception data</td> </tr> <tr> <td valign="top" align="center">28</td> <td valign="top" align="center">1C</td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">BINARY(4)</td> <td valign="top" align="left">Length of the exception data</td> </tr> <tr> <td valign="top" align="center"> </td> <td valign="top" align="center"> </td> <td valign="top" align="left">OUTPUT</td> <td valign="top" align="left">CHAR(*)</td> <td valign="top" align="left">Exception data</td></tr></tbody></table>

je nachdem. Nachzulesen iSeries Information Center (http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/qdfrtvfd.htm)