Re: COBOL x ACB EXLST WITH JRNAD
Hi, I'm very grateful for the suggestions and statements. I'll go a little more research on the Internet, in particular CBT Tape. Thanks for you all. José ADAUTO Ribeiro Em 22/03/2012 22:08, Scott Ford < scott_j_f...@yahoo.com > escreveu: Ray, That was a good suggestion...the cbttapes Sent from my iPad Scott Ford Senior Systems Engineer www.identityforge.com On Mar 22, 2012, at 9:06 PM, Ray Mullins wrote: > On 2012-03-22 16:56, Jose ADAUTO Ribeiro wrote: >> Hi, >> >> Please, not diminishing the quick response from Sam Siegel, but someone has >> any other information (if that is possible)? >> >> I would like to use this facility to spend the minimum effort to alter a >> legacy of programs. >> This is part of a project I'm evaluating. >> > > Unfortunately, Sam is correct, and Steve's response (write a routine to be > called by the COBOL program) is probably the least intrusive method of > getting a journal exit to run in a COBOL environment. This, of course, > requires that every program needs to be changed. > > The other solutions I can think of which do not require changing and > recompiling every COBOL involve some pretty deep systems-level stuff to > intercept the OPEN (several ways of doing it). > > However, I don't think your request is that unique; I wonder if something has > been done already on the CBT tape, for example. I suggest some deeper > Internet searching. > > Cheers, > Ray > >> >>> Hi, >>> >>> Is there a way, in Cobol, to specify JRNAD module exit to access a VSAM >>> file ? >>> >>> In Assembler we can specify: >>> ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), >>> EXLST=EXLST01 >>> EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) >>> JRNEXIT DCCL8'EXITJRN' >>> >> >> I don't think that can be done w/out dropping down to an assembler module >> to handle the I/O. >> >> >>> Thanks in advance, >>> >>> Jose Adauto Ribeiro >>> > > > -- > M. Ray Mullins > Roseville, CA, USA > http://www.catherdersoftware.com/ > > German is essentially a form of assembly language consisting entirely of far > calls heavily accented with throaty guttural sounds. ---ilvi > French is essentially German with messed-up pronunciation and spelling. > --Robert B Wilson > English is essentially French converted to 7-bit ASCII. ---Christophe > Pierret [for Alain LaBonté] > > -- > 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: COBOL x ACB EXLST WITH JRNAD
Hi, Please, not diminishing the quick response from Sam Siegel, but someone has any other information (if that is possible)? I would like to use this facility to spend the minimum effort to alter a legacy of programs. This is part of a project I'm evaluating. José ADAUTO Ribeiro Em 22/03/2012 19:17, Sam Siegel < s...@pscsi.net > escreveu: On Thu, Mar 22, 2012 at 3:10 PM, Jose ADAUTO Ribeiro wrote: > Hi, > > Is there a way, in Cobol, to specify JRNAD module exit to access a VSAM > file ? > > In Assembler we can specify: > ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), > EXLST=EXLST01 > EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) > JRNEXIT DCCL8'EXITJRN' > I don't think that can be done w/out dropping down to an assembler module to handle the I/O. > Thanks in advance, > > Jose Adauto Ribeiro > > -- > 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
COBOL x ACB EXLST WITH JRNAD
Hi, Is there a way, in Cobol, to specify JRNAD module exit to access a VSAM file ? In Assembler we can specify: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'EXITJRN' Thanks in advance, Jose Adauto Ribeiro -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Running Security System
Thanks, Tom. I will do this. José ADAUTO Ribeiro Em 18/05/2011 09:31, Chicklon, Thomas < thomas.chick...@53.com > escreveu: Check out the RCVT control block. You'll find a pointer to it in the CVT. On my system running Top Secret, the RCVTID field changes to RTSS. I *think* on a RACF system it contains RCTV. Not sure what you would find with a systems running ACF2. Tom Chicklon >Hi, > >How do I find out, researching control blocks, preferably, if running Top >Secret or RACFon z / OS? This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Looking for Control Blocks (Subject Added)
Oh, you are very fast.
Thans Lindy Mayfield and Lizette Koehler, this is what I need (for now).
I will put some more doubts about Top Secret x RACF on z/OS, I hope you can
help me.
Thanks again.
José ADAUTO Ribeiro
Em 18/05/2011 09:18, Lindy Mayfield < lindy.mayfi...@ssf.sas.com > escreveu:
and in Rexx:
/* rexx */
CVT=c2d(storage(10,4));
RCVT=c2d(storage(d2x(CVT+x2d('3e0')),4));
/* Get acronym (1st 4 bytes) from the RCVT */
Secacr=storage(d2x(RCVT),4);
select
when Secacr='RCVT' then Secsys='RACF';
when Secacr='ACF2' then Secsys='ACF2';
when Secacr='RTSS' then Secsys='TopSecret';
otherwise Secsys='Unknown';
end;
Say 'Security Software is' Secsys'.'
Exit
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Lizette Koehler
Sent: Wednesday, May 18, 2011 3:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Looking for Control Blocks (Subject Added)
> Hi,
>
> How do I find out, researching control blocks, preferably, if running
> Top Secret or RACFon z / OS?
>
> Thanks in advance.
It depends on what you are looking for.
Do you want the ACEE, Data Sets? Are you going to use a program (written in
Assembler or PL/I) or something like REXX or IPCS to run the chains? Are you
looking for the STC information or what a user has?
The Data Areas manuals would be a good start.
Start with the CVT area and find the Security Product. Then go from there.
You can use IPCS on ACTIVE to follow the control blocks.
It would be helpful to know what specific function you are trying to research.
Lizette
--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
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
[no subject]
Hi, How do I find out, researching control blocks, preferably, if running Top Secret or RACFon z / OS? Thanks in advance. José ADAUTO Ribeiro -- 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: IRRSEQ00 x Top Secret
Thanks everyone, specially Scott Ford and Rob Schramm. This information is very helpfull. José ADAUTO Ribeiro Em 16/05/2011 15:29, Scott Ford < scott_j_f...@yahoo.com > escreveu: It works fine, we use it all the time. Our products tun on RACF,ACF2 and TSS and all use IRRSEQ00... Scott J Ford From: Rob Schramm To: IBM-MAIN@bama.ua.edu Sent: Mon, May 16, 2011 11:36:10 AM Subject: Re: IRRSEQ00 x Top Secret Doing the most cursory search .. the following doc would appear to indicate support for it... just do a find "r_admin" in the pdf. ftp://ftp.ca.com/caproducts/ldap/docs/ldapv3/eTrust_LDAP_Server_Release_Summary_30.pdf Rob Schramm Senior Systems Consultant Imperium Group LLC On Mon, May 16, 2011 at 11:15 AM, Jose Adauto Ribeiro wrote: > Hi, > > Anyone know if the API IRRSEQ00 (using ADMN_RUN_COMD) works in an > environment with Top Secret? > > Thanks in advance. > > José ADAUTO Ribeiro > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IRRSEQ00 x Top Secret
Hi, Anyone know if the API IRRSEQ00 (using ADMN_RUN_COMD) works in an environment with Top Secret? Thanks in advance. José ADAUTO Ribeiro -- 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
IEFSSREQ
I'm using IEFSSREQ with function 80 and 01 to read a list of sysouts. Now a days, we are non-MAS, but we will migrate soon. I'm including a call to IEFSSREQ function 79 (SAPI) to filter sysouts of specifcs MAS members. The SAPI returned block (SSS2) brings SSS2MBR with the MAS member name, witch I want to select the sysouts. I'm having problems on using function 79 on the same program that use functions 80 and 01. It works only if I call function 79 with TERMINATE option before call function 80. I have differents SSOB for the functions. Someone already have this kind of experience ? Is it possible ? Thanks in advance. Adauto -- 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
