View previous topic :: View next topic
|
Author |
Message |
vvgoud
New User
Joined: 16 Aug 2007 Posts: 27 Location: Hyderabad
|
|
|
|
I am writing IMS stored procedure I have requirement like below
INPUT.
01 POS-NEG PIC X(1) Value 'P' or 'N'
/* P means '+' N Means '-' */
01 BET-VALUE PIC X(6) .
OUTPUT.
01 DB2-BET-VALUE PIC S9(9) USAGE COMP. .
For example data of POS-NEG fiedl is 'P' and BET-VALUE is 100 so I have to move +100 to DB2-BET-VALUE
1. How to combine the POS-NEG and BET-VALUE fields to making +100.
2. How to move the +100 to DB2-BET-VALUE.
Please Can anybody provide logic |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Untested on my system:
Code: |
01 POS-NEG PIC X(1).
88 NEG-VALUE VALUE 'N'.
.
.
.
IF NEG-VALUE
COMPUTE DB2-BET-VALUE = FUNCTION NUMVAL (BET-VALUE) * (-1)
ELSE
COMPUTE DB2-BET-VALUE = FUNCTION NUMVAL (BET-VALUE)
END-IF.
|
|
|
Back to top |
|
|
vvgoud
New User
Joined: 16 Aug 2007 Posts: 27 Location: Hyderabad
|
|
|
|
Robert,
It seems it works fine. I appreciate your Help. |
|
Back to top |
|
|
|