Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Creating a ISPF panel in thegiven format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
ranjanp

New User


Joined: 02 May 2006
Posts: 25

PostPosted: Tue Nov 07, 2006 12:49 am    Post subject: Creating a ISPF panel in thegiven format
Reply with quote

Hi All,

Can somebody help me out in creating a panel in the format given below:

XXXXX: __________ YYY: ______________ ZZZ: __ AAAAAAAA: __________

all the fields should be in the same line.

feilds names are: XXXXX the value will be a 10 byte field
YYY the value will be a 13 byte field
ZZZ the value will be a 2 byte value
AAAAAAAA the value will be 10 byte field.

the byte length also specifies the gap to be left between fields.
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Tue Nov 07, 2006 1:32 am    Post subject: Re: Creating panel
Reply with quote

These are:

- Input fields or output fields or text fields?
- Justified LEFT, RIGHT, or ASIS?
- If they're input fields, is there padding required (underscores or blanks)?
- Is there any highlighting used? If so, what kind on what fields?
Back to top
View user's profile Send private message
ranjanp

New User


Joined: 02 May 2006
Posts: 25

PostPosted: Tue Nov 07, 2006 1:44 am    Post subject:
Reply with quote

Those are all input fields. all are left justified. underscores/blank both will do. yes if possible will like to highlight these fields.

My main intention was to ask others if they can provide a exhaustive document which can explain me how to go about creating panels in REXX from scratch.

Also if possible if you can provide me a sample code and explain few basic things in it.
Back to top
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Tue Nov 07, 2006 2:27 am    Post subject: Re: Creating panel
Reply with quote

Rather than start from scratch, I'd use an appropriate panel MODEL:

First, from ISPF EDIT, I'd used the MODEL command:
Code:

Command ===> MODEL                                            Scroll ===> CSR 
A***** ***************************** Top of Data ******************************
****** **************************** Bottom of Data ****************************


Then, from the Panel Models list, I'd select F0 PANFORM:

Code:

                               Panel Models                               
Option ===> F0                                                             
                                                                           
Enter number or statement name.                                           
Enter END command to cancel MODEL command.                                 
                                                               More:   -   
S7  MODEL    - )MODEL section header                                       
S8  VER      - Verify statement                                           
S9  VPUT     - Variable put statement                                     
S10 REFRESH  - Refetch variables prior to redisplay                       
S11 ATTRIBA  - Other attribute types                                       
S12 VGET     - Variable get statement                                     
S13 PANEXIT  - Panel Language Exit                                         
S14 ABC      - Action bars                                                 
S15 KEYLIST  - Keylist specification                                       
S16 PDC      - Action bar pull-down                                       
S17 VEDIT    - Validate a variable                                         
S18 CUAATTR  - CUA attributes                                             
S19 *REXX    - Rexx in panel procedures                                   
                                                                           
P0  PANSECT  - Panel Sections - Other definitions                         
                                                                           
Panel Formats:                                                             
F0  PANFORM


From PANFORM, I'd select F1 Entry for a Data Entry panel:

Code:


                               Panel Formats                             
Option ===> F1                                                           
                                                                         
Enter number or format name.                                             
Enter END command to cancel MODEL command.                               
                                                                         
F1 ENTRY     - Data entry                                                 
F2 MULTIPLE  - Multiple column                                           
F3 SELECTION - Menu selection                                             
F4 TBDISPL   - Table Display                                             
F5 TUTORIAL  - Help/tutorial                                             
F6 ACTION    - CUA action bar panel                                       
F7 SCROLL    - Scrollable areas                                           
F8 HELPSCR   - Help/tutorial panels with scrollable areas                 
F9 P-S MENU  - Menu selection with point-and-shoot fields


Yielding this code into the ISPF EDIT session:

Code:

)ATTR DEFAULT(%+_)                                                     
      /*  % TYPE(TEXT) INTENS(HIGH)      defaults displayed for      */
      /*  + TYPE(TEXT) INTENS(LOW)       information only            */
      /*  _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)             */
  $ TYPE(INPUT) INTENS(LOW) PAD(_)    /* input field padded with '_' */
  ! TYPE(INPUT) INTENS(LOW) PAD(' ')  /* input field padded with ' ' */
    _________________________________________________________________   
   | NOTE:  When CAPS and JUST are omitted for an attribute, the     | 
   |        defaults are:                                            | 
   |                                                                 | 
   |        - CAPS(OFF) JUST(ASIS) for INPUT and OUTPUT fields in    | 
   |          the )MODEL section of a TBDISPL panel, or for DATAIN   | 
   |          and DATAOUT fields in dynamic areas.                   | 
   |                                                                 | 
   |        - CAPS(ON) JUST(LEFT) for all other INPUT and OUTPUT     | 
   |          fields.                                                | 
   |_________________________________________________________________| 
                                                                       
)BODY                                                                   
%--------------------  TITLE FOR ENTRY PANEL  --------------------------
%COMMAND ===>_ZCMD                                                     
%                                                                   
+   THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:         
+                                                                   
+   FIRST PHRASE  ......$V1     +          Description for phrase 1 
+   SECOND PHRASE ......$V2     +          Description for phrase 2 
+   THIRD PHRASE .......$V3   +            Description for phrase 3 
+   FOURTH PHRASE ......$V4   +            Description for phrase 4 
+   FIFTH PHRASE .......$V5      +         Description for phrase 5 
+   SIXTH PHRASE .......$V6      +         Description for phrase 6 
+   SEVENTH PHRASE .....$V7  +             Description for phrase 7 
+   EIGHTH PHRASE ......$V8     +          Description for phrase 8 
+   NINTH PHRASE .......$V9     +          Description for phrase 9 
+   TENTH PHRASE .......$V10     +         Description for phrase 10
+   ELEVENTH PHRASE ....$V11     +         Description for phrase 11
+   TWELFTH  PHRASE ....$V12+              Description for phrase 12
+                                                                   
+   LONG ENTRY FIELD ..!VX                                           
                                                                     
+                                                                   
+   OPTIONAL BOTTOM DIRECTION LINE.                                 
+                                                                   
)INIT                                                               
  .HELP = TUTORPAN           /* Insert name of tutorial panel    */
)PROC                                                               
)END


Then, I'd just remove what I don't need, and add the format as you specified:

Code:

)ATTR DEFAULT(%+_)                                                     
      /*  % TYPE(TEXT) INTENS(HIGH)      defaults displayed for      */
      /*  + TYPE(TEXT) INTENS(LOW)       information only            */
      /*  _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)             */
  $ TYPE(INPUT) INTENS(LOW) PAD(_)    /* input field padded with '_' */
  ! TYPE(INPUT) INTENS(LOW) PAD(' ')  /* input field padded with ' ' */
)BODY                                                                   
%--------------------  TITLE FOR ENTRY PANEL  --------------------------
%COMMAND ===>_ZCMD                                                     
%                                                                       
+   THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:           
+                                                                       
%XXXXX:$XXXXXX    %YYY:$YYY          %ZZZ:$ZZ%AAAAAAAA:$AAAAAAAA  +     
)INIT                                                                   
  .HELP = TUTORPAN           /* Insert name of tutorial panel    */     
)PROC                                                                   
)END


Yielding this when the panel is displayed:

Quote:

-------------------- TITLE FOR ENTRY PANEL ----------------------------------
COMMAND ===>


THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:

XXXXX: __________ YYY: _____________ ZZZ: __ AAAAAAAA: __________


You can find the panel definition parameters here in the z/OS V1R7.0 ISPF Dialog Developer's Guide.

You can find the ISPF Services Parmaters here in the z/OS V1R7.0 ISPF Services Guide.
Back to top
View user's profile Send private message
ranjanp

New User


Joined: 02 May 2006
Posts: 25

PostPosted: Tue Nov 07, 2006 2:33 am    Post subject:
Reply with quote

thanks alot Kevin. This will be of great help...
Back to top
View user's profile Send private message
shahin

New User


Joined: 24 Feb 2006
Posts: 15
Location: calicut

PostPosted: Fri Dec 05, 2008 11:48 am    Post subject: Reply to: Creating a ISPF panel in thegiven format
Reply with quote

Hi,

I tried the MODEL command in the EDIT window. But I am not getting the above menu screen. Please help. The one I am getting is :

Code:

Option ===>                                                                   
                                                                               
Enter number or service name.                                                 
Enter END command to cancel MODEL command.                                     
                                                                               
Variables                 Workstation                 Library Access           
V1  VGET                  X1  FILESTAT                L0  LIBACC               
V2  VPUT                  X2  FILEXFER                                         
V3  VERASE                X3  WSCON                   Miscellaneous           
                          X4  WSDISCON                M0  MISC                 
Display                                                                       
D1  DISPLAY                                                                   
D2  TBDISPL               File Tailoring                                       
D3  SETMSG                F1  FTOPEN                                           
D4  PQUERY                F2  FTINCL                                           
D5  ADDPOP                F3  FTCLOSE                                         
D6  REMPOP                F4  FTERASE                                         
                                                                               
Tables                                                                         
T1  TABLES                                                                     
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Fri Dec 05, 2008 4:19 pm    Post subject: Reply to: Creating a ISPF panel in thegiven format
Reply with quote

Try the command MODEL PANELS.
Back to top
View user's profile Send private message
shahin

New User


Joined: 24 Feb 2006
Posts: 15
Location: calicut

PostPosted: Fri Dec 05, 2008 5:33 pm    Post subject:
Reply with quote

I tried the MODEL PANELS command, but still getting the same menu screen
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2038
Location: Silicon Valley

PostPosted: Fri Dec 05, 2008 11:04 pm    Post subject: Reply to: Creating a ISPF panel in thegiven format
Reply with quote

You did not show the title line of the panel you see. I suspect it is 'CLIST Models'.

The models are different, depending on the file type of the dataset being edited. For example if you edit 'my.test.CLIST', it will show models for CLISTs. If you edit 'my.test.ISPPLIB', it will show models for panels.

If you use a unrecognized filetype, it should say 'invalid class' and ask you to select from a menu.

So, you need to create the panel using a dataset with the correct file type, or at least one that it does not recognize.
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Sat Dec 06, 2008 4:15 am    Post subject: Reply to: Creating a ISPF panel in thegiven format
Reply with quote

shahin, I'm sorry to have steered you in the wrong direction. According to the ISPF Edit user's guide, the command I gave you is supposed to work. It didn't work for me either when I tried it for myself.

Pedro's right. It looks as if the model will align itself with the type of dataset you have open. To make it work for me like it should, I opened a new member in my panel library (ISPPLIB) and entered the MODEL command and I got the panel models. I also tried creating a new dataset 'MYUSERID.PANELS' and did the same thing and got the same results.
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Sat Dec 06, 2008 4:18 am    Post subject: Reply to: Creating a ISPF panel in thegiven format
Reply with quote

Ah, here's something that worked.

I entered the PROFILE command and I noticed that the default profile type was PDS. I then entered the command PROFILE PANELS, which changed the default profile type to PANELS. Then, MODEL gave me the correct panel models.
Back to top
View user's profile Send private message
shahin

New User


Joined: 24 Feb 2006
Posts: 15
Location: calicut

PostPosted: Wed Dec 10, 2008 12:12 pm    Post subject:
Reply with quote

Thank you so much superk and pedro. I changed it to PROFILE PANELS and now its coming fine.
Back to top
View user's profile Send private message
UMAPATHY MARGABANDU

New User


Joined: 24 Jan 2011
Posts: 3
Location: india

PostPosted: Fri Jan 28, 2011 10:41 pm    Post subject: Reply to: Creating a ISPF panel in thegiven format
Reply with quote

Kevin,

Can you please tell me the command to run the program once you coded the panel. I tried to run using EXEC like a rexx program but i am getting error message. Please tell me the execution procedure of the panel program
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jan 28, 2011 10:56 pm    Post subject:
Reply with quote

It's all in the ISPF manuals, easily reached from the STICKY topic in the CLIST/REXX forum, or the IBM Manuals button at the top of any page.

Quick clue ISPEXEC DISPLAY

Also, this topic has been happily dormant for over two years, so please start a new topic next time.
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 650
Location: Whitby, ON, Canada

PostPosted: Fri Jan 28, 2011 11:48 pm    Post subject:
Reply with quote

Kevin, you were nearly right. The command is MODEL CLASS PANELS.

When the command is accepted, enter MODEL again and you will see the PANEL models.

ISPF uses the data set type only as a default when it has nothing else to go on.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts How to pick only YYMMDD from DATE1P (... atulbaviskar SYNCSORT 7 Wed Mar 22, 2017 11:39 am
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us