IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to create a panel and execute it.?


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
manojraja

New User


Joined: 10 Aug 2007
Posts: 7
Location: india

PostPosted: Thu May 29, 2008 4:00 pm
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu May 29, 2008 4:12 pm
Reply with quote

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
View user's profile Send private message
manojraja

New User


Joined: 10 Aug 2007
Posts: 7
Location: india

PostPosted: Thu May 29, 2008 4:38 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu May 29, 2008 4:44 pm
Reply with quote

Did you use option 7 to test your panel before trying to use it ?
Back to top
View user's profile Send private message
manojraja

New User


Joined: 10 Aug 2007
Posts: 7
Location: india

PostPosted: Thu May 29, 2008 5:04 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu May 29, 2008 5:15 pm
Reply with quote

Use ALTLIB to concatenate your library with ISPPLIB and then try it.
Back to top
View user's profile Send private message
manojraja

New User


Joined: 10 Aug 2007
Posts: 7
Location: india

PostPosted: Thu May 29, 2008 6:22 pm
Reply with quote

Hey,

Thanks all !!! It Worked..!!!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts Fetch data from programs execute (dat... DB2 3
This topic is locked: you cannot edit posts or make replies. How To Write, Compile and Execute Cob... COBOL Programming 5
No new posts Call program, directly from panel CLIST & REXX 9
Search our Forums:

Back to Top