HP3000-L Archives

July 2007, Week 5

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Eric Sand <[log in to unmask]>
Reply To:
Eric Sand <[log in to unmask]>
Date:
Mon, 30 Jul 2007 16:40:13 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (74 lines)
Hi Folks,
     I've always used the following format to indicate to the compiler 
(and MPE/iX) my anticipated sort number via the following format:

INPUT-OUTPUT SECTION
FILE-CONTROL.
     SELECT SORT-FILE ASSIGN TO "SORT-FILE-IN,,,,50000".


     I hope I remembered the correct construction, but it was with  
four(4) commas(,) and then the max number of records.
     I did some research once on using a system recognized file name  
in a file statement such as "SORTFILE;disc=50000"....etc, and I can't  
remember the outcome, but I did get it to work.

     Darn, the bridge between those last two brain cells is getting  
shaky...




              Eric Sand



Begin forwarded message:

> From: Duane Percox <[log in to unmask]>
> Date: July 30, 2007 9:46:58 AM PDT
> To: [log in to unmask]
> Subject: Re: [HP3000-L] COBOL Sort Max Recs
> Reply-To: Duane Percox <[log in to unmask]>
>
> Walter 'who should know' wrote:
>
> [snip]
>
>> If you don't specify the maximum number of records, the default is
>> 10,000.
>
> My experience has shown that if you use the form of SELECT where you
> specify
> a file name in quotes like this:
>
> INPUT-OUTPUT SECTION.
> FILE-CONTROL.
>     SELECT INPUT-FILE ASSIGN TO "TOMYPROG".
>     SELECT SORT-FILE  ASSIGN TO "TMMYPROG".
>
> Then you get a default of 10,000 records.
>
> However, if you use this form of the SELECT:
>
> INPUT-OUTPUT SECTION.
> FILE-CONTROL.
>     SELECT INPUT-FILE ASSIGN USING WS-INPUT-FILENAME.
>     SELECT SORT-FILE  ASSIGN USING WS-SORT-FILENAME.
>
> Then you get a default of 1023 records.
>
> And since the perfect person to fix this is now working behind bars  
> I'm
> not
> sure it will ever be changed :-)
>
> duane
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2