Re: Assembler question
At 16:59 -0400 on 10/07/2005, Farley, Peter x23353 wrote about Re: Assembler question: I don't know if that takes care of leading/trailing quotes in the &GRPUSER(&I) values, but it's a start. What leading and trailing quotes? Unless you go User='''UID1 UID2 ... UIDX''', the value that the is passed is only UID1 UID2 ... UIDX. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Assembler question
And you'd be right :-) 20 000E 12 DCAL2(LISTEND-*-2) 22 E3F0F4F5F0F2F213 DCC'T045022' 29 E3F0F4F7F5F4F214 DCC'T047542' 00030 15 LISTEND EQU * Charles -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Kirk Talman Sent: Friday, October 07, 2005 2:29 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Assembler question Personally I would use: DCAL2(LISTEND-*-2) DCC'T045022' DCC'T047542' ... LISTEND EQU * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Assembler question
Personally I would use: DCAL2(LISTEND-*-2) DCC'T045022' DCC'T047542' ... LISTEND EQU * Charles Mills <[EMAIL PROTECTED]> 10/07/2005 05:19 PM You're on exactly the right track for generating your length halfword, something like DCAL2(LISTEND-*+2) DCC'T045022' DCC'T047542' ... LISTEND EQU * - The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. The information may also constitute a legally privileged confidential communication. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Temp PDSE in VIO
On Fri, 7 Oct 2005 22:38:03 +0200, Frank Allan Rasmussen <[EMAIL PROTECTED]> wrote: >Hi > >Is it possible to create a temp PDSE in VIO in JCL > >something like: > >//VIOPDSE DD DSN=&&TMPPDSE, >// dsntype=library, >// space=(cyl,(100,59,25)), >// unit=vio, >// dcb=(lrecl=32000,blksize=32760,recfm=vb) > >Mvh >Frank Allan Rasmussen >Denmark > Did you try it? Imperical evidence tells me you can't use VIO for a PDSE: IEF344I jobname STEP1 OUT1 - ALLOCATION FAILED DUE TO DATA FACILITY SYSTEM ERROR IGD17040I ERROR IN DADSM PROCESSING ON VOLUMEFOR DATA SET SYS05280.T161537.RA000.jobname.TEMP.H02 HISTORIC RETURN CODE IS 196 DIAGNOSTIC INFORMATION IS 0C060090 IGD306I UNEXPECTED ERROR DURING IGGDAC02 PROCESSING RETURN CODE 12 REASON CODE 144 THE MODULE THAT DETECTED THE ERROR IS IGDVTSDA SMS MODULE TRACE BACK - VTSDA VTSCR SSIRT SYMPTOM RECORD CREATED, PROBLEM ID IS IGD00414 I also found the documented error code in the DFSMSdfp Diagnosis Reference if you prefer it spelled out in black and white. ++ ¦ Table 27. DADSM CREATE Diagnostic Information (Register 0) ¦ +¦ ¦ Byte 0 ¦ Byte 1 ¦ Byte 2 ¦ Byte 3 ¦ ¦ ++-+-+-+-¦ ¦ DADSM ¦ Subfunc ¦ Subfunc ¦ Subfunc ¦ Description ¦ ¦ Error ¦ Ident ¦ RC ¦ RSN CD ¦ ¦ ¦ code ¦ ¦ ¦ ¦ ¦ ++-+-+-+-¦ ¦ X'0C' ¦ X'06' ¦ X'00' ¦ X'90' ¦ Validate branch entry parameter ¦ ¦¦ ¦ ¦ ¦ list; PDSE cannot be VIO. ¦ ++-+-+-+-¦ Regards, Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America and Farmers Insurance Group mailto: [EMAIL PROTECTED] Systems Programming expert at http://Search390.com/ateExperts/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Assembler question
You're on the right track and I'm too lazy to actually do the coding. OTOH, why not consider changing you macro syntax to something like USERS=(T045022,T046726,T047542,T056131,... And then is should be fairly trivial to separate out the sub-operands of &USERS (&USERS(&SUB) as I recall) and loop based on the number of sub-operands (N'&USERS as I recall). The Assembler language reference is your friend (NOT Principles of Operation). You're on exactly the right track for generating your length halfword, something like DCAL2(LISTEND-*+2) DCC'T045022' DCC'T047542' ... LISTEND EQU * Charles -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Scott McFall Sent: Friday, October 07, 2005 12:51 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Assembler question My colleague Bob Stark asked me to float a problem he's currently experiencing at a client site out to some of the listservers for MVS and Assember to see if anyone can help us debug this problem. If you post back, can you please also copy your response to Bob at [EMAIL PROTECTED] as he's in an account site and off-list with web email. Thanks so much! Scott >Date: Fri, 07 Oct 2005 14:49:13 -0400 >From: "Bob Stark" <[EMAIL PROTECTED]> >To: [EMAIL PROTECTED] >Subject: S/390 Assembler Macro problem >X-Mailer: IceWarp Web Mail 5.4.3 >X-Originating-IP: 208.165.251.16 > >I wrote the set of macros below which generate a linked list for a control >block module a month back, and now I am adding more userids. I hit a limit >that I didn't realize: > >xxDC C'THIS MUST BE 256 BYTES OR LESS' > >My list is now over 256 bytes, so I have to split that up unto multiple DC >instructions, and my technique of generating the length will no longer be >correct. When I wrote these two macros, I scoured the Internet looking >for examples, but didn't find much pay dirt, and the High Level Assembler >Programmer's Guide and Language reference are short on examples that put >everything together. > >So I am looking for: >1. A suggested approach, withe a few actual lines of macro code, that show >how to split these DC's up and loop through them. > >2. A Source of really good example assembler macros that I could copy >techniques from. > >Here is a sample invocation of both macros: > > $GRP TEST,USERS='T045022 T046726 T047542 T056131 T056313 T057345 + >T093897 T094643 T095122 T095507 T095556 T096058 + >T096148 T096199 T096255 T096518 T097282 T097579 + >T097617 T097623 T098914 T099268 T099301 T100052 + >' > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Temp PDSE in VIO
Hi Is it possible to create a temp PDSE in VIO in JCL something like: //VIOPDSE DD DSN=&&TMPPDSE, // dsntype=library, // space=(cyl,(100,59,25)), // unit=vio, // dcb=(lrecl=32000,blksize=32760,recfm=vb) Mvh Frank Allan Rasmussen Denmark -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Assembler question
Scott and Bob,
What you need to do is break out the length of each &GRPUSERS(&I) string and
then loop for the quotient of that length over 256, something like this:
LCLA &GLEN,&GCNT,&K,&L
&GLEN SETA K'&GRPUSERS(&I)
&GCNT SETA &GLEN/256
&K SETA 1
GRPUSR&IDS 0CL&GLEN
.GLOOP ANOP ,
&L SETA 256
AIF (&K LT &GCNT).DODC
&L SETA &GLEN-(&GCNT*256)
.DODC ANOP ,
DC C'&GRPUSERS(&I)'(((&K-1)*256)+1,&L)
&K SETA &K+1
AIF (&K LE &GCNT).GLOOP
I don't know if that takes care of leading/trailing quotes in the
&GRPUSER(&I) values, but it's a start.
Peter
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Sent: Friday, October 07, 2005 3:51 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Assembler question
My colleague Bob Stark asked me to float a problem he's currently
experiencing at a client site out to some of the listservers for MVS and
Assember to see if anyone can help us debug this problem.
If you post back, can you please also copy your response to Bob at
[EMAIL PROTECTED] as he's in an account site and off-list with web
email.
Thanks so much!
Scott
>Date: Fri, 07 Oct 2005 14:49:13 -0400
>From: "Bob Stark" <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED]
>Subject: S/390 Assembler Macro problem
>X-Mailer: IceWarp Web Mail 5.4.3
>X-Originating-IP: 208.165.251.16
>
>I wrote the set of macros below which generate a linked list for a
>control block module a month back, and now I am adding more userids. I
>hit a limit that I didn't realize:
>
>xxDC C'THIS MUST BE 256 BYTES OR LESS'
>
>My list is now over 256 bytes, so I have to split that up unto multiple
>DC instructions, and my technique of generating the length will no
>longer be correct. When I wrote these two macros, I scoured the
>Internet looking for examples, but didn't find much pay dirt, and the
>High Level Assembler Programmer's Guide and Language reference are
>short on examples that put everything together.
>
>So I am looking for:
>1. A suggested approach, withe a few actual lines of macro code, that
>show how to split these DC's up and loop through them.
>
>2. A Source of really good example assembler macros that I could copy
>techniques from.
>
>Here is a sample invocation of both macros:
>
> $GRP TEST,USERS='T045022 T046726 T047542 T056131 T056313 T057345 +
>T093897 T094643 T095122 T095507 T095556 T096058 +
>T096148 T096199 T096255 T096518 T097282 T097579 +
>T097617 T097623 T098914 T099268 T099301 T100052 +
>'
>
>GRPTABLE $GRPTBL THIS ENTRY MUST FOLLOW ALL $GRP MEMBERS
>
>Here is the $GRP macro, which keeps an array of group data:
>
> MACRO
>&MACNAME $GRP &NAME,&USERS=''
>.*---*
>.* *
>.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
>.* *
>.* EXAMPLE: $GRP LANDUSR,USERS='T12345 TZ9' *
>.* *
>.*---*
> GBLC &GRPNAMES(500)
> GBLC &GRPUSERS(500)
> GBLA &GRPCNTR
> AIF (T'&NAME NE 'O').GOTNAME
> MNOTE 12,'** NO GROUP NAME ENTERED'
> MEXIT
>.GOTNAME ANOP
>.*
> AIF (T'&USERS NE 'O').GOTUSER
> MNOTE 12,'** NO USER NAME(S) ENTERED'
> MEXIT
>.GOTUSER ANOP
>.*
>&GRPCNTR SETA &GRPCNTR+1
>.* THE NEXT LINE PADS THE NAME TO 8 CHARACTERS, SO IT COMPARES OK
>.*&GRPNAMES(&GRPCNTR) SETC '&NAME'.''(K'&NAME,8)
>&GRPNAMES(&GRPCNTR) SETC '&NAME'
>&GRPUSERS(&GRPCNTR) SETC '&USERS'
>.END MEND
>
>Here is the $GRPTBL Macro, where my problem lies. It sorts the array
>into order (that part works okay), then generates control blocks from the
data.
>See the very bottom for what I think I need to do.
>
> MACRO
>&MACNAME $GRPTBL &DSECT=NO
>.*---*
>.* *
>.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
>.* *
>.* EXAMPLE: $GRPTBL DSECT=YES*
>.*---*
> GBLC &GRPNAMES(500)
> GBLC &GRPUSERS(500)
> GBLA &GRPCNTR
>
> LCLA &I,&J
> LCLA &NEXT
> LCLB &SWAP
> LCLC &SAVEC
> AIF ('&DSECT' EQ 'YES').DGEN
>.* MNOTE 0,'*** TABLE CONTAINS &GRPCNTR GROUPS'
>.* TOP OF "I" LOOP
>&I SETA 1
>.
Assembler question
My colleague Bob Stark asked me to float a problem he's currently
experiencing at a client site out to some of the listservers for MVS and
Assember to see if anyone can help us debug this problem.
If you post back, can you please also copy your response to Bob at
[EMAIL PROTECTED] as he's in an account site and off-list with web email.
Thanks so much!
Scott
Date: Fri, 07 Oct 2005 14:49:13 -0400
From: "Bob Stark" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: S/390 Assembler Macro problem
X-Mailer: IceWarp Web Mail 5.4.3
X-Originating-IP: 208.165.251.16
I wrote the set of macros below which generate a linked list for a control
block module a month back, and now I am adding more userids. I hit a limit
that I didn't realize:
xxDC C'THIS MUST BE 256 BYTES OR LESS'
My list is now over 256 bytes, so I have to split that up unto multiple DC
instructions, and my technique of generating the length will no longer be
correct. When I wrote these two macros, I scoured the Internet looking
for examples, but didn't find much pay dirt, and the High Level Assembler
Programmer's Guide and Language reference are short on examples that put
everything together.
So I am looking for:
1. A suggested approach, withe a few actual lines of macro code, that show
how to split these DC's up and loop through them.
2. A Source of really good example assembler macros that I could copy
techniques from.
Here is a sample invocation of both macros:
$GRP TEST,USERS='T045022 T046726 T047542 T056131 T056313 T057345 +
T093897 T094643 T095122 T095507 T095556 T096058 +
T096148 T096199 T096255 T096518 T097282 T097579 +
T097617 T097623 T098914 T099268 T099301 T100052 +
'
GRPTABLE $GRPTBL THIS ENTRY MUST FOLLOW ALL $GRP MEMBERS
Here is the $GRP macro, which keeps an array of group data:
MACRO
&MACNAME $GRP &NAME,&USERS=''
.*---*
.* *
.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
.* *
.* EXAMPLE: $GRP LANDUSR,USERS='T12345 TZ9' *
.* *
.*---*
GBLC &GRPNAMES(500)
GBLC &GRPUSERS(500)
GBLA &GRPCNTR
AIF (T'&NAME NE 'O').GOTNAME
MNOTE 12,'** NO GROUP NAME ENTERED'
MEXIT
.GOTNAME ANOP
.*
AIF (T'&USERS NE 'O').GOTUSER
MNOTE 12,'** NO USER NAME(S) ENTERED'
MEXIT
.GOTUSER ANOP
.*
&GRPCNTR SETA &GRPCNTR+1
.* THE NEXT LINE PADS THE NAME TO 8 CHARACTERS, SO IT COMPARES OK
.*&GRPNAMES(&GRPCNTR) SETC '&NAME'.''(K'&NAME,8)
&GRPNAMES(&GRPCNTR) SETC '&NAME'
&GRPUSERS(&GRPCNTR) SETC '&USERS'
.END MEND
Here is the $GRPTBL Macro, where my problem lies. It sorts the array into
order (that part works okay), then generates control blocks from the data.
See the very bottom for what I think I need to do.
MACRO
&MACNAME $GRPTBL &DSECT=NO
.*---*
.* *
.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
.* *
.* EXAMPLE: $GRPTBL DSECT=YES*
.*---*
GBLC &GRPNAMES(500)
GBLC &GRPUSERS(500)
GBLA &GRPCNTR
LCLA &I,&J
LCLA &NEXT
LCLB &SWAP
LCLC &SAVEC
AIF ('&DSECT' EQ 'YES').DGEN
.* MNOTE 0,'*** TABLE CONTAINS &GRPCNTR GROUPS'
.* TOP OF "I" LOOP
&I SETA 1
.SRTLOOPI ANOP
&SWAPSETB 0
.* TOP OF "J" LOOP
&J SETA 1
.SRTLOOPJ ANOP
&NEXTSETA &J+1
AIF ('&GRPNAMES(&J)'.''(K'&GRPNAMES(&J),8) LE+
'&GRPNAMES(&NEXT)'.''(K'&GRPNAMES(&NEXT),8)).NOS+
WAP
.* ENTRIES OUT OF ORDER, MUST SWAP THEM
&SWAPSETB 1
.* MNOTE 0,'*** SWAP &J &GRPNAMES(&J) W/ &NEXT &GRPNAMES(&NEXT)'
&SAVEC SETC '&GRPNAMES(&J)'
&GRPNAMES(&J) SETC '&GRPNAMES(&NEXT)'
&GRPNAMES(&NEXT) SETC '&SAVEC'
.*
&SAVEC SETC '&GRPUSERS(&J)'
&GRPUSERS(&J) SETC '&GRPUSERS(&NEXT)'
&GRPUSERS(&NEXT) SETC '&SAVEC'
.NOSWAP ANOP
.*
.* BOTTOM OF "J" LOOP
&J SETA &J+1
.* MNOTE 0,'*** BOTTOM OF J LOOP, J=&J'
AIF (&J LT &GRPCNTR).SRTLOOPJ
.*
.* BOTTOM OF "I" LOOP
.* MNOTE 0,'*** BOTTOM OF I LOOP, I=&I'
AIF (&SWAP EQ 0).SORTED
&I SETA &I+1
AIF (&I LT &GRPCNTR).SRTLOOPI
.* THE ARRAY IS SORTED
.SORTED ANOP
.*
&I SETA 1
&MACNAME DS0F A
Re: PCI audit compliance
Putting the onus of strong passwords on the user did not work, so why should any other policy? Overly restrictive password rules do not add strength. My $0.02. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Perryman, Brian Sent: Friday, October 07, 2005 3:07 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: PCI audit compliance A valid and good point. However I suspect that they will just point out that their policy clearly states that passwords should not be written down, and shift the blame to the user. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Shmuel Metz (Seymour J.) Sent: 06 October 2005 14:37 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: PCI audit compliance Have you discussed with them the risk that the users will write down their passwords if they are too difficult to remember? Perhaps the solution is to use authentication techniques that are more robust than passwords. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
ECS Sharing and MCAT
Hi all, Does any of you use ECS Sharing facility with Master Catalogs ? If they are allocated in devices defined as shared and has shareoptions(3 4), theoretically there is no impeditive in doing this, even if they are not shared among systems. Any comments ? Atenciosamente / Regards / Saludos Ituriel do Nascimento neto Banco Bradesco S/A 4254/DPCD Alphaville Suporte Técnico - Software Básico Mainframes Tel: 55 11 4197-2021 Fax: 55 11 4197-2814 AVISO LEGAL Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação. +**+ LEGAL ADVICE This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Summarize length of all variable length records in a file?
At October 7, 2005 12:14, concerning "RE: Summarize length of all variable length recor", Barry Merrill <[EMAIL PROTECTED]> wrote (to Neil Duffee): > [snip] > However, it is not necessary to use an explicit RETAIN statement, when > you, instead, use the "SUM Statement" syntax, which has an implied > retain: > [snip] Hey! I learned some more SAS today. All these years, I've been using RETAIN statements for my 'sum' variables when it's not necessary. I always used them to avoid 'missing values' during calculations and didn't realize (ie. RTM further) these extra properties. Tks much for pointing that out. --> signature = 6 lines follows <-- Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada telephone:1 613 562 5800 x4585 fax:1 613 562 5161 mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee "How *do* you plan for something like that?" Guardian Bob, Reboot "For every action, there is an equal and opposite criticism." "Systems Programming: Guilty, until proven innocent" John Norgauer 2004 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Network Time Protocol (NTP) and MVS
Neal Eckhardt wrote: As far as I know, NTP has not been supported by z/OS. Is this still the case? I can think of a dozen reasons why it would not be supported (especially for SYSPLEXs), but I am doing my due diligence by asking the question. NTP is not supported for setting the system clock on z/OS. We previewed a new server timer protocol, STP, in July: "Server Time Protocol (STP) preview: IBM plans to make available a new time synchronization feature, Server Time Protocol (STP), which is designed to provide the capability for multiple System z9 and zSeries servers to maintain time synchronization with each other. STP is planned to be the follow-on to the Sysplex Timer® (9037-002). The Sysplex Timer and STP are designed to allow events occurring in different System z9, zSeries, and S/390® servers to be properly sequenced in time. "Note that IBM intends to withdraw the Sysplex Timer Model 2 (9037-002) from marketing in 2006. For more information, refer to Hardware Announcement 105-241 , dated July 26, 2005, (IBM System z9 109). "STP is designed for servers that have been configured to be in a Parallel Sysplex® or a sysplex (without a coupling facility), as well as servers that are not in a sysplex, but that need to be time synchronized. STP is designed to allow timing information to be sent between servers and coupling facilities (CFs) over InterSystem Channel-3 (ISC-3) links configured in peer mode, Integrated Cluster Bus-3 (ICB-3) links, or Integrated Cluster Bus-4 (ICB-4) links. "STP is designed to: * Allow clock synchronization for z9-109, z990, and z890 servers and CFs without requiring the Sysplex Timer * Support a multisite timing network of up to 100 km (62 miles) over fiber optic cabling, thus allowing a Parallel Sysplex to span these distances * Potentially reduce the Cross-Site® connectivity required for a multisite Parallel Sysplex * Coexist with an ETR network * Allow use of dial-out time services to set the time to an international time standard (such as Coordinated Universal Time (UTC)) and adjust to UTC on a periodic basis * Allow setting of local time parameters, such as time zone and daylight savings time * Allow automatic updates of daylight savings time "STP is planned to be available as a feature on z9-109, z990, and z890, and be supported by z/OS V1.7 (PTFs will be required to enable STP support). "Implementation Assistance Program (IAP): IBM plans to make available an IAP to allow you to accelerate the adoption of STP with IBM's assistance. The assistance being planned for this program includes consultation, the review of your migration plans, and technical support. The IAP is planned to begin in October 2005 and be made available through 2006." If you are interested in the IAP, you can contact Angelo Corridori ([EMAIL PROTECTED]) or Noshir Dhondy ([EMAIL PROTECTED]). -- John Eells z/OS Technical Marketing IBM Poughkeepsie [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: GDG allocation
On Fri, 7 Oct 2005 11:24:38 -0600, Lance Kopplin wrote: >- Original Message - >From: "Mark Steely" <[EMAIL PROTECTED]> >> We are z/OS v1r4. We have a started task which creates a GDG file. This >> started task stays ups unless it abends or an IPL happens. This GDG is >> SMS controlled. There are several files which will not migrate because >> the GDG index is enqueued. Is there a way to get around this so the >> files will be migrated. > >We do something very similar to this. We have a started task that reads >syslog off spool and writes it into a GDG, beginning a new GDG at midnight >each night. The way this is coded is to do a dynamic allocation of the +1 >generation, which would be exclusive and should ENQ on the GDG base. After >the dataset is actually created, it is then deallocated (via dynamic >allocation) and then allocated again with DISP=SHR. The DISP=SHR does not >ENQ on the GDG base. So you use the first dynamic allocation to create the dataset, then deallocate it (freeing the exclusive ENQ) and then reallocate the same generation as SHR in order to avoid the base ENQ? Shrewd. >Then the output dataset, allocated DISP=SHR as it is, is opened for output >with EXTEND and data is written to it every minute or so. So it ends up >being one writer and many readers. I've often wondered why nobody ever >sees garbage at the end of the dataset, but it doesn't happen. Probably >using up all my luck that doesn't show up in the lottery. Lance, correct me if I don't understand, but are you then running this started task all day (and night) so that your syslog GDG is more-or- less "up to the minute" with the JES syslog buffers? And you have multiple GDG syslog readers throughout the day while you are writing to it with that started task? -- Tom Schmidt Madison, WI -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSo TIMEOUT
Mark Thanks! Andy S White Internet: Mailto:[EMAIL PROTECTED] "Mark Jacobs" <[EMAIL PROTECTED]> Sent by: "IBM Mainframe Discussion List" 10/07/2005 12:17 PM Please respond to "IBM Mainframe Discussion List" To: IBM-MAIN@BAMA.UA.EDU cc: Subject:Re: [IBM-MAIN] TSo TIMEOUT On Friday 07 October 2005 12:14 pm, Andy White wrote: > Does anyone know typically what controls the inactivity time out (logoff) > in TSO? I asked the RACF people here but they say we don't do it there... > Thanks > JWT in SMFPRMxx. SMF exit IEFUTL can override default setting. -- Mark Jacobs Technical Services Time Customer Service, Tampa FL Time Warner -- The information contained in this message may be CONFIDENTIAL and is for the intended addressee only. Any unauthorized use, dissemination of the information, or copying of this message is prohibited. If you are not the intended addressee, please notify the sender immediately and delete this message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSo TIMEOUT
>You can also... ... you can also check the archives as this has been discussed about a bazillion times. Sorry if this seems a little harsh for a Friday. :-) It took all of .34 seconds for a google groups search for ibm-main and tso timeout (168 hits). Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America and Farmers Insurance Group mailto: [EMAIL PROTECTED] Systems Programming expert at http://Search390.com/ateExperts/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: GDG allocation
- Original Message - From: "Mark Steely" <[EMAIL PROTECTED]> Newsgroups: bit.listserv.ibm-main Sent: Thursday, October 06, 2005 2:05 PM Subject: GDG allocation We are z/OS v1r4. We have a started task which creates a GDG file. This started task stays ups unless it abends or an IPL happens. This GDG is SMS controlled. There are several files which will not migrate because the GDG index is enqueued. Is there a way to get around this so the files will be migrated. We do something very similar to this. We have a started task that reads syslog off spool and writes it into a GDG, beginning a new GDG at midnight each night. The way this is coded is to do a dynamic allocation of the +1 generation, which would be exclusive and should ENQ on the GDG base. After the dataset is actually created, it is then deallocated (via dynamic allocation) and then allocated again with DISP=SHR. The DISP=SHR does not ENQ on the GDG base. Then the output dataset, allocated DISP=SHR as it is, is opened for output with EXTEND and data is written to it every minute or so. So it ends up being one writer and many readers. I've often wondered why nobody ever sees garbage at the end of the dataset, but it doesn't happen. Probably using up all my luck that doesn't show up in the lottery. Lance Any help would be appreciated. Thank You -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSo TIMEOUT
>Does anyone know typically what controls the inactivity time out (logoff) in TSO? I asked the RACF people here but they say we don't do it there... ... PARMLIB: SMFPRMxx: JWT(hhmm) You can also manage this with exits. Also: TIME=1440 (or TIME=NOLIMIT) Overrides the check and jobs never time out. -teD In God we Trust! All others bring data! -- W. Edwards Deming -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Summarize length of all variable length records in a file?
You said "... for those that are trying to get the SAS to work without prior knowledge of the language, the nigglers'll point out that RETAIN DATA DATARDW; and RETAIN BDW; are missing (actual location is irrelevant) from the respective DATA steps. It's only a minor thing and doesn't affect the excellent concept(s) espoused." The variables DATARDW and BDW absolutely must be "retained" from observation to observation; otherwise they would be reset with each new input observation, and they would NOT contain the sum at the end of the file. However, it is not necessary to use an explicit RETAIN statement, when you, instead, use the "SUM Statement" syntax, which has an implied retain: The SUM statement has syntax A + B ; i.e., DATARDW+(LEN+4); which is the same as A=A+B; RETAIN A; I had intended to add this mini-tutorial on why the code worked and that the implied or explicit RETAIN is a critical part of the logic, but forgot. Barry -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Tool to find GDG's in rolled-off status
Before I look into building one, is there a tool somewhere to find GDG's in rolled-out status? When we move some datasets to SMS/TMM, the very OLDest GDG's were defined with NOSCRATCH, now I need to clean up after myself. Len Rugen IT Systems Support - University of Missouri System 615 Locust St. Building Columbia, MO 65211 Phone: (573) 882-9237 - Fax: (573) 882-1370 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSo TIMEOUT
From: "Andy White" > Does anyone know typically what controls the inactivity time out (logoff) > in TSO? I asked the RACF people here but they say we don't do it there... > Thanks That dull roar you maybe can hear in the background is probably a (small) stampede of vendors about to suggest their product could save you ever having to worry yourself about such things ;-) Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSo TIMEOUT
On Friday 07 October 2005 12:14 pm, Andy White wrote: > Does anyone know typically what controls the inactivity time out (logoff) > in TSO? I asked the RACF people here but they say we don't do it there... > Thanks > > > Andy S White > > Internet: Mailto:[EMAIL PROTECTED] JWT in SMFPRMxx. SMF exit IEFUTL can override default setting. -- Mark Jacobs Technical Services Time Customer Service, Tampa FL Time Warner -- Secrecy is the keystone of all tyranny. Not force, but secrecy ... [sic] censorship. When any government, or any church for that matter, undertakes to say to its subjects, 'This you may not read, this you must not see, this you are forbidden to know,' the end result is tyranny and oppression, no matter how holy the motives. Mighty little force is needed to control a man whose mind has been hoodwinked; contrariwise, no amount of force can control a free man, a man whose mind is free. No, not the rack, not fission bombs, not anything —you can't conquer a free man; the most you can do is kill him. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
TSo TIMEOUT
Does anyone know typically what controls the inactivity time out (logoff) in TSO? I asked the RACF people here but they say we don't do it there... Thanks Andy S White Internet: Mailto:[EMAIL PROTECTED] The information contained in this message may be CONFIDENTIAL and is for the intended addressee only. Any unauthorized use, dissemination of the information, or copying of this message is prohibited. If you are not the intended addressee, please notify the sender immediately and delete this message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: GDG allocation
We are z/OS v1r4. We have a started task which creates a GDG file. This started task stays ups unless it abends or an IPL happens. This GDG is SMS controlled. There are several files which will not migrate because the GDG index is enqueued. Is there a way to get around this so the files will be migrated. If the task creates the GDG, closes it, and doesn't need it again, then perhaps you could code FREE=CLOSE on the GDG DD statement. This will deallocate it when the file is created and closed. I can't swear without testing it if this will DEQ the GDG base. -- Bruce A. Black Senior Software Developer for FDR Innovation Data Processing 973-890-7300 personal: [EMAIL PROTECTED] sales info: [EMAIL PROTECTED] tech support: [EMAIL PROTECTED] web: www.innovationdp.fdr.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Geoplex performance considerations
<---snip---> To all who have helped with our research into GDPS with SRDF/A, THANKS! What we've found is that virtually no one is running a GDPS with syncronous data replication, and we fould only one instance of active data sharing across sites. We did find a handful of people running dual sites with application routing giving the appearance of a GDPS, and with failover between the sites based on asyncronous data replication. If you'd like more info on what we've fould, check with Robert Catterall at IDUG - Robert will be publishing our results. <---snip---> If I understand you correctly, your research and results have to do with the GDPS with SRDF/A only. If you mean GDPS, PPRC, multisite (dual) workload, planned/unplanned hyperswap, then your results are false. Zaromil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PCI audit compliance
One type of tool that can help with "password rage" is a password manager. I suggest you use a password manager which is open source, uses a well vetted encryption algorithm, and has an active developer. I favor and use the original Password Safe developed by Bruce Schneier it works on Windows http://passwordsafe.sourceforge.net/ KeePass Password Safe has gotten many positive comments and also works on Windows. http://keepass.sourceforge.net/ Both are hosted on http://sourceforge.net The world's largest development and download repository of Open Source code and applications Providing free services to Open Source developers. There are others but choose this tool for yourself very carefully. Best Regards, Sam Knutson, GEICO Performance and Availability Management mailto:[EMAIL PROTECTED] (office) 301.986.3574 "Distance is irrelevant" - Pythagoras of Borg -Original Message- Have you discussed with them the risk that the users will write down their passwords if they are too difficult to remember? Perhaps the solution is to use authentication techniques that are more robust than passwords. -- Shmuel (Seymour J.) Metz, SysProg and JOAT <> This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: STAT Transaction Error in CICS
> -Original Message- > From: IBM Mainframe Discussion List On Behalf Of Jerry Ragland > > Hi, > > Iam trying to get the statistics details of the CICS region > using the CICS supplied STAT transaction which is present in > the group DFH$STAT. The installation of the group was > successful but when I try to issue the STAT transaction in > the region I get the following error - > > A CICS spool open error has occurred. No statistics print produced. > CICS Command was SPOOLOPEN . RESP FIELD = 80. RESP2 > FIELD = 04. > > Please help me in resolving this error. EIBRESP=80 is NOSPOOL, and EIBRESP2=4 in that context means "no subsystem present". Fix is to code SPOOL=YES in the SIT for the region (SPOOL=NO is the default). -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Betr.: [IBM-MAIN] STAT Transaction Error in CICS
Did you define SPOOL=YES in your SIT or SIT SYSIN override ? Jerry Ragland <[EMAIL PROTECTED]> Verzonden door: IBM Mainframe Discussion List 07-10-2005 14:09 Antwoord a.u.b. aan IBM Mainframe Discussion List Aan IBM-MAIN@BAMA.UA.EDU Cc Onderwerp [IBM-MAIN] STAT Transaction Error in CICS Hi, Iam trying to get the statistics details of the CICS region using the CICS supplied STAT transaction which is present in the group DFH$STAT. The installation of the group was successful but when I try to issue the STAT transaction in the region I get the following error - A CICS spool open error has occurred. No statistics print produced. CICS Command was SPOOLOPEN . RESP FIELD = 80. RESP2 FIELD = 04. Please help me in resolving this error. Thanks in advance. Jerry. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify the system manager. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
STAT Transaction Error in CICS
Hi, Iam trying to get the statistics details of the CICS region using the CICS supplied STAT transaction which is present in the group DFH$STAT. The installation of the group was successful but when I try to issue the STAT transaction in the region I get the following error - A CICS spool open error has occurred. No statistics print produced. CICS Command was SPOOLOPEN . RESP FIELD = 80. RESP2 FIELD = 04. Please help me in resolving this error. Thanks in advance. Jerry. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PCI audit compliance
A valid and good point. However I suspect that they will just point out that their policy clearly states that passwords should not be written down, and shift the blame to the user. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Shmuel Metz (Seymour J.) Sent: 06 October 2005 14:37 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: PCI audit compliance Have you discussed with them the risk that the users will write down their passwords if they are too difficult to remember? Perhaps the solution is to use authentication techniques that are more robust than passwords. This e-mail message is for the sole use of the intended recipient(s)and may contain confidential and privileged information of Transaction NetworkServices. Any unauthorized review, use, disclosure or distribution isprohibited. If you are not the intended recipient, please contact thesender by reply e-mail and destroy all copies of the original message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
