The command line parameter processing is slightly different when running on a z/OS machine. The input (/I), output (/O), and listing (/L) file parameters must specify a DD: name that is defined in your JCL.
DD name |
Description |
DD:FSISYS |
The name of the INI file used by the METRESRC utility |
DD:FONTLIB |
The name of the PDS containing the Xerox font resources |
DD:IMGLIB |
The name of the PDS containing the Xerox image resources |
DD:LGOLIB |
The name of the PDS containing the Xerox logo resources |
DD:PFRMLIB |
The name of the PDS containing the Xerox form resources |
DD:TRACE |
The name of the TRACE file |
Assume you want to read a Metacode print stream and produce a new Metacode print stream that contains the required Xerox fonts resources and you want the Xerox fonts to be saved on the printer after printing. For this example, assume the following environment on the z/OS machine:
FSI.V111.RPEX1.GENPRINT.PRTBAT1 |
The Metacode print stream |
FSI.V111.RPEX1.DEFLIB(FSISYS) |
The FSISYS INI file |
FSI.V111.RPEX1.FONTLIB |
The Xerox fonts for the print stream |
FSI.V111.RPEX1.METRESC1.TRACE |
The trace file to produce |
FSI.V111.RPEX1.METRESC1.LIST |
The listing file to produce |
FSI.V111.RPEX1.GENPRINT.PRTBAT1.NEW |
The new print stream to produce |
The JCL for the METRESRC utility might look like this:
//USERIDA JOB (33005),'DAP - ',CLASS=T,MSGCLASS=X,
// NOTIFY=USERID
//*
// SET HLQ='FSI.V111' <== SET HIGH LEVEL QUALIFIER
// SET RES='RPEX1' <== SET RESOURCE (E.G. RPEX1, UTEX1)
//*
// JCLLIB ORDER=&HLQ..PROCLIB
//*
//******************************************************************
//* PROGRAM : METRESRC
//* PURPOSE : TO DETERMINE THE XEROX RESOURCES USED BY A METACODE
//* PRINT STREAM.
//*
//* PARMS : /I= NAME OF METACODE PRINT FILE (REQUIRED)
//* /O= NAME OF METACODE PRINT FILE TO CREATE WITH
//* RESOURCES FILES ADDED
//* /L= NAME OF LISTING FILE CONTAINING NAMES OF RESOURCE
//* FILES USED (/O OR /L PARAMETERS ARE REQUIRED)
//* (BOTH /O AND /L CAN BE USED)
//* /INI= NAME OF INI FILE CONTAINING XEROX PRINTER INI
//* GROUP (OPTIONAL, DEFAULT IS DD:FSISYS)
//* /P= NAME OF XEROX PRINTER INI GROUP
//* (OPTIONAL, DEFAULT IS XER)
//* /RESTYPE= TYPE(S) OF RESOURCE FILES TO SEARCH FOR
//* (SEPARATED BY COMMAS):
//* FNT - XEROX FONT
//* IMG - XEROX IMAGE
//* FRM - XEROX FORM
//* LGO - XEROX LOGO
//* ALL - ALL XEROX FILES
//* (SAME AS /RESTYPE=FNT,IMG,FRM,LGO)
//* (OPTIONAL, DEFAULT IS ALL)
//* /SAVE SAVE DOWNLOADED FILES PERMANENTLY ONTO PRINTER
//* (OPTIONAL, DEFAULT IS DOWNLOADED FILES ARE
//* DELETED FROM PRINTER)
//*
//****************************************************************
//*
//METRESCD EXEC PGM=IEFBR14
//LIST DD DSN=&HLQ..&RES..METRESC1.LIST,
// UNIT=SYSDA,SPACE=(TRK,0),
// DISP=(MOD,DELETE,DELETE)
//TRACE DD DSN=&HLQ..&RES..METRESC1.TRACE,
// UNIT=SYSDA,SPACE=(TRK,0),
// DISP=(MOD,DELETE,DELETE)
//OUTFILE DD DSN=&HLQ..&RES..GENPRINT.PRTBAT1.NEW,
// UNIT=SYSDA,SPACE=(TRK,0),
// DISP=(MOD,DELETE,DELETE)
//*
//METRESC1 EXEC PGM=METRESRC,
PARM='/ /I=DD:INFILE /L=DD:LIST /O=DD:OUTFILE /SAVE'
//STEPLIB DD DSN=&HLQ..LINKLIB,DISP=SHR
// DD DSN=SYS1.SCEERUN,DISP=SHR
//*
//FSISYS DD DSN=&HLQ..&RES..DEFLIB(FSISYS),DISP=SHR
//INFILE DD DSN=&HLQ..&RES..GENPRINT.PRTBAT1,DISP=SHR
//OUTFILE DD DSN=&HLQ..&RES..GENPRINT.PRTBAT1.NEW,
// DISP=(,CATLG),
// LIKE=&HLQ..&RES..GENPRINT.PRTBAT1
//LIST DD DSN=&HLQ..&RES..METRESC1.LIST,
// UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//TRACE DD DSN=&HLQ..&RES..METRESC1.TRACE,
// UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,CATLG),
// DCB=(RECFM=VB,LRECL=1024,BLKSIZE=23040)
//FONTLIB DD DSN=&HLQ..&RES..FONTLIB,DISP=SHR <=UNCOMMENT AS NEEDED
//*PFRMLIB DD DSN=&HLQ..&RES..PFRMLIB,DISP=SHR <=UNCOMMENT AS NEEDED
//*IMGLIB DD DSN=&HLQ..&RES..IMGLIB,DISP=SHR <=UNCOMMENT AS NEEDED
//*LGOLIB DD DSN=&HLQ..&RES..LGOLIB,DISP=SHR <=UNCOMMENT AS NEEDED
//SYSPRINT DD SYSOUT=*
If you have to create a Partitioned Data Set (PDS) for Xerox fonts, forms, images, or logos, you can use these settings as a guide:
Data Set Name . . . . : FSI.V111.RPEX1.FONTLIB
General Data Current Allocation
Management class . . : **None** Allocated cylinders : 75
Storage class . . . : STANDARD Allocated extents . : 1
Volume serial . . . : DCI004 Maximum dir. blocks : 50
Device type . . . . : 3390
Data class . . . . . : **None**
Organization . . . : PO Current Utilization
Record format . . . : FB Used cylinders . . : 1
Record length . . . : 128 Used extents . . . : 1
Block size . . . . : 27904 Used dir. blocks . : 1
1st extent cylinders: 75 Number of members . : 10
Secondary cylinders : 10
Data set name type : PDS
Creation date . . . : 2006/02/06 Referenced date . . : 2006/02/07
Expiration date . . : ***None***
Note | z/OS does not allow file names that begin with a number (0-9). If any of your Xerox resource files begin with a number, you will not be able to upload these files to z/OS. Therefore, you will not be able to run the METRESRC utility on z/OS for this environment. Instead, you must run the METRESRC utility on a Windows or UNIX platform and upload the final print stream to z/OS for printing. |
© Copyright 2012, Oracle and/or its affiliates. All rights reserved. Legal notices.