01 ws-p pic 9(2).
01 ws-q pic 9(2) value 01.
01 ws-r pic 9(2) value 99.
p.d.
compute p = q + r
what will be result of p ans(00) but my question is that
how i got 10 on the place of 00.
(truncation will ocuure on right side not left).
please tell me ?
Answer Posted / sam
01 p pic 9(02) value zero.
01 p1 pic 9(03) value zero
01 q pic 9(02) value 99.
01 r pic 9(02) value 1.
01 s pic x(02) value spaces.
p = q+r.
actual p value = 100. but p value is numeric so it writes
from right to left tuncations will be taken left side.
so p value = 00 if u want p = 10
but we cann't use justifications
since justification claue works on alphanumeric field.
so compute p1 = q+r.
move p1 to s . ( here s will contain value 10)
now move s to p.then p will be 10.
Is This Answer Correct ? | 2 Yes | 1 No |
Post New Answer View All Answers
What is amode(24)?
How do you define a variable of comp-1 and comp-2?
how do you reference the ksds vsam file formats from cobol programs
What is redefines clause in COBOL?
What is the Purpose of POINTER Phrase in STRING command in COBOL?
What is the utilization of copybook in cobol?
Discuss about changing dataset name in proc.
) what is the difference between AID and HANDLE AID?
What are declaratives and what are their uses in cobol?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
Which division and paragraphs are mandatory for a COBOL program?
In COBOL, what is the different between index and subscript?
What is the difference between binary search and sequential search?