01 NAME1 PIC X(13) VALUE "COBOL PROGRAMMING".
01 NAME2 PIC X(13).
now I want to display the value of NAME1 in reverse order
i.e value should be displayed as "GNIMMARGORP LOBOC"
HOW can I do that ??? please let me know if any one knows
it.
Answer Posted / rajul
just define
01 name2 picX(13) right justified.
and then use move stmt
move name1 to name2.
| Is This Answer Correct ? | 2 Yes | 13 No |
Post New Answer View All Answers
Define cobol?
Are you comfortable in cobol or jcl?
Can a Search can be done on a table with or without Index?
IF I mention stop run in CICS what happens?
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
How to remove 2 duplicate records and copy only one using job control language?
For rewrite, why is it mandatory that file needs to be opened?
how to access the file from prodution from changeman tool and to submit a file to production
Name the sections present in data division.
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
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.
Give some examples of command terminators?
What the difference is between continue and next sentence?
Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?
how to move the records from file to array table. give with code example