IBM S544-5285-01 manual Space

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

\/

INDEXOBJ = ALL

/\ INDEXING INFORMATION

\/

/\ 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