User's Manual

IBM OS WRITER TAPE ORGANIZATION
XEROX LASER PRINTING SYSTEMS TAPE FORMATS MANUAL 12-3
Procedure
The following steps are an example to create an OS Writer.
Step 1. The systems analyst begins by creating an OS Writer procedure that
will operate on the chosen job class, Class X. The OS Writer “proc”
for the example is shown in figure 12-.
Figure 12-1. Sample OS Writer “PROC” to create “XEROXWTR”
The Writer‘s name in this example is XEROXWTR. The Writer
creates reports with one header banner page (NUMHDR) and one
trailer banner page (NUMTRL). These values must correspond to the
JDL parameters OSHDP and OSTLP. All the parameters preceded
by an ampersand (&) may be replaced by the operator when he starts
up the Writer. Parameters preceded by an ampersand may also be
replaced by parameters on the EXEC statement of the JCL which
creates an OS Writer report. Note that many of the parameters
correspond to HDR2 label fields, such as record and block length,
and record format or structure. This Writer “proc” is read into the OS
system and catalogued to remain resident for later use.
Step 2. The next step in this procedure is to create the JCL for the job. In
particular, the user must specify a MSGCLASS of Class X on the //
JOB card. The DD statement to direct the report output to the Xerox
printer must also specify Class X, as shown in the following
statement:
//FT02F001 DD SYSOUT=X
This statement also shows that the output directed to device 2 will be
held in class X.
Step 3. The third step is to initialize the tape volume labels, since the OS
Writer updates tape labels but does not create these labels. The
INITT processor may be used for this purpose.
Step 4. The user then runs one or more jobs creating output reports in class
X.
//XEROX2 JOB (T,999,999,XEROX),CLASS=F
// EXEC PGM=IEBUPDTE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=SYS1.PROCLIB,DISP=SHR
//SYSUT2 DD DSN=SYS1.PROCLIB,DISP=SHR
//SYSIN DD DATA.DLM='XX'
./ REPL NAME=XEROXWTR,LIST=ALL,SSI=524601B7
./ NUMBER NEWI=1000,INCR=1000
//XEROXWTR PROC IMG=IMG1.SEPNAM=IEF0SC06.NUMHDR=1.NUMTRL=1.
// TRAIN=RN,WCLASS=PX,LABL=SL,
// BLK=1364,REC=136,RECFORM=VBM
//IEFPROC EXEC PGM=IEF0SC01,
// PARM='&WCLASS,&SEPNAM,&NUMHDR. . . .&NUMTRL'
//IEFRDER DD
UNIT=TAPE,LABEL=(.&LABL,EXPDT=98000),DSNAME=SYSOUT,
//
DISP=(NEW,KEEP),UCS=(&TRAIN,FOLD,VERIFY),FCB=(&IMG,VERIFY),
// DCB=(BLKSIZE=&BLK,LRECL=&REC,RECFM=&RECFORM,BUFNO=2)
XX
//