IBM S544-5285-01 manual Exec PGM=APKACIF,SIZE=548K \ Data Characteristics CC = YES

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