Useropen vs open

[Robi]

Hallo *all
wiedermal eine 'Grundsatzfrage'
ich habe hier Programme in RPT die häufig die Dateien mit
UC (User Controlled) definiert haben. Im Pgm wird über eine Bezugszahl abgefragt ob die Datei offen ist.
Wenn nicht, Open und Seton Bezugszahl.

M.E. ist das vielleicht früher aus Performance Gründen mal gut gewesen. Ich würde den ganzen Kram gerne rausschmeißen und die Dateien vom Pgm öffnen lassen. Auch auf die Gefahr hin, das nun ggf . 4-5 Dateien geöffnet werden, obwohl Sie in diesem Lauf nicht verwendet werden.

Was meit Ihr
Ist UC öffnen tatsächlich 'besser' ?

Danke Robi

[andreaspr@aon.at]

Da ich ein Freund von SQL bin brauche ich mich um sowas nicht zu kümmern.
Es ist egal, wenn nur ein paar User dieses PGM benutzen und es sich nur um ein paar Files handelt.
Sinn macht das schon, wenn ein paar hundert User, viele Male das PGM aufrufen und es zig Files enthält aber je nach Ablauf nur wenige wirklich benützt werden.

Ich würde auch statt des Indikators, die BIF verwenden.
if (not %open(myFile));

[Robi]

Danke und ...

Ich würde auch statt des Indikators, die BIF verwenden.
if (not %open(myFile));

ja klar , in einem RPT Pgm

das geht nunmal nicht

Gruß
Robi

[Fuerchau]

"Never change a running program".
Aus Performancegründen gewinnst du nichts, insbesonders, wenn das Programm mit *INLR=*ON verlassen wird.

[Robi]

Ja, es wird mit LR verlassen.
und die, die ich schon 'aufgeräumt' habe sind deutlich übersichtlicher.
Trotzdem brauche ich einen 'Grund' weiter aufzuräumen

never Change ... kenn ich.

Danke
Gruß
Robi

[RobertMack]

Tipp: prüfen, ob der UC-Nebeneffekt *LOVAL SETLL nicht verloren gehen darf ;-)

[Robi]

Hallo Namensvetter,
ämm...
das heist ?

Robi

[RobertMack]

UC wurde früher gerne genutzt, um bei gleichzeitigem Schreiben und Lesen der Datei die Blockung abzuschließen und "von vorne" zu lesen. Will heißen: entweder genauer hingucken was das Programm macht oder sicherheitshalber den OPEN durch FEOD und SETLL ersetzen...

[Robi]

ach so, nein nein.
Es dient keinerlei 'logischen' Verarbeitung

N40 exsr opn01
N40 seton 40

div. If bestimmungen die dann zu einem open führen
alles sequentiell, keine Schleife o.ä.
selbst die vorhandenen SR's werden in 80 % aller Fälle nur ein mal gerufen.
Und zum Schluß

40 exsr close01
abfrage von div. Bezugszahlen und ein entsprechender close,
seton lr


das wars

[RobertMack]

das wars

...solange in keiner der SR ein QCMDEXC mit OVRDBF drin ist

[Pikachu]

N40 seton 40

Der ist ja cool.

[andreaspr@aon.at]

Danke und ...
ja klar , in einem RPT Pgm
das geht nunmal nicht

Wenn diese PGMs seit 1986 NUR 15 x geändert wurden, wurden es entweder selten aufgerufen, oder ist so stabil dass es für sich spricht.
Auch wenn die Frage etwas blöd klingen mag, aber was ist ein RPT-Pgm?