consider the following piece of code
01 GROUP-ITEM
05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50
05 AMOUNT-2 PIC 9(4)V99 USAGE COMP
MOVE ZERO TO GROUP-ITEM
ADD 50 TO AMOUNT-1
what will be the content of AMOUNT-1?
a.50
b.100
c.0
d.unpredictable
Answer Posted / naveen
Why not C?
Can we have the reason for the above answer?
Is This Answer Correct ? | 0 Yes | 2 No |
Post New Answer View All Answers
How do you reference the fixed block file formats from cobol programs
what is the difference between COBOL2 AND COBOL390?
What is inspect in cobol ?
What is the difference between comp and comp-3?
What do you understand by psb and acb?
What is the default value(s) for an initialize and what keyword allows for an override of the default?
What is difference between static and dynamic call in cobol?
I have a File that has duplicate records. I need only those records that occur more than thrice.?
HOw can I get the negative sign while deduct high value from low value
What are literals?
which is Best IBM Mainframe Training and Placement Institute in Ameerpet Hyderabad
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
how do you reference the fixed unblock file formats from cobol programs
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......