IBM S544-5285-01 Printer User Manual


  Open as PDF
of 255
 
// 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
 previous next