That was the secret sauce Mike...thank you!
The job spanned the dataset across WORK1 and WORK3 and did it
dynamically.
toggle quoted message
Show quoted text
On Thu, 2024-03-07 at 16:54 -0800, Mike Schwab wrote: Try //SEQOUT DD UNIT=(WORK,6),? since you only have that many.
On Thu, Mar 7, 2024 at 6:48?PM Daniel L. Srebnick via groups.io
<dan@...> wrote:
Here's the actual job.? If I change SEQOUT to UNIT=(3390,59) the
JCL
fails.
//HERC01S JOB (MYNAME),'TEST SORT',
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//GENERATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=X
//SEQOUT DD UNIT=WORK,DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// DSN=&&SORTTEMP,DISP=(,PASS),SPACE=(CYL,(500,100),RLSE)
//SYSIN DD DATA
?DSD OUTPUT=(SEQOUT) ,,
?FD NAME=F1,LENGTH=2,STARTLOC=1,FORMAT=RA
?FD NAME=F2,LENGTH=4,STARTLOC=3,FORMAT=RA
?FD NAME=F3,LENGTH=4,STARTLOC=7,FORMAT=RA
?FD NAME=F4,LENGTH=10,STARTLOC=11,FORMAT=ZD,INDEX=1
?FD NAME=F5,LENGTH=60,STARTLOC=21
?CREATE QUANTITY=10000000,NAME=(F1,F2,F3,F4,F5)
?END
/*
//SORT EXEC PGM=SORT,REGION=1024K,PARM='MSG=AP'
//SORTIN DD DSN=&&SORTTEMP,DISP=(OLD,DELETE)
//SYSOUT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSPRINT DD SYSOUT=X
//SORTLIB? DD DSNAME=SYS1.SORTLIB,DISP=SHR
//SORTOUT? DD DUMMY,DCB=(BLKSIZE=80,RECFM=F)
//SYSIN DD *
?SORT?? FIELDS=(1,10,CH,A)
?RECORD TYPE=F,LENGTH=(80)
?END
/*
//
|
Try //SEQOUT DD UNIT=(WORK,6), since you only have that many. On Thu, Mar 7, 2024 at 6:48?PM Daniel L. Srebnick via groups.io <dan@...> wrote:
Here's the actual job. If I change SEQOUT to UNIT=(3390,59) the JCL
fails.
//HERC01S JOB (MYNAME),'TEST SORT',
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//GENERATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=X
//SEQOUT DD UNIT=WORK,DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// DSN=&&SORTTEMP,DISP=(,PASS),SPACE=(CYL,(500,100),RLSE)
//SYSIN DD DATA
DSD OUTPUT=(SEQOUT) ,,
FD NAME=F1,LENGTH=2,STARTLOC=1,FORMAT=RA
FD NAME=F2,LENGTH=4,STARTLOC=3,FORMAT=RA
FD NAME=F3,LENGTH=4,STARTLOC=7,FORMAT=RA
FD NAME=F4,LENGTH=10,STARTLOC=11,FORMAT=ZD,INDEX=1
FD NAME=F5,LENGTH=60,STARTLOC=21
CREATE QUANTITY=10000000,NAME=(F1,F2,F3,F4,F5)
END
/*
//SORT EXEC PGM=SORT,REGION=1024K,PARM='MSG=AP'
//SORTIN DD DSN=&&SORTTEMP,DISP=(OLD,DELETE)
//SYSOUT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSPRINT DD SYSOUT=X
//SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//SORTOUT DD DUMMY,DCB=(BLKSIZE=80,RECFM=F)
//SYSIN DD *
SORT FIELDS=(1,10,CH,A)
RECORD TYPE=F,LENGTH=(80)
END
/*
//
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all?
|
Here's the actual job. If I change SEQOUT to UNIT=(3390,59) the JCL
fails.
//HERC01S JOB (MYNAME),'TEST SORT',
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//GENERATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=X
//SEQOUT DD UNIT=WORK,DCB=(LRECL=80,RECFM=FB,BLKSIZE=8000),
// DSN=&&SORTTEMP,DISP=(,PASS),SPACE=(CYL,(500,100),RLSE)
//SYSIN DD DATA
DSD OUTPUT=(SEQOUT) ,,
FD NAME=F1,LENGTH=2,STARTLOC=1,FORMAT=RA
FD NAME=F2,LENGTH=4,STARTLOC=3,FORMAT=RA
FD NAME=F3,LENGTH=4,STARTLOC=7,FORMAT=RA
FD NAME=F4,LENGTH=10,STARTLOC=11,FORMAT=ZD,INDEX=1
FD NAME=F5,LENGTH=60,STARTLOC=21
CREATE QUANTITY=10000000,NAME=(F1,F2,F3,F4,F5)
END
/*
//SORT EXEC PGM=SORT,REGION=1024K,PARM='MSG=AP'
//SORTIN DD DSN=&&SORTTEMP,DISP=(OLD,DELETE)
//SYSOUT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSPRINT DD SYSOUT=X
//SORTLIB DD DSNAME=SYS1.SORTLIB,DISP=SHR
//SORTOUT DD DUMMY,DCB=(BLKSIZE=80,RECFM=F)
//SYSIN DD *
SORT FIELDS=(1,10,CH,A)
RECORD TYPE=F,LENGTH=(80)
END
/*
//
|
Re: Eliminating duplicate records.
Hi Alejandro,
My primary focus for refurbishing the OS/360 Sort/Merge program and releasing OS/360 Sort/Merge for MVS 3.8 was to remove any dependency on any specific DASD device. I achieved that objective so now MVS 3.8 users are no longer restricted to 2314 DASD for SORTWKxx DASD data sets. This was a sizeable project because the base code was not in particularly good shape. I would very much liked to have expanded the scope of the project and implemented all the later features of DFSORT as DFSORT provides a very powerful and full function data manipulation and reporting language with features like SUM. Implementing the data manipulation and reporting language features would be a major project for just one developer as it provides such a comprehensive set of tools. Perhaps, in the future, I will consider such a project.
To address your immediate requirement could I suggest that you take advantage of the Sort/Merge E35 exit and provide such an exit to detect duplicate records and delete them from the output data set? The IVP members provide examples of E35 exits written in assembler or you could write a COBOL or PLI/F program to invoke the Sort/Merge program and drive an E35 exit.
Regards
Tom
|
// UNIT=(3390,59), On Thu, Mar 7, 2024 at 4:35?PM Daniel L. Srebnick via groups.io <dan@...> wrote:
Is it possible to have a (temporary) multi-volume dataset under MVS 3.8j?
As an exercise, I have a job that creates 9.5 million random records and then passes the dataset to OS/360 Sort (using TK5 version).
If I up the record count to 10 million, I run out of space on a single 3390 and the job abends on space.
Any thoughts on this? I do have 6 3390 work volumes.
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all?
|
You need to give it more space.? SYSUT10,sysut20 on other work volumes.
On Thursday, March 7, 2024 at 04:35:57 PM CST, Daniel L. Srebnick via groups.io <dan@...> wrote:
Is it possible to have a (temporary) multi-volume dataset under MVS 3.8j?
As an exercise, I have a job that creates 9.5 million random records and then passes the dataset to OS/360 Sort (using TK5 version).
If I up the record count to 10 million, I run out of space on a single 3390 and the job abends on space.
Any thoughts on this?? I do have 6 3390 work volumes.
|
Is it possible to have a (temporary) multi-volume dataset under MVS 3.8j?
As an exercise, I have a job that creates 9.5 million random records and then passes the dataset to OS/360 Sort (using TK5 version).
If I up the record count to 10 million, I run out of space on a single 3390 and the job abends on space.
Any thoughts on this?? I do have 6 3390 work volumes.
|
Re: problem meet when run dfsmsdss restore
The problem is not the dasd volume, it's the tape.? You probably reformatted the tape into AWS format, but DFDSS does not understand the record formats you are trying to install to the disk.
To copy a volume from a mainframe to Hercules, you need to upload the tape dataset to your PC in binary format and then upload that dataset to an empty DASD volume on your hercules based z/OS and restore it from there.
Alternatively, I think there is a mod somewhere that you can use on the original mainframe that causes DFDSS to create the AWS format dataset that you can use with hercules.? DFDSS expects each block to be a track image, but I think when you made the AWS tape, you changed the blocks to be quite a bit smaller, but the DFDSS you are using under hercules doesn't "know" that it needs to combine blocks to get a real track image.
There are several methods you can use to copy your data from a mainframe to hercules, but the one you are using isn't one that I have heard of previously.?
Anyway, there are several tried and true methods to transfer the data.
Brian
|
Re: problem meet when run dfsmsdss restore
I believe you should be able to restore to the SAME or LARGER target ¨C
Since you indicate that you dumped from a M9 ¨C you will need to restore to a M9 or larger ¨C
However, NOT to a smaller model ¨C
You are doing a PHYSICAL track for track restore ¨C
?
You might try a LOGICAL restore ¨C to restore all DATA SETS ¨C vs a physical restore ¨C
If you have enough room on the pack ¨C (how full was that M9) ¨C you might get it to work.
?
?
-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 shixinlong via groups.io
Sent: Thursday, March 7, 2024 4:12 AM
To: [email protected]
Subject: Re: [H390-MVS] problem meet when run dfsmsdss restore
?
Hi Tom, thanks for your reply.? yes, the source dumped from a 3390-9.
the backup procedure is as below:
//BACKUP? ?PROC VSN=' ',LB=' ',VOLSER=' '? ? ? ? ? ? ? ??
//STEP1? ? EXEC PGM=ADRDSSU,REGION=0M? ? ? ? ? ? ? ? ? ??
//SYSPRINT DD? ?SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//DASD1? ? DD UNIT=3390,VOL=SER=&VSN,DISP=SHR? ? ? ? ? ??
//TAPE1? ? DD DSN=V&VSN,DISP=(NEW,KEEP,DELETE),? ? ? ? ??
//? ? ? ? ?UNIT=TTAPE,LABEL=(&LB,SL),? ? ? ? ? ? ? ? ? ??
//? ? ? ? ?VOL=(,RETAIN,,,SER=&VOLSER),? ? ? ? ? ? ? ? ??
//? ? ? ? ?DCB=(BLKSIZE=64K,RECFM=U,TRTCH=COMP)? ? ? ? ??
//SYSIN? ? DD *
DUMP INDDNAME(DASD1) OUTDDNAME(TAPE1) COMPRESS OPT(4) -??
ALLDATA(*) ALLEXCP WAIT(0,0) FULL? ? ? ? ? ? ? ? ? ? ? ??
?
|
Re: problem meet when run dfsmsdss restore
Hi,
Unfortunately you've reached the end of my knowledge, but perhaps you need to specify 3390-9 in the hercules conf file ?
I have a thought that using just 3390 defaults to a much smaller 3390-1, so you may need to run the init and restore again after changing the definition.
Regards,
Tom.
|
Re: problem meet when run dfsmsdss restore
Hi Tom, thanks for your reply.? yes, the source dumped from a 3390-9. the backup procedure is as below:
//BACKUP? ?PROC VSN=' ',LB=' ',VOLSER=' '? ? ? ? ? ? ? ??
//STEP1? ? EXEC PGM=ADRDSSU,REGION=0M? ? ? ? ? ? ? ? ? ??
//SYSPRINT DD? ?SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//DASD1? ? DD UNIT=3390,VOL=SER=&VSN,DISP=SHR? ? ? ? ? ??
//TAPE1? ? DD DSN=V&VSN,DISP=(NEW,KEEP,DELETE),? ? ? ? ??
//? ? ? ? ?UNIT=TTAPE,LABEL=(&LB,SL),? ? ? ? ? ? ? ? ? ??
//? ? ? ? ?VOL=(,RETAIN,,,SER=&VOLSER),? ? ? ? ? ? ? ? ??
//? ? ? ? ?DCB=(BLKSIZE=64K,RECFM=U,TRTCH=COMP)? ? ? ? ??
//SYSIN? ? DD *
DUMP INDDNAME(DASD1) OUTDDNAME(TAPE1) COMPRESS OPT(4) -??
ALLDATA(*) ALLEXCP WAIT(0,0) FULL? ? ? ? ? ? ? ? ? ? ? ??
|
Re: problem meet when run dfsmsdss restore
HI,
is the data you are restoring from the same device type as you are restoring too ?
Your target is a 3390, is the source dumped from a 3390 ?
I think that DFSMSdss doesn't convert from one device type to another but expects them to be the same CC HH configuration.
It's a long time since I did dump / restore of this type, I understand it can be faster than doing it by datasets, but
restoring datasets can cross disk types and add them to the vtoc as it does it.
If the restore tape you are using contains a vtoc then the dasd is probably going to be mis-configured
because you have already configured a vtoc, and I doubt that having 2 vtoc's will work.
Regards,
Tom.
|
Re: IEHMOVE fails with IEH453I DATA SET SYS3.TESTPDS.ASM NOT MOVED/COPIED BECAUS TO DATA SET PREVIOUSLY RACF DEFINED
Hi Clem,
this is a distant memory, so may not work
add ,COPYAUTH to the command
Update: Another colleague suggested defining your TO dataset identically before issuing the command, then COPYAUTH should not be needed
Regards,
Tom
|
IEHMOVE fails with IEH453I DATA SET SYS3.TESTPDS.ASM NOT MOVED/COPIED BECAUS TO DATA SET PREVIOUSLY RACF DEFINED
Hi,
I am trying to run a very simple IEHMOVE but I get a RAKF error in TK5.? The message is:
IEH453I DATA SET SYS1.MACLIB NOT MOVED/COPIED BECAUSE?TO DATA SET PREVIOUSLY RACF DEFINED.
The output data set is not not there, and the User has all the privileges I can give it.? ?That is, it is like Herc01 and has all the RAKF facilities.
Thanks,
?
Clem Clarke
The JCL is:
//CLARKE0 JOB (ACCNT),NAME,MSGLEVEL=(1,1),NOTIFY=SYS3,? ? ? ? ? ?
//? MSGCLASS=X? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//STEP1 EXEC PGM=IEHMOVE? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//SYSPRINT DD SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//SYSUT1 DD UNIT=3390,SPACE=(TRK,30)? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
//DISK01 DD VOL=SER=WORK01,DISP=OLD,UNIT=SYSDA? ? ? ? ? ? ? ? ? ?
//DISK02 DD VOL=SER=WORK02,DISP=OLD,UNIT=SYSDA? ? ? ? ? ? ? ? ? ?
//DISK03 DD VOL=SER=TK5RES,DISP=OLD,UNIT=SYSDA? ? ? ? ? ? ? ? ? ?
//SYSIN DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?COPY TO=3390=WORK01,PDS=SYS1.MACLIB,RENAME=SYS3.TESTPDS3.ASM? ??
?
?
? ? ? ?
|
Eliminating duplicate records.
Hi folks.
I've been playing with OS-360 SORT for MVS 3.8.
Documentation is clear and, overall, I've been quite successful in sorting records (I feel I'm not handling 100% correctly my temporary datasets in JCL with PASS stuff etc, but overall, got it working).
However, as it came quite instinctively to my mind to wonder if I could get rid of duplicate records, I found that the SUM feature that I find everywhere when googling around the matter to be capable of doing that, is nowhere in the SORT program we have at hands (My guess is that the version of SORT we do have here maybe is a really very old one).
While I grasp there's some room for SORT to work together with other programs with all that exit routines stuff (way beyond my comprehension), I thought maybe someone has some clue how to handle such a trivial use-case (geting rid of duplicate records) under MVS 'the easy way'.
Thank you in advance.
Cheers.
|
problem meet when run dfsmsdss restore
hi all, i have built?4.6.0.10941-SDL-g65c97fd6 on?Linux-5.14.0-284.25.1.el9_2.x86_64. the hercules runs well. and i built an standalone ickdsf to initialize the cckd volume.? INIT UNITADDRESS(52C1) NOVERIFY VTOC(300,0,600) VOLID(DCAT50)
ICK003D REPLY U TO ALTER VOLUME 52C1 CONTENTS, ELSE T? ? ? ? ? ? ? ? ? ? ?
ENTER INPUT/COMMAND:? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
U? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
ICK31061I 52C1 VTOC INDEX CREATION SUCCESSFUL: VOLUME IS IN INDEX FORMAT??
ICK061I? ?52C1 VTOC INDEX CREATION SUCCESSFUL: VOLUME IS IN INDEX FORMAT??
ICK01317I VTOC-INDEX IS LOCATED AT CCHH=X'0154 0000' AND IS? ? 32 TRACKS.?
ICK01314I VTOC IS LOCATED AT CCHH=X'012C 0000' AND IS? ?600 TRACKS.? ? ? ?
ICK00001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0? ? ? ? ? ? ? ??
? ? ? ? ? 14:35:28? ? 03/05/24? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? below tape is an aws tape converted by tapeconv.jcl? restore frmdv(tape) frmadr(0300) toadr(52C1) vfy(DCAT50)
?RESTORE FRMDV(TAPE) FRMADR(0300) TOADR(52C1) VFY(DCAT50)? ? ? ? ? ? ? ? ? ? ? ?
ADRY0500I NEXT TRACK TO WRITE:? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? ? ? TRACK C:H = X'0000000:0'? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? ? ? 15:05:07? ? 03/05/24? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
ADRY2765I 52C1 INVALID TRACK FORMAT? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
CSW = 05D9D0 0E000000? ?CCW = 1D12B288 4000E4A6? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
SENSE = 00400000 00FFFF00 00000000 00000000 00000000 00000000 00000080 00001206?
ADRY0700I 52C1 TRACK CCHH = X'0012 0006'? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
ADRY2765I 52C1 INVALID TRACK FORMAT? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
CSW = 05DA20 0E000000? ?CCW = 1D1302DD 4000F1EF? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
SENSE = 00400000 00FFFF00 00000000 00000000 00000000 00000000 00000080 00006C06?
ADRY0700I 52C1 TRACK CCHH = X'006C 0006'? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
ADRY3818I 52C1 INCORRECT LENGTH? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
CSW = 05DA68 0E40082C? ?CCW = 9E000000 5000082C? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
SENSE = 00080000 00FFFF00 00000000 00000000 00000000 00000000 00000080 00006C0C?
ZARCHITECTURE? 5650-ZOS DFSMSDSS STAND-ALONE V2.02.0? ? ? ? ? ? ? TIME: 15:04:55
? ? ? ? 03/05/24? ? ?PAGE? ?2? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
ADRY0700I 52C1 TRACK CCHH = X'006C 000C'? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
ADRY3003I FUNCTION TERMINATED. CONDITION CODE IS 12? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
[root@lx-hemu-app-u1 ~]# sh /home/hyperion/cckdcdsk -f -3 /home/hercules/volume/DASD/DCAT50.52C1
HHC02499I Hercules utility lt-cckdcdsk - DASD CCKD image verification - version 4.6.0.10941-SDL-g65c97fd6
HHC01414I (C) Copyright 1999-2023 by Roger Bowler, Jan Jaeger, and others
HHC01417I ** The SDL 4.x Hyperion version of Hercules **
HHC01415I Build date: Feb? 6 2024 at 18:15:52
HHC00379I 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: starting lt-cckdcdsk level 3...
HHC00371W 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: trk[746] offset 0x00000000000B80D8 len 6237 validation error
HHC00007I Previous message from function 'cckd_chkdsk' at cckdutil.c(1858)
HHC00371W 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: trk[779] offset 0x00000000000C0726 len 5320 validation error
HHC00007I Previous message from function 'cckd_chkdsk' at cckdutil.c(1858)
HHC00371W 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: trk[1626] offset 0x0000000000114547 len 2987 validation error
HHC00007I Previous message from function 'cckd_chkdsk' at cckdutil.c(1858)
HHC00371W 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: trk[1631] offset 0x0000000000119571 len 10885 validation error
HHC00007I Previous message from function 'cckd_chkdsk' at cckdutil.c(1858)
HHC00373I 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: 0 trk images recovered
HHC00377I 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: free space rebuilt
HHC00380W 0:0000 CCKD file /home/hercules/volume/DASD/DCAT50.52C1: lt-cckdcdsk level 3 complete; rc=2
HHC00007I Previous message from function 'main' at cckdcdsk.c(149)
part? config as below:
? CPUSERIAL 002623? ? ? ? ? ? ? # CPU serial number
# CPUMODEL? 3090? ? ? ? ? ? ? ? # CPU model number
? CPUMODEL? 8562? ? ? ? ? ? ? ? # CPU model number
? MODEL? ? ?L01? ? ? ? ? ? ? ? ?# STSI returned model
? PLANT? ? ?ZZ? ? ? ? ? ? ? ? ? # STSI returned plant
? MANUFACTURER HRC? ? ? ? ? ? ? # STSI returned manufacturer
# LPARNAME? HERCULES? ? ? ? ? ? # DIAG 204 returned lparname
? LPARNAME? DEVE? ? ? ? ? ? ? ? # DIAG 204 returned lparname
? CPUVERID? 00? ? ? ? ? ? ? ? ? # CPU Version Identification
# MAINSIZE? 64? ? ? ? ? ? ? ? ? # Main storage size in megabytes
? MAINSIZE? 8192? ? ? ? ? ? ? ? # Main storage size in megabytes
? XPNDSIZE? 0? ? ? ? ? ? ? ? ? ?# Expanded storage size in megabytes
# NUMCPU? ? 1? ? ? ? ? ? ? ? ? ?# Number of CPUs
? NUMCPU? ? 8? ? ? ? ? ? ? ? ? ?# Number of CPUs
# NUMVEC? ? 1? ? ? ? ? ? ? ? ? ?# Number of Vector Processors
# MAXCPU? ? 8? ? ? ? ? ? ? ? ? ?# Maximum number of CPUs
? MAXCPU? ? 8? ? ? ? ? ? ? ? ? ?# Maximum number of CPUs
? ARCHLVL? ?z/Arch? ? ? ? ? ? ? # Architecture mode S/370, ESA/390 or z/Arch
? FACILITY? DISABLE 006_ASN_LX_REUSE? ?# ASN-and-LX-Reuse facility
# ECPSVM? ? DISABLE? ? ? ? ? ? ?# VM Assist : NO or Level (20 recommended)
# LOADPARM? 0120....? ? ? ? ? ? # IPL parameter
? LOADPARM? 52C109M.? ? ? ? ? ? # IPL parameter
# OSTAILOR? LINUX? ? ? ? ? ? ? ?# OS tailoring
? OSTAILOR? z/OS? ? ? ? ? ? ? ? # OS tailoring
? SYSEPOCH? 1900? ? ? ? ? ? ? ? # Base year for initial TOD clock
# TZOFFSET? +0200? ? ? ? ? ? ? ?# Using UTC (GMT)
? TZOFFSET? +0800? ? ? ? ? ? ? ?# Using UTC (GMT)
?
? 0300? ? 3590? ? /home/hercules/volume/TAPE/100001.tap ? 52C1? ? 3390? ? /home/hercules/volume/DASD/DCAT50.52C1 any suggestion is? much?appreciated!
|
Re: Hercules Error Messages Undocumented??
Please post your config file for both instances of hercules ... the one on the MAC and the one on Windows.
Joe
I am getting multiple error messages whhen trying to connect several very much working volumes on a shared configuration on Windows, but unable to connect to the same volumes on my Mac/Parallels Windows 11. Would someone please tell me where I can find current documentation for Hercules 4.6 errors. Some of the messages are:
HHC00726E 0:0AA4 Shared: remote error F7-E0: device not found
HHC00007I Previous message from function 'clientRecv' at shared.c(1464)
HHC00721I 0:0AA4 Shared: connected to v14.0 server id 0 file 192.168.12.85:3990:504
HHC00726E 0:0AA4 Shared: remote error F3-EC: not a connect request
HHC00007I Previous message from function 'clientRecv' at shared.c(1464)
HHC00726E 0:0AA4 Shared: remote error F3-EB: not a connect request
HHC00007I Previous message from function 'clientRecv' at shared.c(1464)
HHC00702S 0:0AA4 Shared: error retrieving cylinders
HHC00007I Previous message from function 'shared_ckd_init' at shared.c(231)
HHC00401E 0:0AA4 CKD file 192.168.12.85:3990:504: open error: not found
from the log file. If I could find the documentation for the messages, I could probably resolve the problem. If not, what documentation must I provide to the support team. I have multiple configuration files, log files, and directories where the emulated DASD reside. As I said, all volumes are usable on one of my TK-5 systems and my z/OS system running on Windows 10.
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
toggle quoted message
Show quoted text
From: [email protected] < [email protected]> On Behalf Of Tom Armstrong Sent: Friday, March 1, 2024 7:43 PM To: [email protected]Subject: Re: [H390-MVS] COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS ? Hi Guys,
My suggestion is that if you have migrated to TK5 then take advantage of the enhancements with OS/360 Sort/Merge for MVS 3.8. Just delete all SORTWKxx DD statements in sorting steps, COBOL invoked or direct invokation of the Sort/Merge program. The default setting for the new Sort/Merge program is to dynamically allocate SORTWKxx data sets. This simplifies JCLrequirements. A SORTLIB DD statement is still required, and if Sort/Merge message options select the printer, then a SYSOUT DD statement is also required.
2314 DASD is no longer required in the TK5 environment.
Regards
Tom
|
Re: COBOL Sort - - +IER040A - INSUFFICIENT WORK UNITS
Hi Guys,
My suggestion is that if you have migrated to TK5 then take advantage of the enhancements with OS/360 Sort/Merge for MVS 3.8. Just delete all SORTWKxx DD statements in sorting steps, COBOL invoked or direct invokation of the Sort/Merge program. The default setting for the new Sort/Merge program is to dynamically allocate SORTWKxx data sets. This simplifies JCLrequirements. A SORTLIB DD statement is still required, and if Sort/Merge message options select the printer, then a SYSOUT DD statement is also required.
2314 DASD is no longer required in the TK5 environment.
Regards
Tom
|
Re: Cross Memory Address space data exchange/communication
On 2/03/2024 1:01 am, Bob Polmanter wrote: Rather, the ENQ's purpose is simply to place a QCB entry into the system, so the QCB chain can be searched to identify NJE38's outstanding ENQ and grab the Rname data from it. The classic way a lot of program products flagged their presence was to add their own subsystem to the SSCT (SSCVT?) chain.? They offered no subsystem services as such but used the SSCT (via the SSCTUSE field most often) to anchor global data structures making them available to all address spaces. This problem was eventually solved "properly" by Name/Token Services which offers name/token pairs at the task, address space and system levels. Cheers, Greg
|
Jeff Bassett
botongrui, aka ¦Ó¦Òm.