Answer Posted / sunil

Hi,

Please try this code it should work.

IDENTIFICATION DIVISION.
PROGRAM-ID. MID.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STR1 PIC X(17) VALUE IS 'COBOL PROGRAMMING'.
01 STR2 PIC X(1).
01 STR3 PIC X(17) VALUE SPACE.
01 STRLEN PIC 9(2).

PROCEDURE DIVISION.
INSPECT STR1 TALLYING STRLEN FOR CHARACTERS.
DISPLAY STRLEN.
PERFORM UNTIL STRLEN < 1

MOVE STR1(STRLEN:1) TO STR2
DISPLAY STR2
STRING
STR3 DELIMITED BY SPACE
STR2 DELIMITED BY SPACE
INTO STR3
COMPUTE STRLEN STRLEN - 1
DISPLAY STR3
END-PERFORM.
DISPLAY STR3.
STOP RUN.


Thanks,
Sunil

How arrays can be defined in COBOL?

1207

---

How to print 10 to 1 if the input have only 10 digit number?

1254

---

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?

7874

---

i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?

1323

---

how do you reference the printer file formats from cobol programs

1211

---

Define static linking and dynamic linking.

1182

---

What is the difference between structured cobol programming and object alternativelyiented cobol?

1238

---

What is perform what is varying?

1157

---

Which mode is used to operate the sequential file?

1196

---

Explain what you understand by passing by value.

1144

---

What is the local-storage section?

1141

---

What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?

1184

---

Discuss about changing dataset name in proc.

1230

---

What are declaratives and what are their uses in cobol?

1195

---

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

1222

---