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 / vishal

12345

Is This Answer Correct ?    8 Yes 9 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How to remove the spaces at the end of each record in the output file of variable length, via cobol program?

774


In COBOL, what is the different between index and subscript?

851


What are the cobol coding sheets?

745


What is the difference between comp and comp-3 usage?

775


How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?

847






) How do u handle errors in BMS macro?

1514


Which Search verb is equivalent to PERFORM…VARYING?

777


What kind of error is trapped by on size error option?

832


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


What rules are to be followed while using the corresponding options?

726


What are the different rules for performing sort operation?

851


Describe the cobol database components?

776


What is the difference between Global and External Variables?

767


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


How do you reference the fixed block file formats from cobol programs

805