FILETYPE

Syntax:

>>-.---.--FILETYPE--"integer"--------------><
   +-/-+

Parameters:

integer
An integer representing the type to use.
0 System-specific default (for this COBOL system, ).
1 C-ISAM format.
2 Micro Focus Level II format.
3 Micro Focus COBOL format.
4 An optimized form of the format used by this COBOL system, for fast duplicate key handling.
5 Reserved
6 Reserved
7 Reserved.
8 Large indexed files.
9-10 Reserved.
11 Mainframe print file format.
12-255 Reserved.

Properties:

Default: FILETYPE"0"
Phase: Syntax check
$SET: Any

Dependencies:

FILETYPE"integer" sets IDXFORMAT"integer" immediately.

Comments:

This directive only works on files processed by the Micro Focus File Handler. Use the CALLFH directive if you are processing files other than indexed files.

To produce print files in the style of an IBM mainframe using FILETYPE"11", you must also:

  • Set the directive OSVS or VCS2
  • Use WRITE AFTER ADVANCING syntax
  • Set the CALLFH directive (so your program uses the Micro Focus File Handler)
  • Use a SELECT statement in the form:
    select printfile assign "print" organization is sequential.

    (Print files in the style of an IBM mainframe have a print control character in the first column.)