Generelle frage zu *INUX

[MGJ79]

Hallo Zusammen,

Kann mir wer sagen wann der *INU[1-8] schalter wieder "resettet" wird?

Folgender Programmstapel

CL
> RPGLE 1 (Controller)
> RPGLE 2 (Programm) setzt *INU8 bzw. prüft ob er gesetzt ist..

Das o.g. CL ist ein LOOP bis 18:00 Uhr und Ruft in Regelmäßigen abständen über den Controller das RPGLE 2er Programm auf.

Eine bestimmte Bedingung soll aber nur 1x am Tag ausgeführt werden und setzt für den JOB den *INU8 = *ON
Jetzt kommt es aber vor, dass der Jobschalte auf *OFF zurückgestellt worden ist.
(Ich fasse den *INU8 er aber in keinem anderen Teil des Programms an..)

Ich bin mir aber sicher dass das RPGLE 2 Programm aber nur über das o.g. CL Programm aufgerufen worden ist...

Frage:
Kann ich für solch eine Aufgabenstellung überhaupt die *INUx Schalter verwenden?
Eine DTAARA würde natürlich auch gehen aber für sowas wäre doch der "UPSI" Schalter doch ideal, oder ?

[Fuerchau]

Sich auf solche Schalter zu verlassen ist nicht ganz trivial.
Per CHGJOB kann man im CLP die Schalter ebenso verändern.
Wenn du also per *INUn dein Programm von extern unbedingt steuern musst, so merke dir die Werte direkt nach dem Aufruf in weiteren Variablen, da sie ggf. in untergeordneten CALL's verändert werden können.
Besser ist es, auf diese alten Hüte (/36, /38) zu verzichten und vernünftige Parameter oder Parameterdateien/Tabellen zu verwenden, die dann entsprechend zu setzen und zu konfigurieren sind.

[RobertMack]

CHGJOB SWS(11111111)
MyCmd = 'CHGJOB SWS(' + '11111111' + ')';

Hätte ich mir ja denken können, dass Baldur schneller ist ;-)

[MGJ79]

Uiii das ging ja schnell,

@Robert
=> OK das ist eine interessante Variante gleich den JoB zu ändern...
hätte gedacht dass mit einem
*INU8 = *ON das ganze "nach oben" also meinem Job gereicht wird..

Ich ändere ja nur an einer Stelle den JOB indem ich den Schalter auf *ON stelle, also nicht von außerhalb (CHGJOB...). Aber in diesem Fall ist es relativ handlich während der Laufzeit auf das Programm Einfluß nehmen zu können ohne groß an Tabelle wurtscheln zu müssen.

Aber danke soweit für die Hilfe...Lösung schreibe ich...

[RobertMack]

...hat man im letzten Jahrtausend benutzt um Batch-Verarbeitungen zu steuern, d.h. das/die CLs haben die Schalter gesetzt und RPG Programme "nur" reagiert (z.B. Status oder Herkunft eines Calls)

[Fuerchau]

Wobei ich nicht sicher bin, ob das interne Setzen des *INUx auch tatsächlich Auswirkungen auf die Job-Schalter hat.

[RobertMack]

Hat es nicht, daher die Ausführung per QCMDEXC...

[RobertMack]

...falls es sein muss, ist es wie Du zuvor beschrieben hast: bei Programmstart gesamte Schalterleiste merken, einzelne Position ändern und ganze Leiste als CHGJOB absetzen.

[Fuerchau]

Habe ich ja glatt überlesen:
"Aber in diesem Fall ist es relativ handlich während der Laufzeit auf das Programm Einfluß nehmen zu können ohne groß an Tabelle wurtscheln zu müssen."

Nun, das sollte man nie mit irgendwelchen *INxx-Schaltern machen sondern mit Variablen, die dann einen entsprechenden Wert bekommen.
*INUx-Schalter haben nur vor dem Aufruf eines Programmes ggf. Wirkung, innerhalb eines Programmes macht man sowas nicht (mehr).

Ich kann mich gar nicht erinnern, sowas überhaupt schon mal verwendet zu haben.

[RobertMack]

...das war schon praktisch, seinerzeit. Zum Beispiel Druckprogramm aufrufen: Mit/ohne Summen, mit/ohne Posten, Varianten im Gruppenwechsel, uvm. (riecht jetzt noch nach dem RPG-Zyklus, dem das mal entsprungen ist ;-)

[malzusrex]

Genau!

Ich kann mich da auch noch an Programm auf der S/390 erinnern.
Da wurde über die Schalter auch gesteuert, ob das PGM nur eine Liste aus spuckt zur Kontrolle,
oder aber eben auch gleich Buchungen durch führt usw.
Oder aber auch Artikel- oder Kundenlsten erzeugt wurden. Allerdings hatte das dann auch Auswüchse angenommen.....

[Fuerchau]

Nun, immerhin konnte man da ja 256 Kombinationen zur Steuerung verwenden.
Das ist ja auch sehr übersichtlich.