INTERVIEW QUESTIONS MAINFRAME COBOL DETAILS

Question: Can we reverse the string in cobol ? See the following problem :

77 NAME PIC X(10) VALUE 'MANOJ'
77 SRNAME PIC X(10).

I want JONAM in SRNAME.

Answer: we can reverse the string using cobol prog like this :

IDENTIFICATION DIVISION.
PROGRAM-ID. MID.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STR1 PIC X(7) VALUE IS 'MANOJ'.
01 STR2 PIC X(1).
01 STR3 PIC X(7) VALUE SPACE.
*01 STR4 PIC X(7).
01 STRLEN PIC 9(1).
01 CTR1 PIC 9(1) VALUE IS 1.
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.

we can reverse the string using cobol prog like this :

IDENTIFICATION DIVISION.
PROGRAM-ID. MID.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STR1 PIC X(7) VALUE IS 'MANOJ'.
01 STR2 PIC X(1).
01 STR3 PIC X(7) VALUE SPACE.
*01 STR4 PIC X(7).
01 STRLEN PIC 9(1).
01 CTR1 PIC 9(1) VALUE IS 1.
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.


Source: CoolInterview.com

Through cobol intrinsic function REVERSE also we can do it.
Identification division.
program-id. rev.
data division.
working-storage section.
77 str1 pic x(5).
77 revstr pic x(5).
procedure division.
display "enter string".
accept str.
move function reverse(str) to revstr.
display revstr.
stop run. Source: CoolInterview.com

we can simply use Function 'REVERSE' cmd instead. Source: CoolInterview.com

If you have the better answer, then send it to us. We will display your answer after the approval.

Rules to Post Answers in CoolInterview.com:-

• There should not be any Spelling Mistakes.
• There should not be any Gramatical Errors.
• Answers must not contain any bad words.
• Answers should not be the repeat of same answer, already approved.
• Answer should be complete in itself.

Name :*
Email Id :*
Answer :*
Verification Code	Not readable? Load New Code
Enter the above shown code: *
	Inform me about updated answers to this question