RPG-Code in Free

[Wavum]

Wie sieht dieser Code in Free aus:

     D i5Mailconstructor...
     D                 pr              o   extproc(*java: i5Mail:*constructor)
     D                                     class(*java: i5Mail)
     D  m_owner                        o   class(*java: jStrConst) const
     D  m_system                       o   class(*java: jStrConst) const
     D  m_jobnam                       o   class(*java: jStrConst) const
     D  m_jobnum                       o   class(*java: jStrConst) const

Wenn ich ihn zu Free formatiere sieht er so aus:

      DCL-PR i5Mailconstructor
              OBJECT extproc(*java: i5Mail:*constructor)
              class(*java: i5Mail);
         m_owner OBJECT(*java: jStrConst) const;
         m_system OBJECT(*java: jStrConst) const;
         m_jobnam OBJECT(*java: jStrConst) const;
         m_jobnum OBJECT(*java: jStrConst) const;
       END-PR;

Nur kennt Free kein "class" und somit lässt sich der Code nicht kompilieren. Ich bitte um Hilfe. Danke.

[Pikachu]

Vielleicht muß es so?

      DCL-PR i5Mailconstructor
              extproc(*java: i5Mail:*constructor)
               OBJECT(*java: i5Mail);
               ...

[Wavum]

Fast, so muss es:

      DCL-PR i5Mailconstructor
              OBJECT(*java: i5Mail)
              extproc(*java: i5Mail:*constructor);
               ...