Fehler RNX0115

[Hubert]

Die Definitionen im Service Programm sind:

     H NoMain

      *-------------------------------------------------------------------
      *  - RtvDspFDesc - Retrieve display file description (QDFRTVFD API)-
      *-------------------------------------------------------------------

     D RtvDspFDesc     PR                  ExtPgm( 'QDFRTVFD' )
     D                                8
     D                               10I 0 Const
     D                                8    Const
     D                               20    Const
     D                              272


     D RtvFlds         PR              N
     D  QDspFil                      20A    Value
     D  QNumFlds                     10I 0
     D  QFlddta                             Like(FldDtaDS)

     D FldDtaDS        DS                  Based (p_FldDtaDS) occurs(1000)
     D  #FmtNam                      10A
     D  #FldNam                      10A
     D  #FldLen                       5I 0
     D  #FldPlen                      5I 0
     D  #FldDec                       1
     D  #FldIO                        1
     D  #FldAtr                       1
     D  #FldDTUS                      1
     D  #FldEdt                      20A
     D  #FldRow                      10I 0
     D  #FldCol                      10I 0
     D  #FldCom                    4000A   varying
      *---------------------------------------------------------------*
      *  Retrieve Display File Fields                                 *
      *---------------------------------------------------------------*

     P RtvFlds         B                   Export



     D  RtvFlds        PI                  Like(LglTyp)
     D  QDspFil                            Like( QNamTyp ) Value
     D  Numflds                      10I 0
     D  FldDta                             Like(FldDtaDS)

Die Source dazu habe ich aus dem Midrange Wiki

[Hubert]

Das Serviceprogramm scheint der Fehler zu sein. Manchmal gibt es einen Wert zurück, der auch in den ersten zwei Stellen Blanks (X'4040') hat. Dazu wird dan eine Feldlänge > 16000 zurückgegeben. Nachdem ich das abgefragt habe, lief es so weit gut, bis ein Fehler im Service Programm auftrat.

Danke für Eure Bemühungen

[Fuerchau]

Dann ist da ein Initialisierungsfehler im Serviceprogramm in dem wohl auf die Struktur Blanks gestellt werden an Stelle eines "Clear Struktur", das alle Felder korrekt initialisiert.