MANAGING AND PRINTING SAMPLE FORMS
Figure 5–10. Downloading and printing a sample
//LOGONIDX JOB ’RUN HFDL COMPILER’,REGION=8M user job card parameters
//*
/*JOBPARM LINE=0
//STEP1 EXEC PGM=HFDL32,PARM=’COMPILE FSL=XFFSL(XVERL) LIST OBJECT’
//STEPLIB DD DSN=HFDL.V3R2M00.LOAD,DISP=SHR
// DD DSN=XPRM.V3R2M00.SASCRDLB.C550,DISP=SHR
// DD DSN=XPRM.V3R2M00.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//* ****The following data sets are specific to the form compiler
//* ----Condition codes log for all files compiled
//XFLOG DD SYSOUT=*
//* ----the fsl source file is a customer defined pds or seq
//XFFSL DD DSN=HFDL.SOURCE.FSL,DISP=SHR
//* ----the inp file is a temporary file
//XFINP DD DSN=&&INP,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(TRK,(10,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//* ----the iff file is a temporary file
//XFIFF DD DSN=&&IFF,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(TRK,(10,1)),DCB=(RECFM=FB,LRECL=320,BLKSIZE=10240)
//* ----The compiled forms are temporary files until stored
//* in the database
//XFFRM DD DSN=&&FRM,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(TRK,(10,10,10)),DCB=(RECFM=F,LRECL=128,BLKSIZE=128)
//XFTMP DD DSN=&&TMP,DISP=(NEW,PASS),UNIT=SYSDA,
// SPACE=(TRK,(10,1)),DCB=(RECFM=FB,LRECL=320,BLKSIZE=10240)
//* ****The following data sets are the resource data sets
//* ---- XSFNTATT is a VSAM dataset containing FONT and LOGO
//* ATTRIBUTES
//XSFNTATT DD DSN=XPRM.V3R2M00.XSFNTATT,DISP=SHR
//* ---- XSFORMS is a VSAM dataset containing FORMS
//XSFORMS DD DSN=XPRM.V3R2M00..XSFORMS,DISP=SHR
//* ---- XSFRMATT is a VSAM dataset containing FORM ATTRIBUTES
//XSFRMATT DD DSN=.XPRM.V3R2M00.XSFRMATT,DISP=SHR
//XSSUPTAB DD DSN=.XPRM.V3R2M00.XSSUPTAB,DISP=SHR
//*
//* ****THE FOLLOWING JCL IS FOR DOWNLOAD AND SAMPLE
//STEP2 EXEC PGM=XPRMUTIL,COND=(8,LE,STEP1)
//STEPLIB DD DSN=XPRM.V3R2M00.LOAD,DISP=SHR
// DD DSN=XPRM.V3R2M00.SASCRDLB.C500,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//XSUACTL DD SYSOUT=* ACTIVITY LOG
//XSFONTS DD DSN=XPRM.V3R2M00.XSFONTS,DISP=SHR
//XSFNTATT DD DSN=XPRM.V3R2M00.XSFNTATT,DISP=SHR
//XSFORMS DD DSN=XPRM.V3R2M00.XSFORMS,DISP=SHR
//XSFRMATT DD DSN=XPRM.V3R2M00.XSFRMATT,DISP=SHR
//XSSUPTAB DD DSN=XPRM.V3R2M00.XSSUPTAB,DISP=SHR
//ddnamea DD SYSOUT=*,DCB=(RECFM=FBA),
// DEST=prtrid
//XSUIN DD *
REPRO FORM WHERE(NAME=XVERL) OUTDEV(HCPRNTR) SAMPLE;
//*
HOST FORMS DESCRIPTION LANGUAGE 3.2 FOR IBM MVS CREATING FORMS 5–11