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
 

 

VPUT of Lower Case data in REXX going to Upper Case in Panel

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

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue May 13, 2008 1:15 am    Post subject: VPUT of Lower Case data in REXX going to Upper Case in Panel
Reply with quote

I have a variable in REXX that contains lower case. When I do a SAY command on the variable right before I VPUT the variable, it shows as lower case.

Code:

  187 *-* SAY HOMEL                                     
      >V>   "u/gs3324                          "         


On the receiving ISPF Panel, the value of HOMEL display's in upper case after it is VPUT.

Code:

ADDRESS ISPEXEC "VPUT (HOMEL) ASIS"


Any suggestions as to why it displays as upper case rather than lower case?
Back to top
View user's profile Send private message

Pedro

Senior Member


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

PostPosted: Tue May 13, 2008 3:39 am    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

Check the panel definition. Make sure the field attributes defined in the )ATTR section does not specify CAPS(ON)
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue May 13, 2008 2:34 pm    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

I am actually specifying CAPS(OFF) on every definition in the (ATTR section.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Tue May 13, 2008 7:39 pm    Post subject:
Reply with quote

You need to do the following as your command is coded wrong. I also
put the variable in the profile pool in this example.


"VPUT (HOMEL)" ASIS PROFILE
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Tue May 13, 2008 8:13 pm    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

the command is coded the right way
( maybe with the wrong assumption about casing )

Quote:

ASIS Specifies that the variables are to be copied to the pool in which they already exist or that they are to be copied to the shared pool, if they are new. If the variables exist in both the shared and profile pools, they are copied to the shared pool only.


the ASIS does not refer to capitalization, but rather to the pool where the variable will be saved

the problem must be somewhere else

running the dialog in test mode with a breakpoint after the VPUT
You can check what happens to the variables
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Tue May 13, 2008 8:34 pm    Post subject:
Reply with quote

You are correct as it work either way. There is a problem else wheres
as the ASIS was not really need when the CAPS(OFF) is coded on the
panel as it worked both ways.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Tue May 13, 2008 9:53 pm    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

Can you provide a short example with rexx and panel, that demonstrates the problem?
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed May 14, 2008 6:26 pm    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

I previously had about 10 lines of symbols defined in the )ATTR section. The manual stated that you cannot use the CAPS parameter when using a TYPE(TEXT) definition. The )BODY section was using combinations of symbols to acheive the different colors for the panel.

What I did to fix my problem was redesign the panel from scratch. I cleared out most of the definitions in the )ATTR section and left a few basic ones like:

Code:

 )ATTR                                                   
 + TYPE(TEXT) SKIP(OFF) COLOR(BLUE) INTENS(HIGH)         
 _ TYPE(INPUT) SKIP(OFF) INTENS(HIGH) CAPS(OFF)         
 @ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(YELLOW)         


I made the )BODY section more basic as well.

Code:

)BODY                                                                   
%--------------- O M V S   L O O K U P   D I S P L A Y -----------------
%OPTION ===>_ZCMD                                                       
+      Message:%_MSG               + @Press Enter To Continue<=== +     
+  SYSA/J/S =>:%_OMVSA     + HOME=>%_HOMEA                             +
+                         PROGRAM=>%_PGMA                 +             
+  SYST =====>:%_OMVST     + HOME=>%_HOMET                             +
+                         PROGRAM=>%_PGMT                 +             


The HOME and PROGRAM fields then starting displaying as lower case.

Thanks to everyone for their invaluable input.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed May 14, 2008 9:35 pm    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

I am glad you were able to fix your problem.

A quick comment about your panel:
1. you seem to have two attribute characters '%_' next to each other... I think you can remove the '%' that appears before your input fields.

2. If you want your users to be able the jump from your panel (for example, typing '=3.4' and pressing Enter), I think the input field needs to be preceded by two equal sign and a greater than sign: '==>_field'.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu May 15, 2008 4:47 am    Post subject:
Reply with quote

Hi Pedro,

can you please explain :-
Quote:
2. If you want your users to be able the jump from your panel (for example, typing '=3.4' and pressing Enter), I think the input field needs to be preceded by two equal sign and a greater than sign: '==>_field'.


Why does it need two equal sign and greater than sign, isn't this just TEXT ?


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

Senior Member


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

PostPosted: Thu May 15, 2008 10:24 pm    Post subject: Reply to: VPUT of Lower Case data in REXX going to Upper Cas
Reply with quote

I guess there are times when '=' might be valid data rather than jump command. So, not every input field allows a jump.

I guess my advice was somewhat old... look at dialog developers guide, http://www-03.ibm.com/systems/z/os/zos/bkserv/r9pdf/#ispf and search for NOJUMP for a better description.
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 Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts SPUFI -- Joining 3 tables – data in... Sysaron DB2 2 Wed Mar 08, 2017 4:18 am
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm


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