¢ $$ EOJ
/*
/&
* $$ EOJ
z/OS
**
//MAGECASM JOB CLASS=A,MSGCLASS=W
**//STEP1 EXEC PGM=MMPCRE,REGION=1024K
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
* * * * * * * * DD'a for VSAM files (if VSAM)
//SYS005 DD DSN=&&OSJOB,DISP=(NEW,PASS),UNIT=SYSDA
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000),SPACE=(CYL,5)
//SYS007 DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYS006 DD *
MMPCRE 681 CICS MAGEC OS VSAM
-MAGECINC XXXXXXXX member name
/*
//STEP2 EXEC PGM=IFOX00
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
//SYSLIB DD DSN=CICS.MACLIB,DISP=SHR
// DD DSN=CICS.SOURCE,DISP=SHR
// DD DSN=MAGEC.LOADLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,50))
//SYSPRINT DD SYSOUT=*
//SYSGO DD DUMMY
//SYSPUNCH DD DSN=&SYSGO,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(80,(200,100))
//SYSIN DD DSN=&&OSJOB,DISP=(OLD,DELETE),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000),SPACE=(CYL,5)
/*
//LKED EXEC PGM=IEWL,PARM=(NCAL),COND=(8,LT)
//SYSLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
//SYSLIN DD DSN=&SYSGO,DISP=(OLD,DELETE)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20))
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=MAGEC.LOADLIB(XXXXXXXX),DISP=SHR
/*
//
#
MSKCREAT
##
Generate a Mask
The MSKCREAT jobstream is used to generate a mask so that it may be used by an MMP. The specifications and screen (cont.)
format are obtained from the MAGEC Dictionary where they are stored as the developer "draws" the mask (online function (cont.)
code MSKDEF) and enters editing criteria for the screen fields.
NOTE:
**
The online function MSKCRE accomplishes the same thing as the offline MSKCREAT jobstream. The offline jobstream is (cont.)
provided for administrative purposes to enable scheduling MSKCREAT's to be executed at night for lists of mask (cont.)
numbers.
The output from the MSKCREAT jobstream is:
MSK file record
A mask initialization record used at execution time to format a screen.
Cobol definition
A "copybook" catalogued to the MAGEC ALG file to be -MAGECINC'd by an MMP.
Listing
A listing showing screen field specs and errors (if any).
SHD file record
The SHD record is updated to show the date and time the mask was generated.
The jobstream consists of one step:
MSKCRE
Extract data and sort it, generate the mask and "copybook".
##
MSKCRE Control Cards
A control card is accepted into the first step to indicate which mask is to be generated and what kind of Library. The format of the control card is:
Columns Description
1 - 9
Constant 'MSKCREAT'.
10 - 12
Mask (SHD) Number.
Control card example:
MSKCREAT nnn
MSKCREAT Jobstream
**
VSE
**
* $$ JOB JNM=MSKCREAT,CLASS=F
*** $$ PRT CLASS=V
// JOB MSKCREAT Generate MAGEC Mask
// EXEC PROC=MAGECLIB -pvt. libs & DLBL's for dictionary
// ASSGN SYS007,SYSLST
// ASSGN SYS006,SYSIPT
// DLBL SORTWK01,'SORTED.WORK.FILE',0,SD
// EXTENT SYS001,volid,1,0,548000,4000
// ASSGN SYS001,DISK,VOL=xxxxxx,SHR
// EXEC MSKCRE,SIZE=(AUTO,20K)
MSKCREAT ...
/*
/&
* $$ EOJ
z/OS
**
//MSKCREAT JOB CLASS=A,MSGCLASS=...
**//STEP1 EXEC PGM=MSKCRE,REGION=1M
//STEPLIB DD DSN=MAGEC.LOADLIB.DISP=SHR
* * * * * * * * DD's for dictionary files
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSOUT DD SYSOUT=*
//SYS007 DD SYSOUT=*
//SYS006 DD *
MSKCREAT ...
/*
//
PC
**
At the prompt, enter: (xxx = Mask number)
MSKCREAT xxx
#
MSKDOC
##
Print Mask & Documentation
The MSKDOC batch utility program may be used to print a hardcopy image of the mask from the MAGEC Dictionary files and (cont.)
associated technical documentation. The mask need not have been created yet (via the MSKCREAT process) since the Screen (cont.)
format and all specifications are taken from the Dictionary entries produced as the developer enters the specifications (cont.)
and "draws" the mask (via MSKDEF).
The program accepts a control card which specifies which mask is to be printed. Multiple control cards may be input to (cont.)
any one run. MSKDOC produces complete documentation for your online application, including screen format, attribute (cont.)
controls, customization, business rules, and security requirements. The report is neatly formatted. If you prefer some (cont.)
other report format for your hardcopy documentation MAGEC Software will make the source code (Cobol) for MSKDOC (cont.)
available to you so that you can create your own documentation printing program.
##
MSKDOC Control Cards
Columns
Description
1 - 7
Constant 'MSKDOC '.
8 - 10
Mask (SHD) Number.
12 - 80
Blank.
Control card example:
MSKDOC 001
MSKDOC Jobstream
**
**
**
VSE
**
* $$ JOB JNM=MSKDOC,CLASS=_
*** $$ PRT CLASS=V
// JOB MSKDOC
// EXEC PROC=MAGECLIB -pvt. libs. and dictionary DLBL's
// ASSGN SYS006,SYSIPT
// ASSGN SYS007,SYSLST
// EXEC MSKDOC,SIZE=(AUTO,20K)
MSKDOC mmm
/*
/&
* $$ EOJ
z/OS
**
//MSKDOC JOB CLASS=_,MSGCLASS=_
**//STEP1 EXEC PGM=MSKDOC
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
* * * * * * * * DD's for dictionary files
//SYSOUT DD SYSOUT=W
//SYS007 DD SYSOUT=W
//SYS006 DD *
MSKDOC mmm
/*
//
PC
**
Edit, as necessary, the control cards found in the local disk drive (LCLDRV) in the file named:
\MAGMF\MSKDOC.RDR
At the prompt enter:
MSKDOCEX
#
MSKPRT
##
Print a Mask Image
The batch utility program MSKPRT may be used to print an image of any mask on the MAGEC MSK file. The mask must have (cont.)
been created (via MSKCREAT) in order for it to have a record on the MSK file. To print an image of a mask (plus (cont.)
technical documentation for it) whether or not it has been created via MSKCREAT, the utility program *MSKDOC* may be (cont.)
used.
Whereas MSKDOC produces an image as it appears to the developer on the online MSKDEF screen, MSKPRT produces an image as it appears to the application user.
MSKPRT accepts a control card to specify which mask it is to print. Multiple control cards may be input to one run. The control card format is as shown below:
##
MSKPRT Control Cards
Columns
Description
next: util12.md.txt