More -CD specifications

You enter here more physical information about the Data Structure line Definition in the Program.

Block factor
This field, on 5 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 that is 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 (2 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 2 characters) of the transaction file that 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 2 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 2 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 type
Value 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 files.

Record type Data Element code

Enter the code (6 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.


Feedback