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

VM CMS Commands to Invoke ACIF
FILEDEF INPUT DISK ACIFEX2 SYSIN A
FILEDEF OUTPUT DISK APKACIF OUTPUT A (LRECL 32756 BLKSIZE 3276 RECFM VB
FILEDEF INDEX DISK APKACIF INDEX A (LRECL 32756 BLKSIZE 3276 RECFM VB
FILEDEF RESLIB DISK APKACIF RESLIB A (LRECL 32756 BLKSIZE 3276 RECFM VB
FILEDEF SYSPRINT DISK APKACIF SYSPRINT A
APKACIF
Where file ACIFEX2 SYSIN A contains the following:
/ᑍ Pubs example phone bill ᑍ/
/ᑍ DATA CHARACTERISTICS ᑍ/
CC = YES /ᑍ carriage control used ᑍ/
CCTYPE = A /ᑍ carriage control type ᑍ/
CHARS = GT15
CPGID = 5
/ᑍ code page identifier ᑍ/
FDEFLIB = FDEF382 ,FDEF38PP
/ᑍ INDEXING INFORMATION ᑍ/
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 = RESLIB /ᑍ resource file ddname ᑍ/
/ᑍ RESOURCE INFORMATION ᑍ/
FORMDEF = F1A1 11 /ᑍ formdef name ᑍ/
PAGEDEF = P1A 8682 /ᑍ pagedef name ᑍ/
FONTLIB = FONT382 ,FONT38PP
OVLYLIB = OVLY382 ,OVLY38PP
PDEFLIB = PDEF382 ,PDEF38PP
PSEGLIB = PSEG382 ,PSEG38PP
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 27. Example of a Telephone Bill for a VM ACIF Application
VSE JCL to Invoke ACIF
Chapter 8. Example: ACIF Application in OS/390, MVS, VM, or VSE 117