| View previous topic :: View next topic | 
	
	
		| Author | Message | 
	
		| ranga_subham Intermediate
 
  
 Joined: 31 Jan 2006
 Posts: 255
 Topics: 72
 
 
 | 
			
				|  Posted: Wed Mar 22, 2006 5:06 am    Post subject: Is it possible to throw ISPF panels from PL/I programs? |   |  
				| 
 |  
				| Hi, 
 Is it possible to throw ISPF panels from PL/I programs instead of REXX?
 
 How to do that? Can you provide some examples please?
 
 Please give reply ASAP.
 
 TIA.
 _________________
 Ranga
 *****
 None of us is as smart as all of us - Ken Blanchard
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| superk Advanced
 
  
 Joined: 19 Dec 2002
 Posts: 684
 Topics: 5
 
 
 | 
			
				|  Posted: Wed Mar 22, 2006 8:21 am    Post subject: |   |  
				| 
 |  
				| I'm not sure what it means to "throw ISPF panels", but when I created a dataset 'TEST.PLI', edited it, and entered the "MODEL" command on the command line, I got the "PLI Language Models" panel. Selecting the option "D1 DISPLAY" from the panel returned this content into the program source: 
 
  	  | Code: |  	  | BUFFER = 'DISPLAY PANEL(PANELNAM)    MSG(MSG-ID)      CURSOR(FIELD)
 CSRPOS(CSRPOS)     COMMAND(COMMAND)
 RETBUFFR(RETBUFFR) RETLGTH(RETLGTH)
 MSGLOC(MSGFIELD)';
 CALL ISPEXEC (BUFLEN, BUFFER);
 OR
 CALL ISPLINK ('DISPLAY ', PANELNAM, MSG-ID, FIELD, CSRPOS, COMMAND,
 RETBUFFR, RETLGTH, MSGFIELD);
 
 | 
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Cogito-Ergo-Sum Advanced
 
 
 Joined: 15 Dec 2002
 Posts: 637
 Topics: 43
 Location: Bengaluru, INDIA
 
 | 
			
				|  Posted: Wed Mar 22, 2006 9:01 am    Post subject: |   |  
				| 
 |  
				| You would have to add a DCL for ISPLINK program. _________________
 ALL opinions are welcome.
 
 Debugging tip:
 When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
 -- Sherlock Holmes.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| ranga_subham Intermediate
 
  
 Joined: 31 Jan 2006
 Posts: 255
 Topics: 72
 
 
 | 
			
				|  Posted: Fri Mar 24, 2006 1:01 am    Post subject: |   |  
				| 
 |  
				| Thank you superk. I will try it out. _________________
 Ranga
 *****
 None of us is as smart as all of us - Ken Blanchard
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		|  | 
	
		|  |