Re: JCL PROBLEM - REVISITED
After the PROC001 statement, code //TAPE DD VOL=(,RETAIN,,35) to override just the volume operand on that DD statement. :>: -Original Message- :>: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On :>: Behalf Of John Dawes :>: Sent: Tuesday, June 05, 2012 3:50 PM :>: To: IBM-MAIN@bama.ua.edu :>: Subject: Re: JCL PROBLEM - REVISITED :>: :>: Since there is a VOL parm already coded how can I code the number of :>: volumes e.g. VOL=(,,,35) ? The system default is only 5. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
Where I work is in all my sig lines. Doesn't matter, if you're thinking of anything that costs money. We aren't spending any more than we currently do. And we may actually get more budget cuts in 2013. Our main OEM vendor is CA. We don't normally have JCL problems, the one I mentioned was endemic due to converting from BMC's Data Accelerator compression to SMS compression and its effect on CA-Faver backups. The z/OS system is generally moribund. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Mitch > Sent: Wednesday, June 06, 2012 9:46 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: JCL PROBLEM > > John, > > May I ask where you work? My friends in Australia may know > some of the > management folks at your site. Is there anything I can send to you to > help your cause? What types of JCL issues do you typically > have? May I > ask what batch scheduler you use? Change management tool? > .anything > else you can tell me. > > Cheers, > > > Mitch McCluhan > > > -Original Message----- > From: McKown, John > To: IBM-MAIN > Sent: Wed, Jun 6, 2012 5:15 am > Subject: Re: JCL PROBLEM > > > Just a point which may not be obvious (at least it wasn't to me). The > default of > 5 tape volumes is "hard coded" only for non-SMS managed tapes. Truly! > If you are > using SMS managed tapes (in an automated or even manual > library), then > you can > assign a default DATACLAS. In this DATACLAS, you can set the "volume > count" to > something else. We started having problems with some backups of files > which had > ballooned suddenly, which was causing a lot of abends due to > exceeding > tape > volumes. There were simply too many JCL streams to update in a timely > manner > (change control). Since all our application tapes are in a > VTS library, > and so > SMS managed, I simply changed our default DATACLAS which is > assigned to > virtual > tapes to have a "volume count" of 110. Saved a ton of work. > > -- > John McKown > Systems Engineer IV > IT > > Administrative Services Group > > HealthMarkets® > > 9151 Boulevard 26 . N. Richland Hills . TX 76010 > (817) 255-3225 phone . > john.mck...@healthmarkets.com . www.HealthMarkets.com > > Confidentiality Notice: This e-mail message may contain > confidential or > proprietary information. If you are not the intended > recipient, please > contact > the sender by reply e-mail and destroy all copies of the original > message. > HealthMarkets® is the brand name for products underwritten and issued > by the > insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life > Insurance > Company®, Mid-West National Life Insurance Company of TennesseeSM and > The MEGA > Life and Health Insurance Company.SM > > > -Original Message- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > > Sent: Tuesday, June 05, 2012 5:22 PM > > To: IBM-MAIN@bama.ua.edu > > Subject: Re: JCL PROBLEM > > > > Thanks for the tip. If I need to code the vol parm e.g. > > VOL=(,,,35) if the output exceedes 5 vols (system default) > > how would I go about it since I already have a vol parm in the jcl. > > > > > > > > > > From: Mike Schwab > > To: IBM-MAIN@bama.ua.edu > > Sent: Tuesday, 5 June 2012 5:30 PM > > Subject: Re: JCL PROBLEM > > > > Might I suggest a RETAIN on the FIRST step and omit on the > LAST step? > > > > On Tue, Jun 5, 2012 at 4:20 PM, John Dawes > > wrote: > > > John, > > > > > > You were spot on. Your suggestion worked. Thanks a million. > > > > > > Thanks to all who responded for my plea for help. > > -- > > Mike A Schwab, Springfie
Re: JCL PROBLEM
John, May I ask where you work? My friends in Australia may know some of the management folks at your site. Is there anything I can send to you to help your cause? What types of JCL issues do you typically have? May I ask what batch scheduler you use? Change management tool? .anything else you can tell me. Cheers, Mitch McCluhan -Original Message- From: McKown, John To: IBM-MAIN Sent: Wed, Jun 6, 2012 5:15 am Subject: Re: JCL PROBLEM Just a point which may not be obvious (at least it wasn't to me). The default of 5 tape volumes is "hard coded" only for non-SMS managed tapes. Truly! If you are using SMS managed tapes (in an automated or even manual library), then you can assign a default DATACLAS. In this DATACLAS, you can set the "volume count" to something else. We started having problems with some backups of files which had ballooned suddenly, which was causing a lot of abends due to exceeding tape volumes. There were simply too many JCL streams to update in a timely manner (change control). Since all our application tapes are in a VTS library, and so SMS managed, I simply changed our default DATACLAS which is assigned to virtual tapes to have a "volume count" of 110. Saved a ton of work. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes Sent: Tuesday, June 05, 2012 5:22 PM To: IBM-MAIN@bama.ua.edu Subject: Re: JCL PROBLEM Thanks for the tip. If I need to code the vol parm e.g. VOL=(,,,35) if the output exceedes 5 vols (system default) how would I go about it since I already have a vol parm in the jcl. From: Mike Schwab To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 5:30 PM Subject: Re: JCL PROBLEM Might I suggest a RETAIN on the FIRST step and omit on the LAST step? On Tue, Jun 5, 2012 at 4:20 PM, John Dawes wrote: > John, > > You were spot on. Your suggestion worked. Thanks a million. > > Thanks to all who responded for my plea for help. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
Just a point which may not be obvious (at least it wasn't to me). The default of 5 tape volumes is "hard coded" only for non-SMS managed tapes. Truly! If you are using SMS managed tapes (in an automated or even manual library), then you can assign a default DATACLAS. In this DATACLAS, you can set the "volume count" to something else. We started having problems with some backups of files which had ballooned suddenly, which was causing a lot of abends due to exceeding tape volumes. There were simply too many JCL streams to update in a timely manner (change control). Since all our application tapes are in a VTS library, and so SMS managed, I simply changed our default DATACLAS which is assigned to virtual tapes to have a "volume count" of 110. Saved a ton of work. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > Sent: Tuesday, June 05, 2012 5:22 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: JCL PROBLEM > > Thanks for the tip. If I need to code the vol parm e.g. > VOL=(,,,35) if the output exceedes 5 vols (system default) > how would I go about it since I already have a vol parm in the jcl. > > > > > From: Mike Schwab > To: IBM-MAIN@bama.ua.edu > Sent: Tuesday, 5 June 2012 5:30 PM > Subject: Re: JCL PROBLEM > > Might I suggest a RETAIN on the FIRST step and omit on the LAST step? > > On Tue, Jun 5, 2012 at 4:20 PM, John Dawes > wrote: > > John, > > > > You were spot on. Your suggestion worked. Thanks a million. > > > > Thanks to all who responded for my plea for help. > -- > Mike A Schwab, Springfield IL USA > Where do Forest Rangers go to get away from it all? > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
The keywords go after the positional parameters. On Tue, Jun 5, 2012 at 5:21 PM, John Dawes wrote: > Thanks for the tip. If I need to code the vol parm e.g. VOL=(,,,35) if the > output exceedes 5 vols (system default) how would I go about it since I > already have a vol parm in the jcl. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
Oh, and catalog all the datasets. During a DR test, only the first dataset was cataloged and it was on just the first volume, and only the first tape was sent for the exercise. Since there was no cataloged datasets on the second tape, it was not sent. The application people had to Fedex the second tape to complete their test. On Tue, Jun 5, 2012 at 4:51 PM, Mark Zelden wrote: > Besides that issue, the refback should ALWAYS be to the previous step, > not the first step. If it ever goes to a 2nd volume you will get an > abend. Gee... it's been so long that I've dealt with anyone doing > that I can't remember, but I think it's an A13 abend. > > Mark > -- > Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS > mailto:m...@mzelden.com > Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html > Systems Programming expert at http://expertanswercenter.techtarget.com/ > > On Tue, 5 Jun 2012 16:05:05 -0500, McKown, John > wrote: > >>I'm fairly sure you need the >> >>REF=*.STEP01.PROC001.TAPE >> >>to be >> >>REF=*.PROC001.STEP01.TAPE >> >>-- >>John McKown >>Systems Engineer IV >>IT >> >>Administrative Services Group >> >>HealthMarkets® >> >>9151 Boulevard 26 . N. Richland Hills . TX 76010 >>(817) 255-3225 phone . >>john.mck...@healthmarkets.com . www.HealthMarkets.com >> >>Confidentiality Notice: This e-mail message may contain confidential or >>proprietary information. If you are not the intended recipient, please >>contact the sender by reply e-mail and destroy all copies of the original >>message. HealthMarkets® is the brand name for products underwritten and >>issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake >>Life Insurance Company®, Mid-West National Life Insurance Company of >>TennesseeSM and The MEGA Life and Health Insurance Company.SM >> >>> -Original Message- >>> From: IBM Mainframe Discussion List >>> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes >>> Sent: Tuesday, June 05, 2012 4:02 PM >>> To: IBM-MAIN@bama.ua.edu >>> Subject: JCL PROBLEM >>> >>> G'Day, >>> >>> I am having a problem (jcl error) trying to run this job. >>> The object is to have all the backups written out to a 3592 tape. >>> //*** >>> //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' >>> //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' >>> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >>> >>> This is the proc: >>> >>> //FCBPRDXX PROC >>> //* >>> //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' >>> //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 >>> //*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, >>> //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, >>> // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, >>> // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), >>> // LABEL=(&LB,SL) >>> //SYSPRINT DD SYSOUT=* >>> //SYSIN
Re: JCL PROBLEM - REVISITED
Since there is a VOL parm already coded how can I code the number of volumes e.g. VOL=(,,,35) ? The system default is only 5. From: John Dawes To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 6:21 PM Subject: Re: JCL PROBLEM Thanks for the tip. If I need to code the vol parm e.g. VOL=(,,,35) if the output exceedes 5 vols (system default) how would I go about it since I already have a vol parm in the jcl. From: Mike Schwab To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 5:30 PM Subject: Re: JCL PROBLEM Might I suggest a RETAIN on the FIRST step and omit on the LAST step? On Tue, Jun 5, 2012 at 4:20 PM, John Dawes wrote: > John, > > You were spot on. Your suggestion worked. Thanks a million. > > Thanks to all who responded for my plea for help. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
Thanks for the tip. If I need to code the vol parm e.g. VOL=(,,,35) if the output exceedes 5 vols (system default) how would I go about it since I already have a vol parm in the jcl. From: Mike Schwab To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 5:30 PM Subject: Re: JCL PROBLEM Might I suggest a RETAIN on the FIRST step and omit on the LAST step? On Tue, Jun 5, 2012 at 4:20 PM, John Dawes wrote: > John, > > You were spot on. Your suggestion worked. Thanks a million. > > Thanks to all who responded for my plea for help. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
Besides that issue, the refback should ALWAYS be to the previous step, not the first step.If it ever goes to a 2nd volume you will get an abend. Gee... it's been so long that I've dealt with anyone doing that I can't remember, but I think it's an A13 abend. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Tue, 5 Jun 2012 16:05:05 -0500, McKown, John wrote: >I'm fairly sure you need the > >REF=*.STEP01.PROC001.TAPE > >to be > >REF=*.PROC001.STEP01.TAPE > >-- >John McKown >Systems Engineer IV >IT > >Administrative Services Group > >HealthMarkets® > >9151 Boulevard 26 . N. Richland Hills . TX 76010 >(817) 255-3225 phone . >john.mck...@healthmarkets.com . www.HealthMarkets.com > >Confidentiality Notice: This e-mail message may contain confidential or >proprietary information. If you are not the intended recipient, please contact >the sender by reply e-mail and destroy all copies of the original message. >HealthMarkets® is the brand name for products underwritten and issued by the >insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance >Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA >Life and Health Insurance Company.SM > >> -Original Message- >> From: IBM Mainframe Discussion List >> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes >> Sent: Tuesday, June 05, 2012 4:02 PM >> To: IBM-MAIN@bama.ua.edu >> Subject: JCL PROBLEM >> >> G'Day, >> >> I am having a problem (jcl error) trying to run this job. >> The object is to have all the backups written out to a 3592 tape. >> //*** >> //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' >> //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> >> This is the proc: >> >> //FCBPRDXX PROC >> //* >> //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' >> //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 >> //*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, >> //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, >> // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, >> // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), >> // LABEL=(&LB,SL) >> //SYSPRINT DD SYSOUT=* >> //SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) >> //* >> >> The message I get is : >> IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD >> >> I cannot spot my error. Can someone help me out? >> >> Thanks in advance. >> >> -- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN >> >> > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
Might I suggest a RETAIN on the FIRST step and omit on the LAST step? On Tue, Jun 5, 2012 at 4:20 PM, John Dawes wrote: > John, > > You were spot on. Your suggestion worked. Thanks a million. > > Thanks to all who responded for my plea for help. -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
John, You were spot on. Your suggestion worked. Thanks a million. Thanks to all who responded for my plea for help. From: "McKown, John" To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 5:05 PM Subject: Re: JCL PROBLEM I'm fairly sure you need the REF=*.STEP01.PROC001.TAPE to be REF=*.PROC001.STEP01.TAPE -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > Sent: Tuesday, June 05, 2012 4:02 PM > To: IBM-MAIN@bama.ua.edu > Subject: JCL PROBLEM > > G'Day, > > I am having a problem (jcl error) trying to run this job. > The object is to have all the backups written out to a 3592 tape. > //*** > //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' > //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > This is the proc: > > //FCBPRDXX PROC > //* > //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' > //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 > //*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, > //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, > // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, > // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), > // LABEL=(&LB,SL) > //SYSPRINT DD SYSOUT=* > //SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) > //* > > The message I get is : > IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD > > I cannot spot my error. Can someone help me out? > > Thanks in advance. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
That's why we use JSnnn for "JobStep" and PSnnn for "ProcStep" in our shop. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Jonathan Goossen > Sent: Tuesday, June 05, 2012 4:15 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: JCL PROBLEM > > I agree. > > Your names are confusing. PROC001 is the step name. STEP01 is > the proc > step name. (The name of the step in the proc.) > > Thank you and have a Terrific day! > > Jonathan Goossen, DTM > ACT Mainframe Storage Group > Personal: 651-361-4541 > Department Support Line: 651-361- > For help with communication and leadership skills checkout Woodwinds > Toastmasters. > > > > IBM Mainframe Discussion List wrote on > 06/05/2012 > 04:05:05 PM: > > > From: "McKown, John" > > To: IBM-MAIN@bama.ua.edu > > Date: 06/05/2012 04:05 PM > > Subject: Re: JCL PROBLEM > > Sent by: IBM Mainframe Discussion List > > > > I'm fairly sure you need the > > > > REF=*.STEP01.PROC001.TAPE > > > > to be > > > > REF=*.PROC001.STEP01.TAPE > > > > -- > > John McKown > > Systems Engineer IV > > IT > > > > Administrative Services Group > > > > HealthMarkets(r) > > > > 9151 Boulevard 26 . N. Richland Hills . TX 76010 > > (817) 255-3225 phone . > > john.mck...@healthmarkets.com . www.HealthMarkets.com > > > > Confidentiality Notice: This e-mail message may contain confidential > > or proprietary information. If you are not the intended recipient, > > please contact the sender by reply e-mail and destroy all copies of > > the original message. HealthMarkets(r) is the brand name for products > > underwritten and issued by the insurance subsidiaries of > > HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid- > > West National Life Insurance Company of TennesseeSM and The MEGA > > Life and Health Insurance Company.SM > > > > > -Original Message- > > > From: IBM Mainframe Discussion List > > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > > > Sent: Tuesday, June 05, 2012 4:02 PM > > > To: IBM-MAIN@bama.ua.edu > > > Subject: JCL PROBLEM > > > > > > G'Day, > > > > > > I am having a problem (jcl error) trying to run this job. > > > The object is to have all the backups written out to a 3592 tape. > > > //*** > > > //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' > > > //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' > > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > &g
Re: JCL PROBLEM
I agree. Your names are confusing. PROC001 is the step name. STEP01 is the proc step name. (The name of the step in the proc.) Thank you and have a Terrific day! Jonathan Goossen, DTM ACT Mainframe Storage Group Personal: 651-361-4541 Department Support Line: 651-361- For help with communication and leadership skills checkout Woodwinds Toastmasters. IBM Mainframe Discussion List wrote on 06/05/2012 04:05:05 PM: > From: "McKown, John" > To: IBM-MAIN@bama.ua.edu > Date: 06/05/2012 04:05 PM > Subject: Re: JCL PROBLEM > Sent by: IBM Mainframe Discussion List > > I'm fairly sure you need the > > REF=*.STEP01.PROC001.TAPE > > to be > > REF=*.PROC001.STEP01.TAPE > > -- > John McKown > Systems Engineer IV > IT > > Administrative Services Group > > HealthMarkets® > > 9151 Boulevard 26 . N. Richland Hills . TX 76010 > (817) 255-3225 phone . > john.mck...@healthmarkets.com . www.HealthMarkets.com > > Confidentiality Notice: This e-mail message may contain confidential > or proprietary information. If you are not the intended recipient, > please contact the sender by reply e-mail and destroy all copies of > the original message. HealthMarkets® is the brand name for products > underwritten and issued by the insurance subsidiaries of > HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid- > West National Life Insurance Company of TennesseeSM and The MEGA > Life and Health Insurance Company.SM > > > -Original Message- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > > Sent: Tuesday, June 05, 2012 4:02 PM > > To: IBM-MAIN@bama.ua.edu > > Subject: JCL PROBLEM > > > > G'Day, > > > > I am having a problem (jcl error) trying to run this job. > > The object is to have all the backups written out to a 3592 tape. > > //*** > > //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' > > //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' > > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > > > This is the proc: > > > > //FCBPRDXX PROC > > //* > > //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' > > //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 > > //*TAPEDD DSN=BKUP..XX.V&SOURCE.XX, > > //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, > > //DSORG=PS,TRTCH=COMP,UNIT=MAN3590, > > //VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), > > //LABEL=(&LB,SL) > > //SYSPRINT DD SYSOUT=* > > //SYSINDD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) > > //* > > > > The message I get is : > > IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD > > > > I cannot spot my error. Can someone help me out? > > > >
Re: JCL PROBLEM
I'll try out your suggestion. Thanks. From: "McKown, John" To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 5:05 PM Subject: Re: JCL PROBLEM I'm fairly sure you need the REF=*.STEP01.PROC001.TAPE to be REF=*.PROC001.STEP01.TAPE -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > Sent: Tuesday, June 05, 2012 4:02 PM > To: IBM-MAIN@bama.ua.edu > Subject: JCL PROBLEM > > G'Day, > > I am having a problem (jcl error) trying to run this job. > The object is to have all the backups written out to a 3592 tape. > //*** > //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' > //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > This is the proc: > > //FCBPRDXX PROC > //* > //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' > //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 > //*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, > //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, > // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, > // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), > // LABEL=(&LB,SL) > //SYSPRINT DD SYSOUT=* > //SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) > //* > > The message I get is : > IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD > > I cannot spot my error. Can someone help me out? > > Thanks in advance. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
At PROC002 //STEP01.TAPE From: Lizette Koehler To: IBM-MAIN@bama.ua.edu Sent: Tuesday, 5 June 2012 5:06 PM Subject: Re: JCL PROBLEM At what step do you get this error? PROC001, PROC003, etc... Lizette -Original Message- >From: John Dawes >Sent: Jun 5, 2012 2:01 PM >To: IBM-MAIN@bama.ua.edu >Subject: JCL PROBLEM > >G'Day, > >I am having a problem (jcl error) trying to run this job. The object is to >have all the backups written out to a 3592 tape. >//*** >//PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' >//PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > >This is the proc: > >//FCBPRDXX PROC >//* >//STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' >//DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 >//*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, >//TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, >// DSORG=PS,TRTCH=COMP,UNIT=MAN3590, >// VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), >// LABEL=(&LB,SL) >//SYSPRINT DD SYSOUT=* >//SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) >//* > >The message I get is : >IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD > >I cannot spot my error. Can someone help me out? > >Thanks in advance. > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
At what step do you get this error? PROC001, PROC003, etc... Lizette -Original Message- >From: John Dawes >Sent: Jun 5, 2012 2:01 PM >To: IBM-MAIN@bama.ua.edu >Subject: JCL PROBLEM > >G'Day, > >I am having a problem (jcl error) trying to run this job. The object is to >have all the backups written out to a 3592 tape. >//*** >//PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' >//PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >//PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' >//STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > >This is the proc: > >//FCBPRDXX PROC >//* >//STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' >//DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 >//*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, >//TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, >// DSORG=PS,TRTCH=COMP,UNIT=MAN3590, >// VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), >// LABEL=(&LB,SL) >//SYSPRINT DD SYSOUT=* >//SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) >//* > >The message I get is : >IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD > >I cannot spot my error. Can someone help me out? > >Thanks in advance. > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JCL PROBLEM
I'm fairly sure you need the REF=*.STEP01.PROC001.TAPE to be REF=*.PROC001.STEP01.TAPE -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . john.mck...@healthmarkets.com . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes > Sent: Tuesday, June 05, 2012 4:02 PM > To: IBM-MAIN@bama.ua.edu > Subject: JCL PROBLEM > > G'Day, > > I am having a problem (jcl error) trying to run this job. > The object is to have all the backups written out to a 3592 tape. > //*** > //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' > //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' > //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) > > This is the proc: > > //FCBPRDXX PROC > //* > //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' > //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 > //*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, > //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, > // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, > // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), > // LABEL=(&LB,SL) > //SYSPRINT DD SYSOUT=* > //SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) > //* > > The message I get is : > IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD > > I cannot spot my error. Can someone help me out? > > Thanks in advance. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
JCL PROBLEM
G'Day, I am having a problem (jcl error) trying to run this job. The object is to have all the backups written out to a 3592 tape. //*** //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) This is the proc: //FCBPRDXX PROC //* //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 //*TAPE DD DSN=BKUP..XX.V&SOURCE.XX, //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), // LABEL=(&LB,SL) //SYSPRINT DD SYSOUT=* //SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) //* The message I get is : IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD I cannot spot my error. Can someone help me out? Thanks in advance. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: A JCL Problem question
On 26 May 2011 13:46:10 -0700, in bit.listserv.ibm-main (Message-ID:) sergio.co...@cetip.com.br (Sérgio Lima Costa) wrote: But, when try run, this mistake appear, and I can't see where is the problem : IEC130I SYSTSIN DD STATEMENT MISSING IEF472I BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON= The SYSTSIN is there, where is the problem ? You have a SYSTSIN on the 2nd step, but the error message seems to be coming from the first step. -- I cannot receive mail at the address this was sent from. To reply directly, send to ar23hur "at" pobox "dot" com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: A JCL Problem question
The error message is not referring to the BINDSYS step, but to the BINDSYS
procstep of the DB2COB step executing the COMP006L procedure.
regards,
Gunnar
- Original Message -
From: "Sérgio Lima Costa"
Newsgroups: bit.listserv.ibm-main
To:
Sent: Thursday, May 26, 2011 10:35 PM
Subject: A JCL Problem question
Hello List,
I tried, write here, a REXX routine from compile COBOL batch with DB2.
The JCL generated is this :
// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//JOBLIB DD DISP=SHR,DSN=DB2.SDSNLOAD
// DD DISP=SHR,DSN=CEE.SCEERUN
//DB2COB EXEC COMP006L,MEM=PROG001,
// DBRMLIB=PROD.DBRMLIB
//* SRCLIB=PROD.DCLGEN
//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
//*
//COBOL.SYSLIB DD DSN=PROD.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
//LKED.SYSIN DD *
NAME PROG001(R)
/*
//BINDSYS EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB DD DISP=SHR,DSN=PROD.DBRMLIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2P)
BIND PLAN(PROG001) -
MEMBER(PROG001) -
LIBRARY ('PROD.DBRMLIB') -
ACTION(REP) -
ISOLATION (CS) -
VALIDATE (BIND) -
RELEASE (COMMIT) -
ACQUIRE (USE)
END
But, when try run, this mistake appear, and I can't see where is the problem :
IEC130I SYSTSIN DD STATEMENT MISSING
IEF472I BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON=
The SYSTSIN is there, where is the problem ?
Thanks,
Sergio Lima
--
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
RES: A JCL Problem question
Hello List,
Sorry about this trouble.
This question is solved.
My apologize.
Sergio
-Mensagem original-
De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de
Sérgio Lima Costa
Enviada em: quinta-feira, 26 de maio de 2011 17:35
Para: IBM-MAIN@bama.ua.edu
Assunto: A JCL Problem question
Hello List,
I tried, write here, a REXX routine from compile COBOL batch with DB2.
The JCL generated is this :
// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//JOBLIB DD DISP=SHR,DSN=DB2.SDSNLOAD
// DD DISP=SHR,DSN=CEE.SCEERUN
//DB2COB EXEC COMP006L,MEM=PROG001,
// DBRMLIB=PROD.DBRMLIB
//* SRCLIB=PROD.DCLGEN
//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
//*
//COBOL.SYSLIB DD DSN=PROD.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
//LKED.SYSIN DD *
NAME PROG001(R)
/*
//BINDSYS EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB DD DISP=SHR,DSN=PROD.DBRMLIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2P)
BIND PLAN(PROG001) -
MEMBER(PROG001) -
LIBRARY ('PROD.DBRMLIB') -
ACTION(REP) -
ISOLATION (CS) -
VALIDATE (BIND) -
RELEASE (COMMIT) -
ACQUIRE (USE)
END
But, when try run, this mistake appear, and I can't see where is the problem :
IEC130I SYSTSIN DD STATEMENT MISSING
IEF472I BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON=
The SYSTSIN is there, where is the problem ?
Thanks,
Sergio Lima
"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s)
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição,
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem,
necessariamente,
o ponto de vista da companhia, o qual é divulgado somente por pessoas
autorizadas."
"Warning: This message was sent for exclusive use of the addressees above
identified, possibly
containing information and or privileged/confidential documents whose content
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it
from your system.
Be noticed that the law forbids the retention, dissemination, distribution,
copy or use without
express authorization from the sender. Personal opinions of the sender do not
necessarily reflect
the company's point of view, which is only divulged by authorized personnel."
--
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
"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s)
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição,
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem,
necessariamente,
o ponto de vista da companhia, o qual é divulgado somente por pessoas
autorizadas."
"Warning: This message was sent for exclusive use of the addressees above
identified, possibly
containing information and or privileged/confidential documents whose content
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it
from your system.
Be noticed that the law forbids the retention, dissemination, distribution,
copy or use without
express authorization from the sender. Personal opinions of the sender do not
necessarily reflect
the company's point of view, which is only divulged by authorized personnel."
--
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: A JCL Problem question
On Thu, 26 May 2011 17:35:26 -0300 Sérgio Lima Costa
wrote:
:>I tried, write here, a REXX routine from compile COBOL batch with DB2.
:>The JCL generated is this :
:>// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
:>// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
:>//JOBLIB DD DISP=SHR,DSN=DB2.SDSNLOAD
:>// DD DISP=SHR,DSN=CEE.SCEERUN
:>//DB2COB EXEC COMP006L,MEM=PROG001,
:>// DBRMLIB=PROD.DBRMLIB
:>//* SRCLIB=PROD.DCLGEN
:>//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
:>//*
:>//COBOL.SYSLIB DD DSN=PROD.COPYLIB,DISP=SHR
:>//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
:>//LKED.SYSIN DD *
:> NAME PROG001(R)
:>/*
:>//BINDSYS EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
:>//DBRMLIB DD DISP=SHR,DSN=PROD.DBRMLIB
:>//SYSTSPRT DD SYSOUT=*
:>//SYSPRINT DD SYSOUT=*
:>//SYSUDUMP DD SYSOUT=*
:>//SYSTSIN DD *
:>DSN SYSTEM(DB2P)
:> BIND PLAN(PROG001) -
:> MEMBER(PROG001) -
:> LIBRARY ('PROD.DBRMLIB') -
:> ACTION(REP) -
:> ISOLATION (CS) -
:> VALIDATE (BIND) -
:> RELEASE (COMMIT) -
:> ACQUIRE (USE)
:> END
:>But, when try run, this mistake appear, and I can't see where is the problem :
:>IEC130I SYSTSIN DD STATEMENT MISSING
:>IEF472I BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102
REASON=
:>The SYSTSIN is there, where is the problem ?
It would appear that there is a BINDSYS step in COMP006L proc.
--
Binyamin Dissen
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...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
A JCL Problem question
Hello List,
I tried, write here, a REXX routine from compile COBOL batch with DB2.
The JCL generated is this :
// JOB (DES,SP,72664,09,30),&SYSUID,CLASS=N,
// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T
//JOBLIB DD DISP=SHR,DSN=DB2.SDSNLOAD
// DD DISP=SHR,DSN=CEE.SCEERUN
//DB2COB EXEC COMP006L,MEM=PROG001,
// DBRMLIB=PROD.DBRMLIB
//* SRCLIB=PROD.DCLGEN
//PC.SYSIN DD DSN=SERGIOL.FONTES.BATCH(PROG001),DISP=SHR
//*
//COBOL.SYSLIB DD DSN=PROD.COPYLIB,DISP=SHR
//LKED.SYSLMOD DD DSN=SERGIOL.TSO.LOAD,DISP=SHR
//LKED.SYSIN DD *
NAME PROG001(R)
/*
//BINDSYS EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB DD DISP=SHR,DSN=PROD.DBRMLIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2P)
BIND PLAN(PROG001) -
MEMBER(PROG001) -
LIBRARY ('PROD.DBRMLIB') -
ACTION(REP) -
ISOLATION (CS) -
VALIDATE (BIND) -
RELEASE (COMMIT) -
ACQUIRE (USE)
END
But, when try run, this mistake appear, and I can't see where is the problem :
IEC130I SYSTSIN DD STATEMENT MISSING
IEF472I BINDSYS DB2COB - COMPLETION CODE - SYSTEM=000 USER=0102 REASON=
The SYSTSIN is there, where is the problem ?
Thanks,
Sergio Lima
"Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s)
acima identificado(s),
podendo conter informações e/ou documentos confidencias/privilegiados e seu
sigilo é protegido por
lei. Caso você tenha recebido por engano, por favor, informe o remetente e
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação, distribuição,
cópia ou uso sem
expressa autorização do remetente. Opiniões pessoais do remetente não refletem,
necessariamente,
o ponto de vista da companhia, o qual é divulgado somente por pessoas
autorizadas."
"Warning: This message was sent for exclusive use of the addressees above
identified, possibly
containing information and or privileged/confidential documents whose content
is protected by law.
In case you have mistakenly received it, please notify the sender and delete it
from your system.
Be noticed that the law forbids the retention, dissemination, distribution,
copy or use without
express authorization from the sender. Personal opinions of the sender do not
necessarily reflect
the company's point of view, which is only divulged by authorized personnel."
--
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: JCL Problem...
Flint, Mike schrieb: Is there any reason why you aren't pointing SYSPRINT (or whatever) at a temporary (or permanent) file, and using that file as the SYSIN dataset for STEP02? For what reason do you *need* the SYSIN data to be instream? I don't really need it instream - it was just to clarify that I need to modify the output to SYSPRINT from the first STEP (put something around). Bye, Michael -- 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: JCL Problem...
On Wed, 22 Oct 2008 07:18:58 -0500, Scott Barry wrote: >On Wed, 22 Oct 2008 11:37:12 +0200, Michael Knigge wrote: >>//* >>//* IMAGINE FOO WILL OUTPUT AN IP-ADDRESS - BUT THE ADDRESS >>//* IS OF COURSE NOT KNOWN... >>//* >>//STEP01 EXEC PGM=FOO >>//SYSPRINT DD SYSOUT=* >>//* >>//* NOW I NEED TO EXECUTE A COMMAND THAT CONTAINS >>//* THE IP-ADDRESS >>//STEP02 EXEC PGM=BA,PARM='PING the.ip.addr.here' >> >A REXX or CLIST EXEC (or many other programming options) that parses your >SYSPRINT (passed from the first step in a dataset, not SYSOUT -- or put to a >dataset, the "gener" to SYSOUT if someone needs this info), which in turn >generates a temp (or permanent, transient/temporary - for restart purposes) >dataset containing your PING (or whatever) command which gets executed in a >subsequent step. > This is extraorinarily easy to do in z/OS Unix with a shell command using command substitution: PING "$(FOO)" Consider that as an alternative. How about: //STEP02 EXEC PGM=IKJEFT01 //SYSTSIN DD* PING - // DDDISP=OLD,DSN=*.STEP01.SYSPRINT -- gil -- 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: JCL Problem...
On Wed, 22 Oct 2008 11:37:12 +0200, Michael Knigge <[EMAIL PROTECTED]> wrote: >All, > > >I have a utility that outputs a string to SYSPRINT (but that can be >changed). Now I need to pass this string via SYSIN (or PARM) together >with some other parameters to a second utility. > >A little "pseudo-sample": > >//* >//* IMAGINE FOO WILL OUTPUT AN IP-ADDRESS - BUT THE ADDRESS >//* IS OF COURSE NOT KNOWN... >//* >//STEP01 EXEC PGM=FOO >//SYSPRINT DD SYSOUT=* >//* >//* NOW I NEED TO EXECUTE A COMMAND THAT CONTAINS >//* THE IP-ADDRESS >//STEP02 EXEC PGM=BA,PARM='PING the.ip.addr.here' > >. OR ... > >//STEP02 EXEC PGM=BA >//SYSIN DD * >PING the.ip.addr.here >//SYSPRINT DD SYSOUT=* > > > >Any ideas how to solve this problem? > > >My first idea was to pass the SYSPRINT from STEP01 to a following STEP >that issues an EDIT-Macro that changes the contents to my needs (BTW, >how to do this?). The "new" SYSPRINT is then passed to the "PING" STEP. > >Of yourse this is just simplified just to show you what I need. My real >case has nothing to do with IP-Adresses and PING and that stuff, but >this sample is (I think so) easy to understand... > > >Thank you in advance > > > >Bye, >Michael > A REXX or CLIST EXEC (or many other programming options) that parses your SYSPRINT (passed from the first step in a dataset, not SYSOUT -- or put to a dataset, the "gener" to SYSOUT if someone needs this info), which in turn generates a temp (or permanent, transient/temporary - for restart purposes) dataset containing your PING (or whatever) command which gets executed in a subsequent step. You may also be able to use ICETOOL/DFSORT to parse the SYSPRINT output and generate your command. Scott Barry SBBWorks, 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
Re: JCL Problem...
Is there any reason why you aren't pointing SYSPRINT (or whatever) at a temporary (or permanent) file, and using that file as the SYSIN dataset for STEP02? For what reason do you *need* the SYSIN data to be instream? -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Michael Knigge Sent: 22 October 2008 10:37 To: IBM-MAIN@BAMA.UA.EDU Subject: JCL Problem... All, I have a utility that outputs a string to SYSPRINT (but that can be changed). Now I need to pass this string via SYSIN (or PARM) together with some other parameters to a second utility. A little "pseudo-sample": //* //* IMAGINE FOO WILL OUTPUT AN IP-ADDRESS - BUT THE ADDRESS //* IS OF COURSE NOT KNOWN... //* //STEP01 EXEC PGM=FOO //SYSPRINT DD SYSOUT=* //* //* NOW I NEED TO EXECUTE A COMMAND THAT CONTAINS //* THE IP-ADDRESS //STEP02 EXEC PGM=BA,PARM='PING the.ip.addr.here' . OR ... //STEP02 EXEC PGM=BA //SYSIN DD * PING the.ip.addr.here //SYSPRINT DD SYSOUT=* Any ideas how to solve this problem? My first idea was to pass the SYSPRINT from STEP01 to a following STEP that issues an EDIT-Macro that changes the contents to my needs (BTW, how to do this?). The "new" SYSPRINT is then passed to the "PING" STEP. Of yourse this is just simplified just to show you what I need. My real case has nothing to do with IP-Adresses and PING and that stuff, but this sample is (I think so) easy to understand... Thank you in advance Bye, Michael -- 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 e-mail has come from Experian, the only business to have been twice named the UK's 'Business of the Year’ === Information in this e-mail and any attachments is confidential, and may not be copied or used by anyone other than the addressee, nor disclosed to any third party without our permission. There is no intention to create any legally binding contract or other binding commitment through the use of this electronic communication unless it is issued in accordance with the Experian Limited standard terms and conditions of purchase or other express written agreement between Experian Limited and the recipient. Although Experian has taken reasonable steps to ensure that this communication and any attachments are free from computer virus, you are advised to take your own steps to ensure that they are actually virus free. Companies Act information: Registered name: Experian Limited Registered office: Talbot House, Talbot Street, Nottingham NG80 1TH Place of registration: England and Wales Registered number: 653331 -- 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: JCL Problem...
I may be missing something, but I'd go for something like: //STEP01 EXEC PGM=FOO //SYSPRINT DD DISP=(NEW,PASS)...etc... //STEP02 EXEC PGM=BA //SYSIN DD DSN=*.STEP01.SYSPRINT,DISP=(OLD,DELETE)... //SYSPRINT DD SYSOUT=* John Compton Phone Cork: +353 (0)21 231 4641; Phone VOIP: 214-775-3641 -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Michael Knigge Sent: 22 October 2008 10:37 To: IBM-MAIN@BAMA.UA.EDU Subject: JCL Problem... All, I have a utility that outputs a string to SYSPRINT (but that can be changed). Now I need to pass this string via SYSIN (or PARM) together with some other parameters to a second utility. A little "pseudo-sample": //* //* IMAGINE FOO WILL OUTPUT AN IP-ADDRESS - BUT THE ADDRESS //* IS OF COURSE NOT KNOWN... //* //STEP01 EXEC PGM=FOO //SYSPRINT DD SYSOUT=* //* //* NOW I NEED TO EXECUTE A COMMAND THAT CONTAINS //* THE IP-ADDRESS //STEP02 EXEC PGM=BA,PARM='PING the.ip.addr.here' . OR ... //STEP02 EXEC PGM=BA //SYSIN DD * PING the.ip.addr.here //SYSPRINT DD SYSOUT=* Any ideas how to solve this problem? My first idea was to pass the SYSPRINT from STEP01 to a following STEP that issues an EDIT-Macro that changes the contents to my needs (BTW, how to do this?). The "new" SYSPRINT is then passed to the "PING" STEP. Of yourse this is just simplified just to show you what I need. My real case has nothing to do with IP-Adresses and PING and that stuff, but this sample is (I think so) easy to understand... Thank you in advance Bye, Michael -- 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
JCL Problem...
All, I have a utility that outputs a string to SYSPRINT (but that can be changed). Now I need to pass this string via SYSIN (or PARM) together with some other parameters to a second utility. A little "pseudo-sample": //* //* IMAGINE FOO WILL OUTPUT AN IP-ADDRESS - BUT THE ADDRESS //* IS OF COURSE NOT KNOWN... //* //STEP01 EXEC PGM=FOO //SYSPRINT DD SYSOUT=* //* //* NOW I NEED TO EXECUTE A COMMAND THAT CONTAINS //* THE IP-ADDRESS //STEP02 EXEC PGM=BA,PARM='PING the.ip.addr.here' . OR ... //STEP02 EXEC PGM=BA //SYSIN DD * PING the.ip.addr.here //SYSPRINT DD SYSOUT=* Any ideas how to solve this problem? My first idea was to pass the SYSPRINT from STEP01 to a following STEP that issues an EDIT-Macro that changes the contents to my needs (BTW, how to do this?). The "new" SYSPRINT is then passed to the "PING" STEP. Of yourse this is just simplified just to show you what I need. My real case has nothing to do with IP-Adresses and PING and that stuff, but this sample is (I think so) easy to understand... Thank you in advance Bye, Michael -- 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
