Workdatei CL / RPG Free

[BenderD]

Ich habe das ganze jetzt versucht mit SQL zu lösen.
exec sql setOptionnaming=*sys, commit = *none;

PGM1
exec sql
create table bib.wrkfle1(
...
);

exec sql
insert into bib.wrkfle1
values(...);

PGM2 nach der Verarbeitung wird zum Schluss eine Unterprozedur aufgerufen
exec sql
drop table bib.wrkfle1

In der Theorie(ACS) funktioniert dieser drop Befehl.
In der Praxis leider nicht, obwohl er im Debug aufgerufen wird.

... das ist ohnehin schräges Design und funzt nicht wirklich wenn:
- das Programm zweimal gleichzeitig läuft
- das Programm zwischendrin abkackt
außerdem kannst Du keine externe Datenstruktur nutzen, da die Datei zur Compiletime nicht da ist.

Mach das doch einfach so, wie in einem vorhergehenden Beitrag von mir empfohlen.

D*B