O JOB RACFUNLD executa o utilitário de unload (descarrega) as informações de do RACF e cria um dataset dos registros do unload. Este dataset de unload é usado como entrada para o processo de carregamento.
Este JCL é muito interessante, nele vamos pegar todas as informações dos usuários cadastrados no nosso RACF e gravar em um dataset, quem nunca mexeu com mainframe vai ser uma experiencia vem bacana ver rodar um job e ver o resultado que criou no final do processamento;
No meu TSO ficou assim, juntei o começo, vamos rodar ele em COMMAND coloquei SUB;
Rodou o job 1382;
Depois de 5 segundos recebo esta informação
Agora vamos ver como o job rodou, na tela inicial do TSO digite M
Digite 5 (enter)
Agora vamos pesquisar o job digite ST (enter);
Vamos pesquisar o nosso job digite FIND RACFUNLD (ou de PF8 e observe o nome até encontrar);
Encontramos digite S (enter) para acessar e ver o resultado dele;
Vendo o job, rodou ok;
O job que rodamos leu o dataset do RACF e criou um outro dataset com essas informações, vamos acessar este data set no começo do TSO digite 3.4 (enter);
Em Dsname Level colocamos o nome do nosso dataset CASE.RACF.FLATFILE (enter)
Do lado no nome do dataset embaixo de COMMAND digite B (enter)
O resultado do nosso job, ele leu o RACF e gravou em um dataset todas as informações do nosso RACF;
RACFUNLD - Vendo os Dados no Nosso RACF
Este JCL é muito interessante, nele vamos pegar todas as informações dos usuários cadastrados no nosso RACF e gravar em um dataset, quem nunca mexeu com mainframe vai ser uma experiencia vem bacana ver rodar um job e ver o resultado que criou no final do processamento;
//RACFUNLD JOB 'RACFUNLD',
// NOTIFY=&SYSUID,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6000K,
// COND=(4,LT)
//UNLOAD EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
//SYSPRINT DD SYSOUT=A,COPIES=1,DEST=U1018
//****************************************************
//* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
//* CHANGE CASE.RACFUNLD TO YOUR OWN
//****************************************************
//INDD1 DD DISP=SHR,DSN=SYS1.RACFDS.BACKUP
//OUTDD DD DSN=CASE.RACF.FLATFILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(70,10),RLSE),
// DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)No meu TSO ficou assim, juntei o começo, vamos rodar ele em COMMAND coloquei SUB;
File Edit Edit_Settings Menu Utilities Compilers Test Help
EDIT ADCD.LIB.JCL(RACFUNLD) - 01.03 Columns 00001 00072
Command ===> sub Scroll ===> CSR
****** ***************************** Top of Data ******************************
000200 //RACFUNLD JOB 'RACFUNLD',NOTIFY=&SYSUID,CLASS=A,
001100 // MSGCLASS=X,MSGLEVEL=(1,1),REGION=6000K,
001400 // COND=(4,LT)
001500 //UNLOAD EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
001600 //SYSPRINT DD SYSOUT=A,COPIES=1
001700 //****************************************************
001800 //* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
001900 //* CHANGE CASE.RACFUNLD TO YOUR OWN
002000 //****************************************************
002100 //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS.BACKUP
002210 //OUTDD DD DSN=CASE.RACF.FLATFILE,
002300 // DISP=(NEW,CATLG,DELETE),
002400 // SPACE=(CYL,(70,10),RLSE),
002500 // DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
****** **************************** Bottom of Data ****************************
F1=Help F2=Split F3=Exit F5=Rfind F6=Rchange F7=Up
F8=Down F9=Swap F10=Left F11=Right F12=CancelRodou o job 1382;
File Edit Edit_Settings Menu Utilities Compilers Test Help
EDIT ADCD.LIB.JCL(RACFUNLD) - 01.03 Columns 00001 00072
Command ===> sub Scroll ===> CSR
****** ***************************** Top of Data ******************************
000200 //RACFUNLD JOB 'RACFUNLD',NOTIFY=&SYSUID,CLASS=A,
001100 // MSGCLASS=X,MSGLEVEL=(1,1),REGION=6000K,
001400 // COND=(4,LT)
001500 //UNLOAD EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
001600 //SYSPRINT DD SYSOUT=A,COPIES=1
001700 //****************************************************
001800 //* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
001900 //* CHANGE CASE.RACFUNLD TO YOUR OWN
002000 //****************************************************
002100 //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS.BACKUP
002210 //OUTDD DD DSN=CASE.RACF.FLATFILE,
002300 // DISP=(NEW,CATLG,DELETE),
002400 // SPACE=(CYL,(70,10),RLSE),
002500 // DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
****** **************************** Bottom of Data ***************************
IKJ56250I JOB RACFUNLD(JOB01382) SUBMITTED
***Depois de 5 segundos recebo esta informação
17.38.26 JOB01382 $HASP165 RACFUNLD ENDED AT N1 MAXCC=0 CN(INTERNAL)
***Agora vamos ver como o job rodou, na tela inicial do TSO digite M
Menu Utilities Compilers Options Status Help
ISPF Primary Option Menu
Option ===> m
0 Settings Terminal and user parameters User ID . : IBMUSER
1 View Display source data or listings Time. . . : 17:39
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISR
6 Command Enter TSO or Workstation commands TSO logon : ISPFPROC
7 Dialog Test Perform dialog testing TSO prefix:
8 Workplace ISPF Object/Action Workplace System ID : ADCD
9 IBM Products IBM program development products MVS acct. : ACCT#
10 SCLM SW Configuration Library Manager Release . : ISPF 6.0
11 SDSF Spool Search and Display Facility
M More Additional IBM Products
Enter X to Terminate using log/list defaults
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=CancelDigite 5 (enter)
Menu Help
------------------------------------------------------------------------------
IBM Products Panel
Option ===> 5
1 SMP/E System Modification Program/Extended
2 ISMF Integrated Storage Management Facility
3 RACF Resource Access Control Facility
4 HCD Hardware Configuration Dialogs
5 SDSF Spool Search and Display Facility
6 IPCS Interactive Problem Control System
7 DITTO DITTO/ESA for MVS Version 1
8 RMF Resource Measurement Facility
10 OMVS MVS OpenEdition
11 RRS Resource Recovery Services
12 MQ WMQ Series Operations and Control
13 FMN File Manager 3.1.0perations and Control
14 WLM Workload Manager
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=CancelAgora vamos pesquisar o job digite ST (enter);
Display Filter View Print Options Help
-------------------------------------------------------------------------------
HQX7750 ----------------- SDSF PRIMARY OPTION MENU --------------------------
COMMAND INPUT ===> st SCROLL ===> CSR
DA Active users INIT Initiators
I Input queue PR Printers
O Output queue PUN Punches
H Held output queue RDR Readers
ST Status of jobs LINE Lines
NODE Nodes
LOG System log SO Spool offload
MAS Members in the MAS
JC Job classes ULOG User session log
SE Scheduling environments
RES WLM resources
Licensed Materials - Property of IBM
5694-A01 Copyright IBM Corp. 1981, 2008. All rights reserved.
US Government Users Restricted Rights - Use, duplication or
disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
PF 1=HELP 2=SPLIT 3=END 4=RETURN 5=IFIND 6=BOOK
PF 7=UP 8=DOWN 9=SWAP 10=LEFT 11=RIGHT 12=RETRIEVEVamos pesquisar o nosso job digite FIND RACFUNLD (ou de PF8 e observe o nome até encontrar);
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-17 (34)
COMMAND INPUT ===> find RACFUNLD SCROLL ===> CSR
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
IBMUSER TSU01366 IBMUSER 15 EXECUTION SYS1 SYS1
ADCDMST TSU01377 ADCDMST 15 EXECUTION SYS1 SYS1
CAMP055 TSU01381 CAMP055 15 EXECUTION SYS1 SYS1
SYSLOG STC01338 +MASTER+ 15 EXECUTION SYS1 SYS1
ZFS STC01340 ++++++++ 15 EXECUTION SYS1 SYS1
VTAM STC01341 START1 15 EXECUTION SYS1 SYS1
INIT STC01342 START2 15 EXECUTION SYS1 SYS1
INIT STC01343 START2 15 EXECUTION SYS1 SYS1
INIT STC01344 START2 15 EXECUTION SYS1 SYS1
INIT STC01345 START2 15 EXECUTION SYS1 SYS1
INIT STC01346 START2 15 EXECUTION SYS1 SYS1
INIT STC01347 START2 15 EXECUTION SYS1 SYS1
INIT STC01348 START2 15 EXECUTION SYS1 SYS1
INIT STC01349 START2 15 EXECUTION SYS1 SYS1
INIT STC01350 START2 15 EXECUTION SYS1 SYS1
INIT STC01351 START2 15 EXECUTION SYS1 SYS1
TSO STC01352 START1 15 EXECUTION SYS1 SYS1
PF 1=HELP 2=SPLIT 3=END 4=RETURN 5=IFIND 6=BOOK
PF 7=UP 8=DOWN 9=SWAP 10=LEFT 11=RIGHT 12=RETRIEVEEncontramos digite S (enter) para acessar e ver o resultado dele;
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 30-31 (31)
COMMAND INPUT ===> SCROLL ===> CSR
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
s RACFUNLD JOB01382 IBMUSER 1 PRINT A
$MASCOMM STC00001 START1 15 PRINT
PF 1=HELP 2=SPLIT 3=END 4=RETURN 5=IFIND 6=BOOK
PF 7=UP 8=DOWN 9=SWAP 10=LEFT 11=RIGHT 12=RETRIEVEVendo o job, rodou ok;
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF OUTPUT DISPLAY RACFUNLD JOB01382 DSID 2 LINE 0 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> CSR
********************************* TOP OF DATA **********************************
J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N
17.38.24 JOB01382 ---- WEDNESDAY, 25 NOV 2015 ----
17.38.24 JOB01382 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
17.38.24 JOB01382 ICH70001I IBMUSER LAST ACCESS AT 17:18:40 ON WEDNESDAY, NOVE
17.38.24 JOB01382 $HASP373 RACFUNLD STARTED - INIT 1 - CLASS A - SYS SYS1
17.38.24 JOB01382 IEF403I RACFUNLD - STARTED - TIME=17.38.24
17.38.26 JOB01382 IEF404I RACFUNLD - ENDED - TIME=17.38.26
17.38.26 JOB01382 $HASP395 RACFUNLD ENDED
------ JES2 JOB STATISTICS ------
25 NOV 2015 JOB EXECUTION DATE
14 CARDS READ
77 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
5 SYSOUT SPOOL KBYTES
0.02 MINUTES EXECUTION TIME
1 //RACFUNLD JOB 'RACFUNLD',NOTIFY=&SYSUID,CLASS=A,
// MSGCLASS=X,MSGLEVEL=(1,1),REGION=6000K,
// COND=(4,LT)
IEFC653I SUBSTITUTION JCL - 'RACFUNLD',NOTIFY=IBMUSER,CLASS=A,MSGCLASS
LT)
2 //UNLOAD EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
3 //SYSPRINT DD SYSOUT=A,COPIES=1
//****************************************************
//* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
//* CHANGE CASE.RACFUNLD TO YOUR OWN
//****************************************************
4 //INDD1 DD DISP=SHR,DSN=SYS1.RACFDS.BACKUP
5 //OUTDD DD DSN=CASE.RACF.FLATFILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(70,10),RLSE),
// DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
ICH70001I IBMUSER LAST ACCESS AT 17:18:40 ON WEDNESDAY, NOVEMBER 25, 2015
IEF236I ALLOC. FOR RACFUNLD UNLOAD
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 0A81 ALLOCATED TO INDD1
IGD100I 0A95 ALLOCATED TO DDNAME OUTDD DATACLAS ( )
IEF142I RACFUNLD UNLOAD - STEP WAS EXECUTED - COND CODE 0000
IEF285I IBMUSER.RACFUNLD.JOB01382.D0000101.? SYSOUT
IEF285I SYS1.RACFDS.BACKUP KEPT
IEF285I VOL SER NOS= ZARES1.
IEF285I CASE.RACF.FLATFILE CATALOGED
IEF285I VOL SER NOS= ZASYS1.
IEF373I STEP/UNLOAD /START 2015329.1738
IEF374I STEP/UNLOAD /STOP 2015329.1738 CPU 0MIN 01.28SEC SRB 0MIN 00.02S
IEF375I JOB/RACFUNLD/START 2015329.1738
IEF376I JOB/RACFUNLD/STOP 2015329.1738 CPU 0MIN 01.28SEC SRB 0MIN 00.02S
IRR67010I Specified option: NOLOCKINPUT
IRR67013I Option in effect: NOLOCKINPUT
IRR67182I SYS1.RACFDS.BACKUP associated with DD INDD1 has been successfully open
IRR67007I The blocksize was taken from DD INDD1 and the data set was closed.
IRR67150I Processing 1 RACF data set(s).
IRR67182I SYS1.RACFDS.BACKUP associated with DD INDD1 has been successfully open
IRR67164I INDD1 is a backup data set. All input data sets must be backup data se
IRR67093I Processing group profiles.
IRR67494I 14 group profile(s) have been unloaded.
IRR67093I Processing user profiles.
IRR67494I 56 user profile(s) have been unloaded.
IRR67093I Processing dataset profiles.
IRR67494I 42 dataset profile(s) have been unloaded.
IRR67093I Processing general profiles.
IRR67494I 1 general ACCTNUM profile(s) have been unloaded.
IRR67494I 2 general CBIND profile(s) have been unloaded.
IRR67494I 28 general DIGTCERT profile(s) have been unloaded.
IRR67494I 36 general DSNR profile(s) have been unloaded.
IRR67494I 21 general FACILITY profile(s) have been unloaded.
IRR67494I 1 general GXFACILI profile(s) have been unloaded.
IRR67494I 11 general PROGRAM profile(s) have been unloaded.
IRR67494I 1 general PTKTDATA profile(s) have been unloaded.
IRR67494I 4 general SECLABEL profile(s) have been unloaded.
IRR67494I 30 general SERVER profile(s) have been unloaded.
IRR67494I 50 general STARTED profile(s) have been unloaded.
IRR67494I 5 general SURROGAT profile(s) have been unloaded.
IRR67494I 5 general TSOAUTH profile(s) have been unloaded.
IRR67494I 9 general TSOPROC profile(s) have been unloaded.
IRR67494I 11 general UNIXMAP profile(s) have been unloaded.
IRR67402I Database unload utility has successfully finished processing.
******************************** BOTTOM OF DATA ********************************
PF 1=HELP 2=SPLIT 3=END 4=RETURN 5=IFIND 6=BOOK
PF 7=UP 8=DOWN 9=SWAP 10=LEFT 11=RIGHT 12=RETRIEVEO job que rodamos leu o dataset do RACF e criou um outro dataset com essas informações, vamos acessar este data set no começo do TSO digite 3.4 (enter);
Menu Utilities Compilers Options Status Help
ISPF Primary Option Menu
Option ===> 3.4
0 Settings Terminal and user parameters User ID . : IBMUSER
1 View Display source data or listings Time. . . : 17:46
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISR
6 Command Enter TSO or Workstation commands TSO logon : ISPFPROC
7 Dialog Test Perform dialog testing TSO prefix:
8 Workplace ISPF Object/Action Workplace System ID : ADCD
9 IBM Products IBM program development products MVS acct. : ACCT#
10 SCLM SW Configuration Library Manager Release . : ISPF 6.0
11 SDSF Spool Search and Display Facility
M More Additional IBM Products
Enter X to Terminate using log/list defaults
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=CancelEm Dsname Level colocamos o nome do nosso dataset CASE.RACF.FLATFILE (enter)
Menu RefList RefMode Utilities Help
Data Set List Utility
Option ===>
More: +
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . . CASE.RACF.FLATFILE
Volume serial . .
Data set list options
Initial View Enter "/" to select option
1 1. Volume / Confirm Data Set Delete
2. Space / Confirm Member Delete
3. Attrib / Include Additional Qualifiers
4. Total / Display Catalog Name
Display Total Tracks
When the data set list is displayed, enter either:
"/" on the data set list command field for the command prompt pop-up,
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=CancelDo lado no nome do dataset embaixo de COMMAND digite B (enter)
Menu Options View Utilities Compilers Help
DSLIST - Data Sets Matching CASE.RACF.FLATFILE Row 1 of 1
Command ===> Scroll ===> PAGE
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
b CASE.RACF.FLATFILE ZASYS1
***************************** End of Data Set list ****************************
F1=Help F2=Split F3=Exit F5=Rfind F7=Up F8=Down F9=Swap
F10=Left F11=Right F12=CancelO resultado do nosso job, ele leu o RACF e gravou em um dataset todas as informações do nosso RACF;
Menu Utilities Compilers Help
BROWSE CASE.RACF.FLATFILE Line 00000000 Col 001 080
Command ===> Scroll ===> PAGE
********************************* Top of Data **********************************
0102 DB2 SYSADM USE
0100 DB2 SYS1 1997-06-10 SYS1 NONE NO
0100 DSN710 SYS1 2001-06-13 IBMUSER NONE NO
0102 EMPLOYEE INTERNAL USE
0100 EMPLOYEE SYS1 1996-07-19 IBMUSER NONE NO
0120 EMPLOYEE 0000000500
0102 EXTERNAL PUBLIC USE
0100 EXTERNAL SYS1 1996-07-19 IBMUSER NONE NO
0120 EXTERNAL 0000000999
0102 IMWEB WEBADM USE
0102 IMWEB WEBSRV USE
0100 IMWEB SYS1 1996-07-19 IBMUSER NONE NO
0120 IMWEB 0000000205
0102 OMVSGRP OMVSKERN USE
0102 OMVSGRP TCPIP USE
0102 OMVSGRP TN3270 USE
0100 OMVSGRP SYS1 1995-06-08 IBMUSER NONE NO
0120 OMVSGRP 0000000001
0102 SPECIAL PRIVATE USE
0100 SPECIAL SYS1 1996-07-19 IBMUSER NONE NO
0120 SPECIAL 0000000255
0102 SSHDG SSHD USE
0100 SSHDG SYS1 2006-11-09 ADCDMST NONE NO
0120 SSHDG 0000000009
0102 SYSCTLG IBMUSER JOIN
0100 SYSCTLG SYS1 1995-06-06 IBMUSER NONE NO
0101 SYS1 SYSCTLG
0101 SYS1 VSAMDSET
0101 SYS1 TEST
0101 SYS1 DB2
0101 SYS1 DSN710
0101 SYS1 UUCPG
0101 SYS1 TTY
0101 SYS1 EMPLOYEE
0101 SYS1 EXTERNAL
0101 SYS1 IMWEB
0101 SYS1 OMVSGRP
0101 SYS1 SPECIAL
0101 SYS1 SSHDG
0102 SYS1 IBMUSER JOIN
0102 SYS1 OPEN1 USE
0102 SYS1 OPEN2 USE
0102 SYS1 OPEN3 USE
0102 SYS1 SYSADM USE
0102 SYS1 SYSOPR USE
0102 SYS1 START1 USE
0102 SYS1 START2 USE
0102 SYS1 DSN1WLM1 USE
0102 SYS1 FTPD USE
0102 SYS1 INETD USE
0102 SYS1 BPXOINIT USE
0102 SYS1 DB8GRFSH USE
0102 SYS1 ADCDMST USE
0102 SYS1 DB9GRFSH USE
0102 SYS1 DB9GENV5 USE
0102 SYS1 CAMP055 USE
0100 SYS1 1995-06-06 IBMUSER NONE NO
0120 SYS1 0000000000
0102 TEST ADCDA USE
0102 TEST ADCDB USE
0102 TEST ADCDC USE
0102 TEST ADCDD USE
0102 TEST ADCDE USE
0102 TEST ADCDF USE
0102 TEST ADCDG USE
0102 TEST ADCDH USE
0102 TEST ADCDI USE
0102 TEST ADCDJ USE
0102 TEST ADCDK USE
0102 TEST ADCDL USE
0102 TEST ADCDM USE
0102 TEST ADCDN USE
0102 TEST ADCDO USE
0102 TEST ADCDP USE
0102 TEST ADCDQ USE
0102 TEST ADCDR USE
0102 TEST ADCDS USE
0102 TEST ADCDT USE
0102 TEST ADCDU USE
0102 TEST ADCDV USE
0102 TEST ADCDW USE
0102 TEST ADCDX USE
0102 TEST ADCDY USE
0102 TEST ADCDZ USE
0100 TEST SYS1 1995-06-07 IBMUSER NONE NO
0100 TTY SYS1 2002-11-13 IBMUSER NONE NO
0120 TTY 0000000003
0102 UUCPG UUCP USE
0100 UUCPG SYS1 2002-11-10 IBMUSER NONE NO
----- corte ----
F1=Help F2=Split F3=Exit F5=Rfind F7=Up F8=Down F9=Swap
F10=Left F11=Right F12=Cancel
RACFUNLD - Vendo os Dados no Nosso RACF
0 comentários:
Enviar um comentário