Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 4 Answers
- 8293 Views
- Atos Origin, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / mahe
You won't get AB3 as Output,Job will abend with SOC7 as you
r moving Character to Numeric variable
| Is This Answer Correct ? | 22 Yes | 4 No |
Answer / kamaldeep
I got AB3 as out put, when ever we are moving X(3) to 9(3) then 1st 2 bytes will be moved right(i.e. AB) but last byte will have '3' as C=+3
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / 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 |
Answer / velu
Exactly maha!!!!......actually we won't move the pic x(3)
to pic 9(3)(that's we can't move the alphabet to numeric
data type).....it should shows the abed...
| Is This Answer Correct ? | 1 Yes | 4 No |
In a program, there are 2 sections defined say SECTION-A and SECTION-B. There is a paragraph say CALC-INT in both the sections. If this para has to be called directly for SECTION-A, then PERFORM CALC-INT will not work as it is present in both sections. How the PERFORM statement has to be coded here?
how to transfer the file from pc to mainframe??
What is normalisation?
how can u redefine picx(10) with pic 9(6).
what is dynamic array in cobol? what is the difference b/w array and table in cobol?
IF I mention stop run in CICS what happens?
Can we move SPACES to numeric field and ZEROES to alphabetic field? If yes what are the way doing this?
Why we should use cursor ?
what is S04E error in jcl?
11 Answers IBM, L&T,
Consider the following COBOL entries 05 X PIC 99 VALUE 10. ADD 40 X TO X. COMPUTE X = 3 * X - 40. The result in X is
What is "Call by content" and "call by reference"?
I have a Flat file in which certain records are present in a tabular format. I need to extract some of the records on some basis from it and copy them into a flat file...how it can be done ??
COBOL 
