Crashkurs Serviceprogramme und Prototypes

[BenderD]

crtsrcpf qrpgleh 112

Ich schreibe normalerweise erst die Prototypen für die exportierten Procedures und dann habe ich ein kleines Fummeltool, das mir aus diesen Prototypen einen Rahmen für das SRVPGM generiert mit Dummy Implementierung für die Procedures, den Compile Anweisungen und was man sonst noch darin immer drin haben will (das sind dann oft Anpassungen für Projekte). Das Teil ist ebenfalls Open Source (GENFRAME), kann aber nur ein Subset dessen, was alles geht und ist auch schon ein wenig angegraut...

D*B

[tarkusch]

Hallo Dieter,

ich hätte wie beschrieben mir eine Quelldatei QRPGLEH erstellt.
Die Sourcen reinkopiert.

 Teildatei  Art         Text                                      
JOBLOG_P    RPGLE       JOBLOG SERVICE PROGRAMM PROTOTYPES        
JOBLOG_S    RPGLE       JOBLOG SERVICE PROGRAMM SERVICE PROGRAMM

Anschließend hätte ich deine Umwandlungsanweisung abgesetzt.

CRTRPGMOD MODULE(JOBLOG_S) 
SRCFILE(TSTSRC/QRPGLEH) 
DBGVIEW(*SOURCE)

Aber ich bekomme das nicht kompeliert.

Darf ich in den H Bestimmungen kein NoMain angeben.
Wieso wandelt er das eine Modul so oft?

lg

TARKI

[BenderD]

Die Sourcen reinkopiert.

... kopieren ist was anderes...

Dieter:

D*B    CRTRPGMOD JOBLOG_S
D*B+     DBGVIEW(*SOURCE)
D*B    CRTSRVPGM(JOBLOG_S)
D*B+     ACTGRP(*CALLER)
D*B+     EXPORT(*ALL)

Tarkusch:

D*B    CRTRPGMOD JOBLOG_S
D*B+     DBGVIEW(*SOURCE)
D*B+  CRTSRVPGM(JOBLOG_S)
D*B+     ACTGRP(*CALLER)
D*B+     EXPORT(*ALL)

Wenn man das jetzt an den Preprozessor gibt (entweder call crtcpp parm(...) oder mit command create, dann werden die commands aus der Quellle geparsed (D*B kennzeichnet den Anfang einer beliebigen CL Anweisung, folgende D*B+ werden mit angehängt; erneutes D*B ist der nächste command.

Außerdem hast Du in der QRPGLEH offenkundig die Quelle des Programms nochmal stehen, da muss der Prototyp hin - das löst bei Dir einen Zyklus von Copy aus (auch aus diesem Grund macht man in Copy Strecken das /if not defined cnstruct rein, das mehrfach kopieren verhindert.

D*B