QCMDEXC & OVRPRTV

[Fuerchau]

OVRSCOPE(*JOB) !!!

Das Problem:
QCMDEXC ist ein OPM-Programm und läuft daher in einer anderen Aktivierungsgruppe als dein ILERPG.
Der Default ist leider *ACTGRPDFN.

[muadeep]

ahhhh !!!!

und was heist das jetzt für mich?


kann ich das irgendwie umgehen, wenn ja wie?

[kuempi von stein]

Hello,

damit ist wohl z.B. der Parameter aus den OVR-Befehlen für die *ACTGRPDFN gemeint.
Zum Beispiel eben in OVRPRTF der Parameter.

Erklärung in Englisch gemopst von http://faq.midrange.com/data/cache/94.html


Using overrides in ILE is somewhat different from using them in OPM:

In ILE an override (again, using the default OVRSCOPE) will work for all other programs in the activation group in which the override is issued. It will not be automatically removed when the issuing prorgram ends; it will exist until it is explicitly removed with DLTOVR or until the activation group ends.
If you want an override to be visible through different activation groups (as in calling an OPM program from an ILE program), you will have to use OVRSCOPE(*JOB). The override will be in effect for all programs in the job, regardless of activation group, until it is removed or the job ends. OVRSCOPE(*CALLLVL) is for getting the 'old' behaviour in ILE: the override will be removed when the call level, i.e. the issuing program, ends.


OVRSCOPE



Falls die Spielerei mit den Aktivirungstruppen nicht gleich geht, gibts es glaube ich auch noch ne altherkömmliche Methode?
So übern CL erst den OVR absetzen und dann den CALL.
Bin mir da aber gerade nicht sicher wegen alten Releasestand hier.

k.

[Fuerchau]

Also zusammengefasst:
Den OVRSCOPE musst du an den OVRPRTF anhängen.

Das mit dem CLP ist auch nicht so einfach:

- Zu beachten ist die Aufrufhierarchie
- Besonders zu berücksichtigen ist QCMDEXC
- ILE-Umgebung

*ACTGRPDFN
Funktioniert nur, wenn das CMD direkt (also nicht per QCMDEXC) aufgerufen wird oder der nachfolgende Open in einem OPM-Programm erfolgt

*CALLLVL
Das ist die Aufrufebene, die den OVR durchführt, dabei betrachtet sich QCMDEXC nicht als Aufrufebene, kann also vernachlässigt werden.
Aber beim Ablauf PGM->CLP->OVR ist der OVR wieder weg, wenn in das PGM zurückgekehrt wird.

*JOB
Ist eigentlich selbsterklärend.

Zur Vorgensweise bei *JOB/*ACTGRPDFN:
OVR->OPEN->DLTOVR->Verarbeitung
Da der OVR nur für den Open relevant ist, kann der OVR ja nach Open wieder entfernt werden. Somit ist er auch nach Programmabbruch (was wir ja nicht hoffen) auf jeden Fall wieder weg ist.

[muadeep]

so, hab jetzt meinen Source-Code so abgändert:

C                   CallP     QCMDEXC('OVRPRTF FILE(MONTAUPR) ' +          
C                                     'DEV(PRTCM4200) OVRSCOPE(*JOB)' : 52)
C                   Open      MontAuPR                                     
C                   Write     LabelE                                       
C                   Close     MontAuPR
C                   CallP     QCMDEXC('DLTOVR FILE(MONTAUPR) ' +
C                                     'LVL(*JOB)' : 31) 

der OVRPRTF wird zwar ausgeführt
(wenn ich Pgm mit DEBUG und an entsprechender Stelle mit WRKJOB prüfe)
aber die Druckausgabe kommt trotzdem auf dem Standartdrucker (so wie in der PrinterFile angegeben) !!!!

[RobertMack]

Für mich sieht das so aus, als würde nur der QCMDEXC ausgeführt, nicht aber der OVRPRTF (Joblog?).

'string' + 'string' : len sehen für mich wie drei Parameter aus.

lass mal die beiden ' um das plus weg oder EVALuiere vorher einen String in einer Variable: CALLP QCMDEXC(CMDSTRG:37)