Re: DD DEST=(MS Windows machine)
Try zOS manual: Comm Svr: IP User's Guide and Commands You can do this with a TSO batch job (see TSO HELP LPR): //TSOBATCH EXEC PGM=IKJEFT01,REGION=4M,DYNAMNBR=200 //SYSTSPRT DD SYSOUT=* //SYSTSINDD * LPR 'dataset.name' (AT lpd.server PRINTER prt1 /* good luck. Don Russell russell@gmail.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 02/11/2009 11:38 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] DD DEST=(MS Windows machine) On Tue, Feb 10, 2009 at 8:03 AM, Howard Turetzky howa...@us.ibm.com wrote: One method is to use LPR instead of AFP. The Windows LPD (define a Windows printer with the Standard TCP/IP Port; you'll need to install Other Network File and Print Services from Add/Remove Windows Components). The files will appear in /Windows/system32/spool/printers. You can use the z/OS LPR in a job step. I would like to look into this option a little more Can you tell me which manual describes how to use PGM=LPR? I thought it might have been z/OS V1R9.0 Comm Svr: IP User's Guide and Commands, or one of the other similarly titled books, but I can't find and mention of PGM=LPR... I suppose I could try a few things and see what falls out, but that's sort like throwing my watch against a stone wall to learn how it works. ;-) Cheers, -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ADRUENQ implementation
Try something like this: //SMPCNTL DD * SET BDY(GLOBAL). REJECT S(ADRU001). RESETRC. RECEIVE LIST. SET BDY(SP02). UCLIN. DEL SRC(ADRUENQ). ENDUCL. RESETRC. APPLY S(ADRU001) REDO . /* //SMPPTFIN DD DATA,DCB=BLKSIZE=32720 ++USERMOD(ADRU001) . ++VER(Z038) FMID(HDZ1190) . ++SRC(ADRUENQ) DISTLIB(ASAMPLIB) DISTMOD(AADRLIB) TXLIB(SOURCE). ++JCLIN . Vachi, Kaiser Permanente. Mark Zelden mark.zel...@zurichna.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 01/26/2009 01:39 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] ADRUENQ implementation On Mon, 26 Jan 2009 15:02:31 -0600, SUBSCRIBE IBM-MAIN Ivan A. Ramos iaram...@yahoo.com wrote: We just move during the weekend from z/OS 1.7 to 1.9 and forgot to apply the ADRUENQ exit we had in place. Now, we are trying to apply it with the old source that we have for the ADRUENQ exit, with no luck. The usermod apply job runs ok, but when the program (ADRDSSU) is invoke does not do the select function. It looks like IEFBR14 in progress, but JCL runs ok though. We use the following JCL that it was stored in our usermod library; //S610022A JOB (1001),'IRV',MSGCLASS=X,CLASS=A,REGION=0M, // MSGLEVEL=(1,1),NOTIFY=SYSUID //* //ADRUENQ EXEC PGM=GIMSMP //SYSPRINT DD SYSOUT=* //SMPCSI DD DISP=SHR,DSN=ZOS190.SMPE.GLOBAL.CSI //SOURCE DD DISP=SHR,DSN=SYS0.ZOS190.USERMODS(ADRUENQ) //SMPHOLD DD DUMMY //SMPCNTL DD * SET BDY(GLOBAL). REJECT S(ADRU001). RESETRC. RECEIVE LIST. SET BDY(SP02). APPLY S(ADRU001). //SMPPTFIN DD DATA,DCB=BLKSIZE=32720 ++USERMOD(ADRU001) . ++VER(Z038) FMID(HDZ1190) . ++SRC(ADRUENQ) TXLIB(SOURCE). ++JCLIN . //STEP1EXEC PGM=ASMA90 //ADRUENQ DD DSN=amp;amp;PUNCH(ADRUENQ),DISP=(PASS) //SYSINDD DISP=SHR,DSN=SYS0.ZOS190.USERMODS(ADRUENQ) //LINK EXEC PGM=HEWLH096, // PARM='NCAL,LIST,XREF,RENT,LET' //SYSPRINT DD SYSOUT=* //AADRLIB DD DSN=SYS1.AADRLIB,DISP=SHR //SYSLMOD DD DSN=SYS1.LINKLIB,DISP=SHR //SYSLIN DD * INCLUDE ADRUENQ(ADRUENQ) INCLUDE AADRLIB(ADRDSSU) ENTRY ADRUENQ ORDER ADRDSSU NAME ADRDSSU(R) /* The SYSIN is as IBM recomends (Nothing fancy); ** * ADRUENQ USER EXIT. * * SETS RETURN CODE TO 4 INDICATING THAT THE VOLUME * * WILL ONLY BE ENQUEUED FOR THE DURATION OF THE * * VTOC ACCESS FOR DUMP AND COPY OPERATIONS. * ** ADRUENQ CSECT ADRUENQ AMODE 31 ADRUENQ RMODE 24 STM 14,12,12(13) SAVE REGS IN PREVIOUS SAVEAREA USING ADRUENQ,15SET ADDRESSABILITY TO THE EXIT LM 14,12,12(13)RESTORE OTHER REGISTERS LA 15,4SET RETURN CODE TO 4 BR 14 RETURN END Tried many things, with the same negative outcome and can't find working SMP/E samples to correct our dilema. Could anyone have an idea what we are doing wrong or provide a working sample (SMP/E)? Any inputs, will be really appreciated. You did this to the live system? If not, did you copy ADRDSSU to the live system and refresh / update LLA? If you did it to the live system did you refresh / update LLA? Here is a copy of our usermod JCL, but I don't think yours apply JCL is the problem. //*INSTALL EXIT TO PREVENT DFSMSDSS FROM ENQUEUING THE VTOC //*TO RESOLVE IPL PROBLEMS WHERE THE DEVICE WAS LOCKED UP FOR //*VERY LONG TIMES //ASM EXEC PGM=ASMA90,PARM=(OBJECT,NODECK,TERM,RENT,'XREF(SHORT)') //SYSLIB DD DSN=SYS1.MODGEN,DISP=SHR,UNIT=SYSDA,VOL=SER=RESM90 // DD DSN=SYS1.MACLIB,DISP=SHR,UNIT=SYSDA,VOL=SER=RESM90 //SYSUT1DD UNIT=VIO,SPACE=(CYL,(2,1)) //SYSTERM DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSPUNCH DD DUMMY //SYSLINDD DSN=amp;OBJSET,UNIT=VIO,SPACE=(CYL,(1,1)), // DISP=(NEW,PASS),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200) //SYSIN DD DISP=SHR,DSN=MPSYS1.ZOS19.USERMODS(#SDFDSS) //* //* //SMPEEXEC PGM=GIMSMP, // COND=(0,NE), // PARM='CSI=SYSI.IBM.ZOS19.GLOBAL.CSI' //STEPLIB DD DISP=SHR,DSN=SYS1.MIGLIB,UNIT=SYSDA,VOL=SER=RESM90 //DD DISP=SHR,DSN=SYS1.SASMMOD1,UNIT=SYSDA,VOL=SER=RESM90 //SMPOUTDD SYSOUT=* //SMPRPTDD SYSOUT=* //SYSPRINT DD SYSOUT=* //SMPLIST DD SYSOUT=* //SMPHOLD DD DUMMY //* //SMPPTFIN DD DATA,DLM=$$ ++ USERMOD (#SDFDSS) REWORK(2004190). ++ VER (Z038) FMID(HDZ1190) . ++ MOD (ADRUENQ). $$ // DD DISP=(OLD,DELETE),DSN=amp;OBJSET //SMPCNTL DD * SET BDY(GLOBAL) . RESETRC. RECEIVE S(#SDFDSS) . SET BDY(RESM901). APPLY S(#SDFDSS) . // -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:mark.zel...@zurichna.com z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities:
Re: How to delay until JES2 has finished startup
Just add it to the bottom of your JES2 initialization deck: $VS,'S procname' Vachi. SUBSCRIBE IBM-MAIN M. Ioia ti...@yahoo.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 12/18/2008 11:52 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] How to delay until JES2 has finished startup Hey Scott, nothing special here. We just have a started task that abends during IPL because it seems to be conflicting with JES startup. It works fine if we delay the startup until JES has completed its startup. For automation purposes, I want to start this STC during COMMNDxx processing, but ensure that JES has finished its start up process. So that is why I went into a hunt for a solution to trigger something only after JES has started. I will study and experiment with the suggestions I received and report back when I have a working solution. Thanks to all. P.S. to Mark Zeldon, I did search the archives and found some notes on COMMAND from CBT and delay and sleep tips, but as I said, I wanted to investigate a no-added-software solution. I have nothing against added additional tools/software if and only if the function I need is not already in the base. Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS MVS Routing Codes and Descriptions
Look in your System Messages, Vol 1 (ABA-AOM) chapter 1.3 (at least in zOS v1.8, chapter may have moved in your release) or search for Routing Codes. Good luck. Rabbe, Luke [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 11/04/2008 11:04 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To IBM-MAIN@BAMA.UA.EDU cc Subject [IBM-MAIN] z/OS MVS Routing Codes and Descriptions Does anyone know why this documentation stops at z/OS 1.5? Is it called something else now? Thank you, Luke Rabbe -- 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: FTP of fixed file off the mainframe
Try adding the statement: TrailingBlanks True; to your TCPIP.FTP.DATA, or specify LOCSITE TrailingBlanks in your FTP's INPUT statements. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. Howard Brazee [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 10/03/2007 01:37 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To IBM-MAIN@BAMA.UA.EDU cc Subject [IBM-MAIN] FTP of fixed file off the mainframe I am FTPing a fixed record length file from the mainframe to a Unix box where a vendor has access to pick up that file and FTP it to his machine. I don't know what kind of machine he has, but he's saying that he's missing my space fill for the shorter records. The first thing I verified is that the file does, in fact, have spaces, not low values on the mainframe. Then I tried to find out what the file looks like on the Unix machine. I opened it from my PC using Ultra-Edit, which asked if I wanted to convert it to DOS format. I haven't figured out what this means, so I opened it both ways.Pressing the end key, I go to the last non-blank character in a record, but I have no idea whether that is the last character or not. I'm trying to find out whether the spaces got truncated in my FTP or whether it happened later. -- 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: IBMLINK help phone number
1-800-543-3912 at least that what is says on my screen. Greg Lang [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 07/24/2007 09:10 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To IBM-MAIN@BAMA.UA.EDU cc Subject [IBM-MAIN] IBMLINK help phone number Would someone be willing to provide the IBMLINK problem phone number ?? Thanks. Greg Lang / ATT Inc. -- 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: Missing Component IXM* ??
The component you're looking for is XML toolkit for zOS, FMID HXML180, product 5655-J51. At my site, the datasets are under IXM.SIXM* Vachi. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. Chase, John [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 07/13/2007 09:22 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To IBM-MAIN@BAMA.UA.EDU cc Subject [IBM-MAIN] Missing Component IXM* ?? Hi, All, A link-edit in the installation of CICS TS 3.2 is failing with this: IEW2322I 1220 16519INCLUDE SIXMEXP(IXM4C56X) TYPE=UTIN IEW2303E 1030 MEMBER IXM4C56X OF THE DATA SET SPECIFIED BY SIXMEXP COULD NOT BE FOUND. The Installing Your Order manual says that **IF** you have ... (emphasis added) otherwise insert blanks, which I did, and the generated DDDEF apparently defaulted to SYS1.LINKLIB for it. Of course, there are no IXM* modules in our LINKLIB. What is the product or component whose prefix is IXM? We don't seem to have it on z/OS 1.7. TIA, -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 -- 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: Any way to get SDSF to cough up ICH408I?
The authorization checking in this case is not done by SDSF and consequently issuing an ICH408I is not under its control. If you're a RACF shop, list the resource profiles defined to the OPERCMDS class and make sure the relevant profiles have the necessary users/groups in their access list. For purging spool files, the resource profiles defined to the JESSPOOL class may be relevant as well if you already have access to the appropriate OPERCMDS resource. For JES2, the relevant OPERCMDS profiles will likely be something like JES%.CANCEL.*, JES%.SET.*, JES%.*. Refer to the RACF Security Administration and the MVS Planning: Operations manuals for details of the OPERCMDS and JESSPOOL classes. Greg Shirey [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 08/10/2005 08:22 AM Please respond to IBM Mainframe Discussion List To: IBM-MAIN@BAMA.UA.EDU cc: Subject:Re: [IBM-MAIN] Any way to get SDSF to cough up ICH408I? Tom, I seem to recall that the last time we set up a new LPAR, we were getting similar messages until we issued $S to JES2. Don't know if that's applicable... Greg Shirey Ben E. Keith Company -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Behalf Of Thomas Conley Sent: Wednesday, August 10, 2005 8:59 AM snip I get NOT AUTHORIZED FOR CMD trying to purge my own output from the HOLD queue. Another system programmer here gets NOT AUTHORIZED FOR CMD when trying to add an initiator class from the INIT panel. -- 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
