Re: RPIVAL Routine used with CA-Top Secret
), or email it to you directly. http://listserv.uark.edu/scripts/wa.exe? A2=ind0211&L=ibmvm&T=0&X=47F5C67EFA62073DC2&P=6 829 -- Dale R. Smith
RPIVAL Routine used with CA-Top Secret
Does somebody have a RPIVAL Routine that they use with CA-TOP Secret for VM they are willing to share? Thank you in Advance! Thank you, Scott R Wandschneider Systems Programmer 3|| Infocrossing, a Wipro Company || 11707 Miracle Hills Drive, Omaha, NE, 68154-4457|| : 402.963.8905 || :847.849.7223 || : scott.wandschnei...@infocrossing.com **Think Green - Please print responsibly**
Re: CMDCOB PIPE looking for CBL
Peter, Also don't work, look the result please : (note, that first the CMDCBL EXEC, then next, the LOOKALL command, and found a lof of programs that have a CBL string) Ready; T=0.04/0.05 16:41:15 CMDCBL A No "CALL" Statements Found in COBOL Programs on Filemode A. Ready(00012); T=5.93/6.01 16:41:42 LOOKALL * COBOL A /CBL/ LOOKALL EXEC (c) Copyright IBM Corporation 1985, 1994. All Rights Reserved. Searching files * COBOL A Target = /CBL/ Please wait WARNING the data file $LOOKALL DATA A1 exists. Type C to CANCEL the search A to APPEND to the existing results R to REPLACE the existing results or press ENTER to select another filename. R Searching 1532 files commencing time 16:41:56 Immediate commands available WF = What File is being searched DC = Display current search Count HS = Halt Search > ACERCB99 COBOLA1 < Search target was found in this file > ACERTDF COBOLA1 < Search target was found in this file > ACERTMG COBOLA1 < Search target was found in this file > ACERTOMA COBOLA1 < Search target was found in this file > ACERTORN COBOLA1 < Search target was found in this file > ACERTPI COBOLA1 < Search target was found in this file > ACERTSP COBOLA1 < Search target was found in this file HOLDING GRV And here, the code : (A piece) /**/ /* COBCALL EXEC */ /* Scan COBOL Programs and Extract records containing the word "CALL".*/ /**/ COBCALL: Address COMMAND Parse Source . ctype ename etype emode . cobcall = ename 'DATA A' Arg fm . If fm = '' Then Do Say 'No Filemode Specified. A Filemode is Required.' Exit 4 End 'CMDCALL ESTATE * COBOL ' fm If rc \= 0 Then Exit rc 'PIPE COMMAND LISTFILE * COBCICS' fm '(NOHEADER ISODATE'||, '|CHANGE 68 / /0/|SPECS 1-17 1 W8-9 19|STEM PGM.' If rc \= 0 Then Exit rc 'ERASE' cobcall If rc \= 0 & rc \= 28 Then Exit rc totcnt = 0 Do n = 1 to pgm.0 Parse Var pgm.n fn ft date time . 'PIPE (NAME COBCALL ENDCHAR ?)', '| <' fn ft fm, /* Read COBOL Program */ '| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */ '| NLOCATE 8 /*/', /* Skip Comments */ '| CASEI LOCATE 8-* / CBL /',
Re: CMDCOB PIPE looking for CBL
Thanks Rich, Sergio > Date: Fri, 7 Jan 2011 21:08:33 -0500 > From: ric...@panix.com > Subject: Re: CMDCOB PIPE looking for CBL > To: IBMVM@LISTSERV.UARK.EDU > > On: Fri, Jan 07, 2011 at 07:45:29PM +0300,Sergio Lima Wrote: > > } We have a program here, got from this list, that is very usefull for us. > } Unfortunatelly I don't remember the author of this program, may be Kris... > } This program is wrote using PIPE command, and FIND all CALL instructions in > all programas with FILETYPE of COBOL. > } We already use this same program for FIND the EXEC commands in all JCL > here, and run very well. > } Now, We need, locate the CBL commands, and my program don't want work. > } The code is here : (A piece) > > } '| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */ > > This LOCATE is looking for blankCALL starting in col 8. Suppose the > CALL is in col 8, no match. > > -- > Rich Greenberg Sarasota, FL, USA richgr atsign panix.com + 1 941 378 2097 > Eastern time. N6LRT I speak for myself & my dogs only. VM'er since CP-67 > Canines: Val, Red, Shasta, Zero & Casey (At the bridge) Owner:Chinook-L > Canines: Red & Cinnar (Siberians) Retired at the beach Asst Owner:Sibernet-L
Re: CMDCOB PIPE looking for CBL
Hello Peter, Sorry about delay response, this don't work, Will try your next suggestion : CMDCBL A FPLSCB027E Entry point ANYCASE not found FPLSCA004I ... Issued from stage 4 of pipeline 1 name "COBCALL" FPLSCA001I ... Running "ANYCASE LOCATE 8-* / CBL /" 25 *-* 'PIPE (NAME COBCALL ENDCHAR ?)','| <' fn ft fm, /* Read COBOL Progra m */'| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */'| NLOCATE 8 /*/', /* Skip Comments */'| ANYCASE LOCATE 8-* / CBL /', /* Look for CALL Commands */'| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */'| C: COUNT LINES', /* Count Recor ds */'| >>' cobcall, /* Write to file */'? C:','| STRLITERAL APPEND /0/', /* Jus t in Case */'| VAR RECCNT', /* Record Count */'' /* End COBCALL */ +++ RC(-27) +++ 37 +++ totcnt = totcnt + reccnt DMSREX476E Error 41 running CMDCBL EXEC, line 37: Bad arithmetic conversion Ready(20041); T=0.01/0.02 16:36:29 Thanks very much, Sergio Date: Fri, 7 Jan 2011 13:36:18 -0500 From: peter.w...@ttc.ca Subject: Re: CMDCOB PIPE looking for CBL To: IBMVM@LISTSERV.UARK.EDU How about changing '| LOCATE ANYCASE 8-* / CALL /', to '| ANYCASE LOCATE 8-* / CALL /', Peter -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Sergio Lima Sent: January 7, 2011 11:45 To: IBMVM@LISTSERV.UARK.EDU Subject: CMDCOB PIPE looking for CBL Hello List, We have a program here, got from this list, that is very usefull for us. Unfortunatelly I don't remember the author of this program, may be Kris... This program is wrote using PIPE command, and FIND all CALL instructions in all programas with FILETYPE of COBOL. We already use this same program for FIND the EXEC commands in all JCL here, and run very well. Now, We need, locate the CBL commands, and my program don't want work. The code is here : (A piece) 'PIPE (NAME COBCALL ENDCHAR ?)', '| <' fn ft fm, /* Read COBOL Program */ '| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */ '| NLOCATE 8 /*/', /* Skip Comments */ '| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */ '| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */ '| C: COUNT LINES', /* Count Records */ '| >>' cobcall, /* Write to file */ '? C:', '| STRLITERAL APPEND /0/', /* Just in Case */ '| VAR RECCNT', /* Record Count */ '' /* End COBCALL */ We already have tried change the CALL by CBL in the line of LOCATE, and also, change 8-* to 1-*, and nothing. Please more one time, someone can help us in this question. Thanks very much, Sergio Lima Costa Sao Paulo - Brazil The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review retransmission dissemination or other use of or taking any action in reliance upon this information by persons or entities other than the intended recipient or delegate is strictly prohibited. If you received this in error please contact the sender and delete the material from any computer. The integrity and security of this message cannot be guaranteed on the Internet. The sender accepts no liability for the content of this e-mail or for the consequences of any actions taken on the basis of information provided. The recipient should check this e-mail and any attachments for the presence of viruses. The sender accepts no liability for any damage caused by any virus transmitted by this e-mail. This disclaimer is property of the TTC and must not be altered or circumvented in any manner.
Re: SFS
On Tuesday, 03/22/2011 at 12:18 EDT, Les Koehler wrote: > So with FILE CONTROL you can't replace co-dependent files in one atomic > operation, as one would do with the 'copyfile two-step' (love that phrase!)? Yes, you can (and in DIRECTORY CONTROL directories, too), but you need to become familiar with workunits, DMSGETWU, DMSPUSWU and DMSPOPWU. See the discussion of workunits in Chapter 12 of the CMS Application Dev. Guide. If memory serves, you get a new workunit, push it on the stack, do all your file updates, then pop the workunit. But it's been a long time. Just don't expect RENAME and ERASE to obey the rules. I think they are atomic operations. Alan Altmark z/VM and Linux on System z Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 mobile; 607.321.7556 alan_altm...@us.ibm.com IBM Endicott
Re: Simple RACF question re: LOGONBY & NOPASSWORD
On Tue, Mar 22, 2011 at 1:44 PM, Colin Allinson wrote: > Seems I am getting old and had forgotten that I had asked the self same > question before. You're probably going to ask that every 60 days until it's resolved :-)
Re: Simple RACF question re: LOGONBY & NOPASSWORD
Bruce Hayden wrote: > In the current releases (5.4 and 6.1), you'll need to generate a > periodic dummy activity on the userid to keep it alive. In a future > release, nopassword/nophrase users will not be revoked due to > inactivity. > Also, here is a couple of posts on this from a few years ago: > http://www.mail-archive.com/ibmvm@listserv.uark.edu/msg19233.html > http://www.mail-archive.com/ibmvm@listserv.uark.edu/msg19239.html Seems I am getting old and had forgotten that I had asked the self same question before. Thanks Bruce and Alan - sorry for my senility. With best regards / mit freundlichen Grüßen, Colin Allinson VM Systems Support Amadeus Data Processing GmbH
Re: Question to CMS plumbers (PIPE)
Florian, For what it is worth, this is what I found in an old copy of the distribution deck for this product: /* 5785-RAC - CMS PIPELINES - (C) COPYRIGHT IBM CORP 1986 */ /* LICENSED MATERIAL - PROGRAM PROPERTY OF IBM*/ It was distributed as a set of text files that needed to be linkedited. George Shedlock Jr AEGON Information Technology AEGON USA 502-560-3541 -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Les Koehler Sent: Wednesday, March 16, 2011 4:49 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Question to CMS plumbers (PIPE) I've heard of some shops doing that on MVS, but it requires privilege and management approval. Les Florian Bilek wrote: > Thanks for the feedback. I will forward the question to my IBM > representative. Let's see what that Delivery offering means. > > I read about this in the Author's Guide. I think even the Batch pipes are > > not going to be further improved, There should be some sort of "unsupport > ed" > way as it is done in CMS where you can replace the official version by th > e > current ones of MARIST. > > Thank's for the hints. > > Kind regards, > Florian >
Re: Simple RACF question re: LOGONBY & NOPASSWORD
No, NOPASSWORD will not stop revocation for inactivity. For that you need the z/OS-inspired PROTECTED attribute. IBM is aware of the requirement. Regards, Alan Altmark IBM Lab Services - Sent from my BlackBerry Handheld.
Re: Simple RACF question re: LOGONBY & NOPASSWORD
In the current releases (5.4 and 6.1), you'll need to generate a periodic dummy activity on the userid to keep it alive. In a future release, nopassword/nophrase users will not be revoked due to inactivity. Also, here is a couple of posts on this from a few years ago: http://www.mail-archive.com/ibmvm@listserv.uark.edu/msg19233.html http://www.mail-archive.com/ibmvm@listserv.uark.edu/msg19239.html On Tue, Mar 22, 2011 at 5:09 AM, Colin Allinson wrote: > We have a number of userids that are only used with logonby. > > I am aware that, if I set these up as NOPASSWORD, this prevents them getting > revoked as a result of someone erroneously trying to log on directly. > However, historically, we have not had this problem and these userids have > not been set up this way. > > We now have a different situation where one of these userids is only used > once per quarter and this breaks the installation rule of revoke after 60 > days of no use. > > Will NOPASSWORD also protect against this or do I have to generate a > periodic dummy activity on this userid to keep it alive. > > > With best regards / mit freundlichen Grüßen, > > Colin Allinson > VM Systems Support > Amadeus Data Processing GmbH > -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
Simple RACF question re: LOGONBY & NOPASSWORD
We have a number of userids that are only used with logonby. I am aware that, if I set these up as NOPASSWORD, this prevents them getting revoked as a result of someone erroneously trying to log on directly. However, historically, we have not had this problem and these userids have not been set up this way. We now have a different situation where one of these userids is only used once per quarter and this breaks the installation rule of revoke after 60 days of no use. Will NOPASSWORD also protect against this or do I have to generate a periodic dummy activity on this userid to keep it alive. With best regards / mit freundlichen Grüßen, Colin Allinson VM Systems Support Amadeus Data Processing GmbH
Re: SFS
Kris, Thanks for correcting my memory! Back in my IGS days I had an EXEC that would do it all for my service machines, via MSG from authorized users. I just sent the DVM the files and a list of files identified by Change Request number. The EXEC did all the work, including sending notification of success/failure to a Notify List. It could even back of a change, since all files were RENAMEd. Les Kris Buelens wrote: Alan forgot to mention one restriction: with a DIRC, only one user can get R/W access at a given time. And, the benefit: a DIRC can be placed in a dataspace. As for the trick to update a few files in one atomic operation: you had it almost right, except that COPYFILE has no NOUPDIRT option, but that isn't needed. The use of temp files and the RENAMEs with NOUPDIRT that care of that. With SFS however, RENAME does not honor the NOUPDIRT option. I never tried but you can use the CSL routine DMSFILEC, it has a NOCOMMIT option. At the end of the DMSFILEC calls, you then call DMSCOMM to commit all copy operations (or DMSROLLB if you change your mind). There is also a DMSRENAM CSL routine, (with a NOCOMMIT option) but that is no longer required thanks to DMSFILEC NOCOMMIT. 2011/3/22 Les Koehler So with FILE CONTROL you can't replace co-dependent files in one atomic operation, as one would do with the 'copyfile two-step' (love that phrase!)? Les Alan Altmark wrote: On Monday, 03/21/2011 at 10:54 EDT, Les Koehler wrote: Does FILE CONTROL thus have the same exposure to a file being changed 'under the covers' as a minidisk has, possibly causing an error for the other users? Is there something similar to the minidisk trick of: copyfile new1 version a pseudo1 name k (noupdir copyfile new2 version a pseudo2 name k (noupdir rename old1 version k save1 version k (noupdir rename old2 version k save2 version k (noupdir rename pseudo1 name k old1 version k (noupdir rename pseudo2 name k old2 version k (hope I got that right!) to avoid impacting other users? You never get ERROR 3 READING FILE with SFS and you don't use the "copyfile twostep" with SFS. You just change the files. If someone accesses the directory while you're updating, then they will see changed files on for files that are closed when they access it. In that respect, DIRCONTROL directories are better than minidisks. FILECONTROL directories reveal file changes immediately. I.e. you can open a file and see one set of content, then close and re-open and see something new. But you never see a mix and you never see the file while it is open and being written to - you see the old version. And if you erase a file in a FILECONTROL directory, all authorizations are lost. Alan Altmark z/VM and Linux on System z Consultant IBM System Lab Services and Training ibm.com/systems/services/labservicesoffice: 607.429.3323 mobile; 607.321.7556 alan_altm...@us.ibm.com IBM Endicott
