View previous topic :: View next topic
|
Author |
Message |
jagadeesanm87
New User
Joined: 20 Jan 2011 Posts: 14 Location: Mumbai, India
|
|
|
|
Hello every one
Actually i am having numeric value 00000050 getting stored in some variable. Now my CICS screen have two field spaces only to display this. That is i want 50 to get display on my CICS screen. variable used to display for my cics screen is X(02) as shown below
10 WS-REASSIGNED-TIER-NUMBER PIC X(02).
If this would be Charachter string then it was not a problem i would have extracted it using substring and display it on my screen... Since this being Numeric values i cant use Substring also..
Can Anyone please let me know how to extract this 50. Its Urgent.
Thanks
Jagadeesan |
|
Back to top |
|
|
jagadeesanm87
New User
Joined: 20 Jan 2011 Posts: 14 Location: Mumbai, India
|
|
|
|
000000050 is a S9(9) comp. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Move the COMP variable to a USAGE DISPLAY variable, then use redefines or reference modification to move the last 2 characters to the field. |
|
Back to top |
|
|
Pons
New User
Joined: 25 May 2007 Posts: 61 Location: Coimbatore
|
|
|
|
Hi Bob, Can we redefine this comp usage to display usage variable? |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Actually, his name is Robert.
If this value is decimal 50 as a binary-fword, then you can't redefine it as display numeric, because internally it would equal X'00000032'. Just move it to a PIC 9(02) WS field (the compiler with perform the conversion) and then move this to WS-REASSIGNED-TIER-NUMBER and you're done.
Bill |
|
Back to top |
|
|
|