View previous topic :: View next topic
|
Author |
Message |
manojraja
New User
Joined: 10 Aug 2007 Posts: 7 Location: india
|
|
|
|
Hi ,
I have got a following code for creating a panel ,
%------------------------------- EMPLOYEE RECORDS ---------------------------
+
% SELECT OPTION ===>_ZCMD %
%
% 1 +MODIFY(REX)- ADD, UPDATE, OR DELETE EMPLOYEE RECORDS
% 2 +(FUTURE) - FUNCTION NOT YET AVAILABLE
% 3 +(FUTURE) - FUNCTION NOT YET AVAILABLE
% 4 +(FUTURE) - FUNCTION NOT YET AVAILABLE
% 5 +(FUTURE) - FUNCTION NOT YET AVAILABLE
+
+ENTER%END COMMAND+TO TERMINATE.
)PROC
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
1,'CMD(EMPLFN)' )
)END
Say I want to name this PANEL. Now how to display it? Also what does option 7 (dialog test) in ISPF do? |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Place the panel definition for the member PANEL into your site's specified panel library (ISPPLIB). Then, you can display the panel by calling the ISPF SELECT Service:
ISPEXEC SELECT PANEL(PANEL)
in a language like COBOL, it would look more like
CALL 'ISPLINK' USING 'SELECT' PANEL-NAME.
If, for some reason, you wish to use libraries for your ISPF dialogs that are NOT already allocated to your TSO session, you can use the LIBDEF Service to dynamically allocate specific datasets for your ISPF libraries.
When writing ISPF dialog using REXX, I prefer to place the panel definition code within the REXX exec, thus savings the hassle of having to use a seperate library to store panel definitions.
Details about Dialog Test (Option 7). |
|
Back to top |
|
|
manojraja
New User
Joined: 10 Aug 2007 Posts: 7 Location: india
|
|
|
|
Hi,
I gave my ISPPLIB definition as
LIBDEF ISPPLIB DATASET ID('ABC.DEF')
ADDPOP
ZWINTTL = "DISPLAY PANEL"
SELECT PANEL(SAMP)
But when i execute this for the above panel, it says,
Panel 'SAMP' error
No )END found before reaching end of file.
Now what to do..??? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Did you use option 7 to test your panel before trying to use it ? |
|
Back to top |
|
|
manojraja
New User
Joined: 10 Aug 2007 Posts: 7 Location: india
|
|
|
|
Hi,
I went through the manual for Dialog testing using option 7 in ispf panel.
But i couldnt understand how to test the panel.
I have my panel in my own PDS ABC.DEF.
can some one explain me how to test the panel using option 7? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Use ALTLIB to concatenate your library with ISPPLIB and then try it. |
|
Back to top |
|
|
manojraja
New User
Joined: 10 Aug 2007 Posts: 7 Location: india
|
|
|
|
Hey,
Thanks all !!! It Worked..!!! |
|
Back to top |
|
|
|