As suggested by someone, you can use SORT to generate the appropriate commands. I've build the following JCL, which you can use as a starting point to your needs.
//* //* CLEANUP //* //SUBSET EXEC PGM=IEFBR14 //SORTOF1 DD DSN=SO.S1.RACF.REG200,DISP=(MOD,DELETE), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF2 DD DSN=SO.S1.RACF.REG220,DISP=(MOD,DELETE), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF3 DD DSN=SO.S1.RACF.REG270,DISP=(MOD,DELETE), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF4 DD DSN=SO.S1.RACF.REG102,DISP=(MOD,DELETE), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF5 DD DSN=SO.S1.RACF.REG404,DISP=(MOD,DELETE), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF6 DD DSN=SO.S1.RACF.REG505,DISP=(MOD,DELETE), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //* //* FILTRA REGISTROS //* //SEPARA EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=YOUR.IRRDBU00.UNLOAD.FILE,DISP=SHR //SORTOF1 DD DSN=SO.S1.RACF.REG200,DISP=(,CATLG), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF2 DD DSN=SO.S1.RACF.REG220,DISP=(,CATLG), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF3 DD DSN=SO.S1.RACF.REG270,DISP=(,CATLG), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF4 DD DSN=SO.S1.RACF.REG102,DISP=(,CATLG), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF5 DD DSN=SO.S1.RACF.REG404,DISP=(,CATLG), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SORTOF6 DD DSN=SO.S1.RACF.REG505,DISP=(,CATLG), // UNIT=(3390),SPACE=(CYL,(1,10),RLSE) //SYSIN DD * OPTION COPY,VLSHRT,SPANINC=RC0 OUTFIL INCLUDE=(005,4,CH,EQ,C'0200',AND, 010,8,CH,EQ,C'USERID'),FILES=1, CONVERT,OUTREC=(5,300),VLFILL=C' ' OUTFIL INCLUDE=(005,4,CH,EQ,C'0220',AND, 010,8,CH,EQ,C'USERID'),FILES=2, CONVERT,OUTREC=(5,300),VLFILL=C' ' OUTFIL INCLUDE=(005,4,CH,EQ,C'0270',AND, 010,8,CH,EQ,C'USERID'),FILES=3, CONVERT,OUTREC=(5,1100),VLFILL=C' ' OUTFIL INCLUDE=(005,4,CH,EQ,C'0102',AND, 019,8,CH,EQ,C'USERID'),FILES=4, CONVERT,OUTREC=(5,300),VLFILL=C' ' OUTFIL INCLUDE=(005,4,CH,EQ,C'0404',AND, 062,8,CH,EQ,C'USERID'),FILES=5, CONVERT,OUTREC=(5,300),VLFILL=C' ' OUTFIL INCLUDE=(005,4,CH,EQ,C'0505',AND, 266,8,CH,EQ,C'USERID'),FILES=6, CONVERT,OUTREC=(5,300),VLFILL=C' ' //* //ADDUSER EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=SO.S1.RACF.REG200,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL OUTREC=(C' ADDUSER ', 06,8,C' OWNER(',26,8,C') DFLTGRP(',096,8,C') + ', /, C' PASSWORD(',06,8,C') ', C'NAME(''',75,20,C''')') END //ALTUTSO EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=SO.S1.RACF.REG220,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL OUTREC=(C' ALTUSER ', 06,8,C' TSO(PROC(',150,8,C')) ', C' ACCTNUM(',15,8,C') + ', /, C' SIZE(',159,8,C') ', C' MAXSIZE(',172,10,C') ', C' UNIT(',205,8,C') )') END //ALTUOMVS EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=SO.S1.RACF.REG270,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTREC FIELDS=(C' ALTUSER ', 06,8,C' OMVS(UID(',15,10,C') ', C' HOME(',26,10,C') ', C' PROGRAM(',1050,8,C') )') END //CONNECT EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=SO.S1.RACF.REG102,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTREC FIELDS=(C' CONNECT ', 15,8,C'GROUP(',06,8,C') ', C'OWNER(',06,8,C') ', C'AUTHORITY(',24,8,C') ') END //PERMIT EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=SO.S1.RACF.REG404,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL OUTREC=(C' PERMIT ', C' ',6,44,C' GEN + ', /, C' CLASS(DATASET ) ', C'ID(',58,8,C') ', C'ACCESS(',67,8,C') ') END //PERMIT EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=SO.S1.RACF.REG505,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL OUTREC=(C' PERMIT ', C' ',6,44,C' + ', /, C' CLASS(',253,8,C') ', C'ID(',262,8,C') ', C'ACCESS(',271,8,C') ') END Atenciosamente / Regards / Saludos Ituriel do Nascimento Neto Banco Bradesco S/A 4254/DPCD Alphaville Engenharia de Software - Sistemas Operacionais Mainframes Tel: 55 11 4197-2021 Fax: 55 11 4197-2814 <HTML><font face="Tahoma" size="1"><HR>AVISO LEGAL <br>Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação. <HTML><font face="Tahoma" size="1"><HR>LEGAL ADVICE <br>This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void. ---------------------------------------------------------------------- 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