SELECT SORT-FILE ASSIGN TO DISK-SORT. DATA DIVISION. FILE SECTION. SD SORT-FILE. 01 SORT-REC. 05 SORT-KEY PIC 9(6). 05 SORT-RECORD PIC X(158). PROCEDURE DIVISION. SORT SORT-FILE ON ASCENDING KEY SORT-KEY INPUT PROCEDURE IS RELEASE-TO-SORT THRU RTS-EXIT OUTPUT PROCEDURE IS RETURN-FROM-SORT THRU RFS-EXIT. * -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Rosinger Sent: Wednesday, November 15, 2006 11:57 AM To: cobol400-l@xxxxxxxxxxxx Subject: [COBOL400-L] question on sortwork file for internal sort... List, I am busy writing my source filter program for converting COBOL programs from the mainframe to ILE/COBOL. Some questions please.... 1) Is it necessary to define a SELECT for the sortwork file for an internal COBOL SORT? 2) If #1 is yes, could someone provide an example of the SELECT and FD for the sortwork file? 3) If anyone out there is familiar with the differences between mainframe and iSeries concerning this, is there anything else I need to be aware of on this topic?
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.