IBM S544-5285-01 - Manual (Page 138)

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