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

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

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