Answer / admin

@fool
Hello Mr.Fool as ur screen name and ur approach suggest u
dont have the basic quality of respecting individuals.Very
sorry to say that this forum is not for abusing anyone nor
it is a place to show individual intellects.I would suggest
that you abstain from commenting and purely provide
solutions to queries posted.You are welcome to do so.
Thanks,
Adim.

Answer / fool

both r foolish programmers...heres the working code..
identification division.
program-id pg1.
environment division.
data division.
working-storage section.
01 j pic 99.
01 i pic 99.
01 s1 pic a(15).
01 s2 redefines s1.
02 instr pic a(1) occurs 15 times.
01 s3 pic a(15).
01 s4 redefines s3.
02 outstr pic a(1) occurs 15 times.
procedure division.
p1.
display "Enter the string ".
accept s1.
perform p3 varying i from 15 by -1 until i = 0.
display "Reverse string ".
display s4.
stop run.
p3.
compute j = 15 - i + 1.
move instr(i) to outstr(j).

Answer / rookie

Have u missed something.

Out-string must be an array.

01 OUT-STRING PIC X occurs 9 times.

Answer / nk

01 MY-STRING PIC X(9) VALUE 'ABCDEFGHI'.
01 FILLER REDEFINES MY-STRING.
05 CHAR OCCURS 9 TIMES. (could use INDEXED BY here)
01 OUT-STRING PIC X(9).
01 IDX-IN PIC 9.
01 IDX-OUT PIC 9.
MOVE 9 TO IDX-IN.
PERFORM MOVE-A-CHAR (could also do an inline PERFORM)
VARYING IDX-OUT FROM 1 BY 1
UNTIL IDX-OUT > 9.
MOVE-A-CHAR.
MOVE CHAR(IDX-IN) TO OUT-STRING(IDX-OUT).
SUBTRACT 1 FROM IDX-IN.
MOVE-A-CHAR-EXIT.
EXIT.

What is the difference between PIC 9.99 and 9v99?

7 Answers  

---

) How do u handle errors in BMS macro

0 Answers   IBM,

---

what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.

1 Answers   Syntel,

---

.How to add one input & one Out file in existing cobol program. how approach tell me step by step.

2 Answers   Syntel,

---

what is scope terminator

2 Answers   IBM,

---

---

In a file if a column account number conatain value 0001234.. how can we move the value to another variable without zero. value may contain any type such as 00123405. we need the value 1234 or 12305. how can we do that in cobol. Please help.

1 Answers   CSC,

---

How do you get the data to code the BMS macro?

0 Answers   IBM,

---

can we use the two 01 level in file discription ?

6 Answers  

---

how would you resolve sb37 and SE37?

2 Answers   Hewitt,

---

What is rmode(24)

0 Answers  

---

db2 variable decimal(15,2) what is the equalent size of cobol variable

2 Answers   Syntel,

---

diffrence between renames and redifnes with examples

3 Answers   IBM,

---