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
- 11511 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / shekh
let me correct u Vaneesh.
we need to check each character. load the string to array & use condition.
perform para until eof
if ws-char (a) = ws-char (a + 1)
continue
else move ws-char (a) to ws-string (b).
define the variables accordingly.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / 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 |
Answer / adithya
//job card
//step1 exec pgm=sort
//sortin dd dsn=adi.in
//sortout dd sysout=*
//sysout dd sysout=*
//sysin dd *
sort fields=(1,15,ch,a)
sum fields=none
/*
| Is This Answer Correct ? | 2 Yes | 3 No |
Here I am considering INPUT to COBOL working storage
variable and not from file. (If it is input from file then
answer above by Adithya is right).
01 WS-INPUT PIC X(52) VALUE 'AABBCCDDEFGHIIJ.....ZZ'
05 WS-ALPHABET-INP PIC X OCCOURS 52 TIMES.
01 WS-OUPUT PIC X(26).
05 WS-ALPHABET-OUT PIC X OCCOURS 26 TIMES.
01 SUBSRIPTS
05 WS-SUBA PIC 9(2).
05 WS-SUBB PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING WS-SUBA FROM 2 BY 2 UNTIL WS-SUBA > 52
MOVE WS-ALPHABET(WS-SUBA) TO WS-ALPHABET-OUT(WS-SUBB)
ADD +1 TO WS-SUBB
END-PERFORM.
DISPLAY WS-OUPUT
STOP RUN.
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / venkat
use the sort procedure in cobol and if u want duplicates
kept with duplicates otherwise leave it ...
and ascending order..u now that one..
thank u
if it works reply me ..else
correct me..
| Is This Answer Correct ? | 0 Yes | 5 No |
Answer / subbu
We can eliminate the duplicates using sort.
please find the control card for sort.
sort fields = (starting position of field,length of the
field,data type,ascending or descending order)
sum fields=none
| Is This Answer Correct ? | 1 Yes | 7 No |
give the examples of strings in cobol
What is the difference between index and subscript?
What divisions, sections and paragraphs are mandatory for a COBOL program?
How do you code Cobol to access a parameter that has been defined in JCL?
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 do you mean by copybook? and what is the difference between the copybook which we are using in working storage and procedure division.
i want a program using by if, evaluate , string, unstring, perform, occurs?
What is the difference between CONTINUE & NEXT SENTENCE ?
In an EVALUTE statement is the order of the WHEN clauses significant?
I have a file it contain 10 records.i got abend at 8th record because of soc7.how do you know that perticular record got abend?
what is level 66 means??
I have a sequential file of 100 records. How do I load the records into a two dimensional array ?
COBOL 
