Interested to Buy Any Domain ? << Click Here >> for more details...
How to display string in the reverse order using occurs
clause?
- 4 Answers
- 13688 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
@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.
| Is This Answer Correct ? | 13 Yes | 1 No |
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).
| Is This Answer Correct ? | 11 Yes | 0 No |
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.
| Is This Answer Correct ? | 1 Yes | 3 No |
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 does IDMS communicate with CICS?
What are 77 levels used for?
which one is the best of com and com-3.using of real time ?
what is linkcard in cobol?
how can i see junk values in dclgen or in hostvariable of comp ?
How to code fscode 10 in cobol program? Where yoy code in your pgm?give ans for the question.
How do you reference the fixed block file formats from cobol programs
I've one string with spaces ( I N D I A ). My question is I want remove the spaces & combine in to single string without space (INDIA).How we can write the cobol program & wich options we need to use. Please let me know.
What are the cobol coding sheets?
01 a pic 9(6) value is 123456 01 b pic 9(3) move a to b wht will be the value ?
Can we call a CICS program from a batch program or viceversa?If so, how?
COBOL 
