1996 habe ich das mal gelöst:

CMD-Quelle
Code:
  
			 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
Code:
  
		   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 !