01 xxx pic 9(4).
01 yyy pic 9(6).
move 123456 into yyy.
move yyy to xxx.
display yyy.
what would be the value of yyy
Answer Posted / siba
In numeric number alingment is right to left
truncation is done in left side
the datatype size of y is 6
so value of y is 123456
| Is This Answer Correct ? | 14 Yes | 2 No |
Post New Answer View All Answers
What rules are to be followed while using the corresponding options?
How to remove 2 duplicate records and copy only one using job control language?
Can a Search can be done on a table with or without Index?
What guidelines should be followed to write a structured cobol prgm?
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?
Explain the configuration section of a cobol program with examples of syntax.
Why did you choose to work with ibm mainframe cobol programming?
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
Which mode is used to operate the sequential file?
Can we redefine the field of x(200) to less than 200?
What is the default value(s) for an initialize and what keyword allows for an override of the default?
What is a report item?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?