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
 

 

Negative value in Screen - TELON

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
mailbalaji

New User


Joined: 13 Mar 2006
Posts: 7
Location: Chennai

PostPosted: Thu Jun 14, 2012 10:41 am    Post subject: Negative value in Screen - TELON
Reply with quote

Hi,
I have a query in TELON.
I have defined a field AMT as NUMERIC and it is a OUTIN field.
I need to populate values to this field from DB2 as well as get input from User.

The AMT can have -ve value as well. Ex -5.00
This AMT field from the program is a COMP-3 field.

What do I need to do to show the -5.00 in the screen.
Currently it displays only as 5.00

Also, when i tried to enter -5.00 as input for the same field, it gives an error [since we defined the field as Numeric]

Can someone help me?

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

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jun 14, 2012 6:48 pm    Post subject:
Reply with quote

Hello,

I haven't worked with Telon, but could you define the screen field as alpha and then handle the value in the code?

Input could be validated for valid numeric and the output coud be edited to show the minus.

Possibly there is something i am missing.
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 650
Location: Whitby, ON, Canada

PostPosted: Thu Jun 14, 2012 7:50 pm    Post subject:
Reply with quote

For output processing, you can use the Telon PIC keyword to assign a picture clause to the field.

It's been several years since I used Telon, but I think what you are looking for is something like:
Code:
FIELD fldname,TYPE=NUMERIC,PIC='-----9V99' 


The above specification probably won't work for input processing.

Another option that might work:
Code:
FIELD fldname,TYPE=(NUMERIC,DOLLAR),PIC='----9V99'


The default field edits supplied by Telon are frequently modified by the installation, and many installations create their own. You can find out what's available by searching the Telon MACLIB.
Back to top
View user's profile Send private message
mailbalaji

New User


Joined: 13 Mar 2006
Posts: 7
Location: Chennai

PostPosted: Fri Jun 15, 2012 6:01 pm    Post subject: Reply to: Negative value in Screen - TELON
Reply with quote

Thanks for your suggestion guys.
I have defined the field as string and have handled it in the Custom Codes.

Now the code if working. I will get back to guys in case of further queries.

Thanks a lot
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jun 15, 2012 8:10 pm    Post subject: Reply to: Negative value in Screen - TELON
Reply with quote

Good to hear it is working - thank you for letting us know icon_smile.gif

d
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Fri Jun 15, 2012 8:23 pm    Post subject:
Reply with quote

Look at FIELD TYPE=FLOAT and an Input edit routine called IFLOAT and an Output edit routine called OFLOAT.

These are the built in routines that handle leading signs. As Don stated, they can be modified on site to behave differently from the manuals.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
No new posts Increase the screen size after split mistah kurtz TSO/ISPF 2 Fri Sep 02, 2016 6:39 pm
No new posts Automation of data entry using Rexx i... zingy.rajeev CLIST & REXX 4 Mon Aug 22, 2016 4:13 pm


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