Re: TN3270 for iPhone

Denis Gäbler wrote: And the user may then need to carry a smartcard for each account. My bank has the concept of combining multiple accounts to one login, so only one smartcard is enough. Your bank has, but other companies not. So, people still need multiple tokens. Last but not least:

Re: JES2 offload/reload

Which pointers were messed up? Where was your offload going, tape, disk, etc. Can you post your JESparms so that I can see the settings? I can see where you might have had some problems getting some of the jobs reloaded because of the halt, but while it's not out of the realm of possibility

ALLOWUSERKEYCSA and key 10

Good day list I would like to know what is the impact of the parameter ALLOWUSERKEYCSA when the storage is in key ten (10) ... I'm curious because when just looking at a dump I found some chunks in ECSA key 10 ... If I understand correctly, at the dump I looked the PKM allowed only keys 8

What is Tri-modal addressability?

Good Morning All, Can someone define Tri-modal addressability for me? Or point me to a document that explains what it is? I have found references to it, but nothing more. I have searched IBM web-site, Google, etc and can't find a definition of what exactly it is. Thanks, Mary

Re: What is Tri-modal addressability?

Yukus, Mary J CIV USMEPCOM wrote: Good Morning All, Can someone define Tri-modal addressability for me? Or point me to a document that explains what it is? I have found references to it, but nothing more. I have searched IBM web-site, Google, etc and can't find a definition of what exactly it

Re: What is Tri-modal addressability?

Hello Mary, From an assembler book I have somewhere: z/Architecture has a trimodal addressing mode: it supports 24-, 31- and 64-bit addresses. Vriendelijke Groeten / Best Regards / Med Vänliga Hälsningar Kevin Somers System Engineering Mainframe Volvo IT Belgium -Original

Re: What is Tri-modal addressability?

Thanks everyone for your help on this. I appreciate it! -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Somers Kevin Sent: Tuesday, October 28, 2008 7:21 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: What is Tri-modal addressability? Hello Mary,

Re: ALLOWUSERKEYCSA and key 10

1 - Is the standard PKM for user-non-authorized-code in MVS always for keys 8 and 9 ? Problem state V=V programs normally run in Key8 - Key9 is designed to be used by transactions running in a multi-user subsystem address spaces such as CICS where the subsystem kernel code runs in Key8. The

Re: copybook usage

Depending on the amount of batch updating to be done... I would be tempted to write the update process/program in CICS. Then use EXCI (or other batch interface to CICS) to post the activity you are getting from your flat file. You might end up with two CICS programs. One as the

Re: ALLOWUSERKEYCSA and key 10

Hi Rob: Thanks for the answer ... And for MXI ... I undertand why CICS needs keys 8-9 ... The question is: May sometimes found that a problem program is running with a PKM of for example 8, 9 and 10 that will allow the user program to SPKA to key 10 ? BTW, my bet is the same than ours ... I

Best (easiest) way to obtain PTFs frm PSP

I want to obtain service for D/T2097 (z10 CPC). I revied PSP bucket - long document containing long list of PTFs. I can download all of them, including requisities, but: 1. The only method I know is to create PTF list manually (by copy-paste). It is boring and error-prone. 2. The PTFs in the

Re: Best (easiest) way to obtain PTFs frm PSP

R.S. wrote: I want to obtain service for D/T2097 (z10 CPC). I revied PSP bucket - long document containing long list of PTFs. I can download all of them, including requisities, but: 1. The only method I know is to create PTF list manually (by copy-paste). It is boring and error-prone. 2. The

Re: Best (easiest) way to obtain PTFs frm PSP

At the risk of sounding too simplistic, just order, and download all available maintenance. You can do that in several methods, via SMPE RECEIVE ORDER, or shopZ after uploading your maintenance bitmap. I know you are in Poland, so maybe these methods are not available to you there. Short of

Re: ALLOWUSERKEYCSA and key 10

-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mauri Kanter Sent: Tuesday, October 28, 2008 7:55 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: ALLOWUSERKEYCSA and key 10 Hi Rob: Thanks for the answer ... And for MXI ... I undertand why CICS

Re: Best (easiest) way to obtain PTFs frm PSP

On Tue, 28 Oct 2008 14:17:18 +0100, R.S. [EMAIL PROTECTED] wrote: I want to obtain service for D/T2097 (z10 CPC). I revied PSP bucket - long document containing long list of PTFs. I can download all of them, including requisities, but: 1. The only method I know is to create PTF list manually (by

Re: ALLOWUSERKEYCSA and key 10

No PROLOG ... -- 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: ALLOWUSERKEYCSA and key 10

The ability to SPKA to Key10 is controlled by the contents of CR3 and for V=V programs I would expect a PPT entry for the program (unless the program concerned is manipulating CR3 using something like the LCTL instruction). Rob Scott Rocket Software, Inc 275 Grove Street Newton, MA 02466

Re: ALLOWUSERKEYCSA and key 10

On Tue, 28 Oct 2008 09:59:08 -0400, Rob Scott [EMAIL PROTECTED] wrote: The ability to SPKA to Key10 is controlled by the contents of CR3 and for V=V programs I would expect a PPT entry for the program (unless the program concerned is manipulating CR3 using something like the LCTL instruction).

Re: ALLOWUSERKEYCSA and key 10

Mauri Kanter wrote: I would like to know what is the impact of the parameter ALLOWUSERKEYCSA when the storage is in key ten (10) ... All user keys 8-15 are affected by AllowUserKeyCsa in DIAGxx. Are you sure the storage you see in the dump is in key ten (x'A0') and not key one (x'10')?

Re: ALLOWUSERKEYCSA and key 10

Are you sure the storage you see in the dump is in key ten (x'A0') and not key one (x'10')? Yes I'm sure -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message:

RMM and OAM exits

Hi. We have a problem derterming why(and how to control) RMM calls to OAM exits : CBRUXCUA+CBRUXEJC+CBRUXENT+CBRUXVNL. We are in progress migrating from VTS to VSM. Output from D SMS,OAM : CBRUXCUA PROCESSING ENABLED. CBRUXEJC PROCESSING ENABLED. CBRUXENT PROCESSING ENABLED. CBRUXVNL

Many XEPHON magazines are now available at www.cbttape.org

Hi Folks, The XEPHON people (www.tcipubs.com or www.xephonusa.com) have now given many of their magazines over to www.cbttape.org to support. Since Xephon (which had been run by the z/Journal people for the past few years) has stopped publication of their magazines, they were concerned

Re: Many XEPHON magazines are now available at www.cbttape.org

Thank you... Regards, Herman Stocker -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Sam Golob Sent: Tuesday, October 28, 2008 12:05 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Many XEPHON magazines are now available at www.cbttape.org Hi Folks,

Re: Many XEPHON magazines are now available at www.cbttape.org

Sam Golob wrote: Hi Folks, The XEPHON people (www.tcipubs.com or www.xephonusa.com) have now given many of their magazines over to www.cbttape.org to support. Since Xephon (which had been run by the z/Journal people for the past few years) has stopped publication of their magazines, they

Re: RMM and OAM exits

Do you perhaps mean OAM exits calling RMM? You could install a dummy exit that turns off future calls. Remove the RMM version of the exit, there should be a default that does nothing. LIBRARY DISABLE,exitname should disable the exit. Or am I answering the wrong question? Ken -Original

Re: RMM and OAM exits

Ken: Do you currently use any of these cbr exits? We are a non-rmm shop using these exits on a BUSTECH MDL. Are you looking for changes to control the VSM? -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ken Porowski Sent: Tuesday, October

CICS-L URL

Would one of you fine folks be good enough to send me the url used to sign up for the CICS listserv? Thanks. _ LEGAL NOTICE Unless expressly stated otherwise, this message is confidential and may be privileged. It is intended for the addressee(s) only. Access to this E-mail by

Re: CICS-L URL

In a message dated 10/28/2008 11:59:29 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: Would one of you fine folks be good enough to send me the url used to sign up for the CICS listserv? _http://listserv.uga.edu/archives/cics-l.html_ (http://listserv.uga.edu/archives/cics-l.html)

Re: Many XEPHON magazines are now available at www.cbttape.org

Thanks.. What should we call this ? Redistribution of the Wealth We just need a BIG Wikipedia site to index all of this wealth... at some point.. Was there really so much AIX interest out there ? Anton -- For IBM-MAIN

Re: SMS requests

I suggest to use the code in SHOWzOS as the base. In one of latest version I add a Storage Group display. Understanding the layout of the returned data is a nice project but most of them are done by me or Rob -- For IBM-MAIN

Re: SMS requests

Roland: Thank you, I'll check it out. Bill Date: Tue, 28 Oct 2008 12:19:21 -0500 From: [EMAIL PROTECTED] Subject: Re: SMS requests To: IBM-MAIN@BAMA.UA.EDU I suggest to use the code in SHOWzOS as the base. In one of latest version I add a Storage Group display. Understanding the

Graphic Escape Sequence in ISPF

Although I've seen loits of examples of pretty boxes and lines etc on ISPF 3270 screens, I've never researched how it's done. It seems from my searches that it's a bit of a dark art as I have been anable to find examples. So does anyone out there have examples that I can use from within rexx/ISPF

Re: Many XEPHON magazines are now available at www.cbttape.org

Sam Golob wrote: The XEPHON people (www.tcipubs.com or www.xephonusa.com) have now given many of their magazines over to www.cbttape.org to support. Since Xephon (which had been run by the z/Journal people for the past few years) has stopped publication of their magazines, they were concerned

Re: Graphic Escape Sequence in ISPF

Gerry Anstey wrote: Although I've seen loits of examples of pretty boxes and lines etc on ISPF 3270 screens, I've never researched how it's done. It seems from my searches that it's a bit of a dark art as I have been anable to find examples. You should look at 3270 Data Stream Reference. A

Re: Graphic Escape Sequence in ISPF

Edward Jaffe wrote: You should look at 3270 Data Stream Reference. A graphics escape (GE) order is x'08'. Each drawing character is created by sending the GE order followed by a one-byte value for each such character. To send to the terminal without having data translated by ISPF, use the TPUT

Re: CICS-L URL

Would one of you fine folks be good enough to send me the url used to sign up for the CICS listserv? You can subscriBe by sendng to any listserv you know, ie: IBM-Main - Too busy driving to stop for gas! -- For IBM-MAIN

Re: CICS-L URL

Thanks all... Ed Finnell [EMAIL PROTECTED] 10/28/2008 1:15 PM In a message dated 10/28/2008 11:59:29 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: Would one of you fine folks be good enough to send me the url used to sign up for the CICS listserv?

DFSORT PARSE question

I don't see a way to do this, but I'll ask. I have a field in a record which is a person's name. It is rather free format and may contain one or more names, separated by one or more blanks. By our definition, the person's last name is the last non-blank series of characters in this field. The

Re: DFSORT PARSE question

John McKown wrote: I have a field in a record which is a person's name. It is rather free format and may contain one or more names, separated by one or more blanks. By our definition, the person's last name is the last non-blank series of characters in this field. The field is a max of 20

Re: Many XEPHON magazines are now available at www.cbttape.org

On Tue, 28 Oct 2008, Anton Britz wrote: Thanks.. Yes, thanks a lot! It seems to be a great place for some docs diving (said a non-mainframer). Was there really so much AIX interest out there ? Depends. I cannot tell if there is much interest in AIX from mainframe or AIX' users community.

Re: DFSORT PARSE question

I can't test this, having Brand S sort, but DFSORT IFTHEN, PARSE and BUILD might do this. There's an example in the DFSORT manual about parsing an IP address into 4 3-byte octets. Once could use a smiliar technique and parse the name field into x (how many words could possibly be in the name

Re: DFSORT PARSE question

John McKown wrote on 10/28/2008 11:39:07 AM: I don't see a way to do this, but I'll ask. I have a field in a record which is a person's name. It is rather free format and may contain one or more names, separated by one or more blanks. By our definition, the person's last name is the last

Shadow from Data Direct ?

Hi, I was asked today, for the names of large companies that use Shadow from Data Direct ? So, if your company is using it, would you mind to respond with the current release number of the version, in use, please ? Anton --

Re: DFSORT PARSE question

If you assume a maximum number nn of tokens in a name (your worst sample had 4), you could parse %01, %02, ..., %nn. For names with less tokens than the max, the empty parsed fields will be set to blank. You could then test these in an IF-THEN-WHEN set in reverse order using only the last one

Re: DFSORT PARSE question

On Tue, 28 Oct 2008 12:33:00 -0700, Frank Yaeger [EMAIL PROTECTED] wrote: snip /* //SORTOUT DD SYSOUT=* //SYSINDD* OPTION COPY INREC IFOUTLEN=20, IFTHEN=(WHEN=INIT, PARSE=(%01=(ABSPOS=15,STARTAT=NONBLANK,FIXLEN=20,ENDBEFR=BLANKS), %02=(FIXLEN=20,ENDBEFR=BLANKS),

TSSO tips?

Hi, Just curious: has anybody put together a document with tips on using TSSO? Reason I ask: I spent the last few days trying to figure out why ADAPFMUP TABENTRY MSG=ADAN01,TEST=((S,8,5,'6')),ACTION=POST never seems to fire. Turns out that ADABAS' short message IDs (ADAN01 is only 6

Hiperdispatch

Is there a cblock which contains an indicator for this? Roland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at

DFSORT PARSE question

John, I don't have a solution for you (Other than, of course, how easy this would be to do in COBOL G If you need a SORT and a report, COBOL internal SORT with Report Writer would do this for you easily), but ... Are you certain you don't have any John Smith, Jr or Mary Brown, III

Another ICETOOL one for Frank

I want to do an inverse of SORT NODUP, i.e. I have a file of JOBNAMES from Panvalet that execute a certain program. I have a file of JOBNAMES from the same Panvalet library that have a REGION= coded. I merged the two lists and sorted by jobname, and I want to throw away any jobnames that

Re: Another ICETOOL one for Frank

O! I can do this one! Use the OCCUR operator! //TOOLIN DD * OCCUR FROM(INPUT) HIGHER(1) ON(CNTL) - ON(1,8,CH) LIST(OUTPUT) ALLDUPS /* //CNTLCNTL DD * SORT FIELDS=(1,8,CH,A) /* //INPUT DD DSN=... This assumes that the job names are in columns 1..8 in a fixed length record. Adjust the

Re: Another ICETOOL one for Frank

Alan C. Field wrote on 10/28/2008 01:39:42 PM: I want to do an inverse of SORT NODUP, i.e. I have a file of JOBNAMES from Panvalet that execute a certain program. I have a file of JOBNAMES from the same Panvalet library that have a REGION= coded. I merged the two lists and sorted by

Re: Another ICETOOL one for Frank

John McKown wrote on 10/28/2008 02:00:32 PM: O! I can do this one! Use the OCCUR operator! //TOOLIN DD * OCCUR FROM(INPUT) HIGHER(1) ON(CNTL) - ON(1,8,CH) LIST(OUTPUT) ALLDUPS /* //CNTLCNTL DD * SORT FIELDS=(1,8,CH,A) /* //INPUT DD DSN=... This assumes that the job names are

Hiperdispatch

Is there a cblock which contains an indicator for this? SVTAFFON X'80' Affinity dispatching is active Regards, George Kozakos z/OS Function Test/Level 3 Supervisor -- For IBM-MAIN subscribe / signoff / archive access

dates...

We are moving some programs from VSE to z/OS and we're attempting to handle date processing similarly to how we do it in VSE. In VSE there is a JCL DATE card that can be used for override the system date for the current job only:

Re: dates...

' accept date-mmdd display ' date = ' date-mmdd display 'Leaving datework' goback. Using enterprise cobol; result from running: //SYSIN DD * 20081028 ... In datework date = 20081028 Leaving datework Probably if we had developed the programs

Re: DFSORT PARSE question

Be very careful about that kind of generalization. I could be Mr. R. A. Fochtman Jr. to be perfectly correct. Then what??? Schwarz, Barry A wrote: If you assume a maximum number nn of tokens in a name (your worst sample had 4), you could parse %01, %02, ..., %nn. For names with less tokens

Re: DFSORT PARSE question

On Tue, 28 Oct 2008, Rick Fochtman wrote: Be very careful about that kind of generalization. I could be Mr. R. A. Fochtman Jr. to be perfectly correct. Then what??? Well, it is what they would be getting now, so I don't care. I'm not going to kill myself trying to make this thing perfect.

Re: Hiperdispatch

George, according to the macro changes this flag was introduced around 2005 $LN=AFFDISP HBB7730 050311 PD00GD: Affinity Dispatcher Well this flag is off on my z9. Roland Is there a cblock which contains an indicator for this? SVTAFFON X'80' Affinity dispatching is active Regards,