Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 659
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 Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Hardcoded negative sign value in output scdinesh SYNCSORT 8 Fri Sep 08, 2017 5:28 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us