RACF extract

2012-05-29 Thread Scott Ford
All:
 
I am writing an assembler routine to perform a RACFROUTE REQUEST=EXTRACT 
...below:
 
 OPEN  FILEIN
 OPEN  (SYSPRINT,(OUTPUT))
READM    DS    0H
 GET   FILEIN,RECIN
 MVC   RECOUT(11),=C'PROCESSING '
 MVC   RECOUT+11(10),RECIN
 PUT   SYSPRINT,RECOUT
 XC    UID,UID
 MVC   UID(8),RECIN
RAC2 RACROUTE REQUEST=EXTRACT,TYPE=EXTRACT,CLASS='USER',WORKA=RACW,X
   ENTITY=UID,FIELDS=FLDLST,SEGMENT='TSO',RELEASE=2.2,MF=S
 LTR   R15,R15
 BNZ   BADEXTR
 MVI   RECOUT,C' '
 MVC   RECOUT+1(132),RECOUT
 
 
** dcs and ds **
 
RECIN    DS    CL80
RECOUT   DS    CL133
SAVEAREA DS    18F
UID  DS    CL8
FLDLST   DC    A(5)
 DC    CL8'TACCT'
 DC    CL8'TDEST'
 DC    CL8'THCLASS'
 DC    CL8'TJCLASS'
 DC    CL8'TLPROC'
RACW DS    CL512
WORKAREA DS    128F
SAVEREA  DC    18F'0'
FILEIN   DCB   DDNAME=INPUT,MACRF=(GM),DSORG=PS,EODAD=EOJ
SYSPRINT DCB   DDNAME=SYSPRINT,MACRF=(PM),DSORG=PS,LRECL=133
 IRRPRXTW
I am trying to extract a users TSO segment information, I will need to be doing 
them all, but my question is this:

I know R1 contains the result of the extract..but with SEGMENT=  what maps to 
the segment fields like in the RACF templates that the Extract refers me to..

Sorry all, first serious RACF program...but i need some assistance 

Scott J Ford
Software Engineer
http://www.identityforge.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN


Re: RACF extract

2012-05-29 Thread Walt Farrell
First, I suggest that for RACF-related questions you use RACF-L rather than 
IBM-MAIN, as there will be more RACF-knowledgeable responders there.

But to answer your question, EXTWOFF in the returned extract work area (RXTW, 
see RACF Data Areas) gives you the offset within the returned data area to the 
data you asked for. 

At that offset within the RXTW you'll get one chunk of data for each field you 
asked for. You can figure out what each chunk of data should look like using 
the template information and the information provided with the description of 
the REQUEST=EXTRACT keyword in the RACROUTE REQUEST=EXTRACT documentation.

-- 
Walt

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN


Re: RACF extract

2012-05-29 Thread Scott Ford
Walt,

Thank you very much on both accounts..

Scott ford
www.identityforge.com

On May 29, 2012, at 3:02 PM, Walt Farrell walt.farr...@gmail.com wrote:

 First, I suggest that for RACF-related questions you use RACF-L rather than 
 IBM-MAIN, as there will be more RACF-knowledgeable responders there.
 
 But to answer your question, EXTWOFF in the returned extract work area (RXTW, 
 see RACF Data Areas) gives you the offset within the returned data area to 
 the data you asked for. 
 
 At that offset within the RXTW you'll get one chunk of data for each field 
 you asked for. You can figure out what each chunk of data should look like 
 using the template information and the information provided with the 
 description of the REQUEST=EXTRACT keyword in the RACROUTE REQUEST=EXTRACT 
 documentation.
 
 -- 
 Walt
 
 --
 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