View Full Version : in die QTEMP eines Users reinschauen ???
kann mir wer sagen ob es eine Möglichkeit gibt in die QTEMP eines Users einzusehen, ohne irgendwelche kostspieligen Zusatztools ???
ev. mit Navi. oder Freeware aus Internet ?
Danke für Eure Hinweise !
Hallo bode !
Wenn's nur ums *Reingucken in die Bibliothek* geht, dann kannst du den Benutzerjob im WRKACTJOB mit Auswahl 5=Anzeigen auswählen, dann Auswahl 13 (Bibliotheksliste anzeigen) und dann mit Auswahl 5 die Objekte in der Bibliothek QTEMP anzeigen. Voraussetzung ist allerdings, dass die Bibliothek QTEMP in der Bibliotheksliste des Jobs enthalten ist.
Viele Grüße
Jürgen
Hallo,
wenn man an die Software drankann, dann kann man an den Inhalt der QTEMP dran. Das Zauberwort heißt hier Break Message Handler und unter dem Stichwort steht ein entsprechendes CL und ein Command auf meiner Freeware Seite (leider hapert es bei meinen Open Source Sachen ein wenig mit den Beschreibungen, vielleicht kommt ja irgendwann mal Feedback, dass das bessert).
Der Dreh ist hierbei im submitteten Job eine Break Message Handler zu registrieren und dann von außen mit BreakMessages Commands an selbige Q zu senden und damit in den laufenden Batchjob einzubrechen.
mfg
Dieter Bender
kann mir wer sagen ob es eine Möglichkeit gibt in die QTEMP eines Users einzusehen, ohne irgendwelche kostspieligen Zusatztools ???
ev. mit Navi. oder Freeware aus Internet ?
Danke für Eure Hinweise !
Hallo Jürgen !
Zuerst mal vielen Dank für die rasche Antwort, aber welche Objekte dort zu finden sind war mir klar, ich möchte mir nur zusätzlich den Inhalt dieser Objekte (zB Tabellen bzw. Dtaara) anzeigen lassen, welches nicht möglich ist ...
Hallo Dieter Bender !
Danke für die Hilfe - werd gleich mal testen !
Ansonsten gibts noch das gute alte MI (Maschinen-Interface):
Zuordnen der QTEMP des Fremdjobs zum eigenen Job, dann kann die QTEMP ganz normal bearbeitet werden.
Ansonsten: Toolmaker löst das auf elegante Weise.
Hallo !
äh ehm MI ??? Zuordnen zum eigenen Job ??? Gibts da ev. Beschreibung dazu, kenn das leider nicht, wäre aber super wenns damit auch funkt. würde !
1996 habe ich das mal gelöst:
CMD-Quelle
CMD PROMPT('QTEMP von anderem Job')
PARM KWD(JOB) TYPE(PJOB) DFT(*) SNGVAL((*)) +
PROMPT('Jobname')
PJOB: QUAL TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) LEN(10) EXPR(*YES) +
PROMPT('Benutzer')
QUAL TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
MIN(1) FULL(*YES) EXPR(*YES) PROMPT('Nummer')
MI-Quelle
DCL SPCPTR PJOB PARM; /* ÜBERGABE JOB */
DCL DD JOBPARM CHAR(26) BAS(PJOB);
DCL DD JOB CHAR(10) DEF(JOBPARM) POS(1);
DCL DD USER CHAR(10) DEF(JOBPARM) POS(11);
DCL DD JOBNR CHAR(6) DEF(JOBPARM) POS(21);
DCL OL *ENTRY (PJOB) EXT PARM MIN(1);
DCL DD AKTLIB BIN(2); /* ZÄHLER */
DCL DD MAXLIB BIN(2); /* LETZTE LIB + 1 */
DCL DD CURLIB BIN(2); /* INDEX CURLIB */
DCL PTR PQWCBT BASPCO POS(17); /* PROCESS-LISTE */
DCL PTR AQTEMP BASPCO POS(65); /* EIGENE QTEMP */
DCL DD FLAGS CHAR(1) BASPCO POS(1276);
DCL DD NOSYS BIN(2) BASPCO POS(1277);
DCL DD NOLIBS BIN(2) BASPCO POS(1281);
DCL PTR LIBL (77) BASPCO POS(1297);
DCL PTR CQTEMP; /* QTEMP ALS CURLIB */
DCL SPCPTR PROCHDR; /* HDR FREMDER PROCESS */
DCL PTR PQTEMP BAS(PROCHDR) POS(65);
DCL SPCPTR JOBTAB;
DCL DD JLSTLEN BIN(4) BAS(JOBTAB) POS(145);
DCL DD NOJOB BIN(2) BAS(JOBTAB) POS(149);
DCL DD JOBADR BIN(4); /* AKTUELLE ADR. JOB */
DCL SPCPTR JOBENTRY;
DCL DD JOBNAM CHAR(26) BAS(JOBENTRY) POS(1);
DCL PTR JOBPTR BAS(JOBENTRY) POS(33);
NTRY * (*ENTRY) EXT;
CPYBWP CQTEMP,AQTEMP; /* EIGENE QTEMP SETZEN */
CMPBLAP(B) JOBPARM,"*"," "/EQ(INSQTEMP);
SETSPPFP JOBTAB,PQWCBT; /* ADR. JOB-LISTE */
CPYBWP JOBENTRY,JOBTAB;
CPYNV JOBADR,768; /* ADR. 1. JOB */
SEA_JOB:
SETSPPO JOBENTRY,JOBADR; /* ADR. JOB-EINTRAG */
CMPBLA(B) JOBNAM,JOBPARM/EQ(SEA_JOB_100);
ADDN(S) JOBADR,512; /* VORHERIGER EINTRAG */
CMPNV(B) JOBADR,JLSTLEN/LO(SEA_JOB);
B ENDE;
SEA_JOB_100:
SETSPPFP PROCHDR,JOBPTR; /* ADR. JOB SETZEN */
SETSPPO PROCHDR,0;
CPYBWP CQTEMP,PQTEMP; /* FREMDE QTEMP */
B INSQTEMP; /* QTEMP EINTRAGEN */
INSQTEMP: /* QTEMP ALS CURLIB EINTRAGEN */
CPYNV CURLIB,NOSYS; /* ANZAHL SYS-LIBS */
TSTBTS(B) FLAGS,1/ZER(INSQTEMP_010);
ADDN(S) CURLIB,1; /* VORGESCHALTETE 1.PRD-LIB */
INSQTEMP_010:
TSTBTS(B) FLAGS,2/ZER(INSQTEMP_020);
ADDN(S) CURLIB,1; /* VORGESCHALTETE 2.PRD-LIB */
INSQTEMP_020:
ADDN(S) CURLIB,1; /* INDEX DER CURLIB */
TSTBTS(B) FLAGS,0/NZER(INSQTEMP_100); /* CURLIB VORHANDEN */
ADDN AKTLIB,NOLIBS,1; /* LIBL +1 VERSCHIEBEN */
CPYNV MAXLIB,NOLIBS; /* QUELLE */
INSQTEMP_030:
CPYBWP LIBL(AKTLIB),LIBL(MAXLIB);
SUBN(S) AKTLIB,1;
SUBN(S) MAXLIB,1;
CMPNV(B) MAXLIB,CURLIB/NLO(INSQTEMP_030);
ADDN(S) NOLIBS,1; /* ANZAHL LIBS ERHÖHEN */
INSQTEMP_100:
CPYBWP LIBL(CURLIB),CQTEMP; /* QTEMP EINTRAGEN */
SETBTS FLAGS,0; /* CURLIB-FLAG SETZEN */
B ENDE;
ENDE:
RTX *;
PEND;
Was du dann benötigst ist nur der Aufruf für das Erstellen:
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/apis/qprcrtpg.htm
Ich kann allerdings keine Gewähr dafür übernahemen, ob das so noch funktioniert !
Irgendwie kann ich mit dieser IBM Beschreibung nicht so viel anfangen.
Kann mir das jemand kurz erklären?
Gruß
Matthias Schatte
Obiges MI-Programm darf man ab V5 NICHT MEHR VERWENDEN, da sich die Job-Tabellen z.T. gravierend geändert haben.