Re: COBOL400-L Digest, Vol 4, Issue 122

If the file being sorted is in the OPEN statement (external) yes.  If
it's an internal file it's not necessary.

It would be defined as "SD" rather than "FD", in the File-Description.

I have an short example below, but the IBM COBOL reference manual has
some very good examples.

file-control. 
select WKSFILE assign to disk-sortwrk. 

file section. 
sd WKSFILE. 
01 WKSrecd. 
05 wks-SDLITM pic x(25). 
05 wks-SDITM pic s9(08).

sort WKSFILE ascending wks-SDDOCO 
wks-SDRORN 
input procedure 100-Input thru 100-Exit
output procedure 200-Output thru 200-Exit

John Arnold
(301) 354-2939
jarnold@xxxxxxxxxxxxx


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of
cobol400-l-request@xxxxxxxxxxxx
Sent: Friday, November 17, 2006 1:00 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 4, Issue 122

Send COBOL400-L mailing list submissions to
        cobol400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
        cobol400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        cobol400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."


Today's Topics:

   1. Re:  question on sortwork file for internal sort...
      (MichaelQuigley@xxxxxxxxxx)


----------------------------------------------------------------------

message: 1
date: Thu, 16 Nov 2006 14:26:21 -0500
from: MichaelQuigley@xxxxxxxxxx
subject: Re: [COBOL400-L] question on sortwork file for internal
        sort...

OS/400 will take care of whatever is needed for a COBOL sort.  You don't

even need a CL to run the COBOL with a sort.  (Although I'm sure there
are 
other reasons you might be using a CL.)

cobol400-l-bounces@xxxxxxxxxxxx wrote on 11/16/2006 01:00:03 PM:

date: Thu, 16 Nov 2006 05:46:37 -0500
from: "Michael Rosinger" <mrosinger@xxxxxxxxx>
subject: Re: [COBOL400-L] question on sortwork file for internal
   sort...

I appreciate all the responses. What, if any, special code needs to be

specified in the CL to support COBOL sort work files? Or is it 
"auto-magically" handled by the operating system?

-- 
Regards,

Michael Rosinger
Systems Programmer / DBA
Computer Credit, Inc.
640 West Fourth Street
Winston-Salem, NC  27101
336-761-1524
m rosinger at cciws dot com
"Michael Rosinger" <mrosinger@xxxxxxxxx> wrote in message 
news:mailman.800.1163609829.2629.cobol400-l@xxxxxxxxxxxxxxx

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?


-- 
Regards,

Michael Rosinger
Systems Programmer / DBA
Computer Credit, Inc.
640 West Fourth Street
Winston-Salem, NC  27101
336-761-1524
m rosinger at cciws dot com

------------------------------

-- 
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest

list

To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.



End of COBOL400-L Digest, Vol 4, Issue 121
******************************************

------------------------------