Closed MarcoAntonio1985 closed 9 months ago
I switched back to the default MCP and it worked as designed. TSS/MCP has a FS variable that regulates the timeshare batch environment. I didn't change the variable. I just went back to the default MCP.
Glad to hear that you got the program to work under the DC MCP.
I don't think that use of TSS/MCP or the setting of FS are the cause of your problem. Note that the error message you got was "#1 NO SORT MEM:01290 WDS RQD." It was the SORT intrinsic that ran out of memory, not the system.
In your program, you have "OBJECT-COMPUTER. B-5700. SORT MEMORY SIZE 2000 WORDS." I think the error message was telling you that the SORT needed another 1290 words in order to be able to function.
The amount of memory required by the sort depends on two things, the size of the records you are sorting and how fast you want the sort to run. The more memory it has to work with, the more records it can hold in core memory at a time, and the more partial sorting of records it can do in memory before it needs to write groups of partially-sorted records out to tape or disk. Thus the faster the sort can finish.
The default sort memory size is 12,000 words, which is probably too much for the TSS environment to handle. I'd suggest trying this again under TSS with memory size specified as 4,000 words. If that doesn't work, try increasing the size by 1,000 words at a time.
Dears
I'm having difficulty running a COBOL program that uses the SORT verb. The emulator configuration has all memory modules active. Even when I perform a halt/load, the MCP reports a lack of memory for SORT. Does anyone know if I'm making a mistake?
SPO:
CC EXECUTE FP0011/MARCO;END
4:FP0011/MARCO/SITE= 1 BOJ 0904
NO FIL FITAE 1:FP0011/MARCO= 1
1 IL MTB
MTB IN 0 FITAE 1:FP0011/MARCO= 1
01 NO SORT MEM:01290 WDS RQD
====================================================================================
LABEL 000000000OUTPT 00185130?COMPILE FP0011/MARCO WITH COBOL68 FOR LIBRARY COBOL68/FP0011
B - 5 7 0 0 C O D A S Y L - 6 8 C O B O L C O M P I L E R LEVEL XIII. 0. 0
WARNING 011:MUST START IN MARGIN A*** SOURCE-COMPUTER WWWWWWWW
WARNING 011:MUST START IN MARGIN A*** OBJECT-COMPUTER WWWWWWWW
WARNING 086:SEQUENCE ERROR*** 000218>000206 WWWWWWWW
WARNING 086:SEQUENCE ERROR*** 000218>000206 WWWWWWWW
WARNING 086:SEQUENCE ERROR*** 000214>000210 WWWWWWWW
WARNING 086:SEQUENCE ERROR*** 000215> WWWWWWWW
COMPILED OK
COMPILATION TIME = 13 SECONDS ELAPSED, 5 SECONDS PROCESSOR
TOTAL NUMBER INPUT IMAGES = 69
PRT SIZE = 42
TOTAL SEGMENT SIZE = 177 WORDS
DISK SIZE = 15 SEGMENTS
NUMBER OF PROGRAM SEGMENTS = 5
ESTIMATED CORE STORAGE = 6732 WORDS
LABEL 000000000OUTPT 00185130?COMPILE FP0011/MARCO WITH COBOL68 FOR LIBRARY COBOL68/FP0011