IBM S544-5285-01, Руководство пользователя

Страница: 137 / 255

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