Answer Posted / vaneesh

Here I am considering INPUT to COBOL working storage
variable and not from file. (If it is input from file then
answer above by Adithya is right).

01 WS-INPUT PIC X(52) VALUE 'AABBCCDDEFGHIIJ.....ZZ'
05 WS-ALPHABET-INP PIC X OCCOURS 52 TIMES.

01 WS-OUPUT PIC X(26).
05 WS-ALPHABET-OUT PIC X OCCOURS 26 TIMES.

01 SUBSRIPTS
05 WS-SUBA PIC 9(2).
05 WS-SUBB PIC 9(2) VALUE 1.

PROCEDURE DIVISION.

PERFORM VARYING WS-SUBA FROM 2 BY 2 UNTIL WS-SUBA > 52

MOVE WS-ALPHABET(WS-SUBA) TO WS-ALPHABET-OUT(WS-SUBB)

ADD +1 TO WS-SUBB

END-PERFORM.

DISPLAY WS-OUPUT

STOP RUN.

Define cobol?

1312

---

How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?

2533

---

How to remove 2 duplicate records and copy only one using job control language?

1169

---

How many sections are there in data division in COBOL?

1078

---

Difference between array and sub-script ?

1604

---

) how do u code after getting data?

2074

---

i want a program using by if, evaluate , string, unstring, perform, occurs?

4635

---

How do get the result of your program directly on your pc?

2294

---

Which is the default, TEST BEFORE or TEST AFTER for a PERFORM statement?

1288

---

What are literals?

1074

---

Which division and paragraphs are mandatory for a COBOL program?

1192

---

What is cobol?

1194

---

Can a Search can be done on a table with or without Index?

1235

---

What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?

1064

---

Write down the divisions of cobol program?

1150

---