开云体育

Hi guys, I am trying to allocate a VSAM file, this is the jcl : //HERC02CP JOB (IDCAMS),'PERFORM IDCAMS ',CLASS=A,NOTIFY=&SYSUID, // REGION=8000K,TIME=1440,MSGCLASS=X,MSGLEVEL=(1,1) // //* CREATE VSAM DATASET //* // //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * DELETE HERC02.VSAM.EXAMPLE1 SET MAXCC = 0 DEFINE CLUSTER - (NAME(HERC02.VSAM.EXAMPLE1) INDEXED - VOLUMES(VSAM01) - RECORDSIZE(80 80) - KEYS(10 0) - TRACKS(50 15) - FREESPACE(5 5) - CISZ(4096) - REUSE - ) - DATA (NAME (HERC02.VSAM.EXAMPLE1.DATA)) - INDEX (NAME (HERC02.VSAM.EXAMPLE1.INDEX)) /* but I get this error when I try to allocate a VSAM : IDCAMS SYSTEM SERVICES TIME: 15:45:21 DELETE HERC02.VSAM.EXAMPLE1 IDC3012I ENTRY HERC02.VSAM.EXAMPLE1 NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6 IDC0551I **ENTRY HERC02.VSAM.EXAMPLE1 NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 SET MAXCC = 0 DEFINE CLUSTER - (NAME(HERC02.VSAM.EXAMPLE1) INDEXED - VOLUMES(VSAM01) - RECORDSIZE(80 80) - KEYS(10 0) - TRACKS(50 15) - FREESPACE(5 5) - CISZ(4096) - REUSE - ) - DATA (NAME (HERC02.VSAM.EXAMPLE1.DATA)) - INDEX (NAME (HERC02.VSAM.EXAMPLE1.INDEX)) IDC3033I VOLUME RECORD NOT FOUND IN CATALOG IDC3009I ** VSAM CATALOG RETURN CODE IS 248 - REASON CODE IS IGG0CLBX-0 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 the VSAM01 is a 3380-E disk created with : dasdinit -a vsam01.382 3380-E VSAM01 then I initialized with this job : //HERC02CP JOB (ICKDSF),'PERFORM ICKDSF13',CLASS=A,NOTIFY=&SYSUID, // REGION=8000K,TIME=1440,MSGCLASS=X,MSGLEVEL=(1,1) //* //* INITIALIZE A DEVICE OTHER THAN 3340 OR 3350 DASD VOLUME //* //ICKDSF EXEC PGM=ICKDSF13,REGION=6096K //SYSPRINT DD SYSOUT=* //SYSIN DD * INIT UNITADDRESS(382) NOVERIFY VOLID(VSAM01) OWNER(HERCULES) - VTOC(0,1,80) /* // and I see the volume on 3.4 and I allocated a PD dataset without effort. does anyone have any clue why I am getting this error ? Thanks

Hi folks. So I'm trying to append records to an existing dataset with COBOL... wich should be quite straight forward: OPEN EXTEND MY-FILE But it seems the compiler does not support that opening mode. I took a look at the 1972 IBM book I use as a reference for the included compiler and, at OPEN clause, section (very brief one... so maybe not a comprehensive guide with not all options covered), I see that it only mentions INPUT and OUTPUT, no EXTEND whatsoever. So while I believe that it is indeed possible, the thing is that there must be for sure a way to perform such a fundamental operation, even with this compiler. As anyone a clue? Am I missing something? Thanks you. Cheers. Alex.

Hi I am trying to implement GETDTE on my TK4 UPD 8 system. I get an error in JOB4 in the installation process. I suspect this is related to missing usermods. Where are the usermod library located? * Prerequisite: User Modifications * =================================================================== * * Two user-mods, ZP60014 and ZP60038, are REQUIRED to process * CLIST symbolic variables via the IKJCT441 API on MVS 3.8J before * using GETDTE. Otherwise, GETDTE will function but will NOT * create CLIST variables. * * More information on the above user-mods can be obtained from * the following website: * http://www.prycroft6.com.au/vs2mods/ * * Check your system to determine if one or both user-mods are * required. ZP60038 requires ZP60014. best regards Dagfinn D. Hammar GETDTE – System DSECTs LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 000000 3125 TIOT DSECT 3126 IEFTIOT1 Task *** ERROR *** 00000 3127 TIOTLEN EQU *-TIOT Lengt GETDTE – System DSECTs LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 000000 3129 JSCB DSECT 3130 IEZJSCB Job/S GETDTE – System DSECTs LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT

Hello Everyone! Please help! I am so stupid, started IPL of z/OS with no 3270s opened. So i don't have MVS console window now. Only TSO. In my config there was no 3215-C either, so / commands from Hercules console doesn't work. I don't want to hurt my system with emergency shutdown, is there any way to reconnect to MVS console using 3270? Andre :(

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

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.

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

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.

Please post your config file for both instances of hercules ... the one on the MAC and the one on Windows. Joe

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)

Hello all, I'm looking for a specific dataset that I am unable to find. The dataset is: TK4-.SHELBY.EZASMI.V100.ZIP I have done an IEHLIST of all the volumes on the TK4- that I have installed and I still can't find it. Anyone know where it's located? Thanks in advance.

(Oops!) Sorry about the blank subject line, folks!

Hi Folks. I've a UserCatalog (UCUSRDT0) on a volume (USRDT0) for my user/users (ALEX) in a Tk5 install ...so far, so good, until the catalog needed a reorg due to CI splits. I've been reading some online stuff, but, as I expected, it turned out to be much modern and not aplicable to MVS (LOCK, UNLOCK, EXAMINE, DIAGNOSE...). At this point, I backed up at hercules/emulator level, practice a little with shadow files, and just started my journey by, first, simply try to backup my catalog using EXPORT and REPRO... which I miserably failed to achieve :-( - Regarding EXPORT, following step (ran as HERC01 user): //EXPRTTMP EXEC PGM=IDCAMS,REGION=4096K //SYSPRINT DD SYSOUT=* //EXPDD DD DSN=CATBACK.ALEX.UCUSRDT0, // UNIT=3390,VOL=SER=TSO001, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,1),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //SYSIN DD * EXPORT UCUSRDT0 - OUTFILE(EXPDD) TEMPORARY /* Fails 0012 with error: IDC3592I THE ENTRY NAME IS NOT CLUSTER OR ALTERNATE INDEX But I guess it is... well, it is my user catalog. it is a VSAM cluster! What could be wrong? - Regarding REPRO, the step I made (ran as HERC01): //REPROTMP EXEC PGM=IDCAMS,REGION=4096K //SYSPRINT DD SYSOUT=* //OUTDD DD DSN=CATDUMP.ALEX.UCUSRDT0, // UNIT=3390,VOL=SER=TSO001, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,1),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) //SYSIN DD * REPRO INFILE(UCUSRDT0) - OUTFILE(OUTDD) /* Exits 0012 with following errors IDC3300I ERROR OPENING UCUSRDT0 IDC3304I ** JCL STATEMENT MISSING Considering that both UCUSRDT0 axists, and the target dataset ends up created and found in DSLIST, I don't understand what's happening here. I know this are very, very noob questions... but I need some breaktrough to start even to start. Thank you very much in advance. Cheers.

Hi folks! I'm working on backing up stuff. Manually getting stuff out of MVS to keep a copy is not hard... however, as a sys admin, I'm very much used to the idea of sceduled backups. After reading Moseleys page on backup/restore, I had plenty of ideas and tests, but I'm very much opened to different/better approaches to the end goal (some automation) in mind So, first piece on my mind puzzle was HERCCMD (I understand it's risks... sure it is dangerous for Internet connected hercules instances). I made it to work, and the idea is to use it to be able to devinit a backup tape as a job step, and unload it after the backup. The second piece of the puzzle is DSSDUMP. Which I find very useful since it allow to provide wildcards to select a group of source datasets. Combining both, I though I should be able to assemble a backup job. But there're problems: - I do not figure out how to make my HERCCMD steps work toghether with DSSDUMP step... I feel as if steps are ran kind of parallel instead of sequentially. Tape is initialized and then unloaded, and DSSDUMP gets stuck asking for a tape on the operator console for a tape. - DSSDUMP requires operator to reply volume and a owner information on the console, so unattended operation breaks here too. I don't find a way to make DSSDUMP aware of that info beforehand, so it moves on and performs the backup. Has anyone approached this anyhow? any ideas? Cheers!

Hi again folks. I'm sure I'm missing the elefant in the room here, but I'm failing to find information on NOT CATLGD 4 message (I do for code 2, instead of 4) and something very very weird is happening all of the sudden (Tk5). The issue I'm facing is that, all of the sudden, my jobs to store some sample data under certain PDSs members do fail, after the new PDS to contain those members is apparently created, but definitely not cataloged. The more puzzling thing I've found, after some trial an errors, is that the problem happens just for datasets being created under certain qualifier! So, while my webserver access log records are stored under ALEX.WEBSITES.<Tmmddyy>.ACCLOG and firewall records under ALEX.IPBLK.<Tmmddyy>.FWLOG, all jobs for PDSs under ALEX.WESITES. do fail, while the others keep working as usual. After trial and error, I end up discovered that if I simply change the upper qualification name ALEX.WEBSITES by anything else like ALEX.WEBINFO and resubmit the deck, it completes just fine. So why a qualifier appears to render like no longer 'catalogeable' any datasets under it? why all of the sudden? Any clues about what that 4 code is telling me? Cheers!