WORKING-STORAGE SECTION.
01 A PIC X(3) VALUE 'ABC'
01 B PIC 9(3).
PROCEDURE DIVISION.
MOVE A TO B.
STOP RUN.
OUTPUT IS: AB3
WHY AND HOW THIS IS HAPPENING.
Answer Posted / kamaldeep
I got AB3 as out put, when ever we are moving X(3) to 9(3) then 1st 2 bytes will be moved right(i.e. AB) but last byte will have '3' as C=+3
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
how do you reference the esds vsam file formats from cobol programs
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
How to remove 2 duplicate records and copy only one using job control language?
Define cobol?
please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
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
Can a Search can be done on a table with or without Index?
What is the LINKAGE SECTION used in COBOL?
INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
What are the different open modes available in cobol?
Name the divisions, which are available in a cobol program?
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
Why occurs cannot be used in 01 level in COBOL?