Actually I am perfectly happy with the rc=4 - I used bypass(systemhold(action)) for 1 ptf that wanted me to know there was help information. 8 would bother me. I am just concerned that my jcl got too, way too complicated. After the memo to users, memo to users extension, the program directory and comments in sample JCL, I'm confused. It seems the packagers of the cbpdo supplied every bit of JCL needed including 2 jobs for the receive ...rimlib(rcvpdo) and the receive job from the tapes relfile. But the apply job I had to cobble together from sample jcl, sourceids from the memo to users extension and punched output from a smp report errorsysmods. It's just been a long time since I applied anything.
Ken Klein Sr. Systems Programmer [email protected] 502-495-5000 x7011 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Lizette Koehler Sent: Wednesday, June 03, 2009 3:41 PM To: [email protected] Subject: Re: Smpe batch jcl question about a job to apply _all_ service from a cbpdo What is the GIM message that produces the RC04? Lizette > >Does this look right? The check gets a rc 4. I combined the KDSJ1APP >job from the tape (line 340002) and the sourceids from the memo to >users extension (lines 345102-346202) and the smppunch output from a >report errorsysmods (lines 348902-350702). > > >//KQKTEMPS JOB (3356,277),'KLEIN, KEN',MSGLEVEL=(1,1), >00010001 >// CLASS=L,MSGCLASS=X,NOTIFY=&SYSUID,REGION=0M >00020001 >//* JOBCARD CREATED AT 12:32:42 ON 3 JUN 2009 >00030002 >//* JES NODE=EREPNODE SYSTEM=TESTT1 LEVEL=JES2 Z/OS 1.9 >00040002 >//* JCL TO RUN THIS JOB: KQKTEMP.$TSO.WORK(SMPAPPLY) >00050002 >/*JOBPARM LINES=999999,CARDS=999999 >00060001 >//*=+====1====+====2====+====3====+====4====+====5====+====6====+====7= >= >00070002 >//SMP EXEC PGM=GIMSMP, >00080001 >// REGION=4096K,PARM='CSI=SVS.IBMOM.GLOBAL.CSI' >00090001 >//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR >00100001 >//SMPLOG DD SYSOUT=* >00110002 >//SMPLOGA DD SYSOUT=* >00120002 >//SMPCNTL DD * >00230001 >SET BOUNDARY ( OMTZN ) . >00240002 >APPLY SELECT( HKDS621 HKLV621 ) >00340002 > SOURCEID( >00345002 > HIPER PUT0507 PUT0510 >00345102 > PUT0601 PUT0604 PUT0606 >00345202 > PUT0607 PUT0609 PUT0611 >00345302 > PUT0612 PUT0701 PUT0703 >00345402 > PUT0704 PUT0706 PUT0710 >00345502 > PUT0802 PUT0805 PUT0808 >00345602 > PUT0809 PUT0812 PUT0901 >00345702 > PUT0902 PUT0904 RSU0508 >00345802 > RSU0603 RSU0606 RSU0609 >00345902 > RSU0612 RSU0703 RSU0706 >00346002 > RSU0709 RSU0803 RSU0809 >00346102 > RSU0812 RSU0903 >00346202 > UA45246 /* RESOLVES AA27365 FOR UA43385 FMID(HKC5410) */ >00348902 > UK41992 /* RESOLVES AK76361 FOR HKDB410 FMID(HKDB410) */ >00349002 > UK43610 /* RESOLVES AK77345 FOR HKDB410 FMID(HKDB410) */ >00349102 > UK44062 /* RESOLVES AK77532 FOR HKDB410 FMID(HKDB410) */ >00349202 > UK43916 /* RESOLVES AK79736 FOR HKDB410 FMID(HKDB410) */ >00349302 > UK43934 /* RESOLVES AK80329 FOR HKDB410 FMID(HKDB410) */ >00349402 > UK44097 /* RESOLVES AK80459 FOR HKDB410 FMID(HKDB410) */ >00349502 > UK44771 /* RESOLVES AK81520 FOR HKDB410 FMID(HKDB410) */ >00349602 > UK44995 /* RESOLVES AK82448 FOR HKDB410 FMID(HKDB410) */ >00349702 > UA45957 /* RESOLVES AA27811 FOR HKM2550 FMID(HKM2550) */ >00349802 > UA46559 /* RESOLVES AA28367 FOR UA44538 FMID(HKM2550) */ >00350002 > UA45277 /* RESOLVES AA26814 FOR HKM5410 FMID(HKM5410) */ >00350102 > UA46208 /* RESOLVES AA28056 FOR HKM5410 FMID(HKM5410) */ >00350202 > UA45034 /* RESOLVES AA27272 FOR HKOB550 FMID(HKOB550) */ >00350302 > UA44056 /* RESOLVES AA26495 FOR HKSB550 FMID(HKSB550) */ >00350402 > UA45746 /* RESOLVES AA27060 FOR HKS3410 FMID(HKS3410) */ >00350602 > UA45521 /* RESOLVES AA27668 FOR HKS3410 FMID(HKS3410) */ >00350702 > ) >00351102 > GROUPEXTEND >00351402 > REDO >00351502 > BYPASS(HOLDSYSTEM(ACTION)) >00351602 > CHECK >00351701 > . >00352001 >/* > > >Ken Klein >Sr. Systems Programmer >[email protected] >502-495-5000 x7011 > > >On Wed, 3 Jun 2009 12:34:52 -0500, Kirk Wolf <[email protected]> wrote: > >>FWIW, if you run java via the JZOS Batch launcher with the LOGLVL='+D' >>option, it will print out the requested vs actual >>below-line/above-line/above-bar storage from the LDA. >> >>Kirk Wolf >>Dovetailed Technologies > >In which case IEFUSI (SYS.IEFUSI) will still be in effect, but you can >easily add MEMLIMIT= to your JCL (but IEFUSI can still override it). > > ---------------------------------------------------------------------- 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
