You enter here more physical information about the Data
Structure line Definition in the Program.
- Block factor
- This field, on five characters, is required for the generation
of the BLOCK CONTAINS clause.
It must contain
a numeric value. It corresponds to the block size (the size of the
physical record). Spaces and zeros are equivalent.
The block
size can be zero for:
- IBM OS, except for indexed Data Structures.
- IBM MVS. The BLOCK CONTAINS clause is generated
for a VSAM file only if the Library is in COBOL II.
The BLOCK CONTAINS clause is not generated
in the following cases: - Sort Data Structure,
- Data Structure stored on a disk if no number is indicated,
- File whose Unit type is set to R:
Slow device for IBM DOS (Type of COBOL code =
'1'),
- Block 0 for UNISYS A Series (Type
of COBOL code = '8') and AS 400 (Type of COBOL
code = 'O').
- Block 0 for IBM VSE COBOL II and file whose Block
type is set to N: Ignore block management.
- Block type
- Specify here whether the block size entered in the Block
factor field represents a number of records, characters,
or whether it must be ignored for the block management.
- Result Data Structure code
If the Data Structure has a Usage set
to P: Principal, you must enter the Code
in program' of the result output Data Structure (two characters).
If
the Data Structure has a Usage set to R:
Result or D: Output file, you must
enter the Code in program of the principal
input Data Structure (two characters).
- Source Data Structure code
- If the Data Structure has a Usage set to:
- M: Transaction to be validated or N:
Transaction not to be validated, you must enter the Code
in program (on two characters) of the transaction file
which contains the errors (Usage set to E:
Transaction with error checking), if such a file has been
called.
- E: Transaction with error checking, you
must enter the Code in program (on two characters)
of the corresponding transaction file (Usage set
to M: Transaction to be validated or N:
Transaction not to be validated).
- S: Selected, you must enter the Code
in program (on two characters) of the input source. On
the source Data Structure call line, you must enter the Code
in program of the selected Data Structure.
- Transaction break level
- In a transaction file, you must enter the position, within the
sort key, of the Action code (entered on the
Segment Definition tab).
Example: If the value of the Sort key is ABCDE and
the Action code is D,
enter 4 here.
It is the most minor key
of the sort key. It is used to differentiate one type of transaction
from another in the same principal file. Duplicates are detected if
any key elements after this one are found to match. By default,
the value of this field is that of the
break level already
entered in the previous window. The value must be one-character long.
Note: All
spaces are replaced with zeros.
- Physical unit type
- The possible unit type varies according to the Type
of COBOL code:
- Type of COBOL code = 1: IBM
DOS/VSE: Enter the model type (examples: 2314, 3330, 2400)
- Type of COBOL code = 3: UNIX,
WINDOWS:
- EXT = Generation of the EXTERNAL clause
at the file FD level
- LS = Generation of the LINE SEQUENTIAL clause
- EXLS = Generation of the LINE SEQUENTIAL clause
and of the EXTERNAL clause at the file FD level
- Type of COBOL code = Q: ACUCOBOL:
- LS = Generation of the LINE SEQUENTIAL clause
- Type of COBOL code = 4: BULL
GCOS7:
- SSF = Option WITH SSF in
the SELECT clause
- OUT = Option -SYSOUT suffix
after the file name in the SELECT clause (WITH
SSF is generated).
- Type of COBOL code = 5: BULL
GCOS8:
- PT = printer
- CR = card reader
- SSF = ORGANIZATION IS GFRC SEQUENTIAL
SSF CODE SET IS GBCD
- IBM = ORGANIZATION IS IBM-OS SEQUENTIAL
- xxx = WITH xxx
A V in the fourth position generates the
clause VALUE OF FILE-ID is 3-FF00-IDENT (FF is
the Data Structure Code in program). The field 3-FF00-IDENT must
be defined in work areas by the user.
- Type of COBOL code = 8: UNYSIS
A Series:
- DK or blank = disk
- DKS = sort disk (with T opening).
- DKM = merge disk (with T opening).
- RD = reader.
- PT = printer.
- PO = file.
- TP = tape.
For the two-character codes, a third character can specify a
particular final disposition:- P = purge
- R = release
- L = lock
- S = save
A V in the fourth position generates the
clause VALUE OF D.S. NAME IS 3-FF00-IDENT.
- Type of COBOL code = U: UNYSIS
2200 Series:
- CR = card reader
- CP = card punch
- .UN = UNISERVO
- .TP = tape
- PN = printer with external name. If the Complement field
contains a value, the RECORDING clause is also generated.
- PT = printer without external name
- PF = printer with external name and:
- VALUE OF PRINTER-FORMS 3-FF00-FORMS
- LINAGE IS 3-FF00-LINES
- TOP IS 3-FF00-TOP
- BOTTOM IS 3-FF00-BOTTOM
These four data names are to be declared in work area lines with
their appropriate values.
- Type of COBOL code = O: AS/400:
- RD = reader.
- CP = card punch
- DB = database
- PT = printer.
- TP = tape.
- DK or blank = disk.
- Complement
- It is a complement to the Physical unit type field.
The purpose of this field varies according to the Type
of COBOL code.
Table 1. Values of the
complement to the physical unit typeValue |
Type of COBOL code |
R: reader |
1: IBM DOS/VSE |
P: punch |
1: IBM DOS/VSE |
S: EBCDIC set code |
5: BULL GCOS8 and U:
UNYSIS 2200 Series |
C: ASCII set code |
5: BULL GCOS8 |
O: OPTIONAL option not to be generated |
4: BULL GCOS7 and 5:
BULL GCOS8 |
A: ALLOWING ALL file optioning option &
REGARDLESS sequential reading |
I: DEC VAX VMS |
- File status
- This field is optional.
If you specify it, you are advised
to specify a character string, on 10 characters maximum, in the following
format:
ddsseeeeee, where:
- dd = Data Structure
- ss = record (00 is
advised)
- eeeeee = Data Element
The use of this field varies according to the
Type
of COBOL code and to the Data Structure call
Organization.
- For non-VSAM files and all environments except BULL
GCOS8:
- Generation of the nominal, symbolic, or actual key, according
to the Type of COBOL code.
- You must define the corresponding work area (or example, 1-ddss-eeeeee).
You must also specify, in specific code, the positioning of this key
and the reading of the Data Structure.
- For VSAM files:
- Generation of the return code area of input/output operations,
- Generation of the corresponding VALUE OF clause,
only if it is defined as a work area and specified in specific code.
- For BULL GCOS8:
- Identification of the Data Structure,
- Generation of the corresponding FILE STATUS IS clause,
provided if it is defined as a work area and specified in specific
code.
- Access key Data Element code
This code, on six characters, is required for indexed Data
Structures.
- Record type Data Element code
Enter the code (six characters) of the Data Element whose values
identify the different record types of a Data Structure.
This
Data Element must belong to the common part Segment (00 Segment).
This
name can also be specified in the Structure code field
of the Segment Definition tab.