Re: Calling JAVA from SAG Natural.
How about through CICS Transaction Server (e.g. EXEC CICS LINK...)? I am (perhaps) assuming that the Java code would run as a CICS transaction and (most likely) use JCICS interfaces for access to COMMAREAs or (preferably, moving in the direction of) containers. This should all be very simple, straightforward, and well componentized while still maintaining performance. It would also be highly manageable both operationally and developmentally. - - - - - Timothy Sipples IBM Consulting Enterprise Architect for New, Advanced, and/or Innovative Solutions (VCT) Based in Singapore & Serving the "Growth Markets" E-Mail: timothy.sipp...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On Wed, 3 Mar 2010 22:27:20 -0600, Al Loeffler wrote:
>
>x = outtrap("submit.")
>address tso "submit '"dsname"'"
>subrc = rc
>x = outtrap(off)
>
Interesting. Works as I'd expect. But if I do:
x = outtrap("submit.")
address 'ISREDIT' 'SUBMIT' /* Submit ISREDIT buffer. */
subrc = rc
x = outtrap(off)
... the message is not trapped; goes to the screen, and
I get the '***'.
Go figger.
Anyway, it restricts me to FIXED 80.
-- gil
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On Wed, 3 Mar 2010 23:06:12 -0500, Tony Harminc wrote: > >> OTOH, writing directly to INTRDR bypasses the obsolete >> (now delusional) FIXED-80 JCL restriction. > >Only for inline data, surely? It's too much for my old brain to Yes. By crude experiment (not well documented in JCL RM): For JES2, attributes of inline data are, RECFM=recfm-of-INTRDR (This may break many utilities.) LRECL=length of longest line read (+4 if VB). (Min of 80) For JES3, attributes of inline data are, RECFM=FB LRECL=length of longest line read. (Min of 80) >believe you can actually have JCL statements that extend beyond column >71. > JCL statements that extend beyond col. 80 are quietly truncated at 80. No error is reported. Data beyond 80 are not listed, and do not appear in the SDSF "SJ" command. But it's liberating. A few months ago, I was struggling with how to wrap some inline data, indicating conditions so the program could reconstruct it when I thought, "Wait! That's _so_ 20th century. I can make my SYSIN as wide as I need!" TSO SUBMIT is still stuck in the 20th century. Too bad; the restriction could be lifted without introducing incompatibility. Some history for JES2: 04 /* Test for behavior of OW10527, for MSGIEB351I, 05 /* regressed by OW16774. 06 /* 07 /* Possibly restored by "$T INTRDR,DCBATTR=YES" (but see OA05982) 08 /* 09 /* See also * OA08145 *, OA12472, OA19652, OA11953, -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LOAD Problem after POR
In a message dated 3/3/2010 6:23:44 P.M. Central Standard Time, glen.manages@gmail.com writes: Correct IOCDS is important, I do not remember if any state of the IOCDS would prevent a LOAD. >> Without a Wait state I'm curious if the migration plan included PSP upgrade to the z10 support. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
Here's a rexx exec to trap the submit and display a message.
/* rexx */
arg dsname .
x = outtrap("submit.")
address tso "submit '"dsname"'"
subrc = rc
x = outtrap(off)
if rc = 0 then
do
j = pos('JOB ',submit.1)
k = pos('(JOB',submit.1)
jobname = substr(submit.1,j+4,k-j-4)
jobno = substr(submit.1,k+4,5) + 0
zerrtp = "NOTIFY"
zerrwn = "NORESP"
zerrlm = "Job submitted as jobname" jobname "- job number" jobno
end
else
do
zerrtp = "ACTION"
zerrwn = "RESP"
zerrlm = "Submit failed for" dsname "RC="subrc
end
address ispexec "setmsg msg(isrz003)"
return subrc
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On 3 March 2010 19:16, Paul Gilmartin wrote: > On Wed, 3 Mar 2010 18:48:20 -0500, Tony Harminc wrote: >>No way that I know of to use the VSAM interface from REXX or really >>anything other than assembler. Wasn't there a REXX VSAM package out there somewhere? Even if so, it would have to retrieve the RPL feedback code to get the jobid. (Hmmm - I'm replying to myself again.) > OTOH, writing directly to INTRDR bypasses the obsolete > (now delusional) FIXED-80 JCL restriction. Only for inline data, surely? It's too much for my old brain to believe you can actually have JCL statements that extend beyond column 71. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LOAD Problem after POR
Correct IOCDS is important, I do not remember if any state of the IOCDS would prevent a LOAD. * Does an activate of the LPAR work ? * Can you access the support element from the HMC ? * I would also check if the IODF dataset is in extents, it must be contiguous. * I imagine you are sev1 with IBM by now. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On Wed, 3 Mar 2010 18:48:20 -0500, Tony Harminc wrote: >On 3 March 2010 13:14, Paul Gilmartin wrote: >>> >> SMBMIT does that to you. How silly. I wonder if it could be >> OUTTRAPed and issued as a ZEDLMSG? (Just being compulsive.) > >Depends on whether it issues a PUTLINE or a TPUT. It's probably a PUTLINE. > OUTTRAP didn't snag it, so it seems to be a TPUT. >> (But I have a macro that writes directly to INTRDR and provokes >> no message. But it doesn't display the job ID.) > >If you want the job ID you have to use the VSAM interface to write to >INTRDR. But of course you then *don't* issue a PUTLINE or TPUT to >force the session into line-mode and provoke the ***. > >No way that I know of to use the VSAM interface from REXX or really >anything other than assembler. > OTOH, writing directly to INTRDR bypasses the obsolete (now delusional) FIXED-80 JCL restriction. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Improving my SMP/E usermod procedure
* I do not think there is a simple or a right or wrong way to do your typical usermods, as long as the data in the CSI correctly inventories your software. * The crux of the problem is installing the usermod is not the same process as maintaining the usermod. I think blending the two into one process is not practical. * Reinstalling the same usermod is not the same as reinstalling an updated usermod. * I am diligent to the extreme in maintaining CSI correctness simply because I do not want to spend time diagnosing discrepancies. I avoid APPLY REDO because I want to test RESTORE processing when I reinstall or update a USERMOD. * There is a large population of SMP/E users who do not understand what restore processing does. * On the other hand, z/OS engineers/professionals very often have to create procedures that z/OS adminstrators/employees have to be able to use. * I think the clearest solution is to provide four sets of JCL: (01). Original install of a usermod. (02). Install of a usermod update. (03). Reinstall of an unchanged usermod. (04). Removal and retirement of a usermod. * The differences in initial conditions and processing requirements make the four sets of JCL necessary. * So in the case of the JCLIN of the source code, which is designed to let SMP/E know which SRC entries must be reassembled when a MAC entry changes, the JCLIN needs only to be processed when the SRC is changed, and really only when a new MACRO is included in the SRC. * My goal always is to have SMP/E do the inventory, keep the inventory, and process the inventory as it was designed. It is not nice to lie to SMP/E. * Someone mentioned UCLIN regarding SDSF maintenance. Some of those UCLIN statements are required only if maintaining SDSF and JES2 in separate target zones. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On 3 March 2010 13:14, Paul Gilmartin wrote: > On Wed, 3 Mar 2010 09:32:04 -0800, Charles Mills wrote: >> >>2. In the Rexx, if the arguments show up as mixed case I use them as-is; if >>they show up all upper case I prompt for the user (me) to re-type them as >>Rexx Pull input. >> > Are you delighted, or do you just want to wash your hands? > >>3. The *** is not a problem because the Rexx submits a job and I would have >>to dismiss the *** in any event. >> > SMBMIT does that to you. How silly. I wonder if it could be > OUTTRAPed and issued as a ZEDLMSG? (Just being compulsive.) Depends on whether it issues a PUTLINE or a TPUT. It's probably a PUTLINE. > (But I have a macro that writes directly to INTRDR and provokes > no message. But it doesn't display the job ID.) If you want the job ID you have to use the VSAM interface to write to INTRDR. But of course you then *don't* issue a PUTLINE or TPUT to force the session into line-mode and provoke the ***. No way that I know of to use the VSAM interface from REXX or really anything other than assembler. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
NULL SMS configuration, versus MINIMAL SMS configuration.
* I am building a first copy of a stand alone sysres, commonly called a mini z/OS and I would like SMS to come up in a null configuration. * I have found RTFM guidelines for setting up a MINIMAL configuration but no specifications for a NULL configuration. Am I missing something or do I have the nomenclature confused? * How can I define a NULL SMS configuration? Is it actually documented somewhere? * btw I am using zFS. * Thanks to all who have provided samples for building a mini z/OS system. * This system will support only batch processing and TSO ISPF, and SDSF. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SORT question: How to store record count in existing trailer?
Frank, Thanks once again! This looks like just what I need. I may not get around to trying it until tomorrow, but I wanted you to know I saw it and will try it out on my file. I'll respond again after I work on it. Peter > -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Frank Yaeger > Sent: Wednesday, March 03, 2010 12:45 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: SORT question: How to store record count in existing trailer? > Peter, > > That's no problem. Here's a DFSORT job that will do what you asked for: > > //S1EXEC PGM=SORT > //SYSOUTDD SYSOUT=* > //SORTIN DD DSN=... input file (VB/8004) > //SORTOUT DD DSN=... output file (VB/8004) > //SYSINDD*.. > OPTION COPY > * Add SEQNUM between RDW and data. > INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:SEQNUM,11,ZD,16:5)), > * Use SEQNUM-2 to put count of data records in > * last record (identified by X'FF'). > IFTHEN=(WHEN=(16,1,BI,EQ,X'FF'), > OVERLAY=(36:5,11,ZD,SUB,+2,TO=ZD,LENGTH=11)) > * Remove SEQNUM. > OUTREC BUILD=(1,4,5:16), > /* This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Improving my SMP/E usermod procedure
Final on this topic until next release. It was advised not to just put the entire assembler source in the ++JCLIN. Why not, it appears to work? Dave Gibney Information Technology Services Washington State University -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: the best way to configure HIS 2006?
Matan About the most useful observation in your post is your suspicion that the Microsoft HIS "White Paper" concerning setting up Enterprise Extender (EE) - aka IP-DLC - between HIS and VTAM is unreliable. It is just about the most terrible pretence at a description of VTAM definitions I know about and its presentation of the part about which the authors should know something, namely the definition of their IP-DLC, is very distorted. I am no longer - for decades now - a CICS specialist but I have seen in a recent thread in this list I think which allows CICS to pass print data to JES2 from where there is a product which uses IP-based protocols to an IP native - as it were - printer. You may like to research this possibility. On the other hand, you can still treat your printer as an SNA device but have the Communications Server (CS) IP component TN3270E server concatenate the SNA session with a TN3270E connection to a TN3270E client 3270 emulator which can drive a printer attached to the workstation. > Is there no way to perform a pure IP connectivity to my LPAR?[1] Note that, if the TN3270E server and CICS are running on the same LPAR, it can be said that you have an IP connection from your workstation supporting the printer function and the LPAR where the print data is created. > Is there no way that HIS can connect to my LPAR and get an LU from my defaults LU defining in TCP/IP. Actually I don't understand at all what you are asking here - but it may not matter finally. > Does it require ENTERPRISE EXTENDER? If you need SNA connectivity - in the shape of actual SNA sessions - between VTAM and HIS, you should plan to use EE since I have seen recently on the Microsoft HIS list/group that the only so-called DLC service that Microsoft will support in the future is their so-called IP-DLC. That means the DLC which supports LAN protocols such as Ethernet is going to be dropped: https://connect.microsoft.com/site66/content/content.aspx?ContentID=10997 I assume you have worked out that, if you run an SNA session from CICS via VTAM to HIS - using an EE logical link, you know how your printing task will work in that environment. In other words there's some point in my helping you set up EE. On the other hand, if this configuration is only to be used for a limited time, you will always just be using HIS 2006 and it is an option simply to connect VTAM to HIS over Ethernet with an 802.2 logical link, I believe it may be easiest to support your SNA session this way. I believe I have seen some samples of a HIS 802.2 connection when I was researching all the problems with the Microsoft EE "White Paper". I'll see if I can find it again. It is very simple on the VTAM side and should be very simple on the HIS side - certainly compared to EE definitions in both cases. The VTAM and HIS definitions are simple but there may be a complication in configuring your OSA, assuming you will be using an OSA. Another point that must never be forgotten if you plan to use EE is to ensure that your VTAM is enabled for APPN. This is not necessarily a trivial task and could have repercussions for your existing VTAM production environment. Adding an 802.2 logical link is almost certainly going to have no repercussions. > ... accordingly to the document and member we used in the past for SNA server: ... How did you connect to HIS in the past and can you still use that type of connection? > MEDIUM=CSMACD, - If I change it to HPRIP will it work TCP/IP? Not without massive changes elsewhere. > CPCP=YES I overwrite the CPCP which is now "CPCP=LEASED". Can this produce any problems? This seems to suggest that you have already enabled APPN. However, CPCP=LEASED is a rather odd VTAM start option, the thinking behind the default for which is rather out of date - and was out of date when it was "invented"! You are right that CPCP=YES is a better start option value since it includes logically switched resources which is the case for *all* logical links these days and has been for a long time. Only antique SDLC lines can be non-switched/leased (or X.25 NPSI PVCs, equally antique - and obscure!). > ECPATH50 PATH DIALNO=01040050, ... Should this be the MAC address of the SNA server? Absolutely not. In fact you should probably rely on the HIS side to make contact which will mean you do not need a CALL=OUT PATH statement at all. [2] Do you have existing SNA sessions between say CICS and HIS? Does this explain the SSCP-independent LU - which should be defined with a CDRSC rather than an LU with LOCADDR=0? - and cannot possibly use an USS table!!! In fact the printer - LOCADDR=2 with DLOGMOD=SCS is assumed to identify an SSCP-dependent printer LU - cannot possibly use an USS table either - think about it! Activating PU statements in a switched major node is most unlikely to be disruptive to a production environment. The question I ask myself time and again reading this
the best way to configure HIS 2006?
hi, i'm in the middle of configuring an HIS server 2006 and there are several question on my mind ( i lack of knowledge in communication). the reason we configure an HIS its because we trying to perform a CICS print to a TCP\IP printer by defining a terminal(printer). -is there no way to perform a pure ip connectivity to my lpar? why i must define XCA to vtam ? -is there no way that HIS can connect to to my lpar and get a lu from my defaults lu defining in tcpip. I read this document but i wonder about how much it is accurate : http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=86d6011a-3396-4c36-b4b1-af7f4d80a099 -is there any a similar document for configuring an HIS using DLC 802.2? does it require an ENTERPRISE EXTENDER ? when doing 'D NET,EE' i got this message . : IST2045I ENTERPRISE EXTENDER XCA MAJOR NODE NOT ACTIVE - i have already have 3 XCA major node what make an XCA major node to an ENTERPRISE EXTENDER XCA MAJOR? so i started redefine the follow member, accordingly to the document and member we used in the past for SNA server : i created the follow member in user.vtamlst with the following: member XCAEE: i have already have an 3 XCA major node can defining this can cause a problem. ** *** MEMBER: XCAEE ** ***EXTERNAL COMMUNICATIONS ADAPTER (3172 ETHERNET ) *** *** (USING THE AWS3172 DRIVER) *** ** XCA2EVBUILD TYPE=XCA * XCA2PTE PORT ADAPNO=1, MPTS ADAPTER NUMBER * CUADDR=E23, LAN3172 DEVICE MAP ADDRESS * *MEDIUM=CSMACD, * if i will change it to HPRIP will it work tcpip SAPADDR=4, COMM. MANAGER USES SAP=4* TIMER=120 *** * LAN (PU2/2.1) SWITCHED RESOURCES *** XCA2GP3E GROUP DIAL=YES, GROUP POINTED BY LAN PATH DEF. * ANSWER=ON, * CALL=INOUT, * ISTATUS=ACTIVE, * AUTOGEN=(55,A) member IPPRNT : IPPRNT VBUILD TYPE=SWNET,MAXGRP=1,MAXNO=99 PUPRNT PUADDR=01,NT LAN SERVER * DISCNT=NO, DISCONNECT FACILITY * DYNLU=YES, DYNAMIC ALLOCATION OF CDRSC * IDBLK=05D, DEVICE TYPE * IDNUM=00600,DEVICE SERIAL NUMBER* CPNAME=CPPRNT, CONTROL POINT NAME * MAXPATH=1, DIAL-OUT PATHS TO PHYSICAL UNIT * PUTYPE=2 *CPCP**=YES* i'm overwrite the CPCP which is now "CPCP = LEASED " is this can preduce any problem? ECPATH50 *PATH **DIALNO**=01040050, DIAL NUMBER (INC. MAC **ADDR**.) ** is this should be the mac address of the SNA server? GRPNM=XCA2GP3E LAN GROUP NAME (SEE XCA02) ECLUSYS1 LULOCADDR=0, FOR INDEPENDENT LU MUST BE 0* DLOGMOD=GUIMODE,LOGON MODE TABLE ENTRY * MODETAB=GUILU62M, LOGON MODE TABLE NAME * ISTATUS=ACTIVE, INITIAL STATUS * USSTAB=SDLUSSTR USS TABLE NAME CPRT0001 LULOCADDR=2, LOGICAL UNIT LOCAL ADDRESS * DLOGMOD=SCS,LOGON MODE TABLE ENTRY * MODETAB=ISTINCLM, LOGON MODE TABLE NAME * ISTATUS=ACTIVE, INITIAL STATUS * USSTAB=SDLUSSTR USS TABLE NAME i didn't do any act for this member from the fear it might cause some problem because of my lack of knowledge and the fact it is a production? if i will activate this members will i be able to connect to the lpar form the HIS server? or there is anything i'm missing? -- best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
Well, I guess the good news is that coding around the oddities of OS/360, MVS, OS/390, and z/OS has provided a fairly good living for me over the years. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Wednesday, March 03, 2010 10:14 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Mixed case to a CLIST from ISPF command line? On Wed, 3 Mar 2010 09:32:04 -0800, Charles Mills wrote: > >2. In the Rexx, if the arguments show up as mixed case I use them as-is; if >they show up all upper case I prompt for the user (me) to re-type them as >Rexx Pull input. > Are you delighted, or do you just want to wash your hands? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On Wed, 3 Mar 2010 09:32:04 -0800, Charles Mills wrote: > >2. In the Rexx, if the arguments show up as mixed case I use them as-is; if >they show up all upper case I prompt for the user (me) to re-type them as >Rexx Pull input. > Are you delighted, or do you just want to wash your hands? >3. The *** is not a problem because the Rexx submits a job and I would have >to dismiss the *** in any event. > SMBMIT does that to you. How silly. I wonder if it could be OUTTRAPed and issued as a ZEDLMSG? (Just being compulsive.) (But I have a macro that writes directly to INTRDR and provokes no message. But it doesn't display the job ID.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: More calumny: "Secret Service Uses 1980s Mainframe"
Hello all, I have two machines with OS/2 V 3 still running, and it is not called WARP, but there was a version V3 already called WARP, too, AFAIK. (The machines are from 1997 and 1999, by the way, and they still have the original IBM SCSI drives, no problems so far). The "blue screen" is not blue with OS/2, but black and white instead, and it contains TRAP 00x messages, followed by a dump of several hardware registers. I saw it some times in the last 15 years (less than 10 times, due to hardware problems normally). Kind regards Bernd (OS/2 user from 1993 to 2010 - still using it) R.S. schrieb: Richards, Robert B. pisze: John, I had heart bypass...what's your excuse? :-) You remember incorrectly, unless this Wiki entry is wrong: http://en.wikipedia.org/wiki/OS/2 AFAIR "Warp" was used for v3. However I absolutely don't remember any BLUE screen on OS/2, except some screensaver. I saw several times crashed OS/2, but no blue screen. Did I miss something? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SORT question: How to store record count in existing trailer?
Peter Farley wrote on 03/03/2010 07:16:55 AM: > Thanks for the suggested solutions. In my case, the header and trailer > are identifiable (HDR=X'00', TRLR=X'FF', pos 1 for let's say at least 10 > bytes). > > The file is VB, LRECL=8004, and the data records vary widely in length. > Header and trailer are length 700 always, but both header and trailer > records contain various data fields (not just date/time/record count) > that are not constant and must be preserved. > > Another wrinkle I realized overnight is that the records cannot actually > be sorted, it must be a COPY operation. The sort sequence is complex, > depending on business criteria that cannot be duplicated in sort > control. > > Here is a simple example that I believe matches my needs (??? = low > values, ### = high values): > > ??DATE=MMDDHHMMSS PLUS OTHER DATA FIELDS > D1 DATA RECORD A B C D E > D5 DATA RECORD C D T R E W T U > D3 DATA RECORD H J K > D2 DATA RECORD Y Z S F > D4 DATA RECORD M X W Q 2 4 6 > ##REC-COUNT=015 PLUS OTHER DATA FIELDS > > Record count in the trailer in this example = pos 21 for 11 bytes (pos > 25 for 11 with RDW added). The record count of 15 in the trailer must > now be replaced by 5 because records have been removed by a utility > process (no program logic, so no trailer update possible). I need to > get the trailer count corrected without changing the order of the data > records. > > Also, the data records may not be touched in any way, or if modified > must be returned to their exact before-SORT value. Peter, That's no problem. Here's a DFSORT job that will do what you asked for: //S1EXEC PGM=SORT //SYSOUTDD SYSOUT=* //SORTIN DD DSN=... input file (VB/8004) //SORTOUT DD DSN=... output file (VB/8004) //SYSINDD*.. OPTION COPY * Add SEQNUM between RDW and data. INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:SEQNUM,11,ZD,16:5)), * Use SEQNUM-2 to put count of data records in * last record (identified by X'FF'). IFTHEN=(WHEN=(16,1,BI,EQ,X'FF'), OVERLAY=(36:5,11,ZD,SUB,+2,TO=ZD,LENGTH=11)) * Remove SEQNUM. OUTREC BUILD=(1,4,5:16), /* Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
Well, thanks all. I used a combination of approaches. 1. I found the TSOCMD approach totally unsatisfactory. It seemed to upper-case the argument and throw me out of the panel I wanted to be on and onto ISPF 6. 2. In the Rexx, if the arguments show up as mixed case I use them as-is; if they show up all upper case I prompt for the user (me) to re-type them as Rexx Pull input. 3. The *** is not a problem because the Rexx submits a job and I would have to dismiss the *** in any event. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Wednesday, March 03, 2010 7:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Mixed case to a CLIST from ISPF command line? On Wed, 3 Mar 2010 07:24:44 -0600, Robert Birdsall wrote: > >... >(I hate case-sensitive commands and file names). >... > Recognize, of course, that OS/360 was one of the earliest systems to perpetrate this behavior, by making its Data Management Services case-sensitive. It's easier to exhibit nowadays: //DOIT EXEC PGM=IEWL,PARM='MAP,LET,LIST,NCAL,CASE=MIXED' //SYSPRINT DD SYSOUT=(,) //SYSTERM DD SYSOUT=(,) //HANDLEDD DISP=(MOD,CATLG),SPACE=(1000,(1000,,5)),UNIT=SYSALLDA, // DSN=&SYSUID..TEST.MIXED.CASE //SYSLMOD DD DISP=SHR,DSN=*.HANDLE,VOL=REF=*.HANDLE //SYSLIBDD DISP=SHR,DSN=SYS1.LINKLIB //SYSLINDD * INCLUDE SYSLIB(IEFBR14) NAME FooBar(R) //* I hate APIs that won't let me access files in the intrinsically case-sensitive filesystem. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Improving my SMP/E usermod procedure
If your RESTORE/REJECT will be immediately followed by a new RECEIVE/APPLY or even just a stand-alone APPLY REDO, you should not need to do anything to the GENASM entries. If you are removing TST2JOBC, then you probably should create the corresponding UCLIN statements to DEL the GENASM entries you added. Otherwise, when one of the macros changes I would expect SMPE to generate a diagnostic indicating it could not find the source to reassemble. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Gibney, Dave Sent: Tuesday, March 02, 2010 3:41 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Improving my SMP/E usermod procedure It appears you are correct. While looking closer, I found this in my "Installing your Order": Jobs run during production The UCLIN job, ISF.SISFJCL1(ISFISUCL), which causes SMP/E to reassemble SDSF whenever maintenance affects JES2 macros has been run. I guess my direct desire won't happen :( I can build the UCLIN and combine it at RECEIVE or full APPLY. It will take some more thought to figure what to do with RESTORE and REJECT., -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
On Wed, 3 Mar 2010 07:24:44 -0600, Robert Birdsall wrote: > >... >(I hate case-sensitive commands and file names). >... > Recognize, of course, that OS/360 was one of the earliest systems to perpetrate this behavior, by making its Data Management Services case-sensitive. It's easier to exhibit nowadays: //DOIT EXEC PGM=IEWL,PARM='MAP,LET,LIST,NCAL,CASE=MIXED' //SYSPRINT DD SYSOUT=(,) //SYSTERM DD SYSOUT=(,) //HANDLEDD DISP=(MOD,CATLG),SPACE=(1000,(1000,,5)),UNIT=SYSALLDA, // DSN=&SYSUID..TEST.MIXED.CASE //SYSLMOD DD DISP=SHR,DSN=*.HANDLE,VOL=REF=*.HANDLE //SYSLIBDD DISP=SHR,DSN=SYS1.LINKLIB //SYSLINDD * INCLUDE SYSLIB(IEFBR14) NAME FooBar(R) //* I hate APIs that won't let me access files in the intrinsically case-sensitive filesystem. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SORT question: How to store record count in existing trailer?
Hi Frank, Thanks for the suggested solutions. In my case, the header and trailer are identifiable (HDR=X'00', TRLR=X'FF', pos 1 for let's say at least 10 bytes). The file is VB, LRECL=8004, and the data records vary widely in length. Header and trailer are length 700 always, but both header and trailer records contain various data fields (not just date/time/record count) that are not constant and must be preserved. Another wrinkle I realized overnight is that the records cannot actually be sorted, it must be a COPY operation. The sort sequence is complex, depending on business criteria that cannot be duplicated in sort control. Here is a simple example that I believe matches my needs (??? = low values, ### = high values): ??DATE=MMDDHHMMSS PLUS OTHER DATA FIELDS D1 DATA RECORD A B C D E D5 DATA RECORD C D T R E W T U D3 DATA RECORD H J K D2 DATA RECORD Y Z S F D4 DATA RECORD M X W Q 2 4 6 ##REC-COUNT=015 PLUS OTHER DATA FIELDS Record count in the trailer in this example = pos 21 for 11 bytes (pos 25 for 11 with RDW added). The record count of 15 in the trailer must now be replaced by 5 because records have been removed by a utility process (no program logic, so no trailer update possible). I need to get the trailer count corrected without changing the order of the data records. Also, the data records may not be touched in any way, or if modified must be returned to their exact before-SORT value. Thanks again for your generous help. Peter This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OT: The gaming world has met the date issue and failed
On Tue, 2 Mar 2010 22:59:38 -0800, Ed Gould wrote: >http://kotaku.com/5482328/ps3s-suffering-from-global-lockdown?skyline=true&s=i > >PS3s Suffering From Global Network Lockdown [UPDATE 7] > Following the link to: http://kotaku.com/5482811/ps3-error-8001050f-caused-by-clock-bug-fix-within-24-hours-%5Bupdate%5D ... UPDATE 2: Sony says the problem was that the older PS3s thought 2010 was a leap year. An explanation on how to do a manual fix, if things haven't corrected themselves by now. ... on the day after Feb. 28. It's the German credit card problem again. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: O/T IBM ditches more people
On Tue, 2 Mar 2010 15:00:59 -0800, Ed Gould wrote: >Original URL: http://www.theregister.co.uk/2010/03/02/ibm_us_job_cuts/ >IBM cuts more than 1,600 US jobs >Under the reporting radar >By Timothy Prickett Morgan >Posted in Servers, 2nd March 2010 16:49 GMT >IBMers from a number of different divisions of the IT giant say that the >company initiated another round of "resource actions" on Monday, with >somewhere north of 1,600 people estimated to have lost their jobs. Yep, got an email Monday from a friend who got tapped on the shoulder. Some things never change... Anyone looking for a web/java/DB2/Oracle app developer? Regards, Art Gutowski Ford Motor Company -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Need tool to zap core
The following message is a courtesy copy of an article that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. re: http://www.garlic.com/~lynn/2010e.html#10 Need tool to zap core http://www.garlic.com/~lynn/2010e.html#11 Crazed idea: SDSF for z/Linux http://www.garlic.com/~lynn/2010e.html#32 Need tool to zap core http://www.garlic.com/~lynn/2010e.html#34 Need tool to zap core ... long after i have made presentation at baybunch on how to implement dumprx ... more from the 3090 (3092) service processor group Date: 23 December 1986, 10:38:21 EST To: wheeler Re: DUMPRX Lynn, do you remember some notes or calls about putting DUMPRX into an IBM product? Well . >From the last time I asked you for help you know I work in the 3090/3092 development/support group. We use DUMPRX exclusively for looking at testfloor and field problems (VM and CP dumps). What I pushed for back aways and what I am pushing for now is to include DUMPRX as part of our released code for the 3092 Processor Controller. I think the only things I need are your approval and the source for RXDMPS. I'm not sure if I want to go with or without XEDIT support since we do not have the new XEDIT. In any case, we (3090/3092 development) would assume full responsibility for DUMPRX as we release it. Any changes/enhancements would be communicated back to you. If you have any questions or concerns please give me a call. I'll be on vacation from 12/24 through 01/04. ... snip ... RXDMPS was small stub code that dealt with failure image file. misc. past posts mentioning dumprx http://www.garlic.com/~lynn/submain.html#dumprx -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mixed case to a CLIST from ISPF command line?
No matter what I try, I still can't get tsocmd;foo bar to work correctly (lower case bar in the Rexx exec) when the command input field is CAPS(ON). If it works for you, though, try this: cmde;foo bar Recent ISPF versions (I'm on z/OS 1.10, but I'm sure it was in 1.9, maybe before) have this cmde command which selects program ISPCCMDE and just executes 1 command. Note that these options are not _exactly_ like the 'TSO' command. Try TSO HELP, and then try TSOCMD;HELP or CMDE;HELP. Actually, having thought about this, I believe ISPF development _could_ solve the issue without dialog developers making _any_ changes. Here's my proposition and defense: The ISPF dialog manager would display the command input (ZCMD or equivalent) field with CAPS(OFF) regardless of how it is defined in the panel. If the command is entered by the user with a leading '>' it would upper case the command if CAPS(ON) is specified or defaulted in the panel, then pass it to the dialog as usual. Otherwise, it would (as usual) search the command tables for a match on the first word of the command input. If it finds a match in the application table (see 3.9, Command Table Utility) it would upper case the command and take the action specified in the command table. If it finds a match in _any other command table_ (user,site,system) it would _not_ upper case the command and take the action specified. If it does not find a match in any command table, it would upper case the command and pass it to the dialog (as usual). The panel definition is basically a contract between the ISPF dialog manager and the dialog that provided the panel. It does _not_ need to be a description of how ISPF should implement the display. As long as the display is _effectively_ the same, ISPF has some leeway in the implementation. The dialog and associated (application) command table may depend on the panel statements being honored by ISPF - that is the purpose of the statements. Command tables which are _not_ part of a dialog (user,site,system) _cannot_ depend on a specific panels field definitions. ISPF itself supplies panels which allow mixed case input in the command field. Any user, site or system table which requires CAPS(ON) is _already broken_ using any supported version of ISPF. Because of this, I do not believe the panel statements for the command input field (which already recieves special processing by ISPF) should impact (sometimes adversely) the information passed to command table entries. That is, the way the dialog manager processes panels today, user, site and system table commands can be (and are) broken by application-defined panels. The command table developers have _no control_ over the application- defined panels (the panels may even be dynamically produced by a vendor- supplied load module). The dialog manager _can_ be fixed to preserve case for command tables (which will _not_ break them if they are not already broken) without breaking existing applications (dialogs). Please show me how I am wrong. Otherwise, it looks like a requirement may be in order (and I've never done that before). Just FYI, my concern is _not_ the TSO command. I write my own, and they may _require_ mixed case due to unix file naming, which is beyond my control (I hate case-sensitive commands and file names). On Tue, 2 Mar 2010 15:02:16 -0500, Hardee, Charles H wrote: >That's the problem. I've fought this battle before and can't figure out the winning move. >There's no easy solution. Some are better than others and some are near impossible to do due to policies in effect at one's site, etc. > >I would really love to see the ISPF tool changed to support lower case. That's work for the people at IBM, though as others have indicated and with whom I agree, it should have been done up front. No one I know lives in a black and white world, there is plenty of color out there, so why are we limited to upper only when we could upper, lower and mixed. > >I guess the bottom line is that one must chose one's bed and then lie in it. Either one customizes the ISPF panels as needed, or uses the TSOCMD process or invents their own, any way you look at it, someone isn't going to like what you do and someone will end up having to "live with it". > >How's that for sitting on the fence? > >-Original Message- >From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Dave Salt >Sent: Tuesday, March 02, 2010 1:48 PM >To: IBM-MAIN@bama.ua.edu >Subject: Re: Mixed case to a CLIST from ISPF command line? > >Fair enough, but what do you suggest instead? > >Dave Salt > >SimpList(tm) - try it; you'll get it! > >http://www.mackinney.com/products/program-development/simplist.html > > > >> Date: Tue, 2 Mar 2010 14:26:35 -0500 >> From: charles.har...@ca.com >> Subject: Re: Mixed case to a CLIST from ISPF command line? >> To: IBM-MAIN@bama.ua.edu >> >> I've tried this and if it were me, I wouldn't go for it. >> >>
Re: z9 / z10 instruction speed(s)
McKown, John wrote: There are multiple z9 "models". Each model has its own MSU rating, which is basically related to the number of CPs enabled and their "speed". Now, I know that all the CPs on all z9 run same hardware speed. So, I'm wondering how they are "knee capped"? Now, I know that the "knee capping" is done by loading in a specific MCL. So, I'm thinking that this somehow does something like "inserts a wait state" during instruction processing. That is, the XYZ instruction on all z9s run in the same amount of time. But there is "something extra" done at the end of the XYZ instruction which causes a "wait" before the next instruction is actually executed. Am I on the right track? Or is it done is some other strange manner? There is a hardware timer pop (think STIMER REAL) that occurs every 'n' milliseconds on every CP that passes control to a millicode routine that does important housekeeping tasks for the CP, such as noticing and responding to SIGP requests. Before exiting this routine, they load a model-dependent integer value into a millicode register (Rx) and execute BCT Rx,* which "chews" up the prescribed amount of processor cycles. -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
