Interested to Buy Any Domain ? << Click Here >> for more details...
input:-AABBCCDDEFGHIIJ
output:- ABCDEFGHIJ
Here in input we hav the duplicate characters i.e repeating
characters.SO we should eliminate the duplicate characters
and should display the output in ascending order.
- 6 Answers
- 11305 Views
- I also Faced
- E-Mail Answers
Answer Posted / sudhansu
ID DIVISION.
PROGRAM-ID. TESTPRG4.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-VAR.
10 WS-VARA PIC X(20).
10 WS-VARB PIC X(20).
10 I PIC 99.
10 J PIC 99 VALUE 1.
10 OCR PIC 99 VALUE 1.
10 WS-TAB.
20 WS-REC OCCURS 10 TIMES.
30 WS-ID PIC X(1) .
PROCEDURE DIVISION.
ACCEPT WS-VARA.
MOVE 'A' TO WS-HOLD.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 20
MOVE WS-VAR(I:1) TO WS-ID(OCR)
ADD 1 TO OCR
END-PERFORM.
PERFORM VARYING OCR FROM 1 BY 1 UNTIL OCR > 20
IF WS-REC(OCR) NOT EQUAL TO WS-REC(OCR + 1) THEN
MOVE WS-ID(OCR) TO WS-VARB(J:1)
ADD 1 TO J
ELSE
CONTINUE
END-IF
END-PERFORM.
DISPLAY WS-VARB.
STOP RUN.
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?
What is length is cobol?
Explain about different table spaces.
What are the different types of condition in cobol and write their forms.
Which division and paragraphs are mandatory for a COBOL program?
What guidelines should be followed to write a structured cobol prgm?
Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?
Which is not true about evaluate statement
What is the Purpose of Pointer in the string?
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
What rules are to be followed while using the corresponding options?
Explain what you understand by passing by value.
Program A (Normal COBBAT) calling a B Program (DB2COBOL, COBBATDB which is using a VSAM file. its a dynamic call. How we will handle VSAM file decleration in our from JCL from where we are running A PGM. And should we have PLAN for A pGM also. if possible can some one post a sample JCL. Thanks for help in advance.
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
What is the difference between binary search and sequential search?
