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

Problem with VER command


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

New User


Joined: 27 May 2008
Posts: 13
Location: Philippines

PostPosted: Fri Sep 12, 2008 12:51 pm
Reply with quote

This is the sample screen i'm working on.




I would like to lessen the length of the line on the left side of item #1 & #4 to fit a 1-char value.

I used VER(&NEWUSER, PICT,'C') for item# 1 but this doesn't seem to work.[/img]
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Fri Sep 12, 2008 1:11 pm
Reply with quote

You need to show the statements that are used to build the panel.
Back to top
View user's profile Send private message
Leah Dela Cruz

New User


Joined: 27 May 2008
Posts: 13
Location: Philippines

PostPosted: Fri Sep 12, 2008 1:22 pm
Reply with quote

here it is:

Code:
 )ATTR                                                                   
 " TYPE(OUTPUT) INTENS(HIGH) CAPS(OFF) JUST(ASIS) COLOR(RED  )    /* erro
 _ TYPE(OUTPUT) COLOR(RED      ) CAPS(OFF) SKIP(ON) JUST(ASIS)           
 @ TYPE(OUTPUT) COLOR(PINK) CAPS(OFF) SKIP(ON) JUST(ASIS)               
 ¬ TYPE(INPUT) INTENS(LOW) COLOR(RED) CAPS(ON)                      /*   
 ` TYPE(INPUT) INTENS(LOW) COLOR(GREEN) CAPS(ON) JUST(RIGHT) HILITE(USCOR
 ! TYPE(TEXT) COLOR(GREEN ) INTENS(HIGH) SKIP(ON)           /* emphasized
 ; TYPE(TEXT) COLOR(RED   ) INTENS(HIGH) SKIP(ON) HILITE(REVERSE)       
 | TYPE(TEXT) COLOR(TURQUOISE) INTENS(LOW) SKIP(ON)             /* normal
 % TYPE(TEXT) COLOR(BLUE     ) INTENS(LOW) SKIP(ON)             /* normal
 ~ TYPE(TEXT) COLOR(YELLOW   ) INTENS(LOW) SKIP(ON)    /* PF keys, panel
 + TYPE(TEXT) COLOR(WHITE    ) INTENS(LOW) SKIP(ON)                 /* ch
 * TYPE(TEXT) COLOR(RED      ) INTENS(LOW) SKIP(ON)                 /* ch
 )BODY LMSG(MSG)                                                       
+UNCLASSIFIED               *VERSION 1.0                   +USERID  - |&
+VERIFY          UPDATE BMS HR-EMF TABLES TOOL - MENU      +DATE    - |&
             !===========================================  +TIME    - |&
                                                                       
                                                                       
+Hint: type 's' beside the selection (you can have multiple selction). 
                                                                       
+ REASON FOR MODIFICATION:                      +                       
             `NEWUSER  ~1. |New User                                   
                                                                       
+ APPROVER:                                     +                       
             `OTHERS   ~4. |Others, Pls specify: `ETC                   
                                                                       
                                                                       
+                           *ENTER - PROCEED                  PF03 - QUI
"MSG                                                                   
)INIT                                                                   
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Fri Sep 12, 2008 1:54 pm
Reply with quote

Then you need to change the field name(s) NEWUSER & OTHERS to be only one byte long.
Back to top
View user's profile Send private message
Leah Dela Cruz

New User


Joined: 27 May 2008
Posts: 13
Location: Philippines

PostPosted: Fri Sep 12, 2008 3:51 pm
Reply with quote

thanks for the help. it worked icon_biggrin.gif
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Fri Sep 12, 2008 7:03 pm
Reply with quote

You can also use ZVARS to allow a longer variable name but use a 'Z' placeholder in the panel to make the field 1 byte long.
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 RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts LTJ command CA Products 4
Search our Forums:

Back to Top