MVSFORUMS.com

[sant_1028]

We have a alphanumeric field to be moved to comp-3

We are getting SOC7 error for the following

01 WS-A PIC X(15).
01 WS-N REDEFINES WS-A PIC +9(11).99.
01 WS-NUM PIC S9(11)V9(2) COMP-3.

MOVE '123333.22' TO WS-A.
MOVE WS-N TO WS-NUM.


Adv Thanks,
Sant

[kolusu]

sant_1028,

You need to remove the explicit decimal in your input field before moving. You cannot use numeric edited sending field.

try this

[sant_1028]

Thanks for your time. We tried same solution in this way.

01 WS-ALPHA JUSTIFIED RIGHT PIC X(14).

01 WS-ALPHA-SPLIT REDEFINES WS-ALPHA.

05 WS-ALPHA-SPLIT1-11 PIC X(11).
05 WS-ALPHA-SPLIT-ELIM PIC X(01).
05 WS-ALPHA-SPLIT13-14 PIC X(02).

01 WS-ALPHA-USE.

05 WS-ALPHA-USE-1 PIC X(11).
05 WS-ALPHA-USE-2 PIC X(02).

01 WS-NUM REDEFINES WS-ALPHA-USE PIC S9(11)V99.

01 WS-NUM-COMP3 PIC S9(11)V99 COMP-3.

MOVE STORED-PROC-VALUE TO WS-ALPHA.

MOVE WS-ALPHA-SPLIT1-11 TO WS-ALPHA-USE-1.
MOVE WS-ALPHA-SPLIT13-14 TO WS-ALPHA-USE-2.


MOVE WS-NUM TO WS-NUM-COMP.

[slade]

Hi Sant,

Seems like you could have made things a lot easier for yourself by doing something like this:

[Mervyn]

You might also want to have a look at the NUMVAL function
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR10/7.1.32?DT=20020920180651
_________________
The day you stop learning the dinosaur becomes extinct

[slade]

That's right Merv! Even easier. Add WS-NUM-DISP PIC S9(11)V99 to the orig WS.
Then:

[Mervyn]

Hi, Jack. Been away for a week?

I was thinking more along the lines of

[sant_1028]

Hi All,
Thanks everyone. We used the following code, but we are missing -ve sign in the database after storing.
Somebody help us. But other replies are not working for us. Example NUMVAL.

WORKING-STORAGE SECTION.
01 WS-A PIC X(15).
01 WS-WHOLE PIC X(11).
01 WS-DEC PIC X(02).
01 WS-IN2 PIC 9(11)V9(2).
01 WS-TALLY PIC S9(04) COMP VALUE ZERO.
01 WS-NUM PIC S9(11)V9(2) COMP-3.

PROCEDURE DIVISION.

MOVE '123333.22' TO WS-A.
UNSTRING WS-A DELIMITED BY '.' INTO WS-WHOLE,
COUNT IN WS-TALLY WS-DEC

MOVE ZERO TO WS-IN2 (1: 13)
MOVE WS-WHOLE(1: WS-TALLY )
TO WS-IN2 (13 - WS-TALLY : WS-TALLY)
MOVE WS-DEC TO WS-IN2 (12 : 2)
MOVE WS-IN2 TO WS-NUM

[slade]

Hi Sant,

If your value can contain a minus sign, e.g. -12.34, you might try moving the WS-IN2 field to a PIC -(11).99 numeric edited field. Then move that to WS-NUM.

With this approach you should not have to strip the decimal point "manually".
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering

[slade]

Sorry, I should have said:

.... you might try redefininging the WS-IN2 field to a PIC -(10)V99 numeric edited field.

With this approach you should not have to strip the decimal point "manually". You then redefine as PIC -(10).99.
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering

[sant_1028]

Thanks everyone.
Still we didn't figureout how to move -ve sign values. We tried with the given option declaring -9(10)v99. But getting abending errors.
Could you please through us some more details.

Thanks,
Sant

[kolusu]

Sant_1028,

[sant_1028]

Hi Friends,
Its working fine. I could able to see -ve amounts in the data base.

Thanks,
Sant

[slade]

Looks like I missed the boat.

For what it's worth, I tested the code and it works OK.

I used JUST RIGHT to get the amt into the low order bytes of JS-TEST-R. You could use INSPECT with the REVERSED function to count the trailing spaces and use that to calculate the string's length, then ref/mod MOVE it to JS-TEST-R.

There are other ways, of course.

[slade]

OK, one more once. Here's my ent-to-end version.
Pgraph 1000-convert-rtn is the guts of it.