extern beschriebene Datei

[muadeep]

Dieses Programm bekommt seine Daten aus 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 

[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]

[XMan]

Hallo

gibts die Datenbank nur einmal auf dem System oder hast ev. mal eine Kopie (für Testzwecke oder Sicherung) erstellt? Ev. wird nicht auf die richtige zugegriffen?

[muadeep]

nein, die Datenbank ist nur einmal auf dem System (mit Sicherheit)

das Programm wird von einem anderem Programm (Fremdfirma) aufgerufen, und was da genau gemacht wird weiß ich leider nicht,
habe dafür keine Source-Code!

Nach einem Tel.-Anruf bei dieser Firma wurde mir aber versichert, daß da nicht's geändert wurde!
Auch das Objekt (Objektbeschreibung anzeigen) sagt mir daß das
entsprechende Programm der Fremdfirma seit über einem Jahr nicht mehr geändert wurde!

[Rincewind]

Wurde vielleicht die Datei geändert ? (guck mal ob da Levelcheck *NO ist)

Wir hatten probleme beim wechsel mit den Dateien die z.b. durch DSPOBJD *OUTFILE erstellt wurden.

Gruß
Rince