Interested to Buy Any Domain ? << Click Here >> for more details...
COBOL program to read the string ' BOMBAY' in reverse order as 'YABMOB'
- 8 Answers
- 14895 Views
- Barclays, IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / rashi
MOVE 'BOMBAY' TO WS-STRING.
INSPECT WS-STRING TALLYING WS-COUNT FOR ALL CHARACTERS
MOVE WS-COUNT TO WS-COUNT1.
MOVE 1 TO WS-COUNT2.
PERFORM VARYING WS-COUNT1 BY -1 UNTIL WS-COUNT1 = 0
MOVE WS-STRING(WS-COUNT1:1) TO WS-REV-STRING(WS-COUNT2:1)
ADD 1 TO WS-COUNT2
END-PERFORM.
| Is This Answer Correct ? | 10 Yes | 0 No |
Answer / gouti
Yes We can By using the funtion reverse
01 MOVE FUNCTION REVERSE(WS-A) TO WS-B
| Is This Answer Correct ? | 8 Yes | 1 No |
Answer / piyush kumar
We can use the reverse function in cobol for this
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / meghraj hulawale
Data Division.
w-s-s.
77 str pic x (6) value 'BOMBAY'.
77 revstr pic x (6).
77 I pic 9 (1).
77 J pic 9 (1) value 1.
77 cnt pic 9 (1).
Procedure Division.
inspect str tallying cnt for all characters before initial space.
move cnt to I.
perform until I < 1
move str (I:1) to revstr (J:1)
add 1 to J
subtract 1 from I
end-perform.
Display revstr.
stop run.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / randy
Hi,
We can use Reverse function.
MOVE FUNCTION REVERSE(WS-STRING) TO WS-REV-STRING
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / nanda
********************** Top of Data ***********
ID DIVISION.
PROGRAM-ID. ALLINONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC X(7) VALUE 'NANDA'.
01 WS-B PIC X(7).
PROCEDURE DIVISION.
MOVE FUNCTION REVERSE(WS-A) TO WS-B.
DISPLAY WS-B.
STOP RUN.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / sushree
id division.
prog-id. hello.
data division.
working-storage section.
01 ws-str pic A(6) value 'BOMBAY'.
01 ws-cnt pic 9(1).
01 ws-str1 pic A(1).
01 ws-str2 pic A(6) value space.
procedure division.
inspect ws-str tallying ws-cnt for all characters
display ws-cnt
perform until ws-cnt < 1
move ws-str3(ws-cnt:1) to ws-str1
string ws-str2 delimited by space
ws-str1 delimited by size
into ws-str3
compute ws-cnt = ws-cnt - 1
end-perform.
display ws-str3.
stop run.
| Is This Answer Correct ? | 1 Yes | 0 No |
Difference between lrecl, blksize among PS, PDS issues? i.e in jcl at dcb
In which area will you utilize 88 level items in cobol?
What divisions, sections and paragraphs are mandatory for a COBOL program?
what are the error codes in cobol, db2, cics, vsam , and jcl
How to execute a set of JCL statements from a COBOL program?
file status 00 is checked after opening the file or reading the file
Can we MOVE X(9) to 9(9) OR 9(9) to X(9)? If yes what are the ways for doing this?
12 Answers T systems, Tech Mahindra,
What is R-mode and A-mode?
HELLO FRIENDS, THIS IS JANARDHAN.GADIRAJU, I FACED ONE INTERESTING QUESTION IN COBOL, THAT IS WHAT ARE THE VALUES WE CAN SEE IN HIGHVALUES AND LOWVALUES, CAN U PLEASE GIVE ME THE ANSWER
can u give result for the fallowing example... 05 a pic 9(2) 05 b redifines a pic x(2). move 'xy' to b. display a,b.
Explain about Redefines cluse?
what is amode(24), amode(31), rmode(24) and rmode(any)?
COBOL 
