Re: CCSID descriptions
On Thu, 14 Jan 2021 08:17:23 -0600, Paul Gilmartin wrote: >On Wed, 13 Jan 2021 09:04:03 -0600, Norbert Friemel wrote: > >>On Wed, 13 Jan 2021 08:58:49 +, Windt, W.K.F. van der (Fred) wrote: >>> >>>The IBM website used to have complete descriptions of every CCSID including >>>a complete overview of every character (glyph) in that CCSID with it's >>>encoding. Simply googling "IBM CCSID 1140" would quickly get you to the page >>>of CCSID 1140. The CCSID was in the url so you could quickly switch to >>>another CCSID by changing the url. But with the change to Knowledge Center I >>>can't find those pages anymore... Does anybody know where the CCCSID >>>descriptions have gone? >> >>Not a website but ... >>ftp://ftp.software.ibm.com/software/globalization/gcoc/attachments/ >> >That would benefit greatly from an index mapping countries to CCSIDs. > > The old website is (partly) archived @ <https://web.archive.org/web/20160303235746/http://www-01.ibm.com/software/globalization/cp/cp_cpgid.html> I don't know how usable it is Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CCSID descriptions
On Wed, 13 Jan 2021 08:58:49 +, Windt, W.K.F. van der (Fred) wrote: >Hi, > >The IBM website used to have complete descriptions of every CCSID including a >complete overview of every character (glyph) in that CCSID with it's encoding. >Simply googling "IBM CCSID 1140" would quickly get you to the page of CCSID >1140. The CCSID was in the url so you could quickly switch to another CCSID by >changing the url. But with the change to Knowledge Center I can't find those >pages anymore... Does anybody know where the CCCSID descriptions have gone? > Not a website but ... ftp://ftp.software.ibm.com/software/globalization/gcoc/attachments/ Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Invoking Enterprise PL/I Compiler
On Tue, 11 Sep 2018 13:27:28 +, Jousma, David wrote: >Jim, > >We had this exact same issue. SCRT reporting PLI usage when we don’t have >PLI. Do you use IBM FileManager? There is an imbedded copy of PLI compiler >in it that was cutting data that SCRT was seeing. We ran into this a while >ago, so my PMR on the matter has rolled off. But in the end, I believe they >provided a PTF. https://www-01.ibm.com/support/docview.wss?uid=swg1PI90402 Norbert Friemel > >-Original Message- >From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >Behalf Of Jim Horne >Sent: Tuesday, September 11, 2018 8:18 AM >To: IBM-MAIN@LISTSERV.UA.EDU >Subject: Invoking Enterprise PL/I Compiler > >**CAUTION EXTERNAL EMAIL** > >**DO NOT opentattachments or click on links from unknown senders or unexpected >emails** > >Is there any way to invoke the PL/I v5 compiler besides PGM=IBMZPLI? My SCRT >report says I am using the compiler but scanning my type 30 records I do not >see program IBMZPLI anywhere. > >Any help is appreciated, >Jim Horne > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, send email to >lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL >EMAIL** > >**DO NOT open attachments or click on links from unknown senders or unexpected >emails** > >This e-mail transmission contains information that is confidential and may be >privileged. It is intended only for the addressee(s) named above. If you >receive this e-mail in error, please do not read, copy or disseminate it in >any manner. If you are not the intended recipient, any disclosure, copying, >distribution or use of the contents of this information is prohibited. Please >reply to the message immediately by informing the sender that the message was >misdirected. After replying, please erase it from your computer system. Your >assistance in correcting this error is appreciated. > > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: Re: Where do I find a list of world timezones in z/OS USS notation?
On Tue, 24 Apr 2018 03:31:15 -0500, Giliad Wilf wrote: > >Here, IDT started Friday, March 23rd, 2am and will end Sunday, October 28th, >2am, so, if I specify... > >IST-2IDT,M3.4.5,M10.5.0 > M3.5.5 in 2019 (and 2024, 2030, ...) (5th Friday) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where do I find a list of world timezones in z/OS USS notation?
On Mon, 23 Apr 2018 07:21:09 -0500, John McKown wrote: > >I also have the timezone in the LE parameters member of PARMLIB. I.e. >CEEPRM00. LE has the concept of "environment variables" which is similar to >UNIX. So I set the TZ variable for LE as well. I'm not sure if this is >required or not. Example: > TZ and/or _TZ https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.cbcpx01/custim.htm Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: Re: AW: Re: Where do I find a list of world timezones in z/OS USS notation?
On Wed, 25 Apr 2018 08:35:31 +0200, Peter Hunkeler wrote: >... > >No, I was referring to below listed statement found in the description of TZ >in the z/OS UNIX Command Reference: >... > > >I will send an RCF, because the description in the named book does not mention >what happens when start/end of period is *not* specified. > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.bpxa500/bpxa50065.htm "Neither starttime nor endtime are required. If they are omitted, their values default to 02:00:00. If this daylight saving time rule is omitted altogether, the values in the rule default to the standard rules for American daylight saving time." and https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.cbcpx01/cbc1p2559.htm "Neither starttime nor endtime are required, and when omitted, their values default to 02:00:00. If this daylight savings time rule is omitted altogether, the values in the rule default to the standard American daylight savings time rules starting at 02:00:00 the second Sunday in March and ending at 02:00:00 the first Sunday in November." Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IATUTIS - Syntaxchecker for JES3
On Thu, 22 Mar 2018 23:57:23 +0530, Peter wrote: >Hi, > >I am exploring the options to run JES3 inish deck checker on a live system >to verify the syntax. > >https://books.google.co.in/books?id=AFnAAgAAQBAJ=PA200=PA200=IATUTIS+syntax=bl=EW-K4FfV45=6B4HzmMBb51fcjQW9QJeBtEHzEc=en=X=0ahUKEwjA9O69xYDaAhVLLo8KHa5uBoMQ6AEIKDAA#v=onepage=IATUTIS%20syntax=false > >I have some questions about the IATUTIS JCL, > >1 ) Can I run the JCL on a live system ? Yes >2 ) what exactly would be there to replace or contain STG1CODE dd statement >?(sorry to ask this dummy question) Either a PDS with (a) member(s) created by HCD (CBDMGHCP) or a dummy data set See https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.iata600/iat2n2_Using_MVS_Hardware_Configuration_Definition__HCD_.htm https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.iata600/iat2n2_How_to_Run_Step_2.htm https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.iata600/testing.htm Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Pu
On Wed, 31 Jan 2018 20:19:13 +, Seymour J Metz wrote: >I sometimes add references to Wikipedia articles and would like to know >whether there is a URL for a current z Principles of Operations manual that >does not require an IBM userid. > > z/Architecture Principles of Operation SA22-7832-11 Twelfth Edition (September, 2017) http://publibz.boulder.ibm.com/epubs/pdf/dz9zr011.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zr011.pdf z/Architecture Principles of Operation SA22-7832-10 Eleventh Edition (March, 2015) http://publibz.boulder.ibm.com/epubs/pdf/dz9zr010.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zr010.pdf z/Architecture Principles of Operation SA22-7832-09 Tenth Edition (September, 2012) http://publibz.boulder.ibm.com/epubs/pdf/dz9zr009.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zr009.pdf z/Architecture Principles of Operation SA22-7832-08 Ninth Edition (August, 2010) http://publibz.boulder.ibm.com/epubs/pdf/dz9zr008.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zr008.pdf z/Architecture Principles of Operation SA22-7832-07 Eighth Edition (February, 2009) http://publibz.boulder.ibm.com/epubs/pdf/dz9zr007.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zr007.pdf z/Architecture Reference Summary SA22-7871-09 Tenth Edition (September, 2017) http://publibz.boulder.ibm.com/epubs/pdf/dz9zs009.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zs009.pdf z/Architecture Reference Summary SA22-7871-08 Ninth Edition (March, 2015) http://publibz.boulder.ibm.com/epubs/pdf/dz9zs008.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zs008.pdf z/Architecture Reference Summary SA22-7871-07 Eighth Edition (September, 2012) http://publibz.boulder.ibm.com/epubs/pdf/dz9zs007.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zs007.pdf z/Architecture Reference Summary SA22-7871-06 Seventh Edition (August, 2010) http://publibz.boulder.ibm.com/epubs/pdf/dz9zs006.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zs006.pdf z/Architecture Reference Summary SA22-7871-05 Sixth Edition (February, 2009) http://publibz.boulder.ibm.com/epubs/pdf/dz9zs005.pdf or http://publibfp.dhe.ibm.com/epubs/pdf/dz9zs005.pdf Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ES/9000 Console Cable
On Tue, 19 Dec 2017 10:13:29 -0500, William Donzelli wrote: >I suppose I should ask if anyone out there has this manual? It seems >to be gone for the archive. > >-- >Will > >On Tue, Dec 19, 2017 at 8:58 AM, Parwez Hamid <parwez_ha...@hotmail.com> wrote: >> Manual is GA24-4187-04 >> https://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/DB2AMA00/CCONTENTS?DT=19940722101112 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CA1 to RMM conversion
On Wed, 25 Oct 2017 06:39:15 -0500, Todd Burrell wrote: >We're investigating what it would take to convert from CA1 to RMM. I've >looked back through the archives and most of what I see is very dated, so I >was going to see if anyone has any documentation they can send me to help with >this? I thought there used to be a Redbook for this, but I cannot find it. >Any help would be greatly appreciated. >Thanks > https://www.amazon.com/dp/0738498653 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SEC System - Edgar
On Fri, 22 Sep 2017 13:14:59 +0200, Mike Beer wrote: >Hi >EDGAR was a fullscreen editor on VM/CMS - the predecessor to XEDIT. >https://www-01.ibm.com/events/wwe/grp/grp019.nsf/vLookupPDFs/7%20-%20VM-45-J >ahreHistory-EA-J-Elliott%20%5BKompatibilit%C3%A4tsmodus%5D/$file/7%20-%20VM- >45-JahreHistory-EA-J-Elliott%20%5BKompatibilit%C3%A4tsmodus%5D.pdf > 5796-PJP Display Editing System for CMS "The DISPLAY EDITING SYSTEM FOR CMS is a general purpose data file editing system for CMS data files of all types, including program source material, documentation, etc. This document, for example, was originally produced on a display terminal using the DISPLAY EDITING SYSTEM FOR CMS. The system comprises several components: - EDGAR Edits Data Graphically And Recurrently. This component pro- vides the basic editing system functions and is invoked by the CMS com- mand EDGAR."... http://bitsavers.org/pdf/ibm/370/CMS/SH20-1965-0_Display_Editing_System_for_CMS_EDGAR_Users_Guide_Sep77.pdf -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LE strikes again
On Mon, 10 Jul 2017 14:49:10 +0200, Peter Hunkeler wrote: > >Have the customer add a DD statement for CEEOPTS and add TRAP(OFF) as sysin >data to that.This will turn off LE's ESTAE and ESPIE routines, so you should >get a dump of the original problem. > The CEEOPTS-DD-statement was new in z/OS 1.7 On Mon, 10 Jul 2017 18:20:16 +0700, Robin Atwood wrote: > >z/OS 1.4 on a z850 so when I received the dump I confidently expected the >PSW to be pointing at an unsupported > Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Choosing Windows for your organization should get you fired [Network World]
On Fri, 30 Jun 2017 21:12:48 +0200, R.S. wrote: > >I'll ask again: how many Linux machines were affected by latest >ransomware attacks? >Was it ZERO? At least 153 servers: https://arstechnica.com/security/2017/06/web-host-agrees-to-pay-1m-after-its-hit-by-linux-targeting-ransomware/ > >I can say some of my familiars (friends, family, etc) were victims of >various cyber attack including ransomware, but it was always Windows (or >DOS in Very Old Days). Linux users were never affected. I'm not talking >about advanced users. > > Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SoftAudit ?
On Wed, 10 May 2017 09:20:35 -0500, Dyck, Lionel B. (TRA) wrote: >Whatever happened to SoftAudit from Isogon? Did IBM pick it up and rename it >or did it die with the IBM acquisition? > >Are there any other products that will detect the running programs and >identify them back to a vendor and product? > https://www-01.ibm.com/common/ssi/ShowDoc.wss?docURL=/common/ssi/rep_sm/4/897/ENUS5698-AA4/index.html http://ubs-hainer.com/solutions/p-tracker Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question on TZ and European time change
On Thu, 3 Nov 2016 13:14:13 -0700, Charles Mills wrote: >Thanks much. That gives me two things to tell the customer to look at. > >Is the D in CEDT in your post a typo or are you looking at a different IBM >recommendation than I am? > >Does anyone happen to know what the default date is if you specify the short >form CET1CEST rather than the long form CET1CEST,M3.5.0,M10.5.0? > >Charles 'TZ=CET-1CEST,M3.5.0/2:00,M10.5.0/3:00' http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.cbcpx01/cbc1p2559.htm " If this daylight savings time rule is omitted altogether, the values in the rule default to the standard American daylight savings time rules starting at 02:00:00 the second Sunday in March and ending at 02:00:00 the first Sunday in November." https://en.wikipedia.org/wiki/Summer_Time_in_Europe Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Capture REXX/CLIST software usage.
On Wed, 14 Sep 2016 07:21:03 -0500, Elardus Engelbrecht wrote: > >On a side note: I wish the REXX and CLIST interpreter has an exit which is >called BEFORE any interpreting is started. Are there such exits? They could be >useful for monitoring the usage of those interpreted program languages. > IKJCT43I ? http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4b4c0/5.5.1?SHELF=all13be9 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CSV delimited file to "normal" fixed length char fields, in COBOL.
On Mon, 12 Sep 2016 09:34:21 -0500, John McKown wrote: >> >T >hat reference is for 2.1, not 1.12, but if something similar is available >on 1.12, it would probably be very good. > > 1.12 link http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1cg50/2.5.1?SHELF=EZ2ZBK0K=20100628091856 It's available since DFSORT V1R5 PTF UK90007/DFSORT R14 PTF UK90006 (April 2006): ftp://ftp.software.ibm.com/storage/dfsort/mvs/sortpeug.pdf Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CSV delimited file to "normal" fixed length char fields, in COBOL.
On Mon, 12 Sep 2016 09:05:29 -0500, John McKown wrote: >We are running z/OS 1.12 on a z9BC. We have COBOL 3.4. Neither will ever be >upgraded. We will not obtain new hardware or software. Given the absolute >truth of the preceding :-( does anybody know a better way to convert a CSV >file, coming in from a UNIX box, to a "normal" sequential file with fixed >length character fields. At present we use the UNSTRING verb to do this. We >get these files daily and they are 100s of thousands to a bit over a >million records. This takes a while, both wall clock and CPU wise. Oh, >these actually use the pipe symbol, | (0x4F) and not a comma, if that is of >any relevance. Please don't suggest HLASM because our programming staff >(two people) basically knows only two languages: COBOL and CA-EasyTrieve. DFSORT (PARSE): http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.iceg200/ice2cg_Using__nnn___nn_and__n_Parsed_Fields_with_BUILD_and_OVERLAY.htm Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Kind of COND in a CLIST
On Thu, 21 Jul 2016 14:36:30 +0200, R.S. wrote: > I'm going to submit huge command list in a batch (IKJEFT01). The > commands are unrelated (no loops, etc.) however I want to stop the > script after command failure, that means RC<>0. > > Example: > //STEP1 EXEC PGM=IKJEFT01 > //SYSTSPRT DD SYSOUT=* > //SYSTSIN DD *,DLM=@@ > /* command list */ > RDEF class PROFILE1.** ... > RDEF class PROFILE2.** ... Replace IKJEFT01 with IKJEFT1A (or IKJEFT1B)? https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ikjc200/jcl_exec.htm Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for an answer to an SVC question
On Thu, 7 Jul 2016 08:54:29 -0400, Steve Thompson wrote: >I am looking for an old Field Engineers Handbook entry on SVCs. > >SVC 50 used to be documented there (and as I recall, it doesn't >say much, but what it does say is important). > >I'd like to know what is found in one of those books. I don't >have, available to me now, anything prior to z/OS 1.1. And I >think it was also documented in the MVS/XA Diagnosis Ref. (or >what ever it was called in those days), but the current books >just say reserved. > http://paul.saers.com/MVS_treasures_01.html Page 60 (pdf): https://archive.org/details/bitsavers_ibm360feS2SystemFEHandbookJul71_9869324 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where is format of Job ID documented?
On Wed, 15 Jun 2016 14:05:09 -0700, Charles Mills wrote: >I was specifically wondering what could appear in the first position or first >three positions. Is J(OB), S(TC) and T(SU) the complete set? I thought I >seemed to remember A-something for APPC transactions? No? Anything else? > >Charles > "A" + seven digits in SMF30JNM? https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieag200/rec30ids.htm Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Freeing up space in a VSAM file
On Tue, 15 Mar 2016 07:57:41 +0200, Steff Gladstone wrote: >Greetings, > >We have a KSDS file that gradually fills up with records. After deleting a >large number of records we still received nonzero response codes when >trying to add new records indicating that there is no available space in >the file. We have no alternative but to disable access to the file and >reorganize it, causing quite a disruption to operations. > >Presumably this is because of the way the indexes are organized. Any >advice? What parameters do you suggest we "play" with to ameliorate the >situation? > CA_RECLAIM? http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d4a0/2.5.3.3 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Active versus archive log data sets in DB2
On Wed, 10 Feb 2016 13:28:12 +0100, R.S. wrote: > Peter, > You are right, active log is copied to archlog, but after that the > actlog is "in scratch status", that mean it can be reused. > It is very similar to SMF SYS1.MANx datasets. > > And yes, after succesful copy actlog -> archlog the data will be > searched in archlog. Actlog is logically empty (until reuse). > No, an offloaded active log dataset is only marked "reusable". Reusable logs are used as far back as possible in rollback/recovery. http://www.idug.org/p/fo/et/thread=23811 http://www-01.ibm.com/support/knowledgecenter/SSEPEK_11.0.0/com.ibm.db2z11.doc.admin/src/tpc/db2z_retrievelogrecords.dita "Log records are retrieved by DB2 through the following events: - A log record is requested using its RBA. - DB2 searches for the log record in the following locations in the order in which they are presented: 1. The log buffers. 2. The active logs. The bootstrap data set registers which log RBAs apply to each active or archive log data set. If the record is in an active log, DB2 dynamically acquires a buffer, reads one or more CIs, and returns one record for each request. 3. The archive logs. DB2 determines which archive volume contains the CIs, dynamically allocates the archive volume, acquires a buffer, and reads the CIs." https://www-01.ibm.com/support/knowledgecenter/SSEPEK_10.0.0/com.ibm.db2z10.doc.inst/src/tpc/db2z_activelogdsstgreqs.dita "When DB2 fills up one active log data set, it must offload the log data to an archive log data set. At the same time, DB2 begins writing to the next active log data set. When DB2 reaches the last active log data set, it starts again with the first active log data set." A reusable log is an active log data set. The RBA range for a reusable log is in the BSDS (see DSNJU004/print log map http://www-01.ibm.com/support/knowledgecenter/SSEPEK_10.0.0/com.ibm.db2z10.doc.ugref/src/tpc/db2z_dsnju004output.dita ) > Regarding buffers I think you ar wrong. Buffers are heavily used for > tables, but not for log. Due to transaction integrity active log is > immediately written to DASD. http://www-01.ibm.com/support/knowledgecenter/SSEPEK_11.0.0/com.ibm.db2z11.doc.admin/src/tpc/db2z_howcreatelogrecords.dita Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Deleting a dataset that GRS has enqueued.
On Wed, 27 Jan 2016 09:00:05 -0600, Peter Ten Eyck wrote: >A question about deleting a dataset that GRS (z/OS 1.13) has enqueued. > >We have two LPARs in a sysplex, each with their own catalog structure. There >is a dataset named the same and cataloged in each LPAR on two different >volumes. > >I would like to delete the dataset in one of the LPARs, but the name is in use >by the other LPAR and enqueued by GRS. Any suggestions of how to delete the >dataset in the LPAR (and on the volume) that is not being used? 1. Create RACF facility class profile STGADMIN.DPDSRN.olddsname, rename the dataset (ISPF 3.4), delete the renamed dataset http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2s382/2.6.3.4 or 2. Use program BYPASSNQ ( File183 http://www.cbttape.org/cbtdowns.htm ) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Lrecl
On Sun, 29 Nov 2015 05:26:26 -0600, Elardus Engelbrecht wrote: > >>I don't know how much of this is supported by COBOL except that coding BLOCK >>CONTAINS 0 RECORDS allows SDB to operate. Omitting the BLOCK CONTAINS clause >>is equivalent to coding BLOCK CONTAINS 1 RECORD(S). A supremely stupid >>default except, perhaps, in that it supports unit record devices. > >True. I don't like that, but have accepted do it the 'COBOL way'. G. > >So, I always include that BLOCK CONTAINS clause. > > ... or use the BLOCK0 compiler option in COBOL 4.2 and later: http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/igy3cg50/2.11 http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/igy3pg50/2.4.7 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RSU APPLY
On Mon, 16 Nov 2015 11:28:53 +0530, Mainframe Mainframe wrote: >Hi, > While apply RSU into SMPE, do we need to specify only that particular >RSU number in SOURCEID parm or we can use RSU* . For example > > >Currently in our z/OS system we RSU1403 and now we planning to apply >RSU1509 then in this case, in SOURCEID parameter what we should be >specifying > >SOURCEID(RSU1509) or SOURCEID(RSU*) . > SOURCEID(RSU12* RSU13* RSU14* RSU150*) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: I just bought an IBM z890
On Tue, 10 Nov 2015 15:17:14 -0700, Mark Post wrote: >>>> On 11/9/2015 at 01:36 AM, Connor Krukosky <conn...@connorsdomain.com> >>>> wrote: >> Once you use the OS Messages to configure the network port on one of the >> OSA cards you can SSH into it, I assume this is what you mean by the >> ASCII console. > >No. Newer HMCs have a feature called the "Integrated ASCII console." I'm not >sure when that came into being, but I doubt your z890 has it. > > z890 System Overview, Chapter 9-2: http://www-01.ibm.com/support/docview.wss?uid=isg29572de854cf3558185256e4d005b9e15=1 Hardware Management Console Operations Guide, Version 1.8.2, Chapter 3-20: http://www-01.ibm.com/support/docview.wss?uid=isg2d37db3ef98da032e85256e550073182c=1 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Redirect or hide IEBCOPY output when using the TSO RECEIVE Command
On Mon, 26 Oct 2015 00:34:13 -0400, Robert A. Rosenberg wrote: >At 09:51 -0500 on 10/25/2015, Shmuel Metz (Seymour J.) wrote about >Re: Redirect or hide IEBCOPY output when using the TSO RECE: > >>In <p06240405d2508dc524bc@[192.168.1.242]>, on 10/23/2015 >>at 09:25 PM, "Robert A. Rosenberg" <hal9...@panix.com> said: >> >>>WAD is often a misspelling of BAD (Broken As Designed) >> >>Yes, but it is not even close to PRS, which acknowledges that there is >>a defect. > >What does PRS stand for? > Permanent ReStriction https://www-304.ibm.com/support/customercare/sas/f/handbook/acronyms.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS version by Sysres Module
On Fri, 23 Oct 2015 20:35:46 +0530, Peter wrote: >Hello, > >Is there a module within SYSRES dataset's which can help me to determine >the z/OS version ? > >This Question is just for the Knowledge sake and not trying solve any >problem. > >Any Pointers ? > //STEP1 EXEC PGM=AMASPZAP //SYSLIBDD DISP=SHR,DSN=SYS1.NUCLEUS //SYSPRINT DD SYSOUT=* //SYSIN DD * DUMPT IEANUC01 IEASYSID /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT (old) enhancement
On Thu, 10 Sep 2015 16:21:13 +0200, R.S. wrote: > I'm just reading DFSORT presentation and found the following: > > Additional work data sets > –DFSORT V1R12 provided capability for dynamic allocation of additional > work data sets that are only used if needed > –Primary space of zero > –Secondary space only allocated if needed > > Q: How can I use the above enhancement or read more about it? Installation option DYNAPCT "specifies additional work data sets to be dynamically allocated with zero space. DFSORT only extends these data sets when necessary to complete a sort application. The availability of additional work data sets can help avoid out of space ABENDs." http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/BOOKS/ice1ci20/2.2.7 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS pricing question
On Wed, 9 Sep 2015 16:00:27 +, J O Skip Robinson wrote: >The crux of this question involves a 'version change', i.e. from V1 to V2. In >general, not just for z/OS, IBM allows two versions to coexist for a period of >time without charging separately. This period is normally one year, but in the >case of z/OS V1 --> V2, an extra year has been granted in general to all >customers. Meanwhile, the price for V1 has been adjusted to match that of V2, >so there is no longer a financial incentive to remain down level. Once V2 is >installed, the two-year clock starts ticking. > >Note that this rule is not about CECs or LPARs. It's about a customer account. >If a customer is licensed for and installs V2, V1 needs to disappear >altogether from the enterprise within two years. > >Note: this a customer's view of the world, not an official IBM pronouncement. > "Single Version Charging (SVC)" http://www-03.ibm.com/systems/z/resources/swprice/subcap/corner2.html "Migration Pricing Option (MPO)" http://www-03.ibm.com/systems/z/resources/swprice/reference/announce.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF 3.2 (allocate) does not honor SDB
On Mon, 7 Sep 2015 11:15:01 +0200, Peter Hunkeler wrote: >It seems I'm having a senior moment. > > >For years, I used to allocate data sets in ISPF 3.2, leaving the block size >field empty. The system then calculated the block size based on RECFM anf >LRECL. The result was half track blocking. > > >At my new employer, I get the block size set to maximum (for RECFM & LRECL), >so FB-80 leads to 32720. This is z/OS V2.1. This is only via ISPF 3.2; in >batch, I still get half track blocking. > > >What am I missing? > What type of dataset? PS, PO, PDSE, ...? The optimal block size for PDSE (FB-80, DSNTYPE=LIBRARY) is 32720. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: Re: ISPF 3.2 (allocate) does not honor SDB
On Mon, 7 Sep 2015 17:59:22 +0200, Peter Hunkeler wrote:
>>What type of dataset? PS, PO, PDSE, ...? The optimal block size for PDSE
>>(FB-80, DSNTYPE=LIBRARY) is 32720.
>
>Yes, its about PDSEs. Kind a makes sense, sure. However I have been using
>PDSEs for a long time and don't seem to remeber to have seen this. Must have
>been blind (meaning I didn't care to look to carefully), obviously.
>
>
>Did this change with z/OS V2.1?
>
No.
Check the archives ("Default System BLKSIZE for PDSE" in Oct 2006)
"Partitioned Data Set Extended Usage Guide" (
http://www.redbooks.ibm.com/abstracts/sg246106.html?Open ) Figure 10-32 shows a
PDSE created 2004-11-04 with SMS.IND=R (SDB) and block size 32720.
Norbert Friemel
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP - how get RDW and ASCII
On Tue, 1 Sep 2015 08:01:42 -0700, Charles Mills wrote: >I have a legacy dataset in VB format. I would like to FTP it to a PC (1) >translating the record data to ASCII and (2) preserving the LLBB record >control words. (Don't need the block control words.) I tried the obvious >ASCII and QUOTE SITE RDW but FTP has translated my RDWs to ASCII (rendering >them useless of course). Does anyone have a clever trick to translate the >"data" portion of the records to ASCII but preserve the LLBBs? > >This is a one-time development chore, not a nightly production job. I'm not >fussy about code pages and so forth. The dataset is small: 30 records, 20K >total. > >One of you UNIX experts: should I just translate it to ASCII on z/OS first >and then FTP it in binary with RDWs? Would someone be so kind as to share >the command to do the translate? Again, the existing dataset is legacy MVS, >and I need to preserve LLBBs. > > Not Unix, but... //* //STEP1 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SORTINDD DISP=OLD,DSN=VB-EBCDIC //SORTOUT DD DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5),RLSE), // DSN=VB-ASCII //SYSIN DD * OUTFIL BUILD=(1,4,5,TRAN=ETOA) OPTION COPY /* ... or use dataset pipes (fromdsn -l rdw -s IBM- -t IBM- ...) http://www.dovetail.com/docs/coz/dsp-ref_fromdsn.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Catalog Entry Deletion using a String
On Thu, 13 Aug 2015 20:50:29 +0530, Peter wrote: Hello All, Is it possible to delete a catalog entry using a first HLQ alone ? Like deleting all entry of ZOS21.** instead of specifying each and every qualified dataset ? delete zos21.** mask http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2i2a1/20.1.1.1 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RMM OAM and 3494
On Thu, 6 Aug 2015 15:24:34 +0200, R.S. wrote: I have noticed discrepancy between RMM db and OAM + Library Manager db. In RMM I see the tape S1 as SCRATCH, but OAM claims it is PRIVATE. 3494 interface also claims the volume is in PRIVATE category. What should I do to reconcile the status of the tape? The tape should be scratch. Any clue? Details: z/OS 1.13, OAM, 3494, 3592-J1A drives (only), JA carts. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2C8A0/17.11.8 http://www-01.ibm.com/support/docview.wss?uid=isg3T1019471 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: VSAM extents
On Thu, 23 Jul 2015 18:32:12 +, william janulin wrote: In running a download job that populates this cluster, when it goes to allocate additional extents, it is doing it in track allocations of 540 trks. I would have thought that it would allocate the secondary allocation of 1 cylinders. The dataclass I am using specifies extended format and extended addressability. What am I missing? APAR OA44214 The issue is that when a zFS aggregate dynamically extends the secondary allocation defined for the zFS aggregate is not used. Instead, zFS made a change to only extend by approx 36 cylinders each time. 540 trks = 36 cyls Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Search for SDF II R4 documentation
On Wed, 24 Jun 2015 04:38:35 -0500, Juergen Kehr wrote: For a reinstallation of the very old product SDF II R4 I need a copy of the basic installation docs for this product (Program Directory, Installation Guide etc.) Several searches via Google were not succcessful, so any idea how to get the required manuals is appreciated. Order a CBPDO (with documentation) in Shopz (ProdNo 5665-366, FMID HEF1140 is still orderable)? Some manuals are @ http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/Shelves/dgi10a01 (SDF II Administrator's Guide) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How is CAMASTER started?
On Thu, 18 Jun 2015 13:38:19 +0200, nitz-...@gmx.net wrote: Search IBM-MAIN archive (or google) for TEC570878 or IKJEFXSR Thanks Norbert. I can see that CAMASTER started on this system, but I still don't know how this is actually done since no libraries containing this frontend are loaded in LPA via lpalst or command. Right now neither IKJEFXSR nor ICHALTSP can be found in active LPA: D PROG,LPA,MOD=IKJEFXSR CSV550I 06.26.56 LPA DISPLAY 748 IKJEFXSR WAS NOT FOUND IN THE LPA D PROG,LPA,MOD=CCSEFXSR CSV550I 06.27.19 LPA DISPLAY 750 CCSEFXSR WAS NOT FOUND IN THE LPA D PROG,LPA,MOD=ICHALTSP CSV550I 06.29.45 LPA DISPLAY 752 ICHALTSP WAS NOT FOUND IN THE LPA All CA libraries are concatenated behind the IBM ones in linklist, so this does not really explain it. There's no module named ICHALTSP in IBM libraries (LINKLIB, CSSLIB, MIGLIB,...). It's only in CAW0LINK. (ISPF - DDLIST - LINKLIST - MEM ICHALTSP). Norbert Friemel (just guessing: ICH ALTSP: special module for an ALTernate Security Product?) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How is CAMASTER started?
On Thu, 18 Jun 2015 11:12:27 +0200, nitz-...@gmx.net wrote: Now that CAMASTER has become a mandatory address space, I am asking myself how that address is actually started. The CA documentation makes it sound as if it were magic that starts it, but I don't believe in magic. There are knowledge base articles out there that say that starting CAMASTER at the SSI is too late (which makes sense, especially if a customer uses TSS or ACF2 for security). I would still like to know *how* it is started. Is IBM checking for the presence of certain modules in lpa and then start it during MSI? Does anyone know? Search IBM-MAIN archive (or google) for TEC570878 or IKJEFXSR Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: GRS Control Unit ( Was IBM mainframe operations in the 80s)
On Sat, 13 Jun 2015 12:43:23 +0200, R.S. wrote: Has anyone a photo of 3088? https://ia902603.us.archive.org/BookReader/BookReaderImages.php?zip=/29/items/bitsavers_ibm370feGCEquipmentInstallationPhysicalPlanningMar_20235151/GC22-7064-13_Input_Output_Equipment_Installation_Physical_Planning_Mar93_jp2.zipfile=GC22-7064-13_Input_Output_Equipment_Installation_Physical_Planning_Mar93_jp2/GC22-7064-13_Input_Output_Equipment_Installation_Physical_Planning_Mar93_0023.jp2scale=4rotate=0 or page 24 (3088-1) http://bitsavers.org/pdf/ibm/370/fe/GC22-7064-13_Input_Output_Equipment_Installation_Physical_Planning_Mar93.pdf Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
On Wed, 10 Jun 2015 09:32:38 -0700, Sri h Kolusu wrote: Minoru Massaki, Norbert had an excellent idea to overcome the issue of having spaces at the beginning or at the end. Converting to hex would overcome the issue of truncation with JFY. However you do NOT require 2 passes of data to insert the trailing character using VLTRAIL and then use Joinkeys. I have optimized the Job. The trick here is to use the same input file for Joinkeys. The subtask2 file is where we convert to hex and perform the JUSTIFY to RIGHT and pick of the last 16 bytes and then unhex that 16 bytes back to 8 bytes. we are appending a 4 byte sequence number to match the 2 files. And since they are already in order, we also have SORTED and NOSEQCK so that we use a copy operation for Joinkeys. Yet another version (the final): single pass, no join, all data (x'00-x'ff') allowed: //* //STEP1 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SORTINDD DISP=OLD, // DSN=??? //SORTOUT DD DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5),RLSE), // LRECL=16380,RECFM=VB, // DSN=??? //DISCARD DD DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5),RLSE), // DSN=??? //SYSIN DD * OUTFIL INCLUDE=(1,2,BI,GE,12,,1,2,BI,LE,max_lrecl), IFTHEN=(WHEN=INIT, BUILD=(1,4,5,HEX)), IFTHEN=(WHEN=INIT, OVERLAY=(5:hex_data,JFY=(SHIFT=RIGHT))), IFTHEN=(WHEN=INIT, BUILD=(1,4,key_start,16,C'40',hex_data,JFY=(SHIFT=LEFT))), IFTHEN=(WHEN=INIT, FINDREP=(IN=(C' '),OUT=C'')), IFTHEN=(WHEN=INIT, BUILD=(1,4,5,TRAN=UNHEX)) OUTFIL FNAMES=DISCARD,SAVE OPTION COPY /* //SYMNAMES DD * max_lrecl,16367 * INT((32756-4-18)/2) hex_data,5,32734 * 2*max_lrecl key_start,32723 * hex_data-16+5 /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
On Wed, 10 Jun 2015 14:57:33 -0700, Sri h Kolusu wrote: Norbert, As I mentioned earlier it can be done in single pass as shown earlier, I was just trying to optimize your Joinkeys job. With your new job there a couple of issues 1. I am not sure as to why you need to append C'40' (may be you meant X'40') 2. With the append of C'40' your output LRECL is increased by 1. ie. the output now has LRECL+8+1 Quote from the first post in this thread: There is a input file of variable length records. I want to insert the last 8 bytes of a record to front of the record as following sample. Input file: RECORD01X11 RECORD02Y2 RECORD03ZCCC RECORD044A444 RECORD0555B Output File I want to have: RECORD01X11 RECORD02Y2 ZCCC RECORD03ZCCC RECORD044A444 RECORD0555B Record data before the last 8 bytes may contain x'00' thru x'FF', there is no specific delimiter character for parsing the last 8 bytes. The last 8 bytes is also binary. The output example shows the last 8 bytes of the input records in col. 1-8 and a space on col. 9. The data from the input record starts at col 10. I create the output record as a HEX string and convert it back in the last step. That's why I append C'40' (it's converted to x'40' in the last BUILD-statement: 1. BUILD=(1,4,5,HEX)) converts the input record to hex 2. OVERLAY=(5:hex_data,JFY=(SHIFT=RIGHT))) shifts the hex string (inserts spaces to the left) 3. BUILD=(1,4,key_start,16,C'40',hex_data,JFY=(SHIFT=LEFT))) creates a record with the last 16 bytes of the hex string, a hexified space (C'40') and the (hexified) input record shifted to the left (spaces on the right) 4. FINDREP=(IN=(C' '),OUT=C'')) removes spaces (x'40' at the end of the record, not c'40' in col. 17/18) 5. BUILD=(1,4,5,TRAN=UNHEX)) converts to record to binary The other single pass job needed special/reserved characters not in the input data. This job allows all characters in the input data (for lrecl 16k) 3. I am not sure as to why you need to validate the RDW to remove the short records. JFY will pad up short records. So even if you records with lrecl less than 12 it will only pick the available characters. JFY pads the HEX string with spaces (x'40'). I thought that converting this with TRAN=UNHEX adds (unwanted) x'00's to col. 1-8 of short records. But that's not the case - FINDREP removes the leading spaces. So yes, the RDW check could be removed. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
On Wed, 10 Jun 2015 02:37:49 +0900, Minoru Massaki wrote: Hello Friemel-san, Thank you for your DFSORT JCL. In our z/OS V2.1 system, your JCL didn't work correctly. (output looked like all blank) After changing VLTRAIL parameter from two characters '|' to three characters such as C'|', it does work fine. I can't test this now but I guess OPTION VLSHRT is missing. Another error: INREC PARSE should start at position 9 (after the sequence number) INREC PARSE=(%00=(ABSPOS=9,STARTAFT=C'',FIXLEN=1), ... Complete job (with minor modifications, *untested*): //* //STEP1 EXEC PGM=ICETOOL //* //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //INDD DISP=OLD,DSN=VB-INPUT-DS //TEMP1 DD SPACE=(TRK,(150,150),RLSE) //TEMP2 DD SPACE=(TRK,(150,150),RLSE) //SHORT DD DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(150,150),RLSE), // DSN=VB-SHORTREC //OUT DD DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(150,150),RLSE), // DSN=VB-OUTPUT-DS //CTL1CNTL DD * OUTFIL FNAMES=TEMP1,BUILD=(1,4,SEQNUM,4,BI,5), INCLUDE=(1,2,BI,GE,12) OUTFIL FNAMES=TEMP2,BUILD=(1,4,SEQNUM,4,BI,5,HEX), INCLUDE=(1,2,BI,GE,12),VLTRAIL=C' ' OUTFIL FNAMES=SHORT,SAVE /* //CTL2CNTL DD * JOINKEYS F1=TEMP1,FIELDS=(5,4,A),TASKID=T1,SORTED JOINKEYS F2=TEMP2,FIELDS=(5,4,A),TASKID=T1,SORTED REFORMAT FIELDS=(F1:1,4,F2:9,9,F1:9) /* //T1F1CNTL DD * /* //T1F2CNTL DD * OPTION VLSHRT INREC PARSE=(%00=(ABSPOS=9,STARTAFT=C'',FIXLEN=1), %01=(SUBPOS=18,FIXLEN=16)), BUILD=(1,4,5,4,%01,TRAN=UNHEX,%00) /* //TOOLINDD * COPY FROM(IN) USING(CTL1) COPY JKFROM TO(OUT) USING(CTL2) /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - How to select last 8 bytes in variable length records
On Mon, 8 Jun 2015 17:14:33 +0900, Minoru Massaki wrote: Hello Kolusu-san, Thank you very much for giving the answer by using DFSORT. That is what the customer wants to. I have additional questions. If the 8 bytes key is binary data and some records include x'40' of the last byte of the key, (ex. if the key is binary number 64 -- x'0040') Does the shifting to right (JFY=(SHIFT=RIGHT)) work as I expected? In case of the last and the first byte of the records contain x'40', what should I modify the DFSORT control statements you gave me. On z/OS 2.1 (VLTRAIL is new in 2.1) try: //* //STEP1 EXEC PGM=ICETOOL //* //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //INDD DISP=OLD,DSN=VB-INPUT-DS //TEMP1 DD SPACE=(TRK,(75,75),RLSE) //TEMP2 DD SPACE=(TRK,(150,150),RLSE) //OUT DD DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(75,75),RLSE), // DSN=VB-OUTPUT-DS //CTL1CNTL DD * OUTFIL FNAMES=TEMP1,BUILD=(1,4,SEQNUM,4,BI,C' ',5) OUTFIL FNAMES=TEMP2,BUILD=(1,4,SEQNUM,4,BI,5,HEX),VLTRAIL=C'|' /* //CTL2CNTL DD * JOINKEYS F1=TEMP1,FIELDS=(5,4,A),TASKID=T1,SORTED JOINKEYS F2=TEMP2,FIELDS=(5,4,A),TASKID=T1,SORTED REFORMAT FIELDS=(F1:1,4,F2:9,8,F1:9,1,F1:10) /* //T1F1CNTL DD * /* //T1F2CNTL DD * INREC PARSE=(%00=(STARTAFT=C'',FIXLEN=1), %01=(SUBPOS=18,FIXLEN=16)), BUILD=(1,4,5,4,%01,TRAN=UNHEX) /* //TOOLINDD * COPY FROM(IN) USING(CTL1) COPY JKFROM TO(OUT) USING(CTL2) /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 as primary with JES3 as a secondary
On Tue, 28 Apr 2015 12:49:44 +0800, Timothy Sipples wrote: I thought JES3 can still spread workload over multiple LPARs? That has nothing to do with PolyASP, which was the ability to run a secondary ASP on the same CPU. I disagree with the word nothing. Multiple LPARs often exist on the same CPU, of course. It is possible to have even a single LPAR with multiple JES3 globals. No, it's not possible to start multiple JES3 subsystems (global or local) in the same LPAR (at the same time). You can start one (and only one) JES3 subsystem per MVS image/LPAR/system and JES3 must be the primary subsystem. See SYS1.SIATSRC(IATINTK) (JES3 initialization task): *- * VERIFY WE ARE THE PRIMARY SUBSYSTEM *- SPACE 1 TMSSIBFLG1,SSIBPJES ARE WE THE PRIMARY SUBSYS? BCALLOFF,NOTPRIME NO, GO ISSUE MSG AND ABEND The message is IAT3010 JES3 IS NOT THE PRIMARY SUBSYSTEM, ABEND S2FB There's only one primary subsystem per MVS image: IEF735I IEFSSNyy: PRIMARY IGNORED. PREVIOUSLY SPECIFIED IN IEFSSNzz Explanation: Two IEFSSNxx parmlib members specified a primary subsystem. The system accepts the first specified primary subsystem name and ignores any subsequent primary subsystem names. ... and there's an ENQ in the JES3 initialization task (SYS1.SIATSRC(IATINTK): *ENQUEUE-RESOURCES = ENQUEUES ON FOLLOWING TO PREVENT *TWO JES3 PRIMARY SUBSYSTEMS FROM *BEING STARTED AT THE SAME TIME: * * QNAME - SYSZIAT * RNAME - SUBSYSTEM NAME * CONCATINATED WITH * THE CHARACTER STRING * 'ACTIVE' You can have multiple JES3 globals in a multi-system sysplex (more than 1 LPAR/MVS image), but not in a single-system sysplex. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z990 exploitation support
On Mon, 27 Apr 2015 19:09:23 -0400, Tony Thigpen wrote: Is it still possible to acquire the z990 exploitation support patch? Were? -- Tony Links found via http://archive.org/web/ Program Directory http://publibz.boulder.ibm.com/zoslib/pdf/i1128362.pdf http://publibz.boulder.ibm.com/zoslib/pdf/i1128311.pdf Download (IBM ID required) https://www14.software.ibm.com/webapp/iwm/web/preLogin.do?lang=en_USsource=z990suppt https://www14.software.ibm.com/webapp/iwm/web/preLogin.do?lang=en_USsource=z990esupt Good luck! Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CLIST conversion from lowercase to uppercase
On Wed, 8 Apr 2015 09:24:41 -0700, Richard Pinion wrote: First of all, I know I should use REXX. But my REXX skills are not as proficient as my CLIST skills. I'm reading a file that has lower case characters in the record. I'm generating SFTP commands for CoZ SFTP merged with JCL. When I write using the record which has lowercase, the lowercase characters have been automatically converted to uppercase. Is there a way to prevent this from happening? Try CONTROL NOCAPS (or CONTROL ASIS). http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/BOOKS/ikj4b870/13.4 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AMATERSE and PDSE ?
On Tue, 7 Apr 2015 03:59:30 -0500, Juergen Kehr wrote: Hello, I'm a little bit confused about the the topic named in the subject of this thread. We're using z/OS V1.13 and I successfully tersed/untersed several PDSE datasets, but now I get a RC=40 during UNTERSE of a PDSE (Load) LIBRARY. In various documentation I found statements that PDSE is supported nowadays, but why does this UNTERSE fail? Is there any special condidition for PDSE (Load) Libraries (RECFM=U) compared to other PDSE libraries (RECFM=FB or VB)? Any help appreciated. http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/BOOKS/iea2v1c2/17.4.1 Partitioned data sets extended (PDSE) containing program objects are not supported. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Secure FTP
Try passive mode ftp: add FWFRIENDLY TRUE and/or EPSV4 TRUE to ftp.data http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/BOOKS/f1a1b3b1/2.3.11.7 Norbert Friemel On Thu, 2 Apr 2015 11:50:29 -0400, Richards, Robert B. wrote: EZYFT25I Using //'XX.TCPIP.STANDARD.TCPXLBIN' for FTP translation tables for the control connection. EZYFT31I Using //'XX.TCPIP.STANDARD.TCPXLBIN' for FTP translation tables for the data connection. EZA1450I IBM FTP CS V1R12 EZA1772I FTP: EXIT has been set. EZYFT18I Using catalog '/usr/lib/nls/msg/C/ftpdmsg.cat' for FTP messages. EZA1554I Connecting to: dispby-117.boulder.ibm.com 170.225.15.117 port: 21. 220-IBM's internal systems must only be used for conducting IBM's 220-business or for purposes authorized by IBM management. 220- 220-Use is subject to audit at any time by IBM management. 220- 220 dhebpcb01 secure FTP server ready. EZA1701I AUTH TLS 234 SSLv23/TLSv1 EZA2895I Authentication negotiation succeeded EZA1701I PBSZ 0 200 PBSZ=0 EZA1701I PROT P 200 PROT command successful EZA2906I Data connection protection is private EZA1459I NAME (deliverycb-bld.dhe.ibm.com:Userid): blahblah EZA1701I USER blahblah 331 Password required for blahblah. EZA1789I PASSWORD: EZA1701I PASS 230 Virtual user blahblah logged in. EZA1460I Command: CCC BINARY EZA1701I CCC 200 command channel cleared. EZA2905I Control connection protection is clear EZA1460I Command: GET 12345678910/PROD/GIMPAF.XML /xx/xx/xx/x/GIMPAF.XML (REPLACE EZA1701I TYPE I 200 Type set to I. EZA1460I Command: EZA1701I PORT nn,n,nn,n,nn,nnn EZA2589E Connection to server interrupted or timed out. Waiting for reply EZA1721W Server not responding, closing connection. EZA1636I *** I can't open a data-transfer connection: EZA1735I Std Return Code = 16000, Error Code = 9 QUIT Bob -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OT: Digital? Cloud? Modern And Cost-Effective? Surprise! It's The Mainframe - Forbes
On Thu, 26 Mar 2015 12:17:11 -0400, David L. Craig wrote: On 15Mar26:0928-0500, Norbert Friemel wrote: S/360 Model 91 Higher resolutions @ https://www.flickr.com/photos/epitti/2371701458/sizes/l/in/photostream/ https://www.flickr.com/photos/epitti/2370869637/sizes/l/in/photostream/ Inquiring minds want to know: where's the Emergency Pull? The 155 had that. -- Power Panel (Figure 10 / 11) http://www.bitsavers.org/pdf/ibm/360/funcChar/GA22-6907-3_360_91_Func_Char_Nov71.pdf Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OT: Digital? Cloud? Modern And Cost-Effective? Surprise! It's The Mainframe - Forbes
On Thu, 26 Mar 2015 06:38:12 -0500, John McKown wrote: Why did they put in a picture of an ancestor of the z13? I'll grant that the old machines really did look a lot more computer-ish than today's pizza box and refridgerator forms. Oh, for the days of spinning tapes and card sorters. [grin]. BTW - what is that a picture of? S/360 Model 91 Higher resolutions @ https://www.flickr.com/photos/epitti/2371701458/sizes/l/in/photostream/ https://www.flickr.com/photos/epitti/2370869637/sizes/l/in/photostream/ Norbert Friemel On Thu, Mar 26, 2015 at 6:11 AM, Tom Marchant 000a2a8c2020-dmarc-requ...@listserv.ua.edu wrote: Interesting article about the mainframe in Forbes: http://www.forbes.com/sites/jasonbloomberg/2015/03/24/digital-cloud-modern-and-cost-effective-surprise-its-the-mainframe/ tiny'd: http://preview.tinyurl.com/pv3wwz9 -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CA/Reclaim Question
On Wed, 11 Feb 2015 23:27:23 -0500, Mark Jacobs - Listserv wrote: We have a VSAM KSDS that was allocated and populated with data prior to the CA/Reclaim function being available. This evening we had to reorg the dataset, and the REPRO back used the same physical dataset with the REPLACE and REUSE options. Does this enable CA/RECLAIM for the dataset, or do we have to allocate an entirely new KSDS? -- The default for existing data sets is enabled: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d4a0/2.5.3.3.2 LISTCAT ENT(...) ALL shows SMSDATA STORAGECLASS - xx DATACLASS xx CA-RECLAIM-(YES) The reorg removed the empty CAs that already existed when CA reclaim was enabled http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d4a0/2.5.3.3.1 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: CICS 3.2 under z/OS 2.1?
On Thu, 22 Jan 2015 20:47:40 +0100, R.S. wrote: W dniu 2015-01-22 o 19:38, John Norgauer pisze: Any installation out there running CICS 3.2 under z/os 2.1? Just curious: why to install old unsupported CICS under new shining z/OS? On Thu, 22 Jan 2015 17:18:58 -0500, Mark Jacobs - Listserv wrote: CICS/TS 3.2 is supported until September 30, 2015. CICS Transaction Server for z/OS V3.2 (5655-M15) is supported until 2015-12-31 http://www-01.ibm.com/common/ssi/rep_ca/5/897/ENUS913-075/ENUS913-075.PDF CICS/ESA V3.2.0 (5685-083) was supported until 1997-11-28 http://www-01.ibm.com/common/ssi/cgi-bin/ssialias?infotype=OCsubtype=NAhtmlfid=897/ENUS5685-083 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RSU UNZIP space issue.
On Thu, 4 Dec 2014 13:24:43 +0530, Mainframe Mainframe wrote: Yes. Both volume are part of same storage group . Also I am allocating HFS dataset, so aggrgrow= on parameter doesn't matter here. Any other clue to define HFS dataset with bigger space more then 4000MB. Messages from your first post: IKJ56893I DATA SET OMVS.SYS5.RSU.TEMP NOT ALLOCATED+ IGD17281I ALLOCATION FOR DATA SET OMVS.SYS5.RSU.TEMP FAILED, VOLUME (ABL056) WAS EXPLICITLY SPECIFIED FOR A GUARANTEED SPACE REQUEST BUT WAS REJECTED ... THE CANDIDATE STORAGE GROUPS WERE:TESTG ... IGD17279I 1 VOLUMES WERE REJECTED BECAUSE OF A DADSM FAILURE (044E0097) You forgot DSNTYPE=HFS. With DSNTYPE=blank the dataset is limited to 65535 tracks. The text for diagnostic code 044E0097 is: Requested space exceeds 65535 tracks for a data set type that is limited to 65535 tracks per volume. Striped (extended format), PDSE, VSAM, and HFS data sets can exceed 65535 tracks. Messages from your second post: IKJ56893I DATA SET OMVS.SYS5.RSU.TEMP NOT ALLOCATED+ IGD17273I ALLOCATION HAS FAILED FOR ALL VOLUMES SELECTED FOR DATA SET OMVS.SYS5.RSU.TEMP ... THE CANDIDATE STORAGE GROUPS WERE:TESTSG IGD17279I 7 VOLUMES WERE REJECTED BECAUSE THEY DID NOT HAVE SUFFICIENT SPACE (041A041D) You used another storage class (without GUARANTEED SPACE) and storage group (TESTG TESTSG). There's not enough space on the volumes in storage group TESTSG (volumes ABL056/7 are in storage group TESTG) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Software to help switching from daylight saving time to standard time
On Fri, 28 Nov 2014 12:53:33 +0100, Peter Hunkeler wrote: Someone has put the idea in our managment's head that there is a software soltution which avoids the one hour pause. The software would slows down the (local time) clock so that one software hour will take two real hours to pass by. Does anyone know about such a solution? SAP “stretched time” http://www.google.com/search?q=sap+note+7417 Whether you can allow the system to run without downtime depends on whether a 30 minute difference between the SAP time and official time is permitted for the applications that are running at that time. Each SAP application has to certify this individually. The first component certified for continued operation is the ABAP Basis. The majority of applications is not certified for continued operation. http://www.google.com/search?q=SAP+%2B%22stretched+time%22 http://www.google.com/search?q=DSTswitch_contloctime Does anyone use one? Does anyone use other processes? Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CICS timeout default value
On Tue, 4 Nov 2014 10:43:44 +0100, R.S. wrote: There is TIMEOUT subparameter in CICS segment of user profile in RACF. AFAIK when there is no CICS segment for the user default values are taken from the segment of CICS default user. What in case there is no CICS segment for default user? What is the timeut value in effect? Is is 0 (means no timeout) ? Yes, it's 0 (built-in default): http://www-01.ibm.com/support/knowledgecenter/SSGMCP_4.2.0/com.ibm.cics.ts.doc/dfht5/topics/dfht532.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT/ICETOOL pondering
On Thu, 23 Oct 2014 15:43:44 +0200, Thomas Berg wrote: I want to copy position 31 to 40 of all records but from record 8 and 9 I want to copy also (concatenate) position 71 to 80 and from record 6 to 8 I also (concatenate in front) want to copy position 1 to 3. //* //STEP1 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SORTINDD * 001aaa01cc01 002aaa02cc02 003aaa03cc03 004aaa04cc04 005aaa05cc05 006aaa06cc06 007aaa07cc07 008aaa08cc08 009aaa09cc09 010aaa10cc10 //SORTOUT DD SYSOUT=* //SYSIN DD * INREC FIELDS=(1,80,SEQNUM,4,BI) OUTREC IFTHEN=(WHEN=(81,4,BI,GE,6,,81,4,BI,LE,7), BUILD=(1,3,31,10,80:X)), IFTHEN=(WHEN=(81,4,BI,EQ,8), BUILD=(1,3,31,10,71,10,80:X)), IFTHEN=(WHEN=(81,4,BI,EQ,9), BUILD=(31,10,71,10,80:X)), IFTHEN=(WHEN=NONE, BUILD=(31,10,80:X)) OPTION COPY /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT/ICETOOL pondering
On Thu, 23 Oct 2014 16:07:41 +0200, Thomas Berg wrote: Thanks for the example. Although the numeric sequence numbers were there just to clarify the operation, rather than be an indication of the assumed format of an actual case. Do you have an example where you can’t rely on a key/sequence field and have to depend on the actual occurrence of the record order ? INREC adds a (binary) sequence number in position 81-84. OUTREC checks pos. 81-84, not the sequence numbers in the example. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT/ICETOOL pondering
On Thu, 23 Oct 2014 16:36:04 +0200, Thomas Berg wrote: When looking at this a second time, it seems very promising and more customizable than SUBSET + other options. One question: you placed the BI-field at the end. If it was very long records, would it from a performance view be better to place it in front, at position 1 (or 5 if V records)? For recfm=v(b) I'd place the sequence number in front: //* //STEP1 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SORTINDD * 001aaa01cc01 002aaa02cc02 003aaa03cc03 004aaa04cc04 005aaa05cc05 006aaa06cc06 007aaa07cc07 008aaa08cc08 009aaa09cc09 010aaa10cc10 /* //SORTOUT DD DISP=(,PASS), // DSN=amp;VB, // SPACE=(TRK,(1,1)), // LRECL=84,RECFM=VB //SYSIN DD * OPTION COPY OUTFIL FTOV /* //* //STEP2 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SORTINDD DISP=(OLD,DELETE),DSN=amp;VB //SORTOUT DD SYSOUT=* //SYSIN DD * INREC FIELDS=(1,4,SEQNUM,4,BI,5,80) OUTREC IFTHEN=(WHEN=(5,4,BI,GE,6,,5,4,BI,LE,7), BUILD=(1,4,9,3,39,10)), IFTHEN=(WHEN=(5,4,BI,EQ,8), BUILD=(1,4,9,3,39,10,79,10)), IFTHEN=(WHEN=(5,4,BI,EQ,9), BUILD=(1,4,39,10,79,10)), IFTHEN=(WHEN=NONE, BUILD=(1,4,39,10)) OPTION COPY /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Message Handling
On Wed, 22 Oct 2014 10:06:33 -0500, gsg wrote: I understand that they do not need to be the same, but the message use to come out without the date/time and then last week after an IPL, it started to come out with the date/time. Everyone swears they didn't make any changes and now we're unable to determine why the message changed. The console message-handling facility is an optional feature of the CICS® subsystem that can affect the appearance of CICS messages displayed on an MVS console http://www-01.ibm.com/support/knowledgecenter/api/content/SSGMCP_5.2.0/com.ibm.cics.ts.installation.doc/topics/dfha13h.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SORT JCL
On Sun, 14 Sep 2014 22:21:21 -0500, Ron Thomas wrote: I have tried this control card and not getting the correct result. below is the one i got, the 2'nd field is not getting reflected . 1 - 4043 04045 - 4060 04062 - 4108 04110 - 4700 04705 - 4706 04708 04714 04719 04723 OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,5,UFF,M1,6,2,8,5,UFF,M1,80:X)), IFTHEN=(WHEN=(9,5,ZD,EQ,0),OVERLAY=(9:5X)) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP of EBCDIC file
On Mon, 8 Sep 2014 08:12:43 -0500, Paul Gilmartin wrote: On Mon, 8 Sep 2014 11:43:16 +0200, Werner Kuehnel wrote: I have a file on a WIN server with variable data records in EBCDIC and the correct end-of-line marker of x'0D25'. In the end I need a file with LRECL=582, RECFM=VB. When I ftp this file binary with quote site lrecl=582 recfm=fb all records are written contigously in chunks of 582 bytes. A second ftp (within z/OS) then splits up the records at x'0D25', but additionally at byte 582, which is wrong when a record flows over into the next record. All attempts to get the right format failed up to now. Does anyone has an idea how to accomplish this? Eek! How did you get such a file. It may have a correct (according to the standard definition of IBM-1047 and ISO8859-1) line separator of x'0D25', but z/OS prefers the incorrect x'0D15'. Is your binary FTP to a UNIX file or to a legacy data set. I would FTP in binary to a z/OS UNIX file, then use tr(1) to convert every x'25' to x'15' (and perhaps vice-versa), then use a common utility to delete every x'0D at the end of a line'. The file is now a conventional z/OS UNIX file. If I needed a legacy data set, I could pre-allocate the target to FB 582 and use cp(1) to transfer to that. I hate EBCDIC! -- gil FTP in binary to a z/OS UNIX file, then todsn -l 0x0D25 ( http://www.dovetail.com/docs/coz/dsp-ref_todsn.html ) to a z/OS dataset Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP of EBCDIC file
On Mon, 8 Sep 2014 08:12:05 -0600, Paul Gilmartin wrote: Anyway, I tested your way and it almost worked, Unfortunately there are packed fields in the records containing x'15' which are not a line end. John M's suggestion should work if the packed fields are conventional Packed Decimal, because (I believe) that neither x'0D25' nor x'0D15' can appear in Packed Decimal. If the packed fields contain arbitrary binary data, there's the possibility that a large enough sample will by happenstance contain the x'0D25' sequence not intended as a line separator. Two packed fields? FIELD1 DCP'-250' FIELD2 DCP'250' Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Deleting Cluster Using IEFBR14 or IDCAMS
On Tue, 2 Sep 2014 19:01:45 +0530, Christian D wrote: Hi Group, Is there a difference in using the utility IEFBR14 and IDCAMS in deleting VSAM cluster Dataset ? I used to Delete the Cluster Before using IEFBR14 before but now it fails. //DEL EXEC PGM=IEFBR14 //TSDD DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(0)), // DSN=CHRIS.TESTING.DB2.LL1 doesn't clear data set but raise IGD17105I CATALOG ERROR WHILE DELETING DATA SET 730 CHRIS.TESTING.DB2.LL1 RETURN CODE IS 84 REASON CODE IS 0 IGG0CLFK Explanation from Manual : 84 Explanation: CAXWA count of active users has reached 32767, the maximum allowed. The Deletion works well with IDCAMS but not with IEFBR14. You looked up the wrong return/reason code. 84 Explanation: CAXWA count of active users has... is return code 4, reason code 84. This is return code 84, reason code 0: RETURN CODE 84 Explanation: Date error. Reason Code Description 0 Explanation: An unexpired purge date exists. An attempt to delete an entry failed because its expiration date has not been reached, and the DELETE command did not specify the PURGE option. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2m6c2/20.422?SHELF=all13be9 You need the PURGE/PRG-Option of IDCAMS-DELETE to delete an unexpired data set. There's no equivalent in JCL. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Deleting Cluster Using IEFBR14 or IDCAMS
On Tue, 2 Sep 2014 08:42:10 -0500, Elardus Engelbrecht wrote: Christian D wrote: Is there a difference in using the utility IEFBR14 and IDCAMS in deleting VSAM cluster Dataset ? Absolutely! You use IDCAMS to manage VSAM datasets. IEFBR14 just simply 'does nothing'. You can define (and delete) VSAM data with JCL/IEFBR14 for about 25 years now (MVS/ESA 3.1.0e ?). http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2D4A0/2.2.3 Not all IDCAMS-Options are available in JCL, but you can use temporary VSAM data sets (DSN=amp;MYDSN,DISP=(,PASS)) in JCL (you can't define temporary data sets with IDCAMS) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OS message on HMC
On Fri, 22 Aug 2014 02:38:56 -0500, Elardus Engelbrecht wrote: To Chandramohan, Harish : I'm just curious, who/what is issueing message 'ISGECM1 ...' ? Searches on GOOGLE and IBM gave me false hits... A modified version of SYS1.SAMPLIB(ISGECMON)? Just a guess... Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IFASMFDP and large tape block sizes
On Fri, 22 Aug 2014 11:36:25 +, Horne, Jim - James S jim.s.ho...@lowes.com wrote: Does anyone know if IFASMFDP supports large tape block sizes - those greater than 32760? Thanks, Not supported in z/OS 1.13. IEC141I 013-E1 for input data sets with blksize 32760. A (JCL-)blksize 32760 is overwritten with 32760 for output data sets. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PLPA enty
On Sun, 17 Aug 2014 22:37:48 -0400, MichealButz wrote: Hi Did all that in fact I deleted USER.LPALIB and when I look at TASID - LPA it is still there Forgot CLPA? http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2e2c3/54.8.9 Norbert Friemel Thanks -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Sunday, August 17, 2014 9:25 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PLPA enty I assume that you have IPL'd after changing PARMLIB. Did you review the IPL messages? If IPL/NIP has some problem with your data set, it will just issue a message and continue on. Some of the problems that I know off, off-hard are: (1) data set is not catalogued in the MASTER catalog _and_ the volser is not specified in the LPALSTxx member either. I.e. it is cataloged in a USER catalog pointed to by an ALIAS. (2) The DSN is not on the catalogued volume, if using the MASTER catalog; (3) the DSN's volser is specified in the LPALSTxx member, but the DSN isn't on the volume specified; (4) the DSN isn't a PDS. I.e. it is a PDSE or something else (sequential, BDAM, VSAM). OK, those last are unlikely! grin/ On Sun, Aug 17, 2014 at 8:06 PM, MichealButz wrote: Hi, I put my loadlib library in LPALSTXX or specifically 01 that is what is pointed to by LPA member on the active IEASYS When I use TASID to look at LPA libs I see all of them except the one I added Am I missing something Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: INITILAIZE COST
On Tue, 12 Aug 2014 06:01:52 -0400, Robert A. Rosenberg wrote: At 20:01 -0700 on 08/11/2014, Duffy Nightingale, SS wrote about Re: INITILAIZE COST: Heavy emphasis on that last sentence. Just had a customer who didn't keep track of the number of entries in his COBOL table while adding new ones. Ended up adding entries way beyond the end of his table leading to altering the fields following the table to wrong values leading to very strange scary looking dumps that seemed to point to big problems in unsupported code! But, nope, simple, his table got bigger than the definition. I thought the code spotted an attempt to go beyond the end of the table by exceeding the OCCURS value or am I thinking of PL/I which would catch this error? It's a COBOL compiler option. The default is NO. http://www-01.ibm.com/support/knowledgecenter/api/content/SS6SG3_5.1.0/com.ibm.cobol511.ent.doc/custom/igycch257.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rational Development and Test (RDT) aka z/OS on a PC
On Mon, 11 Aug 2014 07:45:36 -0500, Barbara Nitz wrote: //COPY125 EXEC PGM=IEBCOPY,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=SYS1.SIEALNKE //SYSUT2 DD DISP=(,KEEP),DSN=SYS1.SIEALNKE.N,DSNTYPE=LIBRARY, // SPACE=(TRK,(4000,0,0)),UNIT=3390,VOL=SER=TGT001 //SYSINDD * COPY INDD=SYSUT1,OUTDD=SYSUT2 This JCL results in IEBCOPY 'unloading' SYS1.SIEALNKE into arecfm=VS data set (but ending with RC=0) which brings linklist to a screeching halt. For other PDSEs, the same JCL (for other DSNs) dutifully copies the data set, using the DCB information from the input. I had 3 broken PDSEs, two of those in linklist. Brought IPL to a screeching halt, first with wait state for abend806, later when JES2 didn't come up. SYS1.SIEALNKE is the third data set in the linklst concatenation. When I fully specify the output DCB, the copy operation works. I don't know if this is specific to running iebcopy under z1090 code or not since servicelink doesn't let me login today. But I know of one other problem with IEBCOPY only occuring under z1090 code (we have it too, but not the fixing ptf since our distribution is too old.) It's not specific to z1090. Change the SPACE-Paramter from SPACE=(TRK,(4000,0,0)) to SPACE=(TRK,(4000,0,1)). Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rational Development and Test (RDT) aka z/OS on a PC
On Mon, 11 Aug 2014 09:24:00 -0500, Paul Gilmartin paulgboul...@aim.com wrote: On Mon, 11 Aug 2014 09:04:21 -0500, Norbert Friemel wrote: On Mon, 11 Aug 2014 07:45:36 -0500, Barbara Nitz wrote: //SYSUT2 DD DISP=(,KEEP),DSN=SYS1.SIEALNKE.N,DSNTYPE=LIBRARY, // SPACE=(TRK,(4000,0,0)),UNIT=3390,VOL=SER=TGT001 //SYSINDD * COPY INDD=SYSUT1,OUTDD=SYSUT2 This JCL results in IEBCOPY 'unloading' SYS1.SIEALNKE into arecfm=VS data set (but ending with RC=0) ... When I fully specify the output DCB, the copy operation works. ... It's not specific to z1090. Change the SPACE-Paramter from SPACE=(TRK,(4000,0,0)) to SPACE=(TRK,(4000,0,1)). Somewhat irritatingly, IEBCOPY exhibits this behavior even when I specify such as: SPACE=(TRK,(4000,0)),DSNTYPE=LIBRARY I think I should get a syntax error, rather, when a utility attempts to create a PS data set when DSNTYPE=LIBRARY has been specified. (Specifying DSORG=PO likewise avoids the problem.) The required parameters are in DFSMS Using Data Sets: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d4a0/3.8.5 The following parameters are both required to allocate a PDSE: - Specify DIR space (greater than zero) or DSORG=PO (partitioned organization) in the JCL, in the DYNALLOC macro, in the data class, or in the TSO ALLOCATE command. - Specify DSNTYPE=LIBRARY in the JCL, in the data class, in the TSO ALLOCATE command, using the LIKE keyword, or as the installation default specified in SYS1.PARMLIB. There's a Guideline that says the allocation fails without DIR space: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d4a0/3.8.4 That's not the case in z/OS 1.13 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: finger check(?) caused my JCL notify to malfunction
This appears on the SYSLOG: SE '15.27.22 JOB15348 $HASP165 SYSJCNA ENDED AT N1 - JCL ERROR',LOGON, USER=(SYSJCN) But nothing displays on my terminal. TSO PROFILE NOINTERCOM? http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4c5c0/1.36.2 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TASID Snapshot File
On Tue, 1 Jul 2014 15:38:31 -0400, George Rodriguez wrote: I assigned the SMS dataclass but it's not changing the allocation... When I do an S from DSLIST it does come up with the dataclass that I assigned, but the other info remains unchanged... Any other ideas? Preallocate ddname TASIDSNP? (alloc fi(TASIDSNP) da(userid.tasid.snp) new space(10 10) cylinders blksize(0) lrecl(255) recfm(v b a) catalog) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 1.13 ADRDSSU ECB WAIT
On Thu, 19 Jun 2014 08:18:03 -0500, Shane Ginnane wrote: Improved things out of sight. How the hell can't utilities like these compete with the CSI (which left them in the dust) ?. There's a patch to enable the CSI: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2u2b1/1.14.40 http://www-01.ibm.com/support/docview.wss?uid=isg1II14616 http://www-01.ibm.com/support/docview.wss?uid=isg1OA25644 http://www-01.ibm.com/support/docview.wss?uid=isg1OA32120 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any need? DFSORT interface to C language
On Fri, 6 Jun 2014 13:06:00 -0500, John McKown wrote: One of my hopes is that, if I do write something, it would be as conceptually as easy for a C programmer to use as the SORT verb is for the COBOL programmer. Perhaps with an interface similar to what qsort() uses. I would guess most C programmers who need to sort would be familiar with qsort(). I may well not be qualified to actually accomplish this. But it would be a glorious failure! grin/ Even more ambitious would be a DFSORT class for C++. I don't know if this helps but there are Java classes in the JZOS toolkit: http://www.ibm.com/developerworks/java/zos/javadoc/jzos/com/ibm/jzos/sample/dfsort/package-summary.html http://www.ibm.com/developerworks/java/zos/javadoc/jzos/jzos240/index.html?com/ibm/jzos/sample/nonvsam/file/package-summary.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: real vs. emulated CKD
On Mon, 2 Jun 2014 17:24:44 +, DASDBILL2 wrote: I will rephrase my question. When did any vendor last ship a 3390 DASD to anyone with non-RAID SLEDs inside for use on any kind of operating system which did not have direct support for FBA in its customer-usable access method repertoire? There must have been some kind of announcement made which is still findable online. IBM continued to manufacture and sell things after this date that they called 3390s but which were implemented internally with RAID, I believe. Bill Fairchild 3390 lifecycle dates posted by Ed Jaffe: https://groups.google.com/forum/#!msg/bit.listserv.ibm-main/PvwuM3b2uCw/pZ5VXWKsKlcJ Norbert Friemel World's Most Expensive Hard Drive Teardown http://www.youtube.com/watch?v=CBjoWMA5d84 :) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: VSAM space monitor
On Fri, 18 Apr 2014 14:36:49 +0530, mf db wrote: Hello, Are there freeware which can help me to calculates the RBA value and gives the VSAM dataset space utilization based on it. Peter IDCAMS DCOLLECT + reporting tool (SAS/MXG) or DFSORT: //* //STEP1 EXEC PGM=IDCAMS //* //SYSPRINT DD SYSOUT=* //DCOLLECT DD DISP=(MOD,PASS,DELETE), // DSN=amp;DCOLLECT, // SPACE=(TRK,(30,30),RLSE), // LRECL=27994,RECFM=VB,BLKSIZE=0 //SYSIN DD * DCOLLECT STORAGEGROUP(sgname #1) OUTFILE(DCOLLECT) DCOLLECT STORAGEGROUP(sgname #2) OUTFILE(DCOLLECT) /* //* //STEP2 EXEC PGM=SORT //* //SYSOUTDD SYSOUT=* //SORTINDD DISP=(OLD,DELETE), // DSN=amp;DCOLLECT //SORTOUT DD SYSOUT=* //SYSIN DD * INCLUDE COND=(9,1,CH,EQ,C'A',, * RECORD TYPE 'A' 118,1,BI,EQ,B'...0') * DCANSTAT OFF INREC BUILD=(1,4, * RDW 29,44, * DCADSNAM 117,1,CHANGE=(4, * DCAFLAG1 B'1...',C'KSDS', B'.1..',C'ESDS', B'..1.',C'RRDS', B'...1',C'LDS ', B'1...',C'KRDS', B'.1..',C'AIX '), NOMATCH=(C''), 117,1,CHANGE=(4, B'..1.',C'DATA', B'...1',C'INDX'), NOMATCH=(C''), 118,1,CHANGE=(1, * DCAFLAG2 B'1...',C'1'), NOMATCH=(C'0'), 121,4, * DCAHURBA 125,4, * DCAHARBA 169,8, * DCAHURBC 177,8) * DCAHARBC SORT FIELDS=(5,44,CH,A) * DCADSNAM OUTFIL IFTHEN=(WHEN=(57,1,CH,EQ,C'0'), BUILD=(1,4, 5,44,X, 49,4,X, 53,4,X, ((58,4,BI,MUL,+100),DIV,62,4,BI),M10,LENGTH=3,C'% ', 58,4,HEX,9X, 62,4,HEX)), IFTHEN=(WHEN=(57,1,CH,EQ,C'1'), BUILD=(1,4, 5,44,X, 49,4,X, 53,4,X, ((66,8,BI,MUL,+100),DIV,74,8,BI),M10,LENGTH=3,C'% ', 66,8,HEX,X, 74,8,HEX)), HEADER2=(1:C'DSNAME',46:C'TYPE COMP USED HIURBA',78:C'HIARBA') /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Forget: Sorting CSV data that begins with an IP address
On Thu, 17 Apr 2014 19:26:17 +, Sankaranarayanan, Vignesh wrote: Ok.. Is it possible to fire off other REXXes repetitively (let's say 2 or 3, each doing one function) that will not RETURN to the main, but write their output to a dataset once done? Submit batch jobs (PGM=IKJEFT01,PARM='%rxsub?? p1 p2 p3) from the main? Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Extended Addressibility (was: ZFS - Allocation Failure)
On Thu, 17 Apr 2014 17:38:12 +, DASDBILL2 wrote: Extended Addressability refers to an attribute of a data set that allows the data set to contain more then 4GB of data. Extended Format refers to each DASD block's having some extra bytes, called a suffix, added to the end of each data block, and this can happen with data sets that contain fewer than 4GB of data. EAV stands for Extended Addressability Volumes and refers to an attribute of a volume that allows it to have more than 65,536 (approximately) cylinders on it, regardless of what kinds of data sets are stored there or how large they are. These three buzzphrases all have the word extended in them, and two of them also have the word addressability in them, but they are three different concepts. EATTR JCL/Data Class-Parameter: A data set with *extended* attributes (format 8 and 9 DSCBs) can reside in the *extended* address space (EAS) on an *extended* address volume (EAV). (EATTR was not available on MVS/eXtended Architecture ;-) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sorting CSV data that begins with an IP address
On Wed, 16 Apr 2014 14:17:42 +, Sankaranarayanan, Vignesh wrote: It's FB. - Vignesh Mainframe Admin With LRECL=133 try: INREC PARSE=(%01=(ENDBEFR=C'.',FIXLEN=3), %02=(ENDBEFR=C'.',FIXLEN=3), %03=(ENDBEFR=C'.',FIXLEN=3), %04=(ENDBEFR=C',',FIXLEN=3)), BUILD=(%01,UFF,M11,LENGTH=3, %02,UFF,M11,LENGTH=3, %03,UFF,M11,LENGTH=3, %04,UFF,M11,LENGTH=3, 1,133) SORT FIELDS=(1,12,ZD,A) OUTREC BUILD=(13,133) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF 3.4 question
On Mon, 7 Apr 2014 02:39:19 -0500, Juergen Kehr wrote: So my assumption is, that the dataset is contained in some other active catalog, but I couldn't find out in which catalog ISPF does find the entry. Select Display Catalog Name in the ISPF 3.4-panel (ISRUDLP). Press F11 (=Right) 2 or 3 times in the data set list panel (ISRUDSL0). Delete the entry with IDCAMS: DEL PP.MVI.BBLOAD NSCR CAT(wrong cat from panel ISRUDSL0) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Software (compiler) PTF or maintenance level
On Mon, 31 Mar 2014 09:31:57 +0200, Miklos Szigetvari wrote: Hi We would like to document the actual maintenance or PTF level or software level of the compiler, we are using to compile our product. How can I find this ? (It is the C/C++ compiler) //S1 EXEC PGM=GIMSMP //SMPCSIDD DISP=SHR,DSN=?HLQ?.GLOBAL.CSI //SMPOUTDD SYSOUT=* //SMPRPTDD SYSOUT=* //SMPLIST DD SYSOUT=* //SMPCNTL DD * SET BOUNDARY(tzone ). LIST PTFS FORFMID(HLB77?0) SYSMOD. /* Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: adding a type 4 SVC
On Thu, 13 Mar 2014 05:47:53 -0500, John McKown wrote: I am not aware of a standard utility from IBM which can add a type 4 SVC on the fly. Basically what you need to do is load the module into common storage, such as with a LOAD GLOBAL=YES. Then use the SVCUPDTE macro to modify the SVC table on the fly. I think that some add on products can do this for you. But we don't have any such here. There's a program named SVCUPDTE on CBTTAPE file 183 (Gilbert Saint-flour's collection). Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Failure using Firefox to access IBM-MAIN - Connect Interupted
On Thu, 27 Feb 2014 08:29:45 -0600, Elardus Engelbrecht wrote: Lutz Hamann wrote: Bingo, Norbert ! B I N G O ! B I N G O ! B I N G O ! Norbert, that was fantastic! That also solved my problem. :-) In my case here coding security.tls.version.max=1 has solved the problem ! Indeed, now I see how it changed! Cool! Thanks! Reset security.tls.version.max to 3 in Firefox 28 (release date 2014-03-18?) and test again. I think it's Bug 969479 https://bugzilla.mozilla.org/show_bug.cgi?id=969479 https://bugzilla.mozilla.org/show_bug.cgi?id=973628#c13 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Failure using Firefox to access IBM-MAIN - Connect Interupted
On Tue, 25 Feb 2014 19:32:56 -0600, David Rawson wrote: Just switched to Firefox 27.0.1 and I am now unable to use the URL link in emails to access this forum. The URL links in the daily emails generated by IBM-Main work just fine under IE. The failure is in a message box The connection to listserv.ua.edu was interrupted while the page was loading. Suspect the problem is with the logon logic before the requested page is displayed. Ideas ? http or https? proxy or direct connection? If https and proxy: try security.tls.version.max=1 (about:config) The Default for security.tls.version.max in FF27 is 3 (TLS 1.2). The Default in older versions was 1 (TLS 1.0). Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL interface to CSI
On Thu, 27 Feb 2014 08:45:21 -0500, Bill Ashton wrote: I am looking for a COBOL interface to the catalog that would tell me for a given file: 1. Allocation primary, secondary and units 2. Used amount 3. Number of volumes and their volsers in sequence 4. SMS class/group names 5. File type (DSNLARGE, etc.) Ideally, I would like to also get each extent info for each volume, but I expect I would have to read VTOCs for that, and it is not crucial here. Thanks for any ideas you have for helping me read the catalog from COBOL! You could use the ISPF-DSINFO-Service from batch COBOL: http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/ispzsg90/2.7 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Resistance to Java.
On Thu, 23 Jan 2014 15:59:23 +0800, David Crayford wrote: On 22/01/2014 11:53 PM, Skip Robinson wrote: IBM is currently warning customers that over-using ZIIPs may lead to serious performance problems because of the way z/OS manages them vs. the way it manages general purpose CPs. Can you supply a link wrt that information? Google found: https://www.ibm.com/developerworks/community/blogs/22586cb0-8817-4d2c-ae74-0ddcc2a409bc/entry/december_17_2012_6_07_am3?lang=en http://ibmdatamag.com/2013/04/performance-and-capacity-considerations-for-ziip-engines/ Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to order HTTP Server (Appache)
On Wed, 15 Jan 2014 10:09:36 +0100, Miklos Szigetvari wrote: If someone can advice, if I can order the IBM HTTP Server (powered by Apache) JIWO610 online via ShopzSeries or how can I get it. (and maybe is it worth to migrate ? ) Order the HTTP server feature of Ported Tools (FMID HHAP700). JIWO610 is an optional feature of WebSphere Application Server. http://www-03.ibm.com/systems/z/os/zos/features/unix/ported/ihs/index.html http://oss4zos.org/mediawiki/index.php?title=Apache_HTTP_Server Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SORT? need.
On Mon, 9 Sep 2013 11:22:21 -0500, John McKown wrote: Anyway, DFSORT has a FTOV function. But I need an anyTOV type function. That is, it will read FB or VB and output VB. Use IEBGENER or IDCAMS-REPRO. No special option is needed. The output LRECL must be 4 bytes longer than the input LRECL (for FB-VB) Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT and FILSZ
On Fri, 30 Aug 2013 12:29:47 +0200, R.S. wrote: Maybe the above is the answer? Can I provide AVG LRECL or just file size in bytes? Yes. OPTION AVGRLEN=n,FILSZ=Ex Default: If AVGRLEN=n is not specified, DFSORT uses one-half of the maximum record length as the average record length. http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/BOOKS/ice1ca50/3.14 http://publibfp.dhe.ibm.com/cgi-bin/bookmgr/BOOKS/ice1ca50/10.2.4.2 Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: VSAM Status Code 16/24 on READPREV
On Thu, 1 Aug 2013 15:25:55 +, John Weber wrote: All, We are receiving a status code 16/24 while performing a KSDS VSAM 'READPREV'. This exception only occurs when the key is specified but does not occur if it is not entered through our UI. References point to it having MicroFocus origins, but we are running this on the mainframe under CICS. Any direction as to where to look next would be much appreciated. 16 = INVREQ 24 = A READPREV command is issued for a file for which the previous STARTBR or RESETBR command has the GENERIC option. http://pic.dhe.ibm.com/infocenter/cicsts/v4r2/index.jsp?topic=%2Fcom.ibm.cics.ts.applicationprogramming.doc%2Fcommands%2Fdfhp4_readprev.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Relative generation - how to recognize new datasets under TSO
On Thu, 18 Jul 2013 10:59:52 +0200, Beate Kawelke wrote: Is there a way to release / ignore that connection (I have looked through the DYNALLOC parameters, but to no avail) or do I have to go through the catalog and use my own logic to determine the correct DSN? ISPF Edit, much to my surprise, gets it right - if I specify generation 0, the new dataset will be found. http://www-01.ibm.com/support/docview.wss?uid=isg1II08285 Note: Dynamic allocations can turn on bit S99GDGNT to bypass using the table and thus always locate the current entry (generation 0) at the time of the allocation. This allows them always to know the current generation, even when this job (or another job), running on the same system (or a different system, as long as the catalog is shared between systems) has added generations since this job began. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Orphaned ICF catalog in the VVDS
On Thu, 18 Jul 2013 13:44:50 -0400, Rouse, Willie wrote: I guess I don't understand: put a corresponding entry into the dummy bcs Recatalog the VVDS into the dummy bcs. I posted a complete job to the list on 5 July: http://www.mail-archive.com/ibm-main@listserv.ua.edu/msg15771.html 1. Create a new catalog with the old non-existent catalog name 2. Recatalog the VVDS 3. Delete (NOSCRATCH) the VVDS 4. Delete the catalog //* //S1 EXEC PGM=IDCAMS //* //SYSPRINT DD SYSOUT=* //VVDS DD DIS=SHR,DSN=SYS1.VVDS.Vvol001, // VOL=SER=vol001,UNIT=SYSDA //SYSIN DD * DIAG VVDS IFILE(VVDS) DEF UCAT(NAME(old.catname) - VOL(vol002) - CYL(1 1) - FSPC (0 0)) - DATA(CISZ(4096)) - INDEX(CISZ(4096)) DEF CL(NAME(SYS1.VVDS.Vvol001) - VOL(vol001) - NONINDEXED - RECATALOG) - CAT(old.catname) DEL SYS1.VVDS.Vvol001 - FILE(vol001) - NOSCRATCH- CAT(old.catname) DEL old.catname UCAT DIAG VVDS IFILE(VVDS) /* // Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Relative generation - how to recognize new datasets under TSO
On Thu, 18 Jul 2013 16:04:30 +0200, Beate Kawelke wrote: I've tried it and it works - thank you so much! I'm still wondering which search keywords I should have used to find this via Google ;-) It was the first or second hit on http://www.google.com/search?q=%2Bgdg+%2Bgds+%2Bconnection Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL Parser
On Thu, 18 Jul 2013 18:59:40 -0400, John Gilmore wrote: Tom Ross wrote: begin extract In particular, if you have z/OS V1R13 running on 9672, there is no way to compile with COBOL V5 to get a program that will run on that system. /end extract Other statement-level languages deal with this problem by permitting the specification of an ARCH level, and it was rumored (even perhaps half-said in some IBM materials) that Enterprise COBOL would do so too. What is the status of this notion? There's an ARCH option in COBOL 5.1: http://pic.dhe.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=%2Fcom.ibm.entcobol.doc_5.1%2FPGandLR%2Frlpre.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL Parser
On Thu, 18 Jul 2013 18:12:42 -0500, Norbert Friemel wrote: There's an ARCH option in COBOL 5.1: http://pic.dhe.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=%2Fcom.ibm.entcobol.doc_5.1%2FPGandLR%2Frlpre.html http://pic.dhe.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=%2Fcom.ibm.entcobol.doc_5.1%2Fcustom%2Figycch319.html Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL Parser
On Thu, 18 Jul 2013 15:24:46 -0700, Tom Ross wrote: hardware requirements as the z/OS level we required. In particular, if you have z/OS V1R13 running on 9672, there is no way to compile with COBOL V5 to get a program that will run on that system. z/OS V1R13 running on 9672? I think z/OS can only be IPLed in z/Arch mode on a z server. Replace 9672 with z800/z900. z/OS V1 runs on a z800/z900 - COBOL V5 requires a z890/z990 or later. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Orphaned ICF catalog in the VVDS
On Thu, 4 Jul 2013 11:36:21 -0400, Rouse, Willie wrote: I have run an IDCAMS diagnose on a volume to find non-existent catalog entries . I tried DELETE VVR/NVR/TRUENAME to no avail. How can I get rid of the stranded catalog references in the VVDS? 1. Create a new catalog with the old non-existent catalog name 2. Recatalog the VVDS 3. Delete (NOSCRATCH) the VVDS 4. Delete the catalog //* //S1 EXEC PGM=IDCAMS //* //SYSPRINT DD SYSOUT=* //VVDS DD DIS=SHR,DSN=SYS1.VVDS.Vvol001, // VOL=SER=vol001,UNIT=SYSDA //SYSIN DD * DIAG VVDS IFILE(VVDS) DEF UCAT(NAME(old.catname) - VOL(vol002) - CYL(1 1) - FSPC (0 0)) - DATA(CISZ(4096)) - INDEX(CISZ(4096)) DEF CL(NAME(SYS1.VVDS.Vvol001) - VOL(vol001) - NONINDEXED - RECATALOG) - CAT(old.catname) DEL SYS1.VVDS.Vvol001 - FILE(vol001) - NOSCRATCH- CAT(old.catname) DEL old.catname UCAT DIAG VVDS IFILE(VVDS) /* // Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: free zIP/UNZIP in z/OS
On Fri, 21 Jun 2013 03:34:44 -0500, Jan Vanbrabant wrote: Possibly other tools (free, of course ;-) ) ? Advices? The jar command is free (comes with Java) but supports Unix files only: http://planetmvs.com/ibm-main/jarbatch.txt Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
