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
Answers were Sorted based on User's Feedback
Answer / vishal
allways value & move display from rigt to left or accept
lalue left to riht ans 3456
| Is This Answer Correct ? | 4 Yes | 11 No |
What is the output generated by the following code? 01 GRP-I. 05 SUBFLD1 PIC XX VALUE "AB". 05 FILTER PIC X(6) VALUE SPACES. 01 GRP-2 REDEFINED GRP-1. 05 SUB-FLD2 PIC XX. 05 SUB-FLD3 PIC XX. 05 FILTER PIC X(4). IF SUB-FLD1 NOT = SPACES DISPLAY "SUBFLD1" MOVE "ABBCCD" TO GRP-1 IF SUB-FLD3 = SPACES DISPLAY "SPACES" ELSE DISPLAY "SUBFLD3" DISPLAY "END" ELSE DISPLAY "SPACES" DISPLAY "END". (a) SUBFLD1 SUBFLD3 END (b) SPACES END (c) SUBFLD1 END (d) SUBFLD1 SPACES
We are using the searching a table which is indexed, once the key is found, how can we get the occurance at which the key was found.
What is the difference between PIC 9.99 and PIC9v99?
when COMP-3 is preferrable?
How do u find the programs calling the given module, without having doing 3.13 on loadlib/source library?
How many times the loop runs here 01 a pic 9(2) value 10. perform para1 a times stop run. para1: move 20 to a.
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
what will happen if pass values more than 100 using PARM parameter?
Can anyone please give the example of Inline Perform.
what is soc7 abend?how u can trace it?
wht is the diff b/w if and evaluate stmts ?
Size of a column has been changed in DB2 table (Suppose it was of 5 characters and later changed to 4 characters) and forgot to change the DCLGEN in COBOL program, what will happen during the execution of code? If the program Abends then what will be the error? If it doesn't abend then hpw the error can be catched?