The JCL for the AFPRESRC utility to produce the new AFP print stream that contains AFP fonts ready for printing might look like this:
//USERIDA JOB (33005),'DAP - ',CLASS=T,MSGCLASS=X,
// NOTIFY=USERID
//*
// SET HLQ='FSI.V114' <== SET HIGH LEVEL QUALIFIER
// SET RES='RPEX1' <== SET RESOURCE (E.G. RPEX1, UTEX1)
//*
// JCLLIB ORDER=&HLQ..PROCLIB
//*
//****************************************************************
//* PROGRAM : AFPRESRC
//* PURPOSE : TO DETERMINE THE AFP RESOURCES USED BY AN AFP
//* PRINT STREAM.
//*
//* PARMS : /I= NAME OF AFP PRINT FILE (REQUIRED)
//* /O= NAME OF AFP 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)
//* /F= NAME OF AFP FORMDEF FILE TO ADD TO OUTPUT FILE
//*
//****************************************************************
//*
//AFPRESCD EXEC PGM=IEFBR14
//LIST DD DSN=&HLQ..&RES..AFPRESC1.LIST,
// UNIT=SYSDA,SPACE=(TRK,0),
// DISP=(MOD,DELETE,DELETE)
//TRACE DD DSN=&HLQ..&RES..AFPRESC1.TRACE,
// UNIT=SYSDA,SPACE=(TRK,0),
// DISP=(MOD,DELETE,DELETE)
//OUTFILE DD DSN=&HLQ..&RES..GENPRINT.AFPBAT1.NEW,
// UNIT=SYSDA,SPACE=(TRK,0),
// DISP=(MOD,DELETE,DELETE)
//*
//AFPRESC1 EXEC PGM=AFPRESRC,
// PARM='/ /I=DD:INFILE /L=DD:LIST /O=DD:OUTFILE /F=DD:FORMDEF'
//STEPLIB DD DSN=&HLQ..LINKLIB,DISP=SHR
// DD DSN=SYS1.SCEERUN,DISP=SHR
//*
//INFILE DD DSN=&HLQ..&RES..GENPRINT.AFPBAT1,DISP=SHR
//OUTFILE DD DSN=&HLQ..&RES..GENPRINT.AFPBAT1.NEW,
// DISP=(,CATLG),
// LIKE=&HLQ..&RES..GENPRINT.AFPBAT1
//LIST DD DSN=&HLQ..&RES..AFPRESC1.LIST,
// UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//FORMDEF DD DSN=&HLQ..FDEFLIB(F1FMMST),DISP=SHR
//TRACE DD DSN=&HLQ..&RES..AFPRESC1.TRACE,
// UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,CATLG),
// DCB=(RECFM=VB,LRECL=1024,BLKSIZE=23040)
//FONTLIB DD DSN=&HLQ..&RES..FONTLIB,DISP=SHR
//PSEGLIB DD DSN=&HLQ..&RES..PSEGLIB,DISP=SHR
//OVERLIB DD DSN=&HLQ..&RES..OVERLIB,DISP=SHR
//*FDEFLIB DD DSN=&HLQ..FDEFLIB,DISP=SHR <=UNCOMMENT AS NEEDED
//SYSPRINT DD SYSOUT=*
If you have to create a Partitioned Data Set (PDS) for AFP fonts, overlays, page segments, or formdef files, you can use the settings shown here as a guide:
Data Set Name . . . . : FSI.ORACLE.AFP240.FONTLIB
General Data Current Allocation
Management class . . : **None** Allocated cylinders : 59
Storage class . . . : STANDARD Allocated extents . : 1
Volume serial . . . : DCI030 Maximum dir. blocks : 65
Device type . . . . : 3390
Data class . . . . . : **None**
Organization . . . : PO Current Utilization
Record format . . . : VBM Used cylinders . . : 56
Record length . . . : 12284 Used extents . . . : 1
Block size . . . . : 27998 Used dir. blocks . : 61
1st extent cylinders: 59 Number of members . : 1,261
Secondary cylinders : 5
Data set name type : PDS
Creation date . . . : 2003/10/08 Referenced date . . : 2008/09/23
Expiration date . . : ***None***
© Copyright 2012, Oracle and/or its affiliates. All rights reserved. Legal notices.