Re: Find member in Linklist through JCL?
On Sat, 26 Jul 2014 22:12:09 +0100, CM Poncelet ponce...@bcs.org.uk wrote: FWIW You can specify ISPPROF as either '//ISPPROF DD SPACE=(TRK,(1,1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)' or as '//ISPPROF DD LIKE=userid.ISPF.ISPPROF' without preallocating and then deleting it. I think the reason I preallocate ISPPROF is (if you look at my sample) the same DSN is also used for ISPTABL and is the first DSN in the ISPTLIB concatenation. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find member in Linklist through JCL?
It's been decades since I've touched the shareware version of PDS command. Besides FINDMOD, there are a few other functions in the Serena incarnation that require APF authorization. Is APF not an option for PDS 8.5? If not, then never mind. . . J.O.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: John P Kalinich jkali...@csc.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 07/25/2014 07:08 AM Subject:Re: Find member in Linklist through JCL? Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU PDS does not have a FINDMOD subcommand. As Peter explained, it would require authorization. Regards, John K Skip from the IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 07/25/2014 08:47:57 AM: Since no has mentioned it, I should point out that the PDS command, available on the mods tape, as well as its proprietary progeny (StarTool), includes a FINDMOD function that will identify all locations where a load module could be found in the current environment, all the way from STEPLIB to LINKLIST to LPA. Surely easier than writing you own code. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find member in Linklist through JCL?
Sure, I hadn't noticed that. Mark Zelden wrote: On Sat, 26 Jul 2014 22:12:09 +0100, CM Poncelet ponce...@bcs.org.uk wrote: FWIW You can specify ISPPROF as either '//ISPPROF DD SPACE=(TRK,(1,1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)' or as '//ISPPROF DD LIKE=userid.ISPF.ISPPROF' without preallocating and then deleting it. I think the reason I preallocate ISPPROF is (if you look at my sample) the same DSN is also used for ISPTABL and is the first DSN in the ISPTLIB concatenation. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ -- 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: Find member in Linklist through JCL?
On Thu, 24 Jul 2014 19:36:30 +, Nims,Alva John (Al) ajn...@ufl.edu wrote: Originally I was going to say use Mark's MVS Utility (http://mzelden.com/mvsutil.html) , FINDMOD, but it requires ISPF. You could get from the CBTTAPE (www.cbttape.org) FILE 311, there is a FINDMOD assembler program that will do the search. Running ISPF in batch is simple. Best to allocate a temp profile... //ALOCPROF EXEC PGM=IEFBR14 //PROFILE DD UNIT=SYSALLDA,DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(1,1,5)),DCB=(LRECL=80, //BLKSIZE=0,DSORG=PO,RECFM=FB), //DSN=userid.ISPF.TEMPPROF //*---* //*Invoke ISPF* //*---* //BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128 //ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU //ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB // DD DISP=SHR,DSN=ISP.SISPSENU //ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU //ISPPROF DD DSN=userid.ISPF.TEMPPROF,DISP=(OLD,DELETE) //ISPTABL DD DSN=userid.ISPF.TEMPPROF,DISP=OLD //ISPTLIB DD DSN=userid.ISPF.TEMPPROF,DISP=OLD // DD DISP=SHR,DSN=ISP.SISPTENU //ISPLOG DD SYSOUT=*,DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB) //ISPLIST DD SYSOUT=*,DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA) //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //SYSEXEC DD DISP=SHR,DSN=ISP.SISPEXEC //SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB // DD DISP=SHR,DSN=userid.SYSPROC //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PROFILE PREFIX(userid) ISPSTART CMD(%FINDMOD abc*) NEWAPPL(ISR) -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find member in Linklist through JCL?
FWIW You can specify ISPPROF as either '//ISPPROF DD SPACE=(TRK,(1,1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)' or as '//ISPPROF DD LIKE=userid.ISPF.ISPPROF' without preallocating and then deleting it. Mark Zelden wrote: On Thu, 24 Jul 2014 19:36:30 +, Nims,Alva John (Al) ajn...@ufl.edu wrote: Originally I was going to say use Mark's MVS Utility (http://mzelden.com/mvsutil.html) , FINDMOD, but it requires ISPF. You could get from the CBTTAPE (www.cbttape.org) FILE 311, there is a FINDMOD assembler program that will do the search. Running ISPF in batch is simple. Best to allocate a temp profile... //ALOCPROF EXEC PGM=IEFBR14 //PROFILE DD UNIT=SYSALLDA,DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(1,1,5)),DCB=(LRECL=80, //BLKSIZE=0,DSORG=PO,RECFM=FB), //DSN=userid.ISPF.TEMPPROF //*---* //*Invoke ISPF* //*---* //BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128 //ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU //ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB // DD DISP=SHR,DSN=ISP.SISPSENU //ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU //ISPPROF DD DSN=userid.ISPF.TEMPPROF,DISP=(OLD,DELETE) //ISPTABL DD DSN=userid.ISPF.TEMPPROF,DISP=OLD //ISPTLIB DD DSN=userid.ISPF.TEMPPROF,DISP=OLD // DD DISP=SHR,DSN=ISP.SISPTENU //ISPLOG DD SYSOUT=*,DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB) //ISPLIST DD SYSOUT=*,DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA) //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - //SYSEXEC DD DISP=SHR,DSN=ISP.SISPEXEC //SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB // DD DISP=SHR,DSN=userid.SYSPROC //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PROFILE PREFIX(userid) ISPSTART CMD(%FINDMOD abc*) NEWAPPL(ISR) -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ -- 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: Find member in Linklist through JCL?
In captsokyo_a2cdfoxvoxdksshomxth5ff4ecjpzwbmndi7wm...@mail.gmail.com, on 07/24/2014 at 03:11 PM, Bill Ashton bill00ash...@gmail.com said: Hi friends...I am having a bad brain day...Is there a common utility that can run unauthorized which will show me if module (ABC) exists in a Linklist library (and which one)? Why unauthorized? The obvious thing to use is ISRDDN in a batch TMP. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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: Find member in Linklist through JCL?
Thanks for these great suggestions. I think I will try the ISRDDN first, as it does not need special programming. Thanks again, everyone! Billy On Thu, Jul 24, 2014 at 7:33 PM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In captsokyo_a2cdfoxvoxdksshomxth5ff4ecjpzwbmndi7wm...@mail.gmail.com, on 07/24/2014 at 03:11 PM, Bill Ashton bill00ash...@gmail.com said: Hi friends...I am having a bad brain day...Is there a common utility that can run unauthorized which will show me if module (ABC) exists in a Linklist library (and which one)? Why unauthorized? The obvious thing to use is ISRDDN in a batch TMP. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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 -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Find member in Linklist through JCL?
CSVQUERY is mentioned. That is not the answer. It will tell you if something is in LPA. It will give you information about something in the job pack area. It will not tell you if something is in the LNKLST. And of course it will not tell you in which data set. If willing to write a program, BLDL seems to me to be the way to go. Use the DCB pointed to by CVTLINK. The output from BLDL indicates the concatenation number (i.e. which data set within the LNKLST), but then perhaps we're stuck if unauthorized because getting the data set by data set definition of the LNKLST requires some sort of authorization (whether using D PROG,LNKLST or the CSVDYNL programming interface which can be authorized by state, key, or security product profile). Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find member in Linklist through JCL?
Since no has mentioned it, I should point out that the PDS command, available on the mods tape, as well as its proprietary progeny (StarTool), includes a FINDMOD function that will identify all locations where a load module could be found in the current environment, all the way from STEPLIB to LINKLIST to LPA. Surely easier than writing you own code. . . J.O.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: Peter Relson rel...@us.ibm.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 07/25/2014 06:18 AM Subject:Find member in Linklist through JCL? Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU CSVQUERY is mentioned. That is not the answer. It will tell you if something is in LPA. It will give you information about something in the job pack area. It will not tell you if something is in the LNKLST. And of course it will not tell you in which data set. If willing to write a program, BLDL seems to me to be the way to go. Use the DCB pointed to by CVTLINK. The output from BLDL indicates the concatenation number (i.e. which data set within the LNKLST), but then perhaps we're stuck if unauthorized because getting the data set by data set definition of the LNKLST requires some sort of authorization (whether using D PROG,LNKLST or the CSVDYNL programming interface which can be authorized by state, key, or security product profile). Peter Relson z/OS Core Technology Design -- 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: Find member in Linklist through JCL?
PDS does not have a FINDMOD subcommand. As Peter explained, it would require authorization. Regards, John K Skip from the IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 07/25/2014 08:47:57 AM: Since no has mentioned it, I should point out that the PDS command, available on the mods tape, as well as its proprietary progeny (StarTool), includes a FINDMOD function that will identify all locations where a load module could be found in the current environment, all the way from STEPLIB to LINKLIST to LPA. Surely easier than writing you own code. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Find member in Linklist through JCL?
Hi friends...I am having a bad brain day...Is there a common utility that can run unauthorized which will show me if module(ABC) exists in a Linklist library (and which one)? I am looking for a JCL method that I can run on each of my LPARs to verify and document that a particular software product is no longer available in Linklist. -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find member in Linklist through JCL?
I would guess you could run DDLIST with a batch ISPF. Probably fairly ugly, but should work. Or, EXEC PGM=product and COND=ONLY of a step that confirms the ABEND was S806 :) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: Thursday, July 24, 2014 12:12 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Find member in Linklist through JCL? Hi friends...I am having a bad brain day...Is there a common utility that can run unauthorized which will show me if module(ABC) exists in a Linklist library (and which one)? I am looking for a JCL method that I can run on each of my LPARs to verify and document that a particular software product is no longer available in Linklist. -- Thank you and best regards, *Billy Ashton* -- 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: Find member in Linklist through JCL?
ISRFIND will work in ISPF. In JCL, code PGM=. If iota bends S806 the module is not in the Linklist. Bob Shannon Rocket Software Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find member in Linklist through JCL?
Originally I was going to say use Mark's MVS Utility (http://mzelden.com/mvsutil.html) , FINDMOD, but it requires ISPF. You could get from the CBTTAPE (www.cbttape.org) FILE 311, there is a FINDMOD assembler program that will do the search. Al Nims Systems Admin/Programmer 3 Information Technology University of Florida (352) 273-1298 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: Thursday, July 24, 2014 3:12 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Find member in Linklist through JCL? Hi friends...I am having a bad brain day...Is there a common utility that can run unauthorized which will show me if module(ABC) exists in a Linklist library (and which one)? I am looking for a JCL method that I can run on each of my LPARs to verify and document that a particular software product is no longer available in Linklist. -- Thank you and best regards, *Billy Ashton* -- 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: Find member in Linklist through JCL?
Bill, EXEC PGM=whatever without any STEPLIB or JOBLIB will give you a clue that it is or is not (S806) in the link list. But it won't tell you which library. If you have access to PARMLIB and are able to compile a list of the libraries in the link list, then you may be able to use a quick and dirty utility program I developed years ago. PROGBLDL gets a list of program names (DDNAME=PROGLIST) and for each name issues a BLDL macro call to get the load modules directory entry. This information is written to output files PROGDATA and PROGSUMM. I think PROGDATA is the full DE and PROGSUMM is some portion. The BLDL macro searches DDNAME=DFHRPL for the program name in question. I think there is a byte within the DE that is the relative number of the library in the DFHRPL concatenation. Source code reproduced below. John PROGBLDL CSECT *** *PROGBLDL PROGRAM ENTRY * *** LENTRY STM 14,12,12(13) BALR 12,0 USING *,12 ST13,WRSA+4 LA13,WRSA SPACE 3 *** *OPEN FILES * *** LOPENDS0H OPEN (WLSTDCB,(INPUT)) OPEN (WLIBDCB,(INPUT)) OPEN (WDATDCB,(OUTPUT)) OPEN (WSUMDCB,(OUTPUT)) SPACE 3 *** *READ PROGRAM NAMES AND COLLECT BLDL INFORMATION * *** LSCANDS0H GET WLSTDCB,WLSTREC READ NEXT PROGRAM NAME XCWMEMDATA,WMEMDATA CLEAR THE BLDL LIST AREA MVC WMEMNAME,WLSTRECSET THE MEMBER NAME MVC WSUMNAME,WLSTRECSET THE MEMBER NAME BLDL WLIBDCB,WMEMINFO,BYPASSLLA SEARCH FOR THE MEMBER PUT WDATDCB,WMEMDATASAVE THE RESULT SR15,15 IC15,WMEMDATA+11 LOAD CONCAT NUMBER CVD 15,WPACK UNPK WSUMLIBN,WPACK OIWSUMLIBN+1,X'F0' SR15,15 ICM 15,B'0111',WMEMDATA+24 LOAD MODULE SIZE CVD 15,WPACK UNPK WSUMSIZE,WPACK OIWSUMSIZE+7,X'F0' PUT WSUMDCB,WSUMREC WRITE SUMMARY RECORD B LSCAN GO DO NEXT LSCAN99 DS0H EODAD SPACE 3 *** *CLOSE FILES * *** LCLOSE DS0H CLOSE (WLSTDCB) CLOSE (WLIBDCB) CLOSE (WDATDCB) CLOSE (WSUMDCB) SPACE 3 *** *PROGBLDL PROGRAM EXIT* *** LEXITDS0H SR15,15 L 13,WRSA+4 L 14,12(13) LM0,12,20(13) BR14 SPACE 3 *** *CONSTANTS* *** LTORG *** *DSECTS * *** DCBD DSORG=(PS) SPACE 3 *** *WORKING STORAGE * *** PROGBLDL CSECT WPACKDCD'0' WRSA DC18F'0' WLSTDCB DCB DDNAME=PROGLIST,MACRF=GM,DEVD=DA,DSORG=PS, X RECFM=FB,LRECL=8,EODAD=LSCAN99 WLSTREC DSCL8'PGMNAME' WDATDCB DCB DDNAME=PROGDATA,MACRF=PM,DEVD=DA,DSORG=PS, X RECFM=FB,LRECL=76 WSUMDCB DCB DDNAME=PROGSUMM,MACRF=PM,DEVD=DA,DSORG=PS, X RECFM=FB,LRECL=20 WSUMREC DS0CL20 WSUMNAME DCCL8'PGMNAME' DCCL1',' WSUMLIBN DCCL2'99' DCCL1',' WSUMSIZE DCCL8'' * WLIBDCB DCB DDNAME=DFHRPL,MACRF=R,DEVD=DA,DSORG=PO, X RECFM=U WMEMINFO DS0H DCH'1' DCH'76' WMEMDATA DS0XL76 WMEMNAME DCCL8'PGMNAME' WMEMTTR DCXL3'00' WMEMKDCXL1'00' WMEMZDCXL1'00' WMEMCDCXL1'00' WMEMUSER DCXL62'00'
Re: Find member in Linklist through JCL?
The service is CSVQUERY _http://pic.dhe.ibm.com/infocenter/zos/v1r13/index.jsp?topic=%2Fcom.ibm.zos. r13.ieaa700%2Fiea2a7b11007.htm_ (http://pic.dhe.ibm.com/infocenter/zos/v1r13/index.jsp?topic=/com.ibm.zos.r13.ieaa700/iea2a7b11007.htm) Both DDLIST(ISRDDN) and FINDMOD utilize the results. The tuning tools Omegamon, et al have similar wrappers. In a message dated 7/24/2014 2:36:42 P.M. Central Daylight Time, ajn...@ufl.edu writes: You could get from the CBTTAPE (www.cbttape.org) FILE 311, there is a FINDMOD assembler program that will do the search. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
