Discussion:
l with internal sort
(too old to reply)
afonso.jal.moreira@gmail.com [hercules-390]
2018-12-07 12:33:59 UTC
Permalink
good morning
Hi, i created a program in cobol with internal sort with input procedure and outro procedure, but when a decalre a jcl i dont know how must i declare the 'sortfile', i tried with sequecne file without file but alwaus have e aswer, problem with sort file allocation.


Can any friend help me


thanks in advance
afons
kerravon86@yahoo.com.au [hercules-390]
2018-12-07 13:23:59 UTC
Permalink
Post the JCL you are using and also the
exact error message in full.

BFN. Paul.



---In hercules-***@yahoogroups.com, <***@...> wrote :

good morning
Hi, i created a program in cobol with internal sort with input procedure and outro procedure, but when a decalre a jcl i dont know how must i declare the 'sortfile', i tried with sequecne file without file but alwaus have e aswer, problem with sort file allocation.


Can any friend help me


thanks in advance
afons
kerravon86@yahoo.com.au [hercules-390]
2018-12-07 18:13:08 UTC
Permalink
Afonso contacted me off-list and I was
able to resolve the problem.

His JCL had X.PDS.MEMBER instead
of X.PDS(MEMBER)

BFN. Paul.

Robert Prins robert.ah.prins@gmail.com [hercules-390]
2018-12-07 15:43:35 UTC
Permalink
You're much better off asking general z/OS questions on
http://www.ibmmainframeforum.com/

Robert
Post by ***@gmail.com [hercules-390]
good morning
Hi, i created a program in cobol with internal sort with input procedure
and outro procedure, but when a decalre a jcl i dont know how must i
declare the 'sortfile', i tried with sequecne file without file but alwaus
have e aswer, problem with sort file allocation.
Can any friend help me
thanks in advance
afons
--
Robert AH Prins
robert(a)prino(d)org
Some programming @ <https://prino.neocities.org/zOS/zOS-Tools.html>
'Jeremy Nicoll' yahgrp87@letterboxes.org [hercules-390]
2018-12-07 14:47:05 UTC
Permalink
Post by ***@gmail.com [hercules-390]
good morning
Hi, i created a program in cobol with internal sort with input
procedure and outro procedure, but when a decalre a jcl i dont know how
must i declare the 'sortfile', i tried with sequecne file without file
but alwaus have e aswer, problem with sort file allocation.
I'd suggest you show us the bits of the COBOL program that define the input
and output files (is that DATA DIVISION?? I can't remember), then show us
the JCL you think you need to run the program. I'm sure someone will then
be able to tell you what needs changed/added.

Otherwise, your question is too vague. No-one knows what you've already
tried, and what hapenned.
--
Jeremy Nicoll - my opinions are my own.
Gerhard Postpischil gerhardp@charter.net [hercules-390]
2018-12-07 14:48:50 UTC
Permalink
Post by ***@gmail.com [hercules-390]
Hi, i created a program in cobol with internal sort with input procedure
and outro procedure, but when a decalre a jcl i dont know how must i
declare the 'sortfile', i tried with sequecne file without file but
alwaus have e aswer, problem with sort file allocation.
The "SORTFILE" is completely up to your program, and there may not be
one depending on your output procedure. If you're talking about work
files, then the answer depends on the version of SORT you are using.

For the SORT that comes with MVT and MVS (e.g., the tk3 and tk4-
distributions, I use:

//SORTWK01 DD UNIT=2314,SPACE=(CYL,190),VOL=SER=SORT01
//SORTWK02 DD UNIT=2314,SPACE=(CYL,190),VOL=SER=SORT02
//SORTWK03 DD UNIT=2314,SPACE=(CYL,190),VOL=SER=SORT03
//SORTWK04 DD UNIT=2314,SPACE=(CYL,190),VOL=SER=SORT04
//SORTWK05 DD UNIT=2314,SPACE=(CYL,190),VOL=SER=SORT05
//SORTWK06 DD UNIT=2314,SPACE=(CYL,190),VOL=SER=SORT06

Depending on your work disks, a space of 199 should work also. I have
these disks marked private, and they are used for one sort at a time.

If you are using a newer SORT, say OS/390 or z/OS, your work files could
look like //SORTWKnn DD DISP=OLD,UNIT=nnnnn,VOL=SER=nnnnnn

Depending on your options, the newer sorts may allocate work space
dynamically.



Gerhard Postpischil
Bradford, VT


---
This email has been checked for viruses by AVG.
https://www.avg.com
Loading...