where: nnnnnnnn
= member name
mmmmmmmm
= modifier
eeeee
= element name
ddd...ddd
= up to 30 character dataname
zzz...zzz
= up to 20 character domain name
The first example above (LIB) will find all references to a member (copybook). The second example (ELT) will find all (cont.)
references to an Element, whether it is in the primary Data Class for an application or just a joined Data Class. The (cont.)
third example (DIT) will find all references to a Data Item (field).
When searching for references to a DIT, you have the option of giving an exact argument (dataname) or a generic (cont.)
argument. Generic arguments can be given using the dot ( . ) as a "wild card", for example:
-MAGECUSE DIT CUS01-Z.P
would find references to CUS01-ZIP and to CUS01-ZAP, etc.
-MAGECUSE DIT ......ZIP-CODE
would find references to CUS01-ZIP-CODE and IVC01-ZIP-CODE, etc.
You can also use a leading or trailing (or both) asterisk ( * ) to make your search even more generic, for example:
-MAGECUSE DIT CUS01-ZIP*
would find references to CUS01-ZIP, CUS01-ZIP-CODE, CUS01-ZIPPER, etc.
##
Global Changes for Domains
In addition to listing the where-used report for a Domain, you can globally change all Data Items belonging to a (cont.)
Domain. The global change function will make the necessary changes to ensure that all the Data Items belonging to a (cont.)
Domain have compatible definitions [with the Domain's]. To do a global change, execute MAGECLBR using a control cards (cont.)
as:
-MAGECGBL DOM zzzzzzzzzzzzzzzzzzzz
where: zzz...zzz
= up to 20 character domain name
For example, to change all zip codes from five digits to nine digits [assuming that they are all defined as belonging to the Domain named ZIP-CODE, which you have defined].
1) alter the definition of the Domain, ZIP-CODE using the online DOMCHG function
2) execute MAGECLBR using the -MAGECGBL DOM ZIP-CODE control card
You should note that while the global change facility will alter the DIT definitions for all ZIP-CODE items, it will (cont.)
not alter the ELT, DCL, KYF, or copybook definitions. You may well need to change record or element lengths to (cont.)
accommodate a longer zip code field within the records. Also, you might need to change screen fields to accommodate the (cont.)
longer fields.
MAGECLBR Jobstream
VSE
**
* $$ JOB JNM=MAGECLBR,CLASS=F
*** $$ PRT CLASS=V
// JOB MAGECLBR
// EXEC PROC=MAGECLIB -pvt. libs & DLBL's for dictionary
// ASSGN SYS006,READER
// ASSGN SYS005,PUNCH
// ASSGN SYS007,SYSLST
// EXEC MAGECLBR,SIZE=(AUTO,10K)
-MAGEC... ------Control Card--------
--------Data Cards--------(if appropriate)
/*
/&
* $$ EOJ
z/OS
**
//MAGECLBR JOB CLASS=0,MSGCLASS=0
**//STEP1 EXEC PGM=MAGECLBR
-or- PGM=MAGECLBR,PARM='READONLY' (opens files read only)
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
* * * * * * * * DD'S for dictionary files
//SYSOUT DD SYSOUT=W
//SYS005 DD DSN=.....,DCB=(BLKSIZE=....) -- "punch" output
//SYS007 DD SYSOUT=W
//SYS006 DD *
-MAGEC... --------Control Card-------
--------Data Cards--------(if appropriate)
/*
//
PC
**
Edit, as necessary, the control cards found in the file named:
\MAGxx\MAGECLBR.RDR
At the prompt, enter:
MAGLBREX
#
MAGINIT
##
Initialize a VSAM File
The MAGINIT batch program is used to initialize a VSAM file after the file has been defined in the VSAM catalog (master (cont.)
or user) for the first time. MAGINIT can be used for any VSAM file that is defined to the VSAM catalog, but will not be (cont.)
initially loaded using the IDCAMS utility.
If you are using PC MAGEC you do not need to execute IDCAMS to define your new file, MAGINIT actually does the jobs of (cont.)
both creating and initializing your file. It extracts the file specifications fom the MAGEC dictionary DCL, KYF, and (cont.)
ELT definitions; therefore, you must first enter them.
MAGINIT Jobstream
**
VSE
**
* $$ JOB JNM=MAGINIT,CLASS=F
*** $$ PRT CLASS=V
// JOB MAGINIT INITIALIZE A VSAM FILE
// ASSGN SYS020,DISK,VOL=......
// DLBL NEWFILE,'....................',,VSAM
// EXEC MAGINIT,SIZE=(AUTO,10K)
/*
/&
* $$ EOJ
z/OS
**
**//MAGINIT JOB CLASS=0,MSGCLASS=0
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
//STEP1 EXEC PGM=MAGINIT
//NEWFILE DD DSN=....................,DISP=OLD
//
PC
**
At the prompt enter:
MAGINIT xxx
where: xxx
= the Data Class to be initialized
#
MALUTIL/MALRPT
##
MAGEC Activity Logging Utility
The MALUTIL batch program is used to extract statistics from the MAGEC Activity Logging file (MAL) and to add them to (cont.)
the tape file which holds cumulative statistics records. For complete documentation on this utility and on MALRPT refer (cont.)
to the MAGEC Security System documentation. The MAGEC Activity Logging must be turned on in order for there to be any (cont.)
statistics on the file. To turn logging on or off, set the MAG-ACT-LOG parameter in MAGEC Table #243 to YES or NO, as (cont.)
appropriate. Use the online command
243CHG MAG-ACT-LOG
##
MAGEC Activity Log Report Utility
The MALRPT batch utility produces a variety of reports from the cumulative Logging statistics data on the tape file (cont.)
produced by the MALUTIL program. For complete documentation on it refer to the MAGEC "Security" (cont.)
chapter.
**
NOTE:
**
Refer to the topic Activity Logging in the "Security" chapter of this *Programmer's Reference Guide* for details regarding MALRPT control card formats.
MALUTIL Jobstream
**
VSE
**
* $$ JOB JNM=MALUTIL,CLASS=F
*** $$ PRT CLASS=V
// JOB MALUTIL EXTRACT MAL- APPEND TO HISTORY TAPE
// EXEC PROC=MAGECLIB -pvt libs & DLBL's for dictionary
// TLBL SYS010,'MAGEC.ACTIVITY.LOG',99/365
// ASSGN SYS010,IGN (input tape IGN'd first run)
// TLBL SYS011,'MAGEC.ACTIVITY.LOG',99/365
// ASSGN SYS011,181
// DLBL SYS020,'WORK.FILE',0,SD
// EXTENT SYS020,xxxxxx,1,0,548000,4000
// ASSGN SYS020,DISK,VOL=xxxxxx,SHR
// EXEC MALUTIL
/*
/& EOJ
* $$ EOJ
z/OS
**
//MALUTIL JOB CLASS=_,MSGCLASS=_
**//STEP1 EXEC PGM=MALUTIL
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
* * * * * * * * DD'S for dictionary files
//SYSOUT DD SYSOUT=W
//SYS020 DD DSN=&&WORKFIL,SPACE=(100,(100,100)),
// UNIT=SYSDA,DISP=(NEW,DELETE),
// DCB=(LRECL=60,BLKSIZE=6000,RECFM=FB)
//SYS010 DD DSN=MAGEC.ACTIVITY.LOG(0),DISP=OLD,UNIT=TAPE,
// LABEL=(1,SL,EXPDT=99000),
// DCB=(PTR,GDG,LRECL=60,BLKSIZE=6000,RECFM=FB)
//SYS011 DD DSN=MAGEC.ACTIVITY.LOG(+1),DISP=(NEW,CATLG),
// UNIT=TAPE,
// DCB=(PTR,GDG,LRECL=60,BLKSIZE=6000,RECFM=FB),
// LABEL=(1,SL,EXPDT=99000)
//
NOTE:
**
'SYS010 DD DUMMY' used the first time this is run.
**
MALRPT Jobstream
VSE
**
* $$ JOB JNM=MALRPT,CLASS=F
*** $$ PRT CLASS=V
// JOB MALRPT PRINT REPORT FROM MAL HISTORY TAPE
next: util06.md.txt