
{
{ !!!! WARNING - The order of ordinals in this type CANNOT be changed for file
{                compatibility reasons. Although there is plenty of room to
{                grow, the size of this type is also restricted to 1 byte for
{                file compatibility reasons.
{

  TYPE
    gft$file_kind = (
      gfc$fk_job_permanent_file,   {Permanent files.
      gfc$fk_device_file,             {Device Files
      gfc$fk_save_2,                  {Reserved for future use.
      gfc$fk_save_3,                  {Reserved for future use.
      gfc$fk_catalog,                 {Permanent file catalogs.
            { - - - dividing line between perm and temp files - - - }
      gfc$fk_job_local_file,          {BAM named job local files.
      gfc$fk_unnamed_file,            {File tables exist in Job Fixed.
      gfc$fk_global_unnamed,          {File tables exist in mainframe wired.
      gfc$fk_monitor_only_unnamed);   {Files that are accessible in monitor ONLY.

  TYPE
    gft$file_kind_set = set of gft$file_kind;

  CONST
    gfc$fk_first_temporary_file = gfc$fk_job_local_file,
    gfc$fk_last_permanent_file = gfc$fk_catalog;
