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
 

 

How to change an output field to an input field in panel

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

New User


Joined: 22 Nov 2007
Posts: 55
Location: Germany

PostPosted: Wed May 06, 2015 10:46 pm    Post subject: How to change an output field to an input field in panel
Reply with quote

Hi folks,

I like to change an output field to an input field in an ISPF panel.
But it doesn't work. Example see below...

What is wrong in the panel definition ?

Code:
000001 )ATTR                                                                   
000002   $ TYPE(INPUT)  INTENS(LOW) CAPS(OFF)  JUST(LEFT) PAD('_') COLOR(RED) 
000003   # TYPE(OUTPUT) INTENS(LOW) CAPS(OFF)  JUST(LEFT) COLOR(BLUE)         
000004 )BODY                                                                   
000005 +                                                                       
000006 %Command ===> _ZCMD                                  %Scroll ===>_AMT +
000007 +                                                                       
000008 +                                                                       
000009 +Type               : $PTYP        +                                   
000010 #Z1                   #VAL1                          +                 
000011 +                                                                       
000012 )INIT                                                                   
000013   VGET (amt) PROFILE                                                   
000014   IF (&amt = &Z)                                                       
000015       &amt = CSR                                                       
000016 )REINIT                                                                 
000017 )PROC                                                                   
000018   IF (&PTYP = 'Person')                                                 
000019      &Z1 = 'First Name         :'                                       
000020      .ATTR(VAL1) = 'TYPE(INPUT)'                                       
000021                                                                         
000022   VPUT (amt) PROFILE                                                   
000023 )HELP                                                                   
000024 )END                                                                   


Thank in advance for help
icon_smile.gif
Back to top
View user's profile Send private message

daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Wed May 06, 2015 10:56 pm    Post subject:
Reply with quote

Your code needs to be in the )INIT section. This section is processed before the Panel is displayed.

The )PROC section where you have the code is not processed until the enter key is pressed.

Additionally if you want the underscoring and color change, you have to specify in your code as well.

Finally, you are going to have to return to your calling panel and Display it again as well.

The way you have it coded where you do not want the second field as input based on the value of the first leaves you in a bad way.
Back to top
View user's profile Send private message
oerdgie

New User


Joined: 22 Nov 2007
Posts: 55
Location: Germany

PostPosted: Wed May 06, 2015 11:37 pm    Post subject:
Reply with quote

Thanks for the answer...

What I aim to do is, enter a string in PTYP. Press Enter.
If PTYP is 'Person' then change VAL1 from output to input field.
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Wed May 06, 2015 11:52 pm    Post subject:
Reply with quote

You will have to Display your panel a second time.

Either a second display or loop back around.
Back to top
View user's profile Send private message
oerdgie

New User


Joined: 22 Nov 2007
Posts: 55
Location: Germany

PostPosted: Thu May 07, 2015 11:54 am    Post subject:
Reply with quote

Yes I like to display the panel a second time as a second display.
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Thu May 07, 2015 5:35 pm    Post subject:
Reply with quote

Sounds like you have a plan:

1) Move this code to )INIT section
Code:
000018   IF (&PTYP = 'Person')                                                 
000019      &Z1 = 'First Name         :'                                       
000020      .ATTR(VAL1) = 'TYPE(INPUT)' 


2) Add code to calling Rexx program after the first Display Panel
IF PTYP = 'Person' then Display Panel

This should get you on the right path.
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 Performing arithmetic on input field zh_lad DFSORT/ICETOOL 1 Tue Dec 06, 2016 8:04 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts High CPU consumption Job using IAM fi... aswinir JCL & VSAM 8 Thu Dec 01, 2016 8:28 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


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