01 a pic 9(3) value is 123
01 b pic 9(6)
move a to b
wht will be the value ? and
01 a pic x(6) value is abc
01 b pic x(3)
move a to b
wht will be the value ?
- 7 Answers
- 8874 Views
- Patni, I also Faced
- E-Mail Answers
Answer Posted / cj
Numeric items are moved right to left (before the decimal
point) and left to right (after the decimal point) from
source item to the destination item.
So the answer for the first move=> Variable b will have
value 000123 in it. (In the question value 123 should be
within quotes)
Alphanumeric (as well as alphabetic) items are moved left to
right from source item to destination item.
So the answer for the second move=> Variable b will have abc
stored in it. (In the question value abc should be within
quotes)
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
What is length is cobol?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
how do you reference the variable unblock file formats from cobol programs
What is the difference between next sentence and continue in cobol programing language?
What is the usage of comp fields in cobol?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
how to access the file from prodution from changeman tool and to submit a file to production
how do you reference the printer file formats from cobol programs
What are literals?
how can i see junk values in dclgen or in hostvariable of comp ?
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
how to move the records from file to array table. give with code example
What is rmode(any) ?
I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.
