Printer User Manual

Note: The example in Figure 26 on page 116 creates a sequential data set.
If you need a partitioned data set, change the parameters as follows:
set RESFILE=PDS and set the SPACE and DSORG parameters in the DD
statement of the data set named by the RESOBJDD parameter to
SPACE=(12288,(150,15,15)),DSORG=PO.
Failure to set these parameters as described may produce a RESOBJDD data set
that is unusable.
//job... JOB ...
//APKSMAIN EXEC PGM=APKACIF,REGION=8M,TIME=(,3)
//===============================================================
// RUN APK, CREATING OUTPUT AND A RESOURCE LIBRARY 
//===============================================================
//STEPLIB DD DSN=APKACIF.LOAD,DISP=SHR
//INPUT DD DSN=USER.ACIFEX2.DATA,DISP=SHR
//SYSIN DD 
/ example phone bill /
/ DATA CHARACTERISTICS /
CC = YES / carriage control used /
CCTYPE = A / carriage control type /
CHARS = GT15
CPGID = 5 / code page identifier /
/ FIELD AND INDEX DEFINITION /
FIELD1 = 13,66,15 / Account Number /
FIELD2 = ,5,3 / Name /
FIELD3 = 1,5,3 / Address /
FIELD4 = 2,5,3 / City, State, Zip /
FIELD5 = 4,6,12 / Date Due /
INDEX1 = 'Account Number',field1 / 1st INDEX attribute /
INDEX2 = 'Name',field2 / 2nd INDEX attribute /
INDEX3 = 'Address',field3 / 3rd INDEX attribute /
INDEX4 = 'City, State, Zip',field4 / 4th INDEX attribute /
INDEX5 = 'Date Due',field5 / 5th INDEX attribute /
/ INDEXING INFORMATION /
INDEXOBJ = ALL
/ RESOURCE INFORMATION /
FORMDEF = F1A111 / formdef name /
PAGEDEF = P1A8682 / pagedef name /
FDEFLIB = SYS1.FDEFLIB
FONTLIB = SYS1.FONTLIBB,SYS1.FONTLIBB.EXTRA
OVLYLIB = SYS1.OVERLIB
PDEFLIB = SYS1.PDEFLIB
PSEGLIB = SYS1.PSEGLIB
RESFILE = SEQ / resource file type /
RESTYPE = FDEF,PSEG,OVLY / resource type selection /
/ FILE INFORMATION /
INDEXDD = INDEX / index file ddname /
INPUTDD = INPUT / input file ddname /
OUTPUTDD = OUTPUT / output file ddname /
RESOBJDD = RESLIB / resource file ddname /
/ EXIT AND TRIGGER INFORMATION /
TRIGGER1 = ,1,'1' / 1st TRIGGER /
TRIGGER2 = 13,5,'ACCOUNT NUMBER:' / 2nd TRIGGER /
/
//OUTPUT DD DSN=APKACIF.OUTPUT,DISP=(NEW,CATLG),
// SPACE=(3276,(15,15),RLSE),UNIT=SYSDA,
// DCB=(LRECL=32756,BLKSIZE=3276,RECFM=VBM,DSORG=PS)
//INDEX DD DSN=APKACIF.INDEX,DISP=(NEW,CATLG),
// SPACE=(3276,(15,15),RLSE),UNIT=SYSDA,
// DCB=(LRECL=32756,BLKSIZE=3276,RECFM=VBM,DSORG=PS)
//RESLIB DD DSN=APKACIF.RESLIB,DISP=(NEW,CATLG),
// SPACE=(12288,(15,15),RLSE),UNIT=SYSDA,
// DCB=(LRECL=12284,BLKSIZE=12288,RECFM=VBM,DSORG=PS)
//SYSPRINT DD DSN=APKACIF.SYSPRINT,DISP=(NEW,CATLG),
// SPACE=(944,(15,15),RLSE),UNIT=SYSDA,
// DCB=(BLKSIZE=141,RECFM=FB,DSORG=PS)
Figure 26. Example of a Telephone Bill for an OS/390 or MVS ACIF Application
116 ACIF User’s Guide