|
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?
|
+IER040A - INSUFFICIENT WORK UNITS
+IKF888I UNSUCCESSFUL SORT FOR WORK Add sort work dd statements. On Tue, Feb 27, 2024 at 10:30?AM Dagfinn Hammar <dagfinndh33@...> wrote:
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
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all?
|
Joe
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?
|
toggle quoted message
Show quoted text
Joe
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?
|
Joe,
Has Sort been corrected to work in TK5 – 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?
|
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 – 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?
|
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
|
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 – 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?
|
DagFinn:
Not quite –
?
You do NOT need to pre-allocate any data sets in your step 3
Totally simply occupies space – that will never be used.
?
In your STEP6
You will need to properly override the proc – ?the rules for Proc override – govern the ORDER of your override DD cards
?
Most people simply code all the cards with the GO. Prefix – however, it is NOT required – once the first card with the GO is processed – all the following cards
will be in the GO step until something causes them to change… (rules for DD card override in JCL) – in this case – you are executing a PROC that has
A Cobol COMPILE (step COB and a GO – 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 –
//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 – 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?
|
//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
|
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
|
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
|
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
|
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
|
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
|
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
|
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
|
Yes, the DASD are listed in the Hercules config file as well as
(since I am running under VM) the VM directory for the MVS virtual
machine.
No problems there as the ICKDSF worked; I can also see them in
the active VM configuration with a #cp q dasd:
CP Q DASD????????? ?
DASD 247 ON DASD 247
DASD 248 ON DASD 248
DASD 249 ON DASD 249
DASD 331 ON DASD 331?? <====
DASD 332 ON DASD 332
DASD 333 ON DASD 333
DASD 334 ON DASD 334
DASD 335 ON DASD 335
DASD 336 ON DASD 336
DASD 380 ON DASD 380
On 2/28/24 08:42, Dagfinn Hammar wrote:
toggle quoted message
Show quoted text
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
|
The issue is the OLDER Sort Merge – did not support the newer DASD and Dynamic allocation
?
When the TK5 was built – the newer product was installed and will now no longer require 2311 and 2314
And support Dynamic allocation –
?
?
-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: Wednesday, February 28, 2024 8:42 AM
To: [email protected]
Subject: Re: [H390-MVS] 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.
----------------------------------------
?
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.
----------------------------------------
?
//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.
|
Frank
You can look at SYS1.SYSGEN.SOURCE(IOGEN)
On MY TK5 here is what I see
//*? DASD devices????????????????????????????????????????????????????????
//*??????????????????????????????????????????????????????????? ???????????
//*? ! Devt ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua ! Cua - Cua !
//*? !------+-----------+-----------+-----------+-----------!-----------!
//*? ! 2314 !?????????? ! 130 - 13F ! 230 - 23F ! 330 - 33F !?????????? !
//*? ! 3350 !????? ?????! 140 - 14F ! 240 - 24F ! 340 - 34F !?????????? !
//*? ! 3330 !?????????? ! 150 - 15F ! 250 - 25F ! 350 - 35F !?????????? !
//*? ! 3340 !?????????? ! 160 - 16F ! 260 - 26F ! 360 - 36F !?????????? !
//*? ! 3375 !?????????? ! 170 - 17F ! 270 - 27F ! 370 - 37F !?????????? !
//*? ! 3380 !?????????? ! 180 - 18F ! 280 - 28F ! 380 - 38F !?????????? !
//*? ! 3390 !?????????? ! 190 - 19F ! 290 - 29F ! 390 - 39F !?????????? !
//*? !????? !?????????? !?????????? !?????????? !?????????? !?????????? !
//*? !????? !?????????? !? Shared?? !? Shared?? !?????????? !?????????? !
//*? !????? !?????????? !? DASD???? !? DASD???? !?????????? !?????????? !
//*? !????? !?????????? !?????????? !?????????? !?????????? !?????????? !
//*????????????????????????????????? ?????????????????????????????????????
//*??????????????????????????????????????????????????????????????????????
?
-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 Frank D. Engel, Jr. via groups.io
Sent: Wednesday, February 28, 2024 7:20 AM
To: [email protected]
Subject: Re: [H390-MVS] 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:
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.
----------------------------------------
?
//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.
|
Jeff Bassett