-
TFRJOB aus Startprogramm
Wir möchten benutzerabhängig Jobs bei der Anmeldung in verschiedene (interaktive) Subsysteme transferieren. Im Startprogramm des Benutzers wird dann der TFRJOB aufgerufen. Der Job schleift aber endlos, d.h. dieses Startprogramm scheint permanent aufgerufen zu werden. Was ist da falsch organisiert?
-
In welche Jobwarteschlange wird denn der Job übertragen, welchem Subsystem ist diese zugeordnet und welcher Leitwegeintrag wird dort gefunden?
-
Es ist gut, dass die source des Startprogramms nicht bekannt ist. So können wir wieder fröhlich das "wir stochern mit der langen Stange im Nebel" spielen, was hier in den Foren besonders beliebt ist.
So geht es, wenn QPGMR das gewünschte sbs ist:
PHP-Code:
dcl &intjobid *char 16 ' '
dcl &qjob *char 26 '*'
dcl &rcvvar *char 256
dcl &sbs *char 10
call qUsrJobI ( +
&rcvVar /* Receiving variable */ +
X'00000100' /* Recv variable length (256) */ +
'JOBI0200' /* API data format */ +
&qJob /* Job name */ +
&intJobId /* Internal job identifier */ +
)
chgVar &sbs %SST( &rcvvar 63 10 )
if (&sbs *ne 'QPGMR') then(do)
strSbs sbsD(qpgmr)
monMsg cpf0000
tfrJob jobQ(qpgmri)
monMsg cpf0000
endDo
Rolf
-
Zitat von oopsy-dear
Wir möchten benutzerabhängig Jobs bei der Anmeldung in verschiedene (interaktive) Subsysteme transferieren. Im Startprogramm des Benutzers wird dann der TFRJOB aufgerufen. Der Job schleift aber endlos, d.h. dieses Startprogramm scheint permanent aufgerufen zu werden. Was ist da falsch organisiert?
So was habe ich schon öfters realisiert.
Aber ohne die Source Deines CL-Programms können wir nur rätseln.
Deswegen sag ich lieber nix.
Wichtig ist abei doch nur, zu kontrollieren, daß das Startprogramm
den Job nicht immer wieder transferriert. Wie oben:
if (&sbs *ne 'QPGMR') then(do) ...
oder
if (&sbs *EQ'QINTER') then(do) ...
-
Danke für Deine Hilfe Rolf! Ich wusste nur nicht, wie ich das rufende SBS abprüfen konnte. Ich kannte die API QUSRJOBI nicht!
Fliegt jetzt!
Similar Threads
-
By woodstock99 in forum NEWSboard Programmierung
Antworten: 16
Letzter Beitrag: 21-08-08, 05:39
-
By paeschke in forum IBM i Hauptforum
Antworten: 10
Letzter Beitrag: 04-07-06, 13:20
-
By Lissy in forum IBM i Hauptforum
Antworten: 7
Letzter Beitrag: 05-09-05, 09:25
-
By loeweadolf in forum IBM i Hauptforum
Antworten: 9
Letzter Beitrag: 30-07-04, 11:32
-
By Frank.Sobanek in forum IBM i Hauptforum
Antworten: 11
Letzter Beitrag: 08-08-01, 16:05
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks