Move from Comp3 variable to Edited Variable

Revathy.nair0485 · New User Joined: 02 Nov 2017 Posts: 3 Location: India

I am trying to move a PD value to numeric edited field . Below the details

Declaration

Input field- EAP-TOTAL-COMMITTED PICTURE S9(11)V99 COMP-3.
Output field--EAPOUT-TOTAL-COMMITTED PIC S9(11)V99

Code in Procedure division

IF EAP-TOTAL-COMMITTED IS NUMERIC
MOVE EAP-TOTAL-COMMITTED TO EAPOUT-TOTAL-COMMITTED

Few Values in the PD field has the last sign nibble as ‘A’(in hex representation) .These values are not considered as numeric in my program.

I tried NUMPROC(PFD and NO PFD options). But no luck

Thanks

Can any one help me on this.

prino · Posted: Fri Nov 03, 2017 3:49 pm

Why do you attach a 350kb PDF to your question?

Revathy.nair0485 · New User Joined: 02 Nov 2017 Posts: 3 Location: India

PDF doc has the I/p file screen shot

Nic Clouston · Posted: Fri Nov 03, 2017 4:44 pm

A simple cut'n'paste would do much better. Most people do not/cannot view attachments for security purposes. I don't a) for security reasons and b) because why should i do the extra work to look at it. It is not me wanting help but you - so help the helpers.

When posting code/data or anything else requiring a fixed pitch font then use the code tags. If you do not know what these are then search the forum.

Revathy.nair0485 · New User Joined: 02 Nov 2017 Posts: 3 Location: India

Phrzby Phil · Posted: Fri Nov 03, 2017 7:10 pm

Your "output" field has an assumed decimal point - the "V".
Don't you want to see a period (.) here?

enrico-sorichetti · Posted: Fri Nov 03, 2017 7:19 pm

Robert Sample · Posted: Fri Nov 03, 2017 7:22 pm

Depending upon which version of Enterprise COBOL you are using, compile options NUMCLS(ALT) and NUMPROC(NOPFD) may do what you want but they must be used together.

Also, you are moving to a numeric variable, NOT a numeric-edited variable. There are some very significant differences in the two, and you should learn those differences.