Re: ECSA
On Sun, 26 May 2013 18:08:22 -0700 Charles Mills charl...@mcn.org wrote: : you need to save the key prior to the MODESET KEY=ZERO invocations :Are you sure? MODESET KEY=NZERO,... won't remember for you? NZERO sets you to TCB key, which may not be the key the PSW was in at the time of the ZERO. -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ECSA
On 5/26/2013 9:08 PM, Charles Mills wrote: you need to save the key prior to the MODESET KEY=ZERO invocations Are you sure? MODESET KEY=NZERO,... won't remember for you? No, why should it? The only persistent key the system knows for you is the TCBKEY; the current key is in the PSW, saved in the RB, but there is no documented location for storing a key at MODESET time. If you wish to restore a specific key, you have to save it yourself - see the SAVEKEY operand. Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFHUTILB and DFHUPROC
Hi Graham, DSNUPROC is aJCL procedure for executing DB2 utilities. DSNUTILB is the DB2 utility program. To create DB2 objetcts using DSNUTILB, you nees to use the EXEC SQL online utility control statement. To create your STOGROUP using DSNUPROC , your JCL woul;d be something like : //STEP1 EXEC DSNUPROC,SYSTEM=ssid,UID='',UTPROC='' ssid is your DB2 subsystem id. //DSNUPROC.SYSPRINT DD SYSOUT=(*) //DSNUPROC.UTPRINT DD SYSOUT=(*) //DSNUPROC.SYSINDD * EXEC SQL CREATE STOGROUP CHELGRP VOLUME VPWRKD VCAT CHELCAT ENDEXEC /* To do it using IKJEFT01, you need to use one of the IBM sample programs to process the DDL.the TSO DSN command cannot execute SQL. Heres an example from the DB2 IVP job DSNTEJ1 : //PH01S01 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT) //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(ssid) RUN PROGRAM(DSNTIAD) PLAN(DSNTIAD) - LIB('your.RUNLIB.LOAD') //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSINDD * CREATE STOGROUP CHELGRP VOLUME VPWRKD VCAT CHELCAT ; /* Regards, Ron From: Graham Hobbs gho...@cdpwise.net To: IBM-MAIN@LISTSERV.UA.EDU Date: 27/05/2013 01:10 AM Subject:DFHUTILB and DFHUPROC Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Wisdom sought please! I have tried to build a stogroup via batch job. CREATE STOGROUP CHELGRP VOLUME VPWRKD VCAT CHELCAT Seems DFHUPROC and DFHUTILB are options. Is one more common than the other? Is it that the first calls the second (amongst others)? Cheers, Graham Hobbs P.S. Secretly am looking for JCL that bl..dy works:-):-[ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ This email has been scanned by the Symantec Email Security.cloud service. For more information please visit http://www.symanteccloud.com __ ___ This email has been scanned by the Bankwest Email Security System. ___ ___ Unencrypted electronic mail is not secure and may not be authentic. If you have any doubts as to the contents please telephone to confirm. This electronic transmission including any attachments is intended only for those to whom it is addressed. It may contain copyright material or information that is confidential, privileged or exempt from disclosure by law. Any claim to privilege is not waived or lost by reason of mistaken transmission of this information. If you are not the intended recipient you must not distribute or copy this transmission and should please notify the sender. Your costs for doing this will be reimbursed by the sender. We do not accept liability in connection with computer virus, data corruption, delay, interruption, unauthorised access or unauthorised amendment. ___ __ This email has been scanned by the Symantec Email Security.cloud service. For more information please visit http://www.symanteccloud.com __ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
List of uncataloged datasets
Hi, I am looking for a way to create a list of uncataloged datasets on a specific volume. I tried this: //COPY EXEC PGM=ADRDSSU,REGION=3000K,PARM='TYPRUN=NORUN' //SYSPRINT DD SYSOUT=* //INPUTDD UNIT=3390,VOL=SER=T13R01,DISP=SHR //SYSINDD * COPY DATASET(INCLUDE( - **) BY(CATLG,EQ,NO)) - OUTDYN(UC1450) TOL(ENQF) SHR ALLDATA(*) ALLEXCP - CATALOG But got a message saying: ADR140E (001)-RI03 (05), INVALID 'BY' CRITERIA What is wrong? Gadi לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי. Please note that in accordance with Malam's signatory rights, no offer, agreement, concession or representation is binding on the company, unless accompanied by a duly signed separate document (or a scanned version thereof), affixed with the company's seal. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: List of uncataloged datasets
The CATLG filter is valid only when using an input volume list. Ant. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of ??? ?? ??? Sent: Monday, 27 May 2013 5:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: List of uncataloged datasets Hi, I am looking for a way to create a list of uncataloged datasets on a specific volume. I tried this: //COPY EXEC PGM=ADRDSSU,REGION=3000K,PARM='TYPRUN=NORUN' //SYSPRINT DD SYSOUT=* //INPUTDD UNIT=3390,VOL=SER=T13R01,DISP=SHR //SYSINDD * COPY DATASET(INCLUDE( - **) BY(CATLG,EQ,NO)) - OUTDYN(UC1450) TOL(ENQF) SHR ALLDATA(*) ALLEXCP - CATALOG But got a message saying: ADR140E (001)-RI03 (05), INVALID 'BY' CRITERIA What is wrong? Gadi לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי. Please note that in accordance with Malam's signatory rights, no offer, agreement, concession or representation is binding on the company, unless accompanied by a duly signed separate document (or a scanned version thereof), affixed with the company's seal. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: List of uncataloged datasets
Thanks That solved the problem Gadi -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Anthony Thompson Sent: Monday, May 27, 2013 11:03 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: List of uncataloged datasets The CATLG filter is valid only when using an input volume list. Ant. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of ??? ?? ??? Sent: Monday, 27 May 2013 5:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: List of uncataloged datasets Hi, I am looking for a way to create a list of uncataloged datasets on a specific volume. I tried this: //COPY EXEC PGM=ADRDSSU,REGION=3000K,PARM='TYPRUN=NORUN' //SYSPRINT DD SYSOUT=* //INPUTDD UNIT=3390,VOL=SER=T13R01,DISP=SHR //SYSINDD * COPY DATASET(INCLUDE( - **) BY(CATLG,EQ,NO)) - OUTDYN(UC1450) TOL(ENQF) SHR ALLDATA(*) ALLEXCP - CATALOG But got a message saying: ADR140E (001)-RI03 (05), INVALID 'BY' CRITERIA What is wrong? Gadi לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי. Please note that in accordance with Malam's signatory rights, no offer, agreement, concession or representation is binding on the company, unless accompanied by a duly signed separate document (or a scanned version thereof), affixed with the company's seal. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN לשימת לבך, בהתאם לנהלי החברה וזכויות החתימה בה, כל הצעה, התחייבות או מצג מטעם החברה, מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו החברה או שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) המצורף להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, ואין להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי. Please note that in accordance with Malam's signatory rights, no offer, agreement, concession or representation is binding on the company, unless accompanied by a duly signed separate document (or a scanned version thereof), affixed with the company's seal. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ECSA
Hi Scott, Pardon my Monday morning eyes that have not been stimulated with enough caffeine, but... After the trace record for the STORAGE OBTAIN for the Storage address=2BDC1000, Length=204800, you mentioned that there is a STORAGE RELEASE for 2BDC1000 in the trace but I don't see it! In the unseen trace record, the return address should be usable to identify the issuer of the STORAGE RELEASE. -- Regards, Gord Tomlin Action Software International (a division of Mazda Computer Corporation) Tel: (905) 470-7113, Fax: (905) 470-6507 On 2013-05-24 16:44, Scott Ford wrote: Gord: NameX ASIDStart Length SP Key Date Time Storage Header --- VOYAGERT* 259 2BD5F000 204800 231 0 5/24/2013 8:40:39 *ALTXA555480 * VOYAGERT* 259 2BDC1000 204800 231 0 5/24/2013 8:38:29 *ALTXR1641 * VOYAGERT* 259 2BD2D000 204800 231 0 5/24/2013 8:42:43 *ALTXU244026 * GMT-05/24/2013 13:38:30.602148 LOC-05/24/2013 08:38:30.602148 USRDA F65 ASCB 00F7F100JOBN VOYAGERT Storage Obtain Cond=Yes CheckZero=Yes AllZero Loc=(31,31) Bndry=Dblwd Owner=Home Return address=3541A2EA Amode=31 Asid=0103 Jobname=VOYAGERT Subpool=231 Key=0 Asid=0103 Jobname=VOYAGERT TCB= Retcode=0 Storage address=2BDC1000Length=204800 X'32000' GPR Values 0-3 00032000 003C 35401544 356B7250 4-7 356B9F68 35400544 35F4F250 356B72B0 8-11 000127FC 00032000 356B9F20 B56B72B0 12-15 3541A2A0 356B9F68 030B 0800E770 NO STORAGE RELEASE for 2BDC1000 in trace, as well as other 2 addresses above Here is a Getmain and a storage release for 16 bytes, that does work, involving TOP Secret and VOYAGERT USRDA F65 ASCB 00FC3880JOBN TSSZOS Getmain SVC(120) Cond=Yes CheckZero=No Loc=(31,31) Bndry=Dblwd Owner=Home Return address=3545C414 Amode=31 Asid=0021 Jobname=TSSZOS Subpool=231 Key=3 Asid=0021 Jobname=TSSZOSTCB=007CC580 Retcode=0 Storage address=344EC078 Length=16 X'10' GPR Values 0-3 000C 000C 4-7 006FC840 3389EDF0 007D2FC8 00D15300 8-11 00D5D000 007B8F00 007B7700 3545C3CE 12-15 3544CCC0 007B77A8 B54564FC E700 GMT-05/24/2013 13:38:30.688425 LOC-05/24/2013 08:38:30.688425 USRDA F65 ASCB 00F7F100JOBN VOYAGERT Storage Release Cond=No CheckZero=No Return address=33F7B7A8 Amode=31 Asid=0103 Jobname=VOYAGERT Subpool=231 Key=3 Asid=0021 Jobname=TSSZOSTCB= Retcode=0 Storage address=344EC078 Length=16 X'10' GPR Values 0-3 000C 344EC078 0004 007FC810 4-7 0040 344EC078 7F73FD30 00D5D000 8-11 7F740DD0 7F741200 7F73F000 33F7CFAA 12-15 33F7B3E0 7F740A20 0311 0030E703 Scott J Ford Software Engineer http://www.identityforge.com/ From: Gord Tomlin gt.ibm.li...@actionsoftware.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Friday, May 24, 2013 1:40 PM Subject: Re: ECSA Are you looking at system trace to see that STORAGE RELEASE? The ASID, work unit address, and PSW for the STORAGE RELEASE should reveal who issued it. Can you post the relevant lines from system trace (assuming that is where you are looking)? -- Regards, Gord Tomlin Action Software International (a division of Mazda Computer Corporation) Tel: (905) 470-7113, Fax: (905) 470-6507 On 2013-05-24 13:24, Scott Ford wrote: Huh.i see a good RC from a Storage Releasecan you explain that one to me Scott J Ford Software Engineer http://www.identityforge.com/ From: Gord Tomlin gt.ibm.li...@actionsoftware.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Friday, May 24, 2013 12:48 PM Subject: Re: ECSA The storage is in subpool 231, which is a CSA/ECSA subpool. This subpool is owned by the system, and it is not freed by task or address space termination. -- Regards, Gord Tomlin Action Software International (a division of Mazda Computer Corporation) Tel: (905) 470-7113, Fax: (905) 470-6507 On 2013-05-24 12:15, Scott Ford wrote: Guys and Gals: I just received a problem from a customer and its odd. I will try to explain. 1. Customer is on z/OS 1.13 ..Put ( i dont know we have asked) 2. We have a STC that does this: a. We issue a Storage Obtain like below b. STC passed amount desired ...we call an assembler module which is snippeted below.. obviously we are a vendor - i can show it all - and i am sorry about that LMR9,R11,4(R1) LOAD ADDRESS STG AMT, ADR RC L R9,0(R9) STG AMT - S/B 4K MULTIPLE MODESET KEY=ZERO,MODE=SUP GO INTO SUPERVISOR MODE STORAGE OBTAIN,LENGTH=(9),SP=231, X LOC=31,COND=YES,CHECKZERO=YES STR1,0(R10) RETURN ADDR, IF ANY STR15,0(R11) RETURN CODE, OK IF ZERO MODESET KEY=NZERO,MODE=PROB BACK TO MORTALITY c. STC shutdowns
Re: ECSA
In 086801ce5a76$af711e70$0e535b50$@mcn.org, on 05/26/2013 at 06:08 PM, Charles Mills charl...@mcn.org said: you need to save the key prior to the MODESET KEY=ZERO invocations Are you sure? Yes. MODESET KEY=NZERO,... won't remember for you? The crystal ball on channel 3 is broken. From z/OS MVS Programming: Authorized Assembler Services Reference, Volume 3 (LLA-SDU). SA22-7611-11: KEY=NZERO Specifies that the PSW key (bits 8-11) is to be either set to zero (ZERO) or set to the value in the caller's TCB (NZERO). If the code switches among multiple keys, MODESET has no information on the preceding key. Now, there are options in the inline form to save and restore, but Scott is using the SVC form. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mysterious Abend 0C1
In 005001ce5aab$5c511c10$14f35430$@com, on 05/27/2013 at 02:25 PM, Robin Atwood abend...@gmail.com said: Thanks for the info. The BEA can be easily retrieved from RTWA+6D0. I also found a presentation that claimed the BEA was saved in low memory at 110. but a few dumps I looked at did not bear this out (pun intended!). From z/Architecture Principles of Operation, SA22-7832-09 272-279 (110-117 hex). . . . . . . . . . . . . Real Address Breaking-Event Address: If the PER-3 facility is installed, then, during a program interruption, the contents of the breaking-event-address register are stored in locations 272-279. If the breaking- event-address-recording facility is not installed, this location remains unchanged. Note that the dump almost certainly contains data from the wrong PSA, and that there may have been program interruptions from other tasks, so even if you're looking at the correct PSA you should rely on the data there but should instead look at one of the fields to which z/OS has copied the saved BEAR. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFHUTILB and DFHUPROC
In 51a2b33f.3060...@cdpwise.net, on 05/26/2013 at 09:13 PM, Graham Hobbs gho...@cdpwise.net said: Does that imply IKJEFT01 can't do it, No, it implies that a hyphen is not a valid TSO command. The + or - for continuation goes at the end of the line, not at the beginning. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFHUTILB and DFHUPROC
Thanks, still didn't work:-( but Ron's post explained why. On 27/05/2013 10:26 AM, Shmuel Metz (Seymour J.) wrote: In 51a2b33f.3060...@cdpwise.net, on 05/26/2013 at 09:13 PM, Graham Hobbs gho...@cdpwise.net said: Does that imply IKJEFT01 can't do it, No, it implies that a hyphen is not a valid TSO command. The + or - for continuation goes at the end of the line, not at the beginning. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unable to mount ZFS
#1 - IIRC, the volume in the ICH408I message for a _VSAM_ data set is the volume name that the _catalog_ is on in which the VSAM data set is catalogued. Not the volume name of the volume upon which the VSAM data set exists. #2 - I don't know. Double check that that both OMVS and BPXOINIT are running with the id of OMVSUSR1. Second, who or what is OMVSUSR2 supposed to be? The person doing the mount? On Mon, May 27, 2013 at 8:28 AM, nitz-...@gmx.net nitz-...@gmx.net wrote: Data set MVSR.RDZ.V85.ZFS is located on volume SMS001 and cataloged in a user catalog (where all MVSR data sets are catalogued). Now I try to mount the thing at mountpoint /rdz85. ishell gives me rc EF096055 (which tells me exactly nothing), and when I check in hardcopy log, I find this: ICH408I USER(OMVSUS2 ) GROUP(SYS1) NAME() MVSR.RDZ.V85.ZFS CL(DATASET ) VOL(ZDSYS1) INSUFFICIENT ACCESS AUTHORITY FROM MVSR.RDZ.V85.** (G) ACCESS INTENT(READ ) ACCESS ALLOWED(NONE ) 2 things spring to mind immediately: 1. Why is the mount via ishell looking for this ZFS on the wrong volume? 2. OMVS address space is started with userid OMVSUS1 (which is trusted and is set as superuser in bpxprm). Why is this mount command using OMVSUS2? (Of course, OMVSUS2 is NOT trusted, so there would be a RACF error.) I just copied the data set(s) via adrdssu/terse/ftp/unterse/adrdssu from another ADCD z/OS 1.13 system, where the thing also resided on an SMS-managed volume. The RACF setup on both systems should be identical. Switching *this* system to SMS is fairly recent, and as far as allocations go, everything is located where I want it to be located. The 'old' system obviously has a differing SMS setup. I have allocated (via ishell) ZFS SYS1.TESTZFS and put it on non-sms-managed volume USER00. When I try to mount *that*, I get BPXF903I THE ATTRIBUTE RETRIEVAL CALL (IGWASMS) FOR FILE SYSTEM sys1.testzfs FAILED. RC = 0008, RS = 0008, DIAG = IOEZ00048I Detaching aggregate SYS1.TESTZFS RC8 rsn8 for IGWASMS is described as An invalid dsname of blanks or invalid share_attr_array_length was specified. Correct the argument and retry the request. Which also deosn't really tell me anything. No new ptfs in this area found, either. Does anyone have an idea what I did wrong? Or how to get OMVS to look in the right place for the ZFS? Thanks in advance, Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- This is a test of the Emergency Broadcast System. If this had been an actual emergency, do you really think we'd stick around to tell you? Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ECSA
Yeah, I have too look at what has happened their trace was unreadable so I will try the same code on our test system with a gfs trace ..I just want to solve the mystery and make sure we don't have an issue Scott ford www.identityforge.com from my IPAD 'Infinite wisdom through infinite means' On May 27, 2013, at 10:23 AM, Shmuel Metz (Seymour J.) shmuel+...@patriot.net wrote: In 086801ce5a76$af711e70$0e535b50$@mcn.org, on 05/26/2013 at 06:08 PM, Charles Mills charl...@mcn.org said: you need to save the key prior to the MODESET KEY=ZERO invocations Are you sure? Yes. MODESET KEY=NZERO,... won't remember for you? The crystal ball on channel 3 is broken. From z/OS MVS Programming: Authorized Assembler Services Reference, Volume 3 (LLA-SDU). SA22-7611-11: KEY=NZERO Specifies that the PSW key (bits 8-11) is to be either set to zero (ZERO) or set to the value in the caller's TCB (NZERO). If the code switches among multiple keys, MODESET has no information on the preceding key. Now, there are options in the inline form to save and restore, but Scott is using the SVC form. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFHUTILB and DFHUPROC
Hi Ron, I used your 'something like JCL', diddled around muchly, finished up with .. //PROCLIB JCLLIB ORDER=(DSNA10.PROCLIB) //STEP1EXEC DSNUPROC,SYSTEM=DBAG,UID='',UTPROC='' //DSNUPROC.SYSPRINT DD SYSOUT=(*) //DSNUPROC.UTPRINT DD SYSOUT=(*) //DSNUPROC.SYSINDD * EXEC SQL CREATE STOGROUP CHELGRP VOLUMES (VPWRKD) VCAT CHELCAT ENDEXEC /* .. and got .. * TOP OF DATA * DSNU000I147 10:44:39.53 DSNUGUTC - OUTPUT START FOR UTILITY, UTILID = IBMUSER.AU4 DSNU1044I 147 10:44:39.78 DSNUGTIS - PROCESSING SYSIN AS EBCDIC DSNU050I147 10:44:39.78 DSNUGUTC - EXEC SQL CREATE STOGROUP CHELGRP VOLUMES (VPWRKD) VCAT CHELCAT ENDEXEC DSNU1180I 147 10:44:45.14 DSNUGSQL - SQLCODE = 000, SUCCESSFUL EXECUTION DSNU010I147 10:44:45.15 DSNUGBAC - UTILITY EXECUTION COMPLETE, HIGHEST RETURN CODE=0 BOTTOM OF DATA *** .. hey man - it BLUDDY worked!!! - didn't like VOLUME, c'est tout. Between the above and the folk who helped, again, many thanks, Graham -- On 27/05/2013 2:57 AM, Ron hesketh wrote: Hi Graham, DSNUPROC is aJCL procedure for executing DB2 utilities. DSNUTILB is the DB2 utility program. To create DB2 objetcts using DSNUTILB, you nees to use the EXEC SQL online utility control statement. To create your STOGROUP using DSNUPROC , your JCL woul;d be something like : //STEP1 EXEC DSNUPROC,SYSTEM=ssid,UID='',UTPROC='' ssid is your DB2 subsystem id. //DSNUPROC.SYSPRINT DD SYSOUT=(*) //DSNUPROC.UTPRINT DD SYSOUT=(*) //DSNUPROC.SYSINDD * EXEC SQL CREATE STOGROUP CHELGRP VOLUME VPWRKD VCAT CHELCAT ENDEXEC /* To do it using IKJEFT01, you need to use one of the IBM sample programs to process the DDL.the TSO DSN command cannot execute SQL. Heres an example from the DB2 IVP job DSNTEJ1 : //PH01S01 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT) //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(ssid) RUN PROGRAM(DSNTIAD) PLAN(DSNTIAD) - LIB('your.RUNLIB.LOAD') //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSINDD * CREATE STOGROUP CHELGRP VOLUME VPWRKD VCAT CHELCAT ; /* Regards, Ron From: Graham Hobbs gho...@cdpwise.net To: IBM-MAIN@LISTSERV.UA.EDU Date: 27/05/2013 01:10 AM Subject:DFHUTILB and DFHUPROC Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Wisdom sought please! I have tried to build a stogroup via batch job. CREATE STOGROUP CHELGRP VOLUME VPWRKD VCAT CHELCAT Seems DFHUPROC and DFHUTILB are options. Is one more common than the other? Is it that the first calls the second (amongst others)? Cheers, Graham Hobbs P.S. Secretly am looking for JCL that bl..dy works:-):-[ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN __ This email has been scanned by the Symantec Email Security.cloud service. For more information please visit http://www.symanteccloud.com __ ___ This email has been scanned by the Bankwest Email Security System. ___ ___ Unencrypted electronic mail is not secure and may not be authentic. If you have any doubts as to the contents please telephone to confirm. This electronic transmission including any attachments is intended only for those to whom it is addressed. It may contain copyright material or information that is confidential, privileged or exempt from disclosure by law. Any claim to privilege is not waived or lost by reason of mistaken transmission of this information. If you are not the intended recipient you must not distribute or copy this transmission and should please notify the sender. Your costs for doing this will be reimbursed by the sender. We do not accept liability in connection with computer virus, data corruption, delay, interruption, unauthorised access or unauthorised amendment. ___ __ This email has been scanned by the Symantec Email Security.cloud service. For more information please visit http://www.symanteccloud.com __ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to
Re: DFHUTILB and DFHUPROC
Hello Lizette, Got all your pointers about: - EXEC PROC, looking into SDSNLOAD, manual refs, installation step 10, etc - doing stuff manually on TSO screens is a non-starter; my software kicks off by running a single JCL stream, generating and 'sub'bing new jobs along its way (including this STOGROUP creation), is totally automated, no hands on, have got 10 freebe days left on Dallas, after that it's $550/mnth, so little time to study even subsets of subjects (like DB2) when only a mini job like DSNUPROC is required - in 10 days I go away:'( - am not averse to studying but having 40 yrs of app programming with no sysprog stuff, is why I really appreciate a 'canned' solution from people who've actually done these small but vital to me one-off functions; I get all of my answers from a) googling, b) this group, c) IBM as last resort - it works - after writing the above (see my reply to Ron Heskell) - the DSNUPROC problem is solved; more important I have the soon to be tested feeling that I've learned a valuable tool for my little project All this is much appreciated, so thanks kindly for the help! Graham -- On 27/05/2013 9:32 AM, Lizette Koehler wrote: Graham, If you are DB2 V10 then you need to keep in line with IBM's direction of SMS management. I would look at the Share Presentation http://www.bwdb2ug.org/PDF/SMS_is_Now_Mandatory_for_DB2_V10.pdf Define the SMS environment for the DB2 catalog and directory data sets (DSNTIJSS) In DB2R Version 10, data sets that are defined for the DB2 catalog and directory are managed by DB2 and must be SMS-managed. Start of changeJob DSNTIJSS shows how to create a stand-alone SMS environment for the DB2 catalog and directory data sets. Job DSNTIJSS is designed for use on systems that do not already have a SMS environment, but it can also be used as a reference for adapting an existing one. End of change Start of changeYou are not required to convert existing DB2 data sets to an SMS environment before migrating to Version 10. These data sets can indefinitely remain non-SMS-managed, but they will be converted to SMS management when the related table space is reorganized.End of change The SMS environment that you use for DB2 catalog and directory data sets must be established before you begin migration to Version 10. The SMS environment must include a data class for allocating the data sets in extended format and using extended addressability. To define a data class with this attribute, specify EXT in the DATA SET NAME TYPE field of the DATA SET CLASS DEFINE panel of ISMF. Then, ensure that the automatic class selection (ACS) routine associates the DB2 catalog and directory data sets with this data class. To create the stand-alone SMS environment for the DB2 catalog and directory: Customize job DSNTIJSS according to the directions in the job prolog. Run job DSNTIJSS. To activate the SMS environment, use this z/OS command, where scds-name is the name of the SMS source control data set that was specified by DSNTIJSS: SETSMS SCDS(scds-name) Attention: This command will deactivate any existing SMS environment that is defined from another SCDS. Run the SMS CONVERTV tool with the TEST option to verify that all data sets on target volumes can be placed under SMS management. Example of running CONVERTV with the TEST option: //CONVRTV EXEC PGM=ADRDSSU,REGION=5M //SYSPRINT DD SYSOUT=* //DD1 DD UNIT=SYSALLDA,VOL=SER=targvol1,DISP=OLD //DD2 DD UNIT=SYSALLDA,VOL=SER=targvol2,DISP=OLD //SYSINDD * CONVERTV DDNAME(DD1) SMS TEST CATALOG CONVERTV DDNAME(DD2) SMS TEST CATALOG /* When CONVERTV TEST reports that all data sets on the target volumes can be placed under SMS management, run CONVERTV without the TEST option to convert the data sets. If any data sets cannot be converted, do not run CONVERTV without the TEST option. You must either create additional ACS routines to manage these data sets or move them to different (non-SMS) volumes. Related tasks: Premigration checklist for migration to DB2 Version 10 conversion mode from Version 8 Premigration checklist for migration to DB2 Version 10 conversion mode from Version 9.1 That is why the DB2 Newsgroup can be so helpful. They focus on DB2 and can keep you on the right track. There are good SHARE presentations on how DB2 and SMS management are working together. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron hesketh Sent: Sunday, May 26, 2013 11:58 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFHUTILB and DFHUPROC Hi Graham, DSNUPROC is aJCL procedure for executing DB2 utilities. DSNUTILB is the DB2 utility program. To create DB2 objetcts using DSNUTILB, you nees to use the EXEC SQL online utility control statement. To create your STOGROUP using DSNUPROC , your JCL woul;d be something like : //STEP1 EXEC
Re: Unable to mount ZFS
On Mon, 27 May 2013 15:28:37 +0200, nitz-ibm wrote: 2 things spring to mind immediately: 1. Why is the mount via ishell looking for this ZFS on the wrong volume? http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ichza6c1/1.4.1 The meaning of the volume serial number shown in the VOL field varies. For a non-VSAM data set, it means the volume on which the data set resides. For a VSAM data set, it means the volume on which the catalog containing the data set entry resides. The ZFS is a VSAM dataset. 2. OMVS address space is started with userid OMVSUS1 (which is trusted and is set as superuser in bpxprm). Why is this mount command using OMVSUS2? (Of course, OMVSUS2 is NOT trusted, so there would be a RACF error.) http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/fcxd5aa0/1.2.1 It's the zFS started task that needs TRUSTED or OPERATIONS attribute or ALTER authority. I have allocated (via ishell) ZFS SYS1.TESTZFS and put it on non-sms-managed volume USER00. When I try to mount *that*, I get BPXF903I THE ATTRIBUTE RETRIEVAL CALL (IGWASMS) FOR FILE SYSTEM sys1.testzfs FAILED. RC = 0008, RS = 0008, DIAG = IOEZ00048I Detaching aggregate SYS1.TESTZFS RC8 rsn8 for IGWASMS is described as An invalid dsname of blanks or invalid share_attr_array_length was specified. Correct the argument and retry the request. Which also deosn't really tell me anything. No new ptfs in this area found, either. Help panel SYS1.SBPXPENU(BPXWF57): The name of an HFS file system should be a fully qualified name of a data set. For other file. system types enter the name of the file system.. For mount operations, case can be preserved by. placing single quotes around the file system. name. 'sys1.testzfs' (lower case) does not exist. Norbert Friemel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
OT: How to open a new list at UA.EDU?
Does anyone know how to create a new list here at UA.EDU's listserver? I'm searching a place to host an AFP (Advanced Function Presentation) related list. There was one on Topia but it seems to be dead. -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Renaming an LPAR dynamically
As you do not change all the other original LPAR attributes and connections, those will remain intact after first becoming '*'. 2013/5/19 Skip Robinson jo.skip.robin...@sce.com As I mentioned a follow-on post, I eventually PORed to get the new IODF active with no change other than LPAR name. It's not clear from Carlos's post that the all the other original LPAR attributes and connections would remain intact after first becoming '*'. If not, POR (in my particular case) was less painful than having to redefine everything else from scratch. . . JO.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: carlos roberto visconde cvisco...@ig.com.br To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/18/2013 02:36 PM Subject:Re: Renaming an LPAR dynamically Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Yes, you have first rename the LPAR to '*', in IODF (IOCDS) Activate the IODF Deactivate the partition, uncheck to CRYPTO PROCESSORs of that partition, Activate the partition. (puting CHPIDS OFF) Deactivate the LPAR then active new IODF with new Name Chek the CRYPTO PROCESSORs, activate the partiiton 2013/5/10 Skip Robinson jo.skip.robin...@sce.com I've poked around and not found a concise explanation. We have an LPAR whose name needs to change. Everything else in the IODF is fine, just a name problem. Current hardware and software. I changed the name in HCD. When I tried to ACTIVATE the new IODF, it choked on the name mismatch. I gather that I can first rename to '*', then rename for real in two successive IODFs. If I do that, do I preserve all original chpid and device connections? I don't want to start over from scratch when only the name is wrong. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
z/OS 1.13 ZAP for IBM Fault Analyzer
IBM Fault Analyzer support on z/OS. Would anyone out there have obtained the ZAPs for the IEAVTABD version of the module that came with the PTFs for OA38518? I have searched under z/OS and under IBM Fault Analyzer and not found what is needed. Yes, I know I may have to open a PMR but if anyone has obtained the ZAP already it could be much quicker than a PMR. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 1.13 ZAP for IBM Fault Analyzer
Just curious. Is the zap not part of the PTF? If so, could you not go to IBM.COM and download the PTF appropriate to your level of software? Or does the PTF just ship the changed module? Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Anthony Fletcher Sent: Monday, May 27, 2013 4:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: z/OS 1.13 ZAP for IBM Fault Analyzer IBM Fault Analyzer support on z/OS. Would anyone out there have obtained the ZAPs for the IEAVTABD version of the module that came with the PTFs for OA38518? I have searched under z/OS and under IBM Fault Analyzer and not found what is needed. Yes, I know I may have to open a PMR but if anyone has obtained the ZAP already it could be much quicker than a PMR. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 1.13 ZAP for IBM Fault Analyzer
There is usually a APAR/PTF issued by IBM Fault Analyzer support that contains the updated ZAP as a sample. The issue is nothing to do with z/OS itself so they do not care when other products (or vendors) come along and ZAP the z/OS modules. regards, Anthony Fletcher - NZ MIITP Team Lead NZ SMM (AirNZ, Westpac NZ , TelstraClear NZ and NWM AU) IBM Strategic Outsourcing Delivery Server Systems Operations Server Management Mainframe Mainframe Software Program Manager NZ z/OS Technical Lead A/NZ Ph: Direct +64 4 576 8142, tieline 61 929 8142, ITN *869298142, mobile +64 21 464 864, Fax +64 4 576 5808. Internet: flet...@nz1.ibm.com, Sametime: flet...@nz1.ibm.com The biggest threat to effective communication is the belief that it has occurred Winners make commitments, Losers make promises From: Lizette Koehler stars...@mindspring.com To: IBM-MAIN@listserv.ua.edu, Date: 28/05/2013 11:43 Subject:Re: z/OS 1.13 ZAP for IBM Fault Analyzer Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Just curious. Is the zap not part of the PTF? If so, could you not go to IBM.COM and download the PTF appropriate to your level of software? Or does the PTF just ship the changed module? Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Anthony Fletcher Sent: Monday, May 27, 2013 4:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: z/OS 1.13 ZAP for IBM Fault Analyzer IBM Fault Analyzer support on z/OS. Would anyone out there have obtained the ZAPs for the IEAVTABD version of the module that came with the PTFs for OA38518? I have searched under z/OS and under IBM Fault Analyzer and not found what is needed. Yes, I know I may have to open a PMR but if anyone has obtained the ZAP already it could be much quicker than a PMR. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ECSA
Guys: I need some help I want to do a GFS trace on our 1.13 system and have done the following: 1. Build a DIAGxx member , it is below: BROWSE ADCD.Z113S.PARMLIB(DIAG04) - 01.08 Line 0018 Col 001 080 /* To use this member specify DIAG=00 in SYS1.PARMLIB(IEASYSxx), */ 0090 /* or in response to the message that says Specify System */ 0095 /* Parameters, or enter the operator command SET DIAG=00. */ 0100 /* */ 0105 /* change-activity = */ 0110 /* $L0=DKB0029 ,HBB4430,920212,PDF5: Add defaults for */ 0115 /* CSA tracking and GFS trace. */ 0120 /* $P1=PWY0499 ,HBB6609,990528,PDXB: CS tracking defaults to ON */ 01225000 /* */ 0125 // 0130 VSM TRACK CSA(ON) SQA(ON) 0135 VSM TRACE GETFREE(ON) 0142 JOBNAME(VOYAGER) 01410008 DATA(ALL) 01440004 Bottom of Data 2. Here is my GTF proc and member //GTFNEW PROC MEMBER=GTFPARM 00050005 //IEFPROC EXEC PGM=AHLGTF,REGION=32M, 00083301 // PARM='MODE=EXT,DEBUG=NO,TIME=YES,BLOK=40K,SD=0K,SA=40K' 00083401 //IEFRDER DD DSNAME=SYS1.TRACE,UNIT=SYSDA,SPACE=(CYL,20), 00150001 // DISP=(NEW,KEEP) 0024 //SYSLIB DD DSNAME=SYS1.PARMLIB(MEMBER),DISP=SHR 00210006 TRACE=SYSM,USRP,TRC,DSP,PCI,SRM 3. I activate DIAG04 from STEP #1 'T DIAG=04' 4. S GTF 5. enter 'U' 6. Start my STC called Voyager.. 7. P xxx (gtf) 8. T DIAG=05 (our normal diag member) 9. there is data in sys1.trace 10. I try IPCS with GTFTRACE da('sys1.trace') usr(f65) IPCS - gtf says no use able data for USR=SEL ... 11. I tried GTF with TRACE=USRP, USR=(F65) 12. No matter what I try I seem to receive no usable trace output ... What did I goof on guys and gals... Regards, Scott J Ford Software Engineer http://www.identityforge.com/ From: Scott Ford scott_j_f...@yahoo.com To: IBM-MAIN@LISTSERV.UA.EDU Sent: Monday, May 27, 2013 11:36 AM Subject: Re: ECSA Yeah, I have too look at what has happened their trace was unreadable so I will try the same code on our test system with a gfs trace ..I just want to solve the mystery and make sure we don't have an issue Scott ford www.identityforge.com from my IPAD 'Infinite wisdom through infinite means' On May 27, 2013, at 10:23 AM, Shmuel Metz (Seymour J.) shmuel+...@patriot.net wrote: In 086801ce5a76$af711e70$0e535b50$@mcn.org, on 05/26/2013 at 06:08 PM, Charles Mills charl...@mcn.org said: you need to save the key prior to the MODESET KEY=ZERO invocations Are you sure? Yes. MODESET KEY=NZERO,... won't remember for you? The crystal ball on channel 3 is broken. From z/OS MVS Programming: Authorized Assembler Services Reference, Volume 3 (LLA-SDU). SA22-7611-11: KEY=NZERO Specifies that the PSW key (bits 8-11) is to be either set to zero (ZERO) or set to the value in the caller's TCB (NZERO). If the code switches among multiple keys, MODESET has no information on the preceding key. Now, there are options in the inline form to save and restore, but Scott is using the SVC form. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2 http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unable to mount ZFS
The meaning of the volume serial number shown in the VOL field varies. For a non-VSAM data set, it means the volume on which the data set resides. For a VSAM data set, it means the volume on which the catalog containing the data set entry resides. I didn't know that before. It is quite misleading, in my opinion. It's the zFS started task that needs TRUSTED or OPERATIONS attribute or ALTER authority. Thanks for that link. It clearly states that ALTER is needed for the userid that runs ZFS (yes, OMVSUS2 is assigned to ZFS). It is also clearly not the whole truth. On my originating system, OMVSUS2 can mount all ZFSs just fine, and it does NOT have ALTER access to any of them; it doesn't even appear in the access list at all. This system is set up the same way, and it doesn't work here. After giving ALTER access to OMVSUS2 it STILL does not work. Assuming that this is due to dataset profiles being cached, I restarted ZFS. After which ishell doesn't work anymore (some sort of spawn error). I mounted the ZFS via batch job, and now it is mounted, according to the diplay bpxoinit. So at least it doesn't have anything to do with my SMS changes. Load off. 'sys1.testzfs' (lower case) does not exist. True. It mounted without a problem once I used uppercase. The reason is probably that HLQ SYS1 (according to IBM ADCD's setup) is not protected by RACF, and I haven't been brave enough to attempt corrections on my own. Did I mention I hate OMVS? This is the second time that something related to RACF/OMVS works on one system but not on another when the setup is identical. Or looks identical in all the obvious places. I also hate that things work when they clearly shouldn't, according to the documentation. That makes problem determination s much easier! Thanks to all who took the time to respond to my plea for help! Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 1.13 ZAP for IBM Fault Analyzer
IBM Fault Analyzer support on z/OS. Would anyone out there have obtained the ZAPs for the IEAVTABD version of the module that came with the PTFs for OA38518? I have searched under z/OS and under IBM Fault Analyzer and not found what is needed. Yes, I know I may have to open a PMR but if anyone has obtained the ZAP already it could be much quicker than a PMR. So quite obviously IBM still hasn't gotten around to giving the FA folks an API or official 'hook' for their needs so that they can get rid of that ZAP. I talked about that to someone within IBM 2-3 years ago, and they wanted to fix it. Come to think of it - I will need that ZAP, too, once I get around to finally activating FA on our ADCD system. Anthony, could you please post it once you have it? Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN