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 ?

Answer Posted / chowdary

after executing this program output will be

b value is 000123
and
b value is abc
there is no blanks after abc in b, because we have taken
its length as 3 in pic clause.

Is This Answer Correct ?    0 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

how do you reference the fixed unblock file formats from cobol programs

804


Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks

2448


Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?

813


What is the local-storage section?

763


What are various search techniques in cobol? Explain.

749






State the various causes of s0c1, s0c5 and s0c7.

747


What is the Purpose of POINTER Phrase in STRING command in COBOL?

845


What are 77 levels used for?

751


What are the different data types in cobol?

903


Name the divisions, which are available in a cobol program?

799


How do you define a variable of comp-1 and comp-2?

804


What type of SDLC u followed? Why?

1634


What is cobol?

841


How you can read the file from bottom?

749


what is difference between cobol and cobol/400

21859