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 make the text fields tab enabled on the ISPF panel?

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

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Wed Apr 15, 2009 2:42 pm    Post subject: How to make the text fields tab enabled on the ISPF panel?
Reply with quote

I have coded the below code(The alignment is disturbed here, the already existing tab/space is ignored):

Code:
)PANEL KEYLIST(ISRHELP ISR)                                             
)ATTR                                                                   
  @ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) SKIP(ON)                       
  $ TYPE(INPUT) INTENS(LOW) COLOR(BLUE)                                 
)BODY                                                                   
%----------------------QHTOOL HELP PANEL-------------------------------%
%COMMAND ====> _ZCMD                                                   %
+%OPCODE LIST%                                                         +
+@CONST+             @*+                 @IF+                @HOLDP+   +
+@END-CONST+         @ACTY+              @ELSE+              @READ+    +
+@VAR+               @MOVE+              @END-IF+            @READF+   +
+@END-VAR+           @ADD+               @SECTION+           @READL+   +
+@PRINT+             @SUB+               @PERFORM+           @READEQ+  +
+@END-PRINT+         @MUL+               @GOTO+              @READGE+  +
+@INCL+              @DIV+               @EXIT+              @WRITE+   +
+@INIT+              @STOP+              @NOOP+              @DISPLAY+ +
+   
                                                        @PRINTLN+ +

)END


The panel is shown like this:
Code:

----------------------QHTOOL HELP PANEL------------------------------         
COMMAND ===>                                                                   
 OPCODE LIST                                                                   
 CONST               *                   IF                  HOLDP             
 END-CONST           ACTY                ELSE                READ             
 VAR                 MOVE                END-IF              READF             
 END-VAR             ADD                 SECTION             READL             
 PRINT               SUB                 PERFORM             READEQ           
 END-PRINT           MUL                 GOTO                READGE           
 INCL                DIV                 EXIT                WRITE             
 INIT                STOP                NOOP                DISPLAY           
                                                             PRINTLN           

Currently, the cursor remains at the command line only. My requirement is when I press tab, the cursor should come at the first position of other variable and so on.

For instance on pressing tab first time the cursor should come to 'CONST', if I press tab again it should come to '*' and then to 'IF' and so on.

Please help.

Thanks,
Pragati
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Apr 15, 2009 6:57 pm    Post subject:
Reply with quote

How do you want the cursor to tab to a text-defined strings?

O.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Apr 15, 2009 7:19 pm    Post subject: Reply to: How to make the text fields tab enabled on the ISP
Reply with quote

Try making all of the text data into output fields, with attribute ( TYPE(OUTPUT) )

Assign values to the variable output fields so that it looks like your intended panel.
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 How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am


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