// 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