Printer User Manual

// JOB
// LIBDEF PHASE,SEARCH=(PRD2.AFP)
// ASSGN SYSLST,X'FEE'
// ASSGN SYS6,21
// DLBL INPUT,'APKACIF.INPUT',,SD
// EXTENT SYS6,SYSWK1,1,1,92,13
// ASSGN SYS7,21
// DLBL OUTPUT,'APKACIF.OUTPUT',,SD
// EXTENT SYS7,SYSWK1,1,1,9213,45
// ASSGN SYS8,21
// DLBL RESOBJ,'APKACIF.RESLIB',,SD
// EXTENT SYS8,SYSWK1,1,1,9258,15
// ASSGN SYS9,21
// DLBL INDEX,'APKACIF.INDEX',,SD
// EXTENT SYS9,SYSWK1,1,1,9273,15
// EXEC PGM=APKACIF,SIZE=548K
/ 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 /
INDEX2 = 'Name',field2 / 2nd INDEX /
INDEX3 = 'Address',field3 / 3rd INDEX /
INDEX4 ='City, State, Zip',field4 / 4th INDEX /
INDEX5 = 'Date Due',field5 / 5th INDEX /
/ FILE INFORMATION /
INDEXDD = INDEX / index file ddname /
INPUTDD = INPUT / input file ddname /
OUTPUTDD = OUTPUT / output file ddname /
RESOBJDD = RESOBJ / resource file ddname /
/ RESOURCE INFORMATION /
FORMDEF = F1A111 / formdef name /
PAGEDEF = P1A8682 / pagedef name /
RESFILE = SEQ / resource file type /
RESTYPE = FDEF,PSEG,OVLY / resource type selection /
/ EXIT AND TRIGGER INFORMATION /
TRIGGER1 = ,1,'1' / 1st TRIGGER /
TRIGGER2 = 13,5,'ACCOUNT NUMBER:'/ 2nd TRIGGER /
/
/&
Figure 28. Example of a Telephone Bill for a VSE ACIF Application
The following data values are used as the indexing attributes:
 Account number
 Name
 Address
 City, State, Zip
118 ACIF User’s Guide