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

Note: The example in Figure 26 on page 116 creates a sequential data set.
If you need a partitioned data set, change the parameters as follows:
set RESFILE
= PDS and set the SPACE and DSORG parameters in the DD
statement of the data set named by the RESOBJDD parameter to
SPACE
= (12288,(150,15,15)),DSORG = PO.
Failure to set these parameters as described may produce a RESOBJDD data set
that is unusable.
//job... JOB ...
//APKSMAIN EXEC PGM=APKACIF,REGION=8M,TIME=(,3 )
//ᑍ===============================================================ᑍ
//ᑍ RUN APK, CREATING OUTPUT AND A RESOURCE LIBRARY
ᑍ
//ᑍ===============================================================ᑍ
//STEPLIB DD DSN=APKACIF.LOAD,DISP=SHR
//INPUT DD
DSN=USER.ACIFEX2.DATA,DISP=SHR
//SYSIN DD ᑍ
/ᑍ example phone bill ᑍ/
/ᑍ 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 attribute ᑍ/
INDEX2 = 'Name',field2 /ᑍ 2nd INDEX attribute ᑍ/
INDEX3 = 'Address',field3 /ᑍ 3rd INDEX attribute ᑍ/
INDEX4 = 'City, State, Zip',field4 /ᑍ 4th INDEX attribute ᑍ/
INDEX5 = 'Date Due',field5 /ᑍ 5th INDEX attribute ᑍ/
/ᑍ INDEXING INFORMATION ᑍ/
INDEXOBJ = ALL
/ᑍ RESOURCE INFORMATION ᑍ/
FORMDEF = F1A1 11 /ᑍ formdef name ᑍ/
PAGEDEF = P1A 8682 /ᑍ pagedef name ᑍ/
FDEFLIB = SYS1.FDEFLIB
FONTLIB = SYS1.FONTLIBB,SYS1.FONTLIBB.EXTRA
OVLYLIB = SYS1.OVERLIB
PDEFLIB = SYS1.PDEFLIB
PSEGLIB = SYS1.PSEGLIB
RESFILE = SEQ
/ᑍ resource file type ᑍ/
RESTYPE = FDEF,PSEG,OVLY /ᑍ resource type selection ᑍ/
/ᑍ FILE INFORMATION ᑍ/
INDEXDD = INDEX /ᑍ index file ddname ᑍ/
INPUTDD = INPUT /ᑍ input file ddname ᑍ/
OUTPUTDD = OUTPUT /ᑍ output file ddname ᑍ/
RESOBJDD = RESLIB /ᑍ resource file ddname ᑍ/
/ᑍ EXIT AND TRIGGER INFORMATION ᑍ/
TRIGGER1 = ᑍ,1,'1' /ᑍ 1st TRIGGER ᑍ/
TRIGGER2 = 13,5 ,'ACCOUNT NUMBER:' /ᑍ 2nd TRIGGER ᑍ/
/ᑍ
//OUTPUT DD DSN=APKACIF.OUTPUT,DISP=(NEW,CATLG),
//
SPACE=(3276 ,(15 ,15 ),RLSE),UNIT=SYSDA,
// DCB=(LRECL=32756,BLKSIZE=3276 ,RECFM=VBM,DSORG=PS)
//INDEX DD DSN=APKACIF.INDEX,DISP=(NEW,CATLG),
//
SPACE=(3276 ,(15,15),RLSE),UNIT=SYSDA,
// DCB=(LRECL=32756,BLKSIZE=3276 ,RECFM=VBM,DSORG=PS)
//RESLIB DD DSN=APKACIF.RESLIB,DISP=(NEW,CATLG),
//
SPACE=(12288,(15 ,15),RLSE),UNIT=SYSDA,
// DCB=(LRECL=12284,BLKSIZE=12288,RECFM=VBM,DSORG=PS)
//SYSPRINT DD DSN=APKACIF.SYSPRINT,DISP=(NEW,CATLG),
//
SPACE=(9 44,(15,15),RLSE),UNIT=SYSDA,
// DCB=(BLKSIZE=141,RECFM=FB,DSORG=PS)
Figure 26. Example of a Telephone Bill for an OS/390 or MVS ACIF Application
116 ACIF User’s Guide