How to create a panel and execute it.?

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?

superk · Posted: Thu May 29, 2008 4:12 pm

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

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

expat · Posted: Thu May 29, 2008 4:44 pm

Did you use option 7 to test your panel before trying to use it ?

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?

expat · Posted: Thu May 29, 2008 5:15 pm

Use ALTLIB to concatenate your library with ISPPLIB and then try it.

manojraja · New User Joined: 10 Aug 2007 Posts: 7 Location: india

Hey,

Thanks all !!! It Worked..!!!