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
- 11526 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 |
How can I tell if a module is being called DYNAMICALLY or STATICALLY?
How to read records in reverse order in flat file? I know we can do it by reading all records into an array.... Then read records in reverse order by using subscript or index but can any body give me the exact code.
i want to enter the name 'pandu' into ur table how?
What is a scope terminator? Give examples.
Can we move X(7) to S9(7) COMP?
what is the use of filler in cobol programing?
why occurs clause not mentioned in 01 level
6 Answers HCL, NIIT, TCS, Tesco,
In COBOL, what is the different between index and subscript?
0 Answers TryTechnicals Pvt Ltd,
i have n records in one file and in this file there is some fields and i want to count that how many sharma in my file so plz give the coding that how we read sharma ?
a pic s9(4) comp b pic s9(4) comp-3 c ???????????????? d ???????????????? move a to c add a+B giving d. what is ur declaration for c,d?
is this below syntax correct? CALL 'subprg' using A,B Please help
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?
COBOL 
