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
 
getting the sign in the map

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: getting the sign in the map
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: 2150
Location: At my coffee table

PostPosted: Thu Aug 07, 2008 11:41 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CICS 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
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 Hardcoded negative sign value in output scdinesh SYNCSORT 8 Fri Sep 08, 2017 5:28 am
No new posts IGZ0040S An invalid separate sign was... kishpra COBOL Programming 13 Sun Aug 02, 2015 2:41 am
No new posts How to modify the value using the sig... Vinay Pushpala PL/I & Assembler 3 Fri Feb 13, 2015 2:10 pm

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