开云体育

I am versed in using the COPY statement for COBOL programs in the VSE environment (DOS/VSE, VSE/ESA), however I am learning the ways of MVS using an OS/390 system. I have several questions: 1. Is there a default or defined library that contain COPYBOOK entries? It seems I need to define a SYSLIB to access it, correct? Note: I noticed for CICS, maps are stored in CICSTS13.CICS.SDFHMAC and CICSTS13.CICS.SDFHCOB contains COBOL copybooks. 2. If not, I suppose I need to create one. What is the recommended naming convention and location? I assume I need to use a HLQ format to define it? 3. Can/should I use the same library for both batch and CICS COBOL programs for my applications? (See Note in question 1 above.) 4. Do the answers above apply to TK4- and MVS/ESA as well? Thanks in advance.

Hello folks, I want to be able to access a dataset by using an alias. . . I think! For example, suppose I have the following PDSs on volume 111111: PROJECT1.CNTL.JCL PROJECT1.TEST.JCL PROJECT1.TEST.LOADLIB PROJECT1.TEST.SOURCE PROJECT1.PROD.JCL PROJECT1.PROD.LOADLIB PROJECT1.PROD.SOURCE The catalog is USERCAT.V111111. Can I reference these datasets by creating an alias such that TEST.LOADLIB or PROD.SOURCE points to the corresponding PDS? I wish to create an alias (?) such that TEST refers to PROJECT1.TEST.* or PROD refers to PROJECT1.PROD.*. Is that possible? I read up on multilevel alias facility but still confused and yes, I am an MVS newbie!

Hi All, I’m making one of my periodic attempts to explore IBM mainframe stuff for fun, and have been messing about with the TK5 distribution. For the most part things are going well, but I’m left frustrated by one niggling issue; my copy of review/revedit lacks working help. I am able to pull up the initial display of numbered sections, but upon accessing one the system just dumps me back to the previous screen, with no further information or error message I can observe. Does anyone have insight into what is going on here? I’m not sure where the full-screen help data comes from, but suspect there is something missing. Thanks for any insights ? Best, Zack.

Sending here as Fish is right

Hi several messages printed to the console or other destinations by very different programs have the format of my subject first word. Or something like that. I understood that the last letter - 'I', 'W', or 'E' - is an indication of the "type" of message; the question is whether there is a "traditional" format for these ids, especially regarding their length. Just curious... All the best -- Marco Antoniotti Somewhere over the rainbow

Hi all! I'm on the middle of some codification (it's a kind of big routine), and I'm having that "x37" abend while saving. I was able to work on it until it suddently appeared. My intuition tells me it's related to space (sb37 abend stands for space management, so maybe x37 is similar?) EDIT PDS : HMVS01.SOURCE-------------------------------------------------─ Cmd─=>───────────────────────────────────────────────────────────────2─members C Name Newname TTR Userid Date/Time updated Lines VV.MM Created . HELLO 00002C HMVS01 2022/08/20 10:26 13 01.11 2021/12/09 . SHA3 00EB01 HMVS01 2023/09/25 05:30 1860 02.02 2023/08/11 When I enter to SHA3 and save (even if I just remove one line): Edit HMVS01.SOURCE(SHA3) 02.02 T Lo Nul ---------------- Abend x37 in RPFSAVE I already clearead all queues just in case with following commands $ps1-9999 purge all started task output $pt1-9999 purge all TSO output $pj1-9999 purge all batch job output But it doesn't worked... any suggestions? Thanks.

HI folks. I have to deal with a real issue I'm experiencing both with Tk4- and Tk5 (so I guess its just a MVS/JES2 issue) where I tend to end up with jobs started and somehow hung forever. Sure, I've tried to issue $P and $C commands, also C command from Operator console, to no avail. Usually these jobs have some kind of problem in the JCL, that seems to pass the syntax check, but gets the batch job into some kind of locked situation or who knows... The thing is that, no matter if I append the ,PURGE modifier to the $C command or whatever I've tried, such tasks, often incredibly simple ones (I'm just learning) get hung forever there. Interestingly, I've noticed that, soon, the console starts printing periodic messages complaining those tasks are there for too long. Right now, the only way to get rid of them is to re-IPL, usually after shuting down the 'Mainframe' doing a nasty forcibly stop and purge of jes2. I'm sure there is a way to handle this elegantly... but I don't find anything beyond the cancel commands I've already tried. Any clue? Thanks. Regards.

Hello I’m receiving the messages below after re-IPL MVS without restart Hercules. HHC00942I CTC: lcs interface tap0 using mac 02:00:5E:A8:48:FE HHC00941E CTC: ioctl SIOCADDMULTI failed for device tap0: Cannot create a file when that file already exists. HHC00007I Previous message from function 'LCS_DoMulticast' at ctc_lcs.c(2077) What can I do to avoid it? TIA Jo?o Partial Log from the 1st IPL follows: Hercules System Log HHC00100I Thread id 00001780, prio 5, name 'impl_thread' started HHC00100I Thread id 000014c0, prio 4, name 'logger_thread' started HHC01413I Hercules version 4.5.0.10830-SDL-g58578601 HHC01414I (C) Copyright 1999-2022 by Roger Bowler, Jan Jaeger, and others HHC01417I ** The SoftDevLabs version of Hercules ** HHC01415I Build date: Nov 26 2022 at 16:25:41 HHC01417I Built with: Microsoft Visual Studio 2008 (MSVC 150030729 1) HHC01417I Build type: Windows MSVC AMD64 host architecture build HHC01417I Modes: S/370 ESA/390 z/Arch HHC01417I Max CPU Engines: 64 HHC01417I Using shared libraries HHC01417I Using Fish threads Threading Model HHC01417I Using Error-Checking Mutex Locking Model HHC01417I With Shared Devices support HHC01417I With Dynamic loading support HHC01417I With External GUI support HHC01417I With Partial TCP keepalive support HHC01417I With IPV6 support HHC01417I With HTTP Server support HHC01417I With sqrtl support HHC01417I With Signal handling HHC01417I With Watchdog monitoring HHC01417I With CCKD BZIP2 support HHC01417I With HET BZIP2 support HHC01417I With ZLIB support HHC01417I With Regular Expressions support HHC01417I With Object REXX support HHC01417I Without Regina REXX support HHC01417I With Automatic Operator support HHC01417I Without National Language Support HHC01417I With CCKD64 Support HHC01417I With Transactional-Execution Facility support HHC01417I With "Optimized" instructions HHC01417I With OPTION_USE_SKAIP_AS_LOCK HHC01417I With OPTION_SIE2BK_FLD_COPY HHC01417I Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 cmpxchg16 hatomics=msvcIntrinsics HHC01417I Running on: WIN-QWTS (Windows-6.2.9200 Intel(R) x64) LP=4, Cores=4, CPUs=4 HHC01417I Built with crypto external package version 1.0.0.52-ga5096e5 HHC01417I Built with decNumber external package version 3.68.0.102-g3aa2f45 HHC01417I Built with SoftFloat external package version 3.5.0.105-g4b0c326 HHC01417I Built with telnet external package version 1.0.0.62-ge0e2a91 HHC00018I Hercules is running in elevated mode HHC02323W This build of Hercules has only partial TCP keepalive support HHC00007I Previous message from function 'impl' at impl.c(1213) HHC00150I Crypto module loaded (C) Copyright 2003-2016 by Bernard van der Helm HHC00151I Activated facility: Message Security Assist HHC00151I Activated facility: Message Security Assist Extension 1, 2, 3 and 4 …. HHC04100I TunTap64.dll version 3.7.0.5530 initiated HHC04100I TunTap64.dll version 3.7.0.5530 initiated HHC00901I 0:2580 LCS: Interface tap0, type TAP opened HHC00942I CTC: lcs interface tap0 using mac 02:00:5E:A8:48:FE HHC00921I CTC: lcs device port 00: tuntap Multicast assist enabled HHC00935I CTC: lcs device port 00: manual Checksum Offload enabled -- att. Jo?o

Hi again folks. I'm in the process of trying to add an aditional DASD/Volume ('Pack' ?) into either Tk4-/Tk5 (or both), as I've read around that is recommended, so you can have your data in a separate/independent storage. My main guidelines for the overall process are Moseley's web site where he explains the process to do on his 3.8J sysgen, and a groups.io topic caled (Tk4 as a regular user not admin... or something very similar). So far, so good... I've gathered all the overall information and I have pretty much clear picture of all the pieces of the puzzle. However, when it comes to assemble my JCLs to perform the tasks, I stumble with an issue: I have no sequence lines on my VATLST00 printout... and that makes me fear to damage a key system dataset member if happily isuing a CHANGE IEBUPDTE command there. How are we supposed to figure out at wich sequence number are certain records at? or in other words, how can I put a new record between two existing ones without sequence numbers?. Another approach is, does the order in VATLST00 matter? ... A first I though it was alphabetically sorted, but looking at the Tk4- listing I don't see any particular order... I mean, could we just append a new record at the end? or should we insert it at a certain position? Thank you. Cheers.

Hi again folks. I'm stuck with this one... I don't find any solution googling around, although I feel this has to be very straightforward. What I want to achieve is to taylor a JCL script that creates a PDS, with two members, each one containing data from instream lines. So far, first I leanred how to do the equivalent with a regular dataset, creating and filling them, etc... but I'm failing to do so with PDS members. In my JCL script, I have three steps. First one usees IEFBR14 to create the PDS, wich runs fine, but then my script abends at second step. Iwhere 'm trying to add lines to the very first new member on the existing dataset... my last attempt looks somehow like this: //* //* --------------------------------------------- //* STEP2: FILL DATA MEMBER WITH IN-LINE DATA //* //DATASTOR EXEC PGM=IEBGENER,REGION=256K //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT1 DD * Hello world /* //SYSUT2 DD DSN=HERC01.NEWPDS1.JCLTEST(DATA), // DISP=SHR, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) I think that either I'm missing completely the shot, and I should switch entirelly the program I'm using (maybe IEBUPDTE?) or I'm failing to tell MVS/JES2 what I want ti do in SYSUT2 Any clues? Thank you very much in advance. Cheers!

I have a RYO MVS 3.8j system. I added SYSC.LINKLIB to SYS1.PARMLIB(LNKLST00), but if I try to invoke a load module from SYSC.LINKLIB without using a STEPLIB or JOBLIB, I get an S806-4 (module not found). Why is the system not finding the load modules in SYSC.LINKLIB if I have added them to the link list concatenation? ``` RFEVIEW SYS1.PARMLIB(LNKLST00) COLUMNS 00001 00072 COMMAND ===> SCROLL ===> CS * **** TOP OF DATA 000001 SYS1.LINKLIB, IBM LOAD MODULE LIBRARY 000002 SYS2.LINKLIB, USER LOAD MODULE LIBRARY 000003 SYSC.LINKLIB, SYSCPK 000004 SYS1.CMDLIB, IBM TSO COMMAND LIBRARY 000005 SYS2.CMDLIB USER TSO COMMAND LIBRARY * *** BOTTOM OF DATA *** ``` and LNKLST00 is being used, according to IEASYS00: ``` RFEVIEW SYS1.PARMLIB(IEASYS00) COLUMNS 00001 00072 COMMAND ===> SCROLL ===> CS * **** TOP OF DATA 000001 APF=00, IEAAPF00 FOR AUTHORIZED PROGRAM LIBRARIES 000002 BLDLF=00, IEABLD00 FOR BLDL MODULES 000003 CMD=00, COMMND00 FOR AUTO COMMANDS 000004 CSA=2048, 2048*1K BLOCKS FOR COMMON SERVICE AREA 000005 CVIO, CLEAR VIO AT IPL 000006 HARDCPY=(015, SYSLOG HARDCOPY DEVICE ADDRESS, 000007 ALL, RECORD ALL WTO/WTOR WITH ROUTE CODES, 000008 CMDS), RECORD ALL COMMANDS AND RESPONSES 000009 LNK=00, LNKLST00 FOR LINKLIST CONCATENATION 000010 MAXUSER=32, SYS TASKS+INITIATORS+TSO USERS 000011 PAGNUM=(3,2), ALLOW ADDITION OF 3 PAGE D/S & 2 SWAP D/S 000012 PAGE=(SYS1.PAGELPA, PAGE DATASETS C 000013 SYS1.PAGECSA, C 000014 SYS1.PAGEL00,L), 000015 REAL=128, 128*1K BLOCKS OF VIRTUAL=REAL SPACE 000016 SMF=00, SMFPRM00 FOR SMP PARAMETERS 000017 SQA=3, 3*64K SEGMENTS RESERVED FOR SYSTEM QUEUE SPACE 000018 VAL=00, VATLST00 FOR VOLUME ATTRIBUTE LIST 000019 VRREGN=64 64 BLOCKS OF V=R ALLOCATED TO VRREGN * *** BOTTOM OF DATA *** ```

The following files and folders have been uploaded to the Files area of the [email protected] group. /ms00100.txt By: Rob Prins <prin0096@...> Description: Usermod to make LNKLSTxx entries possible with volser or *

Hello folks. I'm trying to learn how to gather information on the system prior to alter it. However, I'm failing at the very first step, so I need some help to start rolling here too :-/ What I want to achieve is to gather information on what's on the Master Catalog. Initially, the first run was to try to see what catalogs are pointed on it, but the plan is to learn and get used to query for at least a bare minimum set of jobs to list essential information on the systems. And the problem is that, what I obtain is a non-execution of LISTCAT, due to the following error: NO SPACE PARAMETER OR ZERO SPACE REQUEST AT ABSTR ZERO The LISTCAT programs I've tried so far are (notice I'm using Tk5): LISTCAT UCAT ALL CAT(SYS1.MCAT.TK5) and LISTCAT SPACE ALL CAT(SYS1.MCAT.TK5) Here's a full JCL on one of those jobs: ``` //LUCTLGS2 JOB (0), // 'LIST USERCATS', // CLASS=A, // MSGCLASS=A, // MSGLEVEL=(1,1), // USER=HERC01, // PASSWORD=CUL8TR //LISTCAT EXEC PGM=IDCAMS,REGION=4096K //SYSPRINT DD SYSOUT=* //DISK0 DD UNIT=3390,VOL=SER=TK5CAT //SYSIN DD * LISTCAT UCAT ALL CAT(SYS1.MCAT.TK5) /* // ``` I've tried on Tk5 just because it is the last MVS I have running at hand... I know it is daring for a noob like me, but the error I'm getting seem to be more like a kind of syntax error on LISTCAT... Whats wrong here? Does that work on TK4-? ... has someone a working JCL for taht at hand? Thanks, regards.

Hi Apologies for the stupid question. I have seen several posts on various sites, but I am still a bit dubious about the best way to go about this. (Some involving IDCAMS, some involving combinations of DISPs) Essentially I'd like a "standard" JCL step that returns a non zero code (or a zero code) if a dataset exists, in order to check it is subsequent steps. What is the consensus about how you do this? Thanks -- Marco Antoniotti Somewhere over the rainbow

(I think) I understand that console messages are stored in a Master Trace Table in a round robin fashion. I seem to recall seeing something on a CBT tape somewhere that used this as a vehicle for automating responses to WTOs, instead of using IEECVXIT. Has anyone else seen or done anything like this?

has anyone (successfully) experimented with having a program running under MVS using a virtual CTCA to talk to a host application?

I have an MVS 3.8J that I created. I have installed JRP from the latest CBT tape (file 755, I believe). I added the requisite stuff to SYS1.VTAMLST. VTAM is started. TSO is started. JRP is started. How do I connect to the JRP control terminal? I connect a 3270, but LOGON APPLID(CJRP) just gives me 'INVALID USERID, APPLID(CJRP)'. LOGON APPLID=CJRP gives me 'INVALID KEYWORD APPLID=CJRP'. What am I doing wrong?