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

getting the sign in the map


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
lizzy

New User


Joined: 28 Jul 2008
Posts: 3
Location: Philippines

PostPosted: Thu Aug 07, 2008 7:17 pm
Reply with quote

Hi there I may sound a little dumb here.

But here is my question:

In map there is a field that needs to be input with a signed number either positive or negative and in my definition in its physical map it is picin='s9(9)v9(2) , let call it JAN-AMOUNT. but when i trace it using ts queue the sign is not retrieve because there is no D0 in its hex value at the end..

Whats the correct way of getting the sign of the number inputted by the user without modifying the JCL ... only the use of redefining and if possible JAN-AMOUNT will have a pic in='x(17)'

Thanks a lot . I will need the field to be in pic x so I can validate it and not have a ASRA when moving an invalid decimal..
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Thu Aug 07, 2008 11:41 pm
Reply with quote

The COBOL NUMVAL will do what you want, convert the leading sign to your trailing byte 'D0".....
But you had better check the field to make sure that it contains at least one numeric character......
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 -> CICS

 


Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Missing Negative sign in COBOL COBOL Programming 6
No new posts SUSBSCRIPT WITH SIGN IN PIC CLAUSE COBOL Programming 3
No new posts Typing the CENT sign ยข on mainframe,... All Other Mainframe Topics 2
No new posts Identify who, from where, sign on CIC... CICS 1
No new posts Subtract the ZD fields to provide neg... DFSORT/ICETOOL 4
Search our Forums:

Back to Top