in die QTEMP eines Users reinschauen ???

[bode]

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 !

[Pikachu]

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

[bode]

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 ...

[BenderD]

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 !

[bode]

Hallo Dieter Bender !

Danke für die Hilfe - werd gleich mal testen !

[Fuerchau]

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.

[bode]

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 !

[Fuerchau]

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/iserie...s/qprcrtpg.htm

Ich kann allerdings keine Gewähr dafür übernahemen, ob das so noch funktioniert !

[schatte]

Irgendwie kann ich mit dieser IBM Beschreibung nicht so viel anfangen.

Kann mir das jemand kurz erklären?

Gruß
Matthias Schatte

[Fuerchau]

Obiges MI-Programm darf man ab V5 NICHT MEHR VERWENDEN, da sich die Job-Tabellen z.T. gravierend geändert haben.

[kuempi von stein]

Ja ja... diese doofen APIs....

Es gibt auch ein fertiges Freewaretool um MI-Programme zu erstellen.

Evtl. kommst Du ja damit besser klar....

Create MI Program
Der CRTMIPGM Befehl basiert auf der QPRCRTPG API und dient zum Erstellen von MI Programmen.
http://www.tools400.de/Downloads/Fre...s/crtmipgm.zip

Ist aber ewig her, dass ich das mal benutzt hatte, deshalb wie immer keine Grantie und keine weiteren Erklärungen dazu...

Siehe auch Kommentar gerade von Fuerchau bezgl. V5


kuempi

[h_u_d]

Weitere Nachrichteninformationen

Nachrichten-ID . . . . : CPD2102 Bewertung . . . . . . : 30
Nachrichtenart . . . . : Diagnose
Sendedatum . . . . . . : 19.07.07 Sendezeit . . . . . . : 12:57:12

Nachricht . . . : Option für QTEMP eines anderen Jobs nicht zulässig.
Ursache . . . . : Für ein Objekt in der Anzeige "Bibliothek anzeigen" wurde
für Bibliothek QTEMP eine Option für einen Job ausgewählt, der nicht der
aktuelle Job ist. Für QTEMP sind Optionen nur für den aktuell ausgeführten
Job zulässig.







Ende
Eingabetaste --> Weiter

F3=Verlassen F6=Drucken F9=Nachrichtendetails anzeigen
F10=Nachrichten im Jobprotokoll anzeigen F12=Abbrechen F24=Weitere Tasten