View previous topic :: View next topic
|
Author |
Message |
mf_karthik
New User
Joined: 26 Jul 2005 Posts: 55
|
|
|
|
Difference between line sequential and sequential?
what are the data types used in cobol?
there r 1000 records in a file. u have 2 read 10,20,30th records upto 1000 and write it into another file.
sort a file using bubble sort. |
|
Back to top |
|
|
parikshit123
Active User
Joined: 01 Jul 2005 Posts: 269 Location: India
|
|
|
|
Hi,
I think there is no difference between sequential and line sequential files.
there are three major categories of data types in COBOL.
NUMERIC, ALPHANUMERIC AND ALPHABETIC.
You can find bubble sort algorithm via googling its a very trivial sorting algorithm.
thanks,
Parikshit. |
|
Back to top |
|
|
parikshit123
Active User
Joined: 01 Jul 2005 Posts: 269 Location: India
|
|
|
|
Hi,
Here is a pseudocode for bubble sort.
Code: |
Working Storage Entries:
01 WS-BANKBRCH-TABLE.
05 WS-BANKBRCH-ENTRY OCCURS 1000 TIMES
INDEXED BY
X-WS-BB.
07 WS-BANKBRCH-9-16 PIC 9(16).
07 WS-BANKBRCH-9-16-R REDEFINES WS-BANKBRCH-9-16.
09 WS-BANKBRCH-FR PIC 9(08).
09 WS-BANKBRCH-FR-R REDEFINES WS-BANKBRCH-FR.
11 WS-BANK-FR PIC 9(04).
11 WS-BRCH-FR PIC 9(04).
09 WS-BANKBRCH-TO PIC 9(08).
09 WS-BANKBRCH-TO-R REDEFINES WS-BANKBRCH-TO.
11 WS-BANK-TO PIC 9(04).
11 WS-BRCH-TO PIC 9(04).
01 WS-BUBBLE-SORT-WORK.
05 WS-TIMES PIC S9(04) COMP VALUE ZEROS.
05 WS-NBR-TIMES PIC S9(04) COMP VALUE ZEROS.
05 WS-HOLD-ENTRY PIC X(16) VALUE LOW-VALUES.
05 WS-SWAP-OCCURRED PIC X(01) VALUE SPACE.
Procedure Code
MOVE 1 TO WS-TIMES.
MOVE 'Y' TO WS-SWAP-OCCURRED.
PERFORM UNTIL WS-SWAP-OCCURRED = 'N'
SET X-WS-BB TO 1
MOVE 'N' TO WS-SWAP-OCCURRED
COMPUTE WS-NBR-TIMES = 1000 - WS-TIMES
PERFORM WS-NBR-TIMES TIMES
IF WS-BANKBRCH-9-16 (X-WS-BB + 1) NOT = ZEROS
IF WS-BANKBRCH-FR (X-WS-BB) GREATER THAN
WS-BANKBRCH-FR (X-WS-BB + 1)
OR WS-BANKBRCH-9-16 (X-WS-BB) = ZEROS
MOVE WS-BANKBRCH-ENTRY (X-WS-BB)
TO WS-HOLD-ENTRY
MOVE WS-BANKBRCH-ENTRY (X-WS-BB + 1)
TO WS-BANKBRCH-ENTRY (X-WS-BB)
MOVE WS-HOLD-ENTRY TO
WS-BANKBRCH-ENTRY (X-WS-BB + 1)
MOVE 'Y' TO WS-SWAP-OCCURRED
END-IF
END-IF
SET X-WS-BB UP BY 1
END-PERFORM
ADD 1 TO WS-TIMES
END-PERFORM.
|
|
|
Back to top |
|
|
mf_karthik
New User
Joined: 26 Jul 2005 Posts: 55
|
|
|
|
thank you parikshit for your answers could you plz explain abt bubble sort?
there r 1000 records in a file. u have 2 read 10,20,30th records upto 1000 and write it into another file need cobol logic anybody plzzzz |
|
Back to top |
|
|
|