extern beschriebene Datei

[mk]

Hallo,

wird denn der Extparm auch richtig an das Programm übergeben ?
Vieleicht gibt es eine Feldüberschreibung
bei dem Programm das dein Programm aufruft.
Gruss
Michael


einer "extern beschriebenen Datei (=IJD00)" und lief auch bisher ohne Probleme!

Seit einiger Zeit, funkt das Programm leider nicht mehr!

habe mit "strdbg" versucht den/die Fehler zu suchen,
dabei habe ich festgestellt, daß wenn ich mir im "Debug-Modus" mit F11 den "EXTPARM" anzeigen lasse, mir zwar die Feldnamen und Feldlängen richtig angezeigt werden, aber keine entsprechenden Inhalte mehr vorhanden sind!

Jetzt meine Frage, wir haben vor kurzem von V5.2 auf V5.3 umgestellt, könnte es vieleicht damit zusammenhängen?

oder habe ich irgend etwas vergessen, falsch eingetragen, etc.

     H Option(*SrcStmt : *NoDebugIO) Datedit(*DMY) DatFmt(*ISO)
     H DftActGrp(*No) Indent('|')
      **************************************************************************
     FMontAuPR  O    E             Printer
      *LR   Programmende                                                      
      **
      * Programm Status Datenstruktur
     DPgmSDS          SDS
     D PgmNam                  1     10
     D ErrUsr                115    132
     D JobNam                244    253
     D UserPf                254    263
      * Cursor + CFxx/CAxx-Tasten
     DInfDS            DS
     D FKey                  369    369
     D Cursor                370    371B 0
      * Montage-Auftrag 
     D ExtParm       E DS                  ExtName(IJD00)
      **
      **
      *   Hauptprogramm
     C                   Select
     C                   When      JDTLMN = '0'
     C                   Eval      JNL = 'X'
     C                   When      JDTLMN = '1'
     C                   Eval      JNR = 'X'
     C                   EndSL
     C                   Select
     C                   When      JDMEEL = 'M'
     C                   Eval      MEC = 'X'
     C                   When      JDMEEL = 'E'
     C                   Eval      ELC = 'X'
     C                   EndSL
     C                   Eval      JDSUV2 = JDSUVI
     C                   Eval      XDANLG = JDANLG
     C                   Write     LabelE
     C     PgmEnde       Tag
     C                   Eval      *InLR = *on
       ************************************
     C     *InzSr        BegSr

     C     *entry        Plist
     C                   Parm                    ExtParm

     C                   EndSr 

[/QUOTE]