Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Is this a general problem with TK5 that makes it difficult to use cobol/sort/merge or have Rob Prince made a different solution with the new DASD's?in TK5.
It seems you have followed the steps to add these sort DASD correctly. The adding of these files to the TK5 config is also needed but you may already have done this. If so I think Rob can help you with?this better than anyone.
---------------------------------------- Dagfinn
On Wed, 28 Feb 2024 at 13:20, Frank D. Engel, Jr. < fde101@...> wrote:
I decided to go through the exercise of trying to add these
volumes to my TK5 installation.
I was able to successfully add the VTOC to the six volumes using
ICKDSF, and was able to vary the volumes online, but they are
refusing to mount.
I updated VATLST00 within SYS1.PARMLIB to define the new volumes:
SORT* ,0,2,2314??? ,N????????????????? Sortwork space
After stopping and restarting MVS, I do not see these in VATLST01
(not sure if I need to manually add them there as well or where
that gets updated?), and the volumes are not mounted.
After varying them online, the mount attempt:
m 331,vol=(sl,sort01),use=private
results in:
12.59.55 STC? 303? IEF403I MOUNT - STARTED - TIME=12.59.55?? ?
12.59.55 STC? 303? IEF503I INCORRECT VOLUME LABEL OR I/O ERROR
12.59.55 STC? 303? IEF234E D 331???????????????????????????? ?
12.59.55 STC? 303 *IEF233A M 331,SORT01,,MOUNT,331?????????? ?
13.03.24?????????? IGF991E? MOUNT PENDING FOR DEVICE 331?????
Here is an example of how I wrote the VTOC:
//INITS01 EXEC PGM=ICKDSF,REGION=4096K???????????????????????? ?
//SYSPRINT DD SYSOUT=*???????????????????????????????????????? ?
//SYSIN??? DD *??????????????????????????????????????????????? ?
? INIT UNITADDRESS(331) NOVERIFY VOLID(SORT01) OWNER(HERCULES) -
?????????????? VTOC(0,1,19)??????????????????????????????????? ?
/*?????????????????????????????????????????????????????????????
When I perform a "d u" command I am only seeing devices listed
through 153, which makes me wonder if the 331-336 definitions were
not included with the TK5 sysgen?
If that is the case, how would I go about adding them?? I can
find instructions online for doing an MVS 3.8j sysgen from
scratch, but not for how to update it afterward.
Or am I missing something else?
On 2/28/24 04:42, Frank D. Engel, Jr.
wrote:
Did you create the 2314 DASD volumes you are asking it to use?
SORT01, SORT02, etc. do not exist in the TK5 distribution as
shipped.
On 2/28/24 02:43, Dagfinn Hammar
wrote:
If i run this without the GO,SORTDD?statement?i
get the following error:
+IER036I - B = ? 90 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
+IER037I - G = ?2488 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER038I - NMAX = ? 88920 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER046A - SORT CAPACITY EXCEEDED ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER066A - APROX RCD CNT 0089011 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IKF888I UNSUCCESSFUL SORT FOR SORTDA ? ? ? ? ? ? ? ? ? ? ?
+IEW1991 ERROR - USER PROGRAM HAS ABNORMALLY TERMINATED ? ?
IEF450I HERC0101 GO STEP06 - ABEND S0C4 U0000 - TIME=08.39.4
HERC0101 ? STEP06 ? ?GO ? ? ? ?LOADER ? ?AB S0C4 ? ? ? ? ? ?
IEF404I HERC0101 -?
On Wed, 28 Feb 2024 at
08:35, Dagfinn Hammar via <dagfinndh33= [email protected]>
wrote:
Again - thank you for helping to solve this
task. I have made some progress but receive a message
about offline units needed. My jcl for cobol/sort and
messages from sysout-console:
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ?
? ? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ?
? ? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
// ? ? ? ? ? ?
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ?
? ? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ?
? ? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1
UNIT(S) ?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ?
? ?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ?
? ?
IEF247I HERC0101 -
130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 -
232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 -
23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ?
? ?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ?
? ?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
??
So if you see any obvious corrections feel fre to
comment.
----------------------------------------
Dagfinn D. Hammar?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ?
? ?? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ?
? ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ?
? ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ?
? ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?
//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG),
to supply missing DDNAMES you have to put in the
stepname...
Also, MVT COBOL sort routine cannot use extents
on a volume, so code a really big value for the
primary, cause thats all you'll get.
I THINK that sortlib is right, but you can
check it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
I decided to go through the exercise of trying to add these
volumes to my TK5 installation.
I was able to successfully add the VTOC to the six volumes using
ICKDSF, and was able to vary the volumes online, but they are
refusing to mount.
I updated VATLST00 within SYS1.PARMLIB to define the new volumes:
SORT* ,0,2,2314??? ,N????????????????? Sortwork space
After stopping and restarting MVS, I do not see these in VATLST01
(not sure if I need to manually add them there as well or where
that gets updated?), and the volumes are not mounted.
After varying them online, the mount attempt:
m 331,vol=(sl,sort01),use=private
results in:
12.59.55 STC? 303? IEF403I MOUNT - STARTED - TIME=12.59.55?? ?
12.59.55 STC? 303? IEF503I INCORRECT VOLUME LABEL OR I/O ERROR
12.59.55 STC? 303? IEF234E D 331???????????????????????????? ?
12.59.55 STC? 303 *IEF233A M 331,SORT01,,MOUNT,331?????????? ?
13.03.24?????????? IGF991E? MOUNT PENDING FOR DEVICE 331?????
Here is an example of how I wrote the VTOC:
//INITS01 EXEC PGM=ICKDSF,REGION=4096K???????????????????????? ?
//SYSPRINT DD SYSOUT=*???????????????????????????????????????? ?
//SYSIN??? DD *??????????????????????????????????????????????? ?
? INIT UNITADDRESS(331) NOVERIFY VOLID(SORT01) OWNER(HERCULES) -
?????????????? VTOC(0,1,19)??????????????????????????????????? ?
/*?????????????????????????????????????????????????????????????
When I perform a "d u" command I am only seeing devices listed
through 153, which makes me wonder if the 331-336 definitions were
not included with the TK5 sysgen?
If that is the case, how would I go about adding them?? I can
find instructions online for doing an MVS 3.8j sysgen from
scratch, but not for how to update it afterward.
Or am I missing something else?
On 2/28/24 04:42, Frank D. Engel, Jr.
wrote:
toggle quoted message
Show quoted text
Did you create the 2314 DASD volumes you are asking it to use?
SORT01, SORT02, etc. do not exist in the TK5 distribution as
shipped.
On 2/28/24 02:43, Dagfinn Hammar
wrote:
If i run this without the GO,SORTDD?statement?i
get the following error:
+IER036I - B = ? 90 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
+IER037I - G = ?2488 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER038I - NMAX = ? 88920 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER046A - SORT CAPACITY EXCEEDED ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER066A - APROX RCD CNT 0089011 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IKF888I UNSUCCESSFUL SORT FOR SORTDA ? ? ? ? ? ? ? ? ? ? ?
+IEW1991 ERROR - USER PROGRAM HAS ABNORMALLY TERMINATED ? ?
IEF450I HERC0101 GO STEP06 - ABEND S0C4 U0000 - TIME=08.39.4
HERC0101 ? STEP06 ? ?GO ? ? ? ?LOADER ? ?AB S0C4 ? ? ? ? ? ?
IEF404I HERC0101 -?
On Wed, 28 Feb 2024 at
08:35, Dagfinn Hammar via <dagfinndh33= [email protected]>
wrote:
Again - thank you for helping to solve this
task. I have made some progress but receive a message
about offline units needed. My jcl for cobol/sort and
messages from sysout-console:
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ?
? ? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ?
? ? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
// ? ? ? ? ? ?
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ?
? ? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ?
? ? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1
UNIT(S) ?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ?
? ?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ?
? ?
IEF247I HERC0101 -
130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 -
232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 -
23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ?
? ?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ?
? ?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
??
So if you see any obvious corrections feel fre to
comment.
----------------------------------------
Dagfinn D. Hammar?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ?
? ?? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ?
? ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ?
? ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ?
? ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?
//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG),
to supply missing DDNAMES you have to put in the
stepname...
Also, MVT COBOL sort routine cannot use extents
on a volume, so code a really big value for the
primary, cause thats all you'll get.
I THINK that sortlib is right, but you can
check it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Hi again I had to dig into this strange error message. So I went to our beloved cobol-74 manual and started reading about sort/merge statements. I read the example program in the manual and after a few tries was able to do a sort and print/display console without any problems.
So I went back to my original?program and did some bug-hunting and now it runs as it should.
Thanks again for?the?needed info and feedback.?
------------------------------ Dagfinn
On Wed, 28 Feb 2024 at 11:32, Dagfinn Hammar via <dagfinndh33= [email protected]> wrote: Hi I am running this on my TK4 instance. The sort01-06?are in the dasd directory. So I am a bit?confused and suspect there are some parameters missing i jcl/parm.
------------------------------ Dagfinn
On Wed, 28 Feb 2024 at 10:43, Frank D. Engel, Jr. < fde101@...> wrote:
Did you create the 2314 DASD volumes you are asking it to use?
SORT01, SORT02, etc. do not exist in the TK5 distribution as
shipped.
On 2/28/24 02:43, Dagfinn Hammar wrote:
If i run this without the GO,SORTDD?statement?i get
the following error:
+IER036I - B = ? 90 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER037I - G = ?2488 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER038I - NMAX = ? 88920 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER046A - SORT CAPACITY EXCEEDED ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER066A - APROX RCD CNT 0089011 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IKF888I UNSUCCESSFUL SORT FOR SORTDA ? ? ? ? ? ? ? ? ? ? ?
+IEW1991 ERROR - USER PROGRAM HAS ABNORMALLY TERMINATED ? ?
IEF450I HERC0101 GO STEP06 - ABEND S0C4 U0000 - TIME=08.39.4
HERC0101 ? STEP06 ? ?GO ? ? ? ?LOADER ? ?AB S0C4 ? ? ? ? ? ?
IEF404I HERC0101 -?
On Wed, 28 Feb 2024 at 08:35,
Dagfinn Hammar via <dagfinndh33= [email protected]>
wrote:
Again - thank you for helping to solve this
task. I have made some progress but receive a message about
offline units needed. My jcl for cobol/sort and messages
from sysout-console:
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ?
? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ? ?
? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ? ?
? ? ? ? ?
// ? ? ? ? ? ?
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ? ?
? ? ? ? ?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ?
? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ?
? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1 UNIT(S)
?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ? ?
?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ? ?
?
IEF247I HERC0101 -
130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 -
232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 -
23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ? ?
?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ? ?
?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
??
So if you see any obvious corrections feel fre to
comment.
----------------------------------------
Dagfinn D. Hammar?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ? ?
?? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ? ?
? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ? ?
? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ? ?
? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?
//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG), to
supply missing DDNAMES you have to put in the
stepname...
Also, MVT COBOL sort routine cannot use extents
on a volume, so code a really big value for the
primary, cause thats all you'll get.
I THINK that sortlib is right, but you can check
it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Hi I am running this on my TK4 instance. The sort01-06?are in the dasd directory. So I am a bit?confused and suspect there are some parameters missing i jcl/parm.
------------------------------ Dagfinn
On Wed, 28 Feb 2024 at 10:43, Frank D. Engel, Jr. < fde101@...> wrote:
Did you create the 2314 DASD volumes you are asking it to use?
SORT01, SORT02, etc. do not exist in the TK5 distribution as
shipped.
On 2/28/24 02:43, Dagfinn Hammar wrote:
If i run this without the GO,SORTDD?statement?i get
the following error:
+IER036I - B = ? 90 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER037I - G = ?2488 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER038I - NMAX = ? 88920 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER046A - SORT CAPACITY EXCEEDED ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER066A - APROX RCD CNT 0089011 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IKF888I UNSUCCESSFUL SORT FOR SORTDA ? ? ? ? ? ? ? ? ? ? ?
+IEW1991 ERROR - USER PROGRAM HAS ABNORMALLY TERMINATED ? ?
IEF450I HERC0101 GO STEP06 - ABEND S0C4 U0000 - TIME=08.39.4
HERC0101 ? STEP06 ? ?GO ? ? ? ?LOADER ? ?AB S0C4 ? ? ? ? ? ?
IEF404I HERC0101 -?
On Wed, 28 Feb 2024 at 08:35,
Dagfinn Hammar via <dagfinndh33= [email protected]>
wrote:
Again - thank you for helping to solve this
task. I have made some progress but receive a message about
offline units needed. My jcl for cobol/sort and messages
from sysout-console:
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ?
? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ? ?
? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ? ?
? ? ? ? ?
// ? ? ? ? ? ?
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ? ?
? ? ? ? ?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ?
? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ?
? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1 UNIT(S)
?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ? ?
?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ? ?
?
IEF247I HERC0101 -
130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 -
232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 -
23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ? ?
?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ? ?
?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
??
So if you see any obvious corrections feel fre to
comment.
----------------------------------------
Dagfinn D. Hammar?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ? ?
?? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ? ?
? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ? ?
? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ? ?
? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?
//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG), to
supply missing DDNAMES you have to put in the
stepname...
Also, MVT COBOL sort routine cannot use extents
on a volume, so code a really big value for the
primary, cause thats all you'll get.
I THINK that sortlib is right, but you can check
it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Did you create the 2314 DASD volumes you are asking it to use?
SORT01, SORT02, etc. do not exist in the TK5 distribution as
shipped.
On 2/28/24 02:43, Dagfinn Hammar wrote:
toggle quoted message
Show quoted text
If i run this without the GO,SORTDD?statement?i get
the following error:
+IER036I - B = ? 90 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER037I - G = ?2488 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER038I - NMAX = ? 88920 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER046A - SORT CAPACITY EXCEEDED ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER066A - APROX RCD CNT 0089011 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IKF888I UNSUCCESSFUL SORT FOR SORTDA ? ? ? ? ? ? ? ? ? ? ?
+IEW1991 ERROR - USER PROGRAM HAS ABNORMALLY TERMINATED ? ?
IEF450I HERC0101 GO STEP06 - ABEND S0C4 U0000 - TIME=08.39.4
HERC0101 ? STEP06 ? ?GO ? ? ? ?LOADER ? ?AB S0C4 ? ? ? ? ? ?
IEF404I HERC0101 -?
On Wed, 28 Feb 2024 at 08:35,
Dagfinn Hammar via <dagfinndh33= [email protected]>
wrote:
Again - thank you for helping to solve this
task. I have made some progress but receive a message about
offline units needed. My jcl for cobol/sort and messages
from sysout-console:
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ?
? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ? ?
? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ? ?
? ? ? ? ?
// ? ? ? ? ? ?
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ? ?
? ? ? ? ?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ?
? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ?
? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1 UNIT(S)
?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ? ?
?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ? ?
?
IEF247I HERC0101 -
130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 -
232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 -
23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ? ?
?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ? ?
?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
??
So if you see any obvious corrections feel fre to
comment.
----------------------------------------
Dagfinn D. Hammar?
//GO.SORTWK01 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?
//GO.SORTWK02 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ? ?
?? ?
//GO.SORTWK03 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ? ?
? ? ?
//GO.SORTWK04 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ? ?
? ? ?
//GO.SORTWK05 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ? ?
? ? ?
//GO.SORTWK06 DD
?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?
//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG), to
supply missing DDNAMES you have to put in the
stepname...
Also, MVT COBOL sort routine cannot use extents
on a volume, so code a really big value for the
primary, cause thats all you'll get.
I THINK that sortlib is right, but you can check
it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
If i run this without the GO,SORTDD?statement?i get the following error: +IER036I - B = ? 90 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER037I - G = ?2488 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER038I - NMAX = ? 88920 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER046A - SORT CAPACITY EXCEEDED ? ? ? ? ? ? ? ? ? ? ? ? ?
+IER066A - APROX RCD CNT 0089011 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
+IKF888I UNSUCCESSFUL SORT FOR SORTDA ? ? ? ? ? ? ? ? ? ? ?
+IEW1991 ERROR - USER PROGRAM HAS ABNORMALLY TERMINATED ? ?
IEF450I HERC0101 GO STEP06 - ABEND S0C4 U0000 - TIME=08.39.4
HERC0101 ? STEP06 ? ?GO ? ? ? ?LOADER ? ?AB S0C4 ? ? ? ? ? ?
IEF404I HERC0101 -?
On Wed, 28 Feb 2024 at 08:35, Dagfinn Hammar via <dagfinndh33= [email protected]> wrote: Again - thank you for helping to solve this task. I have made some progress but receive a message about offline units needed. My jcl for cobol/sort and messages from sysout-console: /* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ? DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTWK01 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ? ? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ? ? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1 UNIT(S) ?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ? ? ?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ? ? ?
IEF247I HERC0101 - 130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 - 232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 - 23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ? ? ?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ? ? ?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
So if you see any obvious corrections feel fre to comment.
---------------------------------------- Dagfinn D. Hammar?
//GO.SORTWK01 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?//GO.SORTWK02 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ? ? ?? ?//GO.SORTWK03 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ? ? ? ? ?//GO.SORTWK04 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ? ? ? ? ?//GO.SORTWK05 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ? ? ? ? ?//GO.SORTWK06 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG), to supply missing DDNAMES you have to put in the stepname...
Also, MVT COBOL sort routine cannot use extents on a volume, so code a really big value for the primary, cause thats all you'll get.
I THINK that sortlib is right, but you can check it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Again - thank you for helping to solve this task. I have made some progress but receive a message about offline units needed. My jcl for cobol/sort and messages from sysout-console: /* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTLIB ?DD DSNAME=SYS1.SORTLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSUDUMP DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTDD ? DD DSNAME=HERC01.TEST.SORT.FILE, ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ? DISP=(NEW,PASS,DELETE), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ? DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ?
// ? ? ? ? ? ? UNIT=SORT,SPACE=(TRK,(200,1)) ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTWK01 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01 ? ? ?
//GO.SORTWK02 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02 ? ? ?
//GO.SORTWK03 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ?
//GO.SORTWK04 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ?
//GO.SORTWK05 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ?
//GO.SORTWK06 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ? ? ?
//GO.SYSOUT ? DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ? ? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ? ? ? ? ? ?
IEF244I HERC0101 GO STEP06 - UNABLE TO ALLOCATE 1 UNIT(S) ?
? ? ? ? AT LEAST 1 OFFLINE UNIT(S) NEEDED. ? ? ? ? ? ? ? ? ?
IEF489I HERC0101 - 1 UNIT(S) NEEDED FOR SORTDD ? ? ? ? ? ? ?
IEF247I HERC0101 - 130,137,138,139,13A,13B,13C,13D,13E,13F,2
IEF247I HERC0101 - 232,233,234,235,236,237,238,239,23A,23B,2
IEF247I HERC0101 - 23E,23F,330,331,332,333,334,335,336,337,3
IEF247I HERC0101 - 33A,33B,33C,33D,33E,33F OFFLINE ? ? ? ? ?
01 IEF238D HERC0101 - REPLY DEVICE NAME OR 'CANCEL'. ? ? ? ?
R 01,CANCEL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
So if you see any obvious corrections feel fre to comment.
---------------------------------------- Dagfinn D. Hammar?
//GO.SORTWK01 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?//GO.SORTWK02 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ? ? ?? ?//GO.SORTWK03 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ? ? ? ? ?//GO.SORTWK04 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ? ? ? ? ?//GO.SORTWK05 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ? ? ? ? ?//GO.SORTWK06 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG), to supply missing DDNAMES you have to put in the stepname...
Also, MVT COBOL sort routine cannot use extents on a volume, so code a really big value for the primary, cause thats all you'll get.
I THINK that sortlib is right, but you can check it.
Joe
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
//GO.SORTWK01 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT01? ?? ?//GO.SORTWK02 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT02? ? ? ? ? ? ?? ?//GO.SORTWK03 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT03 ? ? ? ? ? ? ? ?//GO.SORTWK04 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT04 ? ? ? ? ? ? ? ?//GO.SORTWK05 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT05 ? ? ? ? ? ? ? ?//GO.SORTWK06 DD ?UNIT=2314,SPACE=(TRK,(200,1)),VOL=SER=SORT06 ?//GO.SORTLIB ? ? DD ? DSN=SYS1.SORTLIB,DISP=SHR
When dealing with a PROC (LIKE COBUCG), to supply missing DDNAMES you have to put in the stepname...
Also, MVT COBOL sort routine cannot use extents on a volume, so code a really big value for the primary, cause thats all you'll get.
I THINK that sortlib is right, but you can check it.
Joe
|
Re: Cross Memory Address space data exchange/communication
Hi, Mike, In the case of VM/370, you could use VMCF to communicate between virtual machines.? For MVS, look here: ? ? /g/INTERCOMM? Page down below the nice data center picture to read about INTERCOMM, a CICS-like transaction processing system that was popular in the 1970s to early this century.? INTERCOMM had its own equivalent of CICS "MRO" (Multi-Region Option).? We have the source code for all of INTERCOMM, so you could possibly study that code to see how they did it. The "classic" way this was done, that I recall from the late 1970s, (on MVS 3.7), was that an APF authorized program that could run in supervisor state, key zero (via MODESET) and could then issue a SCHEDULE macro to schedule an "SRB" (service request block) to run in another address space.?? So, for example, you might issue a GETMAIN in CSA, then copy the data you want to send into that buffer, then schedule an SRB into the target address space, and the SRB could then notify the application there to go and look in that CSA buffer, where it can copy the data from.? ?Typically an SRB would POST an ECB in the target address space via a branch entry to POST. (SRBs are meant to be short run-to-completion tasks, so just have an SRB notify some other program already running in TCB mode in the target address space to actually do all the "work." In later releases of MVS, MVS/SE and MVS/SP and above, you have options such as "cross-memory POST" (XMPOST) that uses the SRBs under the covers for you.? ? You need to know the ASID (address space ID) of the target address space. If you search the CBT tapes at CBTtape.org you may find several examples of using such cross-memory techniques.? So, if you look at this page: ? ??? and search for "cross memory" on that page, you can find some promising material to study further. Also on the CBTtape.org web site, you can find copies of many issues of the old XEPHON magazines -- for MVS, see: ? ? They have some articles about cross-memory services, as well, for example:
Cross memory mapping 159.49-57
Cross memory services 129.27-64
Cross memory services 219.63-71, 220.19-25
I hope that helps, Mark S. Waterbury ?
?
?
?
?
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
DagFinn:
Not quite ¨C
?
You do NOT need to pre-allocate any data sets in your step 3
Totally simply occupies space ¨C that will never be used.
?
In your STEP6
You will need to properly override the proc ¨C ?the rules for Proc override ¨C govern the ORDER of your override DD cards
?
Most people simply code all the cards with the GO. Prefix ¨C however, it is NOT required ¨C once the first card with the GO is processed ¨C all the following cards
will be in the GO step until something causes them to change¡ (rules for DD card override in JCL) ¨C in this case ¨C you are executing a PROC that has
A Cobol COMPILE (step COB and a GO ¨C Step GO ------------------------------------
//COBUCG PROC SOUT='*'?????????????????????????????? ????????????????????????????????????????????????????????|
//COB EXEC PGM=IKFCBL00,???????????????????????????? ???????????????????????????????????????????????????????|
//???????? PARM='LOAD,SIZE=2048K,BUF=1024K'????????? ???????????????????????????????????????????|
//SYSPRINT DD SYSOUT=&SOUT?????????????????????????? ???????????????????????????????????????????????????|
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100))???????? ?????????????????????????????????????|
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100))??????? ??????????????????????????????????????| ???????????????????
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100))???????? ?????????????????????????????????????|
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100))???????? ?????????????????????????????????????|
//SYSLIN DD DSNAME=&LOADSET,DISP=(MOD,PASS),???????? ???????????????????????????????|
//???????????? UNIT=SYSDA,SPACE=(80,(500,100))?????? ?????????????????????????????????????????????????|
//GO EXEC PGM=LOADER,PARM='MAP,LET',COND=(5,LT,COB)? ??<<<<<<<<<< ??the GO STEP??
//SYSLIN DD DSNAME=*.COB.SYSLIN,DISP=(OLD,DELETE)???
//SYSLOUT DD SYSOUT=&SOUT???????????????????????????
//SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR?????????????
?
So you will need ¨C
//STEP06 ? EXEC COBUCG, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? PARM.COB='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K' ? ? ? ? ? ?
//COB.SYSPUNCH¡. just as you have it¡
Your COB.SYSIN DD*??
/* the end of sysin
?
°Õ³ó±ð²Ô¡
//³Ò°¿.³§°¿¸é°Õ°Â°¿¸é°01¡..
//³Ò°¿.³§°¿°Â°Õ°Â°¿¸é°01¡.
¡.
¡.
ETC
//GO.SYSPRINT DD
//GO.OUT1? DD¡¡¡
//GO.OUT2 ?DD¡¡.
?
?
I am not sure why you have Go.SORTDA -? - - unless this is part of your imput or something ¡
?
-J-
?
Jeff Bassett
Bassettj@...
(301) 424-3362 (office)
(240) 388-7148 Cell
?
Time spent flying? - is
NOT deducted from one¡¯s lifespan
?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]>
On Behalf Of Dagfinn Hammar via groups.io
Sent: Tuesday, February 27, 2024 5:59 PM
To: [email protected]
Subject: Re: [H390-MVS] COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
?
Thanks for all info. I have adjusted the source/jcl but still get the same message. I provide the jcl with the pre-allocated files on sort volumes. Happy for all info that can solve this.
//STEP03 ? EXEC PGM=IEFBR14 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//SEQDD ? ?DD DSN=HERC01.TEST.FILE00W1,DISP=(NEW,CATLG,DELETE), ? ? ? ?
// ? ? ? ? ? ?SPACE=(TRK,(15,5)), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?UNIT=SORT, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ? ? ?
// ? ? ? ? ? ?VOL=SER=SORT01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? DD DSN=HERC01.TEST.FILE00W2,DISP=(NEW,CATLG,DELETE), ? ? ? ?
// ? ? ? ? ? ?SPACE=(TRK,(15,5)), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?UNIT=SORT, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ? ? ?
// ? ? ? ? ? ?VOL=SER=SORT02 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? DD DSN=HERC01.TEST.FILE00W3,DISP=(NEW,CATLG,DELETE), ? ? ? ?
// ? ? ? ? ? ?SPACE=(TRK,(15,5)), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?UNIT=SORT, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ? ? ?
// ? ? ? ? ? ?VOL=SER=SORT03 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?Line(s) excluded ?
//*** ?
//STEP06 ? EXEC COBUCG, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? PARM.COB='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K' ? ? ? ? ? ?
//COB.SYSPUNCH DD DUMMY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//SORTWK01 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT01 ? ? ? ? ? ? ?
//SORTWK02 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT02 ? ? ? ? ? ? ?
//SORTWK03 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT03 ? ? ? ? ? ? ?
//SORTWK04 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT04 ? ? ? ? ? ? ?
//SORTWK05 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT05 ? ? ? ? ? ? ?
//SORTWK06 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT06 ? ? ? ? ? ? ?
//COB.SYSIN ? ?DD * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ? ?Line(s) excluded ?
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSOUT ? DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100) ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
//GO.OUT2 ? ? DD DSN=HERC01.TEST.FILE00ZZ,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTDA ? DD DSN=HERC01.TEST.FILE00W1,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DD DSN=HERC01.TEST.FILE00W2,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DD DSN=HERC01.TEST.FILE00W3,DISP=SHR? ? ? ? ? ? ? ? ? ? ??
----------------------------------
?
Sort from the MVT Cobol compiler only works on 2311/2314 disks.
?
On Tue, Feb 27, 2024 at 12:47?PM Jeff Bassett <bassettj@...> wrote:
Joe,
Has Sort been corrected to work in TK5 ¨C we do NOT have 2311 or 2314 disks in the TK5 distribution
?
?
-J-
?
Jeff Bassett
Bassettj@...
(301) 424-3362 (office)
(240) 388-7148 Cell
?
Time spent flying? - is
NOT deducted from one¡¯s lifespan
?
From:
[email protected] <[email protected]>
On Behalf Of Joe Monk via
Sent: Tuesday, February 27, 2024 1:43 PM
To: [email protected]
Subject: Re: [H390-MVS] COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
?
?
?
Hi
Is there a solution for this error. Is there a jcl setup for cobol sort compile jobs?
HERC0101? ?STEP04? ? ? ? ? ? ? IEFBR14? ?RC= 0000? ? ?
HERC0101? ?STEP05? ? ? ? ? ? ? IEBGENER? RC= 0000? ? ?
HERC0101? ?STEP06? ? COB? ? ? ?IKFCBL00? RC= 0000? ? ?
+IER040A - INSUFFICIENT WORK UNITS? ? ? ? ? ? ? ? ? ??
+IKF888I UNSUCCESSFUL SORT FOR WORK? ? ? ? ? ? ? ? ? ?
HERC0101? ?STEP06? ? GO? ? ? ? LOADER? ? RC= 0000? ?
----------------------------------------------------
Dagfinn D. Hammar?
|
Re: SYSLOG piles up in JES2 - no output to release
That indeed worked like a charm.
Thank you!
kind regards
Michael
--
TK4- on virtual x86 Ubuntu LTS 22.04
VM/370 on virtual x86 Ubuntu LTS 22.04
Die Katze l?sst das Mausen nicht,
Die Jungfern bleiben Coffeeschwestern.
Die Mutter liebt den Coffee Brauch,
Die Gro?mama trank solchen auch.
Wer will da auf die T?chter l?stern?
J.S.Bach "Kaffee-Kantate" (BWV 211)
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Thanks for all info. I have adjusted the source/jcl but still get the same message. I provide the jcl with the pre-allocated files on sort volumes. Happy for all info that can solve this.
//STEP03 ? EXEC PGM=IEFBR14 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//SEQDD ? ?DD DSN=HERC01.TEST.FILE00W1,DISP=(NEW,CATLG,DELETE), ? ? ? ?
// ? ? ? ? ? ?SPACE=(TRK,(15,5)), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?UNIT=SORT, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ? ? ?
// ? ? ? ? ? ?VOL=SER=SORT01 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? DD DSN=HERC01.TEST.FILE00W2,DISP=(NEW,CATLG,DELETE), ? ? ? ?
// ? ? ? ? ? ?SPACE=(TRK,(15,5)), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?UNIT=SORT, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ? ? ?
// ? ? ? ? ? ?VOL=SER=SORT02 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? DD DSN=HERC01.TEST.FILE00W3,DISP=(NEW,CATLG,DELETE), ? ? ? ?
// ? ? ? ? ? ?SPACE=(TRK,(15,5)), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?UNIT=SORT, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800), ? ? ? ? ? ?
// ? ? ? ? ? ?VOL=SER=SORT03 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?Line(s) excluded ?
//*** ?
//STEP06 ? EXEC COBUCG, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? PARM.COB='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K' ? ? ? ? ? ?
//COB.SYSPUNCH DD DUMMY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//SORTWK01 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT01 ? ? ? ? ? ? ?
//SORTWK02 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT02 ? ? ? ? ? ? ?
//SORTWK03 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT03 ? ? ? ? ? ? ?
//SORTWK04 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT04 ? ? ? ? ? ? ?
//SORTWK05 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT05 ? ? ? ? ? ? ?
//SORTWK06 DD ?UNIT=2314,SPACE=(CYL,(5,5)),VOL=SER=SORT06 ? ? ? ? ? ? ?
//COB.SYSIN ? ?DD * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ? ?Line(s) excluded ?
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//COB.SYSLIB ?DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.SYSOUT ? DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100) ? ? ?
//GO.SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//GO.INDD ? ? DD DSN=HERC01.TEST.FILE00XX,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
//GO.OUT1 ? ? DD DSN=HERC01.TEST.FILE00YY,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
//GO.OUT2 ? ? DD DSN=HERC01.TEST.FILE00ZZ,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
//GO.SORTDA ? DD DSN=HERC01.TEST.FILE00W1,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DD DSN=HERC01.TEST.FILE00W2,DISP=SHR ? ? ? ? ? ? ? ? ? ? ?
// ? ? ? ? ? ?DD DSN=HERC01.TEST.FILE00W3,DISP=SHR? ? ? ? ? ? ? ? ? ? ??
---------------------------------- Dagfinn D. Hammar
Sort from the MVT Cobol compiler only works on 2311/2314 disks.
Joe
On Tue, Feb 27, 2024 at 12:47?PM Jeff Bassett < bassettj@...> wrote:
Joe,
Has Sort been corrected to work in TK5 ¨C we do NOT have 2311 or 2314 disks in the TK5 distribution
?
?
-J-
?
Jeff Bassett
Bassettj@...
(301) 424-3362 (office)
(240) 388-7148 Cell
?
Time spent flying? - is
NOT deducted from one¡¯s lifespan
?
From: [email protected] <[email protected]>
On Behalf Of Joe Monk via
Sent: Tuesday, February 27, 2024 1:43 PM
To: [email protected]
Subject: Re: [H390-MVS] COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
?
?
?
Hi
Is there a solution for this error. Is there a jcl setup for cobol sort compile jobs?
HERC0101? ?STEP04? ? ? ? ? ? ? IEFBR14? ?RC= 0000? ? ?
HERC0101? ?STEP05? ? ? ? ? ? ? IEBGENER? RC= 0000? ? ?
HERC0101? ?STEP06? ? COB? ? ? ?IKFCBL00? RC= 0000? ? ?
+IER040A - INSUFFICIENT WORK UNITS? ? ? ? ? ? ? ? ? ??
+IKF888I UNSUCCESSFUL SORT FOR WORK? ? ? ? ? ? ? ? ? ?
HERC0101? ?STEP06? ? GO? ? ? ? LOADER? ? RC= 0000? ?
----------------------------------------------------
Dagfinn D. Hammar?
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Hi Dagfinn,
From the format of the message IER040A I can see that you are using the original OS/360 Sort/Merge program in your MVS system. The reference manual for this program is GC28-6543 OS 360 Sort/Merge and provides the information regarding required data sets for a successful invocation of Sort/Merge from a Cobol program. As remarked by other postings, this program only supports 2311 and 2314 DASD for SORTWKxx data sets.
Could I suggest you upgrade your MVS system to the TK5 level? TK5 has many benefits including OS/360 Sort/Merge for MVS 3.8 which replaces the old Sort/Merge program and is fully upward compatible with it. This new version supports all DASD models supported by MVS 3.8 including 3390 DASD. Further, OS/360 Sort/Merge for MVS 3.8 will also dynamically allocate SORTWKxx work data sets simplifying the JCL you need to provide for a sort operation.
Regards
Tom
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Sort from the MVT Cobol compiler only works on 2311/2314 disks.
Joe
On Tue, Feb 27, 2024 at 12:47?PM Jeff Bassett < bassettj@...> wrote:
Joe,
Has Sort been corrected to work in TK5 ¨C we do NOT have 2311 or 2314 disks in the TK5 distribution
?
?
-J-
?
Jeff Bassett
Bassettj@...
(301) 424-3362 (office)
(240) 388-7148 Cell
?
Time spent flying? - is
NOT deducted from one¡¯s lifespan
?
From: [email protected] <[email protected]>
On Behalf Of Joe Monk via
Sent: Tuesday, February 27, 2024 1:43 PM
To: [email protected]
Subject: Re: [H390-MVS] COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
?
?
?
Hi
Is there a solution for this error. Is there a jcl setup for cobol sort compile jobs?
HERC0101? ?STEP04? ? ? ? ? ? ? IEFBR14? ?RC= 0000? ? ?
HERC0101? ?STEP05? ? ? ? ? ? ? IEBGENER? RC= 0000? ? ?
HERC0101? ?STEP06? ? COB? ? ? ?IKFCBL00? RC= 0000? ? ?
+IER040A - INSUFFICIENT WORK UNITS? ? ? ? ? ? ? ? ? ??
+IKF888I UNSUCCESSFUL SORT FOR WORK? ? ? ? ? ? ? ? ? ?
HERC0101? ?STEP06? ? GO? ? ? ? LOADER? ? RC= 0000? ?
----------------------------------------------------
Dagfinn D. Hammar?
|
Re: SYSLOG piles up in JES2 - no output to release
On Tue, Feb 27, 2024 at 01:27 PM, Michael Grom wrote:
I noticed that quite recently, these SYSLOG entries do not seem to get discarded like other output. Any idea how to get rid of them?
Try to enter the JES2 command $p s1-9999 at the MVS console. It should purge some of these SYSLOG, if not immediately, then at the next IPL. Cheers, Rene FERLAND, Montreal
|
Cross Memory Address space data exchange/communication
Dear Forum,
I understand that programs/address spaces can exchange data/communicate with each other using common storage. What would be the best document to learn about how to do that?
kind regards
Michael
--
TK4- on virtual x86 Ubuntu LTS 22.04
VM/370 on virtual x86 Ubuntu LTS 22.04
Die Katze l?sst das Mausen nicht,
Die Jungfern bleiben Coffeeschwestern.
Die Mutter liebt den Coffee Brauch,
Die Gro?mama trank solchen auch.
Wer will da auf die T?chter l?stern?
J.S.Bach "Kaffee-Kantate" (BWV 211)
|
SYSLOG piles up in JES2 - no output to release
Gentlemen,
I noticed that quite recently, these SYSLOG entries do not seem to get discarded like other output. Any idea how to get rid of them?
kind regards
Michael
--
TK4- on virtual x86 cloud
VM/370 CE on virtual x86 cloud
Die Katze l?sst das Mausen nicht,
Die Jungfern bleiben Coffeeschwestern.
Die Mutter liebt den Coffee Brauch,
Die Gro?mama trank solchen auch.
Wer will da auf die T?chter l?stern?
J.S.Bach "Kaffee-Kantate" (BWV 211)
|
Re: HELP! How to return to MVS Console
I do as well, largely out of force of habit. Strictly speaking, the stopall isn't necessary, since QUIESCE loads a disabled wait state into all CPUs, but it's not a bad habit to get into. The main reason?to do the QUIESCE is to ensure that all I/O has been completed before stopping the system; merely stopping all processors does not guarantee that?(you may get unlucky and catch it with an I/O in flight).
Jay,
I always (well almost always)
z eod
quiesce
stopall
quit
(It is my understanding that quiesce ensures that MVS buffers are
written to the "hercules virtual buffers" and the stopall ensures that
hercules writes its buffers to the "Windows or Linux" emulated disk
files.).
Chris
--
?<cjar1950@...>
----------------------------------------------------------------------------------------------------------------------------------
On Tue, 27 Feb 2024 09:21:04 -0600
"Jay Maynard" <jaymaynard@...> wrote:
> If you've done $PJES2 and Z EOD, then you might as well reIPL anyway.
> QUIESCE and STOPALL are no different there.
>
> On Tue, Feb 27, 2024 at 9:16?AM Andre via <procritic=
> [email protected]> wrote:
>
> > Hi Robert,
> >
> > I always used stopall instead of quiesce, because i heard that after
> > quiesce restart is not possible.
> > But if you enter quiesce, then of course stopall is meaningless after that.
> > Is there any real advantages though?
> >
> > Best wishes,
> > Andre
> >
> >
> >
>
> --
> Jay Maynard
>
>
>
>
>
|
Re: HELP! How to return to MVS Console
Jay, I always (well almost always) z eod quiesce stopall quit (It is my understanding that quiesce ensures that MVS buffers are written to the "hercules virtual buffers" and the stopall ensures that hercules writes its buffers to the "Windows or Linux" emulated disk files.). Chris -- <cjar1950@...> ---------------------------------------------------------------------------------------------------------------------------------- On Tue, 27 Feb 2024 09:21:04 -0600 "Jay Maynard" <jaymaynard@...> wrote: If you've done $PJES2 and Z EOD, then you might as well reIPL anyway.
QUIESCE and STOPALL are no different there.
On Tue, Feb 27, 2024 at 9:16?AM Andre via groups.io <procritic=
[email protected]> wrote:
Hi Robert,
I always used stopall instead of quiesce, because i heard that after
quiesce restart is not possible.
But if you enter quiesce, then of course stopall is meaningless after that.
Is there any real advantages though?
Best wishes,
Andre
--
Jay Maynard
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Joe,
Has Sort been corrected to work in TK5 ¨C we do NOT have 2311 or 2314 disks in the TK5 distribution
?
?
-J-
?
Jeff Bassett
Bassettj@...
(301) 424-3362 (office)
(240) 388-7148 Cell
?
Time spent flying? - is
NOT deducted from one¡¯s lifespan
?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]>
On Behalf Of Joe Monk via groups.io
Sent: Tuesday, February 27, 2024 1:43 PM
To: [email protected]
Subject: Re: [H390-MVS] COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
?
?
?
Hi
Is there a solution for this error. Is there a jcl setup for cobol sort compile jobs?
HERC0101? ?STEP04? ? ? ? ? ? ? IEFBR14? ?RC= 0000? ? ?
HERC0101? ?STEP05? ? ? ? ? ? ? IEBGENER? RC= 0000? ? ?
HERC0101? ?STEP06? ? COB? ? ? ?IKFCBL00? RC= 0000? ? ?
+IER040A - INSUFFICIENT WORK UNITS? ? ? ? ? ? ? ? ? ??
+IKF888I UNSUCCESSFUL SORT FOR WORK? ? ? ? ? ? ? ? ? ?
HERC0101? ?STEP06? ? GO? ? ? ? LOADER? ? RC= 0000? ?
----------------------------------------------------
Dagfinn D. Hammar?
|
Jeff Bassett
Michael Grom
Ren¨¦ Ferland