Moin, moin,

ich verweifele gerade an meinem "alten" Code.

Zu Dokumentierungszwecken frage ich im Programm häufiger User und Programmname ab und schreibe diese Daten mit Datum und Zeit in eine Protokolldatei. Da ich nun meine Protokolldatei ersetzen musste (weitere Angaben werden benötigt), sollte das Programm einfach nur mit der geänderten Datei neu kompiliert werden.

Code:
  ˜*****************************************************************        €
     ˜*       D A T E N S T R U K T U R E N                                    €
     ˜*****************************************************************        €
     D/copy XXX/QRPGLEH,PGM_SDS_I

     D mydate          S               D   DATFMT(*EUR) INZ(D'2000-01-01')
     D mytime          S               T   INZ(T'00:00:00')

     D $text           S            132
     d $pgm            s             10

     C/EJECT
     ˜*****************************************************************        €
     ˜*       I N I T I A L I S I E R U N G                                    €
     ˜*****************************************************************        €
     C

      //********************************************************
      // mainline
      //********************************************************
     c     *entry        plist
     c                   parm                    $text
     c                   parm                    $pgm

      /FREE
       mydate = %date;
       mytime = %time;

       reset cpyprf;

       cptext = $text;
       cpusr = user;
       cppgm = $pgm;
       cpdat = mydate;
       cptim = mytime;
In der Kompilierungsliste erhalte ich folgende Fehler:
Code:
...
*RNF7031   TIMSYS          A(6)                   41D 
*RNF7031   USER            A(10)                  37D 
*RNF7031   XFILE           A(8)                   34D 
*RNF7031   XINFO           A(35)                  35D 
*RNF7031   XMSGID          A(7)                   26D 
*RNF7031   XMSGTX          A(80)                  31D 
*RNF7031   XMSGTY          A(3)                   27D 
*RNF7030 USER              **UNDEF**              80
Also in der PGM_SDS_I ist der "USER" definiert und es wird nicht auf diese Variable verwiesen. Zum anderen vewende ich eine Variable "USER", die nicht definiert ist!!!??

Hat jemand eine Idee, wo ich die Ursache für diese Merkwürdigkeit finden und beheben kann?

Danke

Andreas