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


Please Help Members By Posting Answers For Below Questions

What are the different rules to perform a Search?

702


Have you used the sort in your project?for this type of questions any working on real time project give the eg. with real time scenario.

2155


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?

806


What is the default value(s) for an initialize? What keyword will allow for an override of the default?

752


what are decleratives in cobol?

1903






how we sort two input files based on a common column and giving one o/p file please send me the coding logic?

1782


How do you reference the following file formats from cobol programs?

797


How you can characterize tables in cobol?

817


Explain how you can characterize tables in cobol?

730


What is the utilization of copybook in cobol?

763


how do you define single dimensional array and multidimensional array in your cobol?

766


What is amode(24)?

770


Explain about different table spaces.

744


Why would you use find and get rather than to obtain?

777


Program A (Normal COBBAT) calling a B Program (DB2COBOL, COBBATDB which is using a VSAM file. its a dynamic call. How we will handle VSAM file decleration in our from JCL from where we are running A PGM. And should we have PLAN for A pGM also. if possible can some one post a sample JCL. Thanks for help in advance.

5230