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
