Ituriel do Nascimento Neto,
Here is the JCL that I was talking about. You pass the the exiting userid
that you need to clone as a parm named BASEUSER and the new userid as
another parm CLONUSER. I split the statements into different files , so
that you can run them in the sequence you want to.
// SET BASEUSER='KOLUSU'
// SET CLONUSER='ITURIEL'
//*****************************************************************
//* create Racf statements to clone the userid **
//*****************************************************************
//STEP0100 EXEC PGM=SORT,PARM='JP1"&BASEUSER",JP2"&CLONUSER"'
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Your RACF unload Database file
//ADDUSER DD SYSOUT=*
//ALTUSER DD SYSOUT=*
//CONNECT DD SYSOUT=*
//PERMIT DD SYSOUT=*
//SYSIN DD *
OPTION COPY,VLSCMP
INCLUDE COND=((005,4,CH,EQ,C'0200',AND,010,8,CH,EQ,JP1),OR,
(005,4,CH,EQ,C'0220',AND,010,8,CH,EQ,JP1),OR,
(005,4,CH,EQ,C'0270',AND,010,8,CH,EQ,JP1),OR,
(005,4,CH,EQ,C'0102',AND,019,8,CH,EQ,JP1),OR,
(005,4,CH,EQ,C'0404',AND,062,8,CH,EQ,JP1),OR,
(005,4,CH,EQ,C'0505',AND,266,8,CH,EQ,JP1))
INREC IFTHEN=(WHEN=INIT,
BUILD=(001,004,
005,1100)),
IFTHEN=(WHEN=(5,4,CH,EQ,C'0200'),
BUILD=(1,4,
C' ADDUSER ',
JP2,C' OWNER(',30,8,C') DFLTGRP(',100,8,C') + ',
85:C' PASSWORD(',10,8,C') ',
C'NAME(''',79,20,C''')')),
IFTHEN=(WHEN=(5,4,CH,EQ,C'0220'),
BUILD=(1,4,
C' ALTUSER ',
JP2,C' TSO(PROC(',154,8,C')) ',
C' ACCTNUM(',19,8,C') + ',
85:C' SIZE(',163,8,C') ',
C' MAXSIZE(',176,10,C') ',
C' UNIT(',209,8,C') )')),
IFTHEN=(WHEN=(5,4,CH,EQ,C'0270'),
BUILD=(1,4,
C' ALTUSER ',
JP2,C' OMVS(UID(',15,10,C') ',
C' HOME(',30,10,C') ',
C' PROGRAM(',1054,8,C') )')),
IFTHEN=(WHEN=(5,4,CH,EQ,C'0102'),
BUILD=(1,4,
C' CONNECT ',
JP2,C' GROUP(',10,8,C') ',
C'OWNER(',10,8,C') ',
C'AUTHORITY(',28,8,C') ')),
IFTHEN=(WHEN=(5,4,CH,EQ,C'0404'),
BUILD=(1,4,
C' PERMIT ',
C' ',10,44,C' GEN + ',
85:C' CLASS(DATASET ) ',
C'ID(',62,8,C') ',
C'ACCESS(',71,8,C') ')),
IFTHEN=(WHEN=(5,4,CH,EQ,C'0505'),
BUILD=(1,4,
C' PERMIT ',
C' ',10,44,C' + ',
85:C' CLASS(',257,8,C') ',
C'ID(',266,8,C') ',
C'ACCESS(',275,8,C') '))
OUTFIL FNAMES=ADDUSER,INCLUDE=(5,8,CH,EQ,C' ADDUSER '),
VTOF,BUILD=(5,80,/,85,80)
OUTFIL FNAMES=ALTUSER,INCLUDE=(5,8,CH,EQ,C' ALTUSER '),
VTOF,BUILD=(5,80,/,85,80)
OUTFIL FNAMES=CONNECT,INCLUDE=(5,8,CH,EQ,C' CONNECT '),
VTOF,BUILD=(5,80)
OUTFIL FNAMES=PERMIT,INCLUDE=(5,8,CH,EQ,C' PERMIT '),
VTOF,BUILD=(5,80,/,85,80)
/*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
