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

Lower case trick in natural


IBM Mainframe Forums -> Java & MQSeries
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
cooolguyin
Warnings : 1

New User


Joined: 12 May 2005
Posts: 10
Location: NY

PostPosted: Thu Jan 27, 2011 10:10 am
Reply with quote

Hi,

I wanna read the alpha numeric field from adabas file under some condition thro' NATURAL program and write it to a flat file using batch job. How do I write it in lower case in the dataset? icon_confused.gif

..thanks
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Thu Jan 27, 2011 2:22 pm
Reply with quote

Take a look at user exit 620 (USR0620N). Also, CMULT is an old method of doing this.

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

New User


Joined: 21 Jul 2010
Posts: 6
Location: Roaming

PostPosted: Thu Jan 27, 2011 3:21 pm
Reply with quote

You may also want to look at EXAMINE TRANSLATE statement. This could also achieve what you are aiming at.
Back to top
View user's profile Send private message
Ralph Zbrog

New User


Joined: 21 Nov 2009
Posts: 58
Location: California

PostPosted: Thu Jan 27, 2011 3:40 pm
Reply with quote

What exactly is the problem?

If the database contains lowercase text, then the flat file will contain lowercase text. Natural doesn't automatically convert text in a database field.

If the database contains uppercase text, then you can translate it with an EXAMINE statement.
Code:
EXAMINE #TEXT TRANSLATE INTO LOWER CASE

Is lower case content of a database field placed in a modifiable field of a map? Is the map field defined with upper case translation?

If you're having trouble specifying literals in lower case for conditional Natural code, there may be two issues.

Try the %L terminal command to tell Natural to turn off automatic upper case translation.

Enter the PROFILE command in the program editor, press PF4 for Additional Options, select General Defaults, and turn on the first two options (Editing in Lower Case and Dynamic Conversion of Lower Case).
Back to top
View user's profile Send private message
cooolguyin
Warnings : 1

New User


Joined: 12 May 2005
Posts: 10
Location: NY

PostPosted: Fri Jan 28, 2011 1:01 am
Reply with quote

Thanks everyone.. My DB has this field in upper case." Examine translate "worked for my need.

Thanks Ralph for letting me know how to change the general defaults.. I never tried it before
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 -> Java & MQSeries

 


Similar Topics
Topic Forum Replies
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts Zunit Test case editor error Testing & Performance 4
No new posts IMS DB using Natural Language IMS DB/DC 0
No new posts Negative value - packed field - Natur... Java & MQSeries 0
No new posts Call Natural program with rexx CLIST & REXX 2
Search our Forums:

Back to Top