Free RPG und Copies/Includes

[camouflage]

Licht im Dunkel...

/COPY oder /INCLUDE ist innerhalb von free form Statements nicht erlaubt. Erlaubt sind /IF, /ELSEIF, /ELSE und /ENDIF.

Um beim Beispiel zu bleiben müsste der Code so aussehen:

dcl-f myDSPFile workstn(*ext) usropn
/if defined (INFDS)
infds(f_infds)
/endif
sfile(MySfl:RRN);

Und um die "myINFDS" nicht "hart" zu codieren, kann ich mir als Copy Feld

dcl-c f_infds 'myInfDS';

definieren. Das kann man natürlich mit allen entsprechenden Keywords machen, klar.

Herzlichen Dank an Barbara Morris.

[Fuerchau]

/IF wird ja mit /ENDIF beendet, besitzt also ein Ende-Tag.
Von der Syntax müsste also ein /ENDCOPY bzw. /ENDINCLUDE implementiert werden.
Vielleicht kommt das ja auch mal irgendwann;-)?

[BenderD]

... der RPG Parser kann nicht schachteln, das sieht man auch schon daran, dass bei einer if Anweisung das if, jedes else und das endif mit semikolon abgeschlossen werden müssen.

D*B

[B.Hauser]

Was würdest Du Dir von einem /ENDCOPY verspechen? Außer ein paar bissigen Bemerkungen von Dieter?
Copy-Strecken sind Teildateien mit einem klaren Ende und der Compiler weiß auch ganz genau wo eine Copy-Strecke aufhört.
Wenn nur ein Teil der Copy-Strecke eingebunden werden soll, können die Einträge mit Compiler Direktiven bedingt und dann entsprechend ausgewählt werden.

[Fuerchau]

Der /ENDCOPY vervollständigt nur die Syntax der Copy-Anweisung im Free, so wie die IF-Anweisung.
Dann würde obiges Konstrukt eben funktionieren:

Irgendeine Anweisung ... /copy file,mbr /endcopy ....;

Dies hat nichts damit zu tun, wann der Copy-Bereich aufhören soll, dass kann ich mit "/if ... /endif" steuern.

Andererseits:
c++ => #include
Java => Import
.NET => Import
:

[BenderD]

... das Problem ist nicht, dass er das Ende vom /COPY nicht hat, das Problem für diesen Murks Parser ist, dass er das Semikolon von der Deckel Anweisung noch nicht hat wenn das /COPY kommt.

D*B

Der /ENDCOPY vervollständigt nur die Syntax der Copy-Anweisung im Free, so wie die IF-Anweisung.
Dann würde obiges Konstrukt eben funktionieren:

Irgendeine Anweisung ... /copy file,mbr /endcopy ....;

Dies hat nichts damit zu tun, wann der Copy-Bereich aufhören soll, dass kann ich mit "/if ... /endif" steuern.

Andererseits:
c++ => #include
Java => Import
.NET => Import
: