We will get 123 not AB3..why because A = +1 J = -1 B = +2 K = -2

WORKING-STORAGE SECTION.
01 A PIC X(3) VALUE 'ABC'
01 B PIC 9(3).
PROCEDURE DIVISION.
MOVE A TO B.
STOP RUN.

OUTPUT IS: AB3
WHY AND HOW THIS IS HAPPENING.

Question Posted / chandrababu

4 Answers
8342 Views
Atos Origin, I also Faced
E-Mail Answers

Answer Posted / chandrababu

We will get 123 not AB3..why because

A = +1 J = -1
B = +2 K = -2
C = +3 L = -3
D = +4 M = -4
E = +5 N = -5
F = +6 O = -6
G = +7 P = -7
H = +8 Q = -8
I = +9 R = -9

So will get 123 for ABC..

Is This Answer Correct ?

0 Yes

1 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

Write the code implementing the perform … varying.

1027

What is the utilization of copybook in cobol? Could we utilize a similar copybook?

1189

What is redefines clause in COBOL?

1263

What are the pertinent COBOL

2526

What is perform what is varying?

1126

)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?

1975

Which division and paragraphs are mandatory for a COBOL program?

1221

if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.

6498

In COBOL, what is the different between index and subscript?

1207

What is the difference between goback, stop run and exit program in cobol?

1545

Explain how to differentiate call by context by comparing it to other calls?

1152

What is amode(24)?

1204

What are the different rules to perform a Search?

1061

What the difference is between continue and next sentence?

1123

how do you reference the variable block file formats from cobol programs

1202