Google
 

Trailing-Edge - PDP-10 Archives - bb-h138f-bm - 7-sources/fffusr.r36
There are 3 other files named fffusr.r36 in the archive. Click here to see a list.
! REQUIRE FILE FOR USERS OF FOREIGN FILE FACILITY
!
!
!	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1985, 1986.
!	ALL RIGHTS RESERVED.
!
!	THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED  AND
!	COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH
!	THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE  OR
!	ANY  OTHER  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE
!	AVAILABLE TO ANY OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE
!	SOFTWARE IS HEREBY TRANSFERRED.
!
!	THE INFORMATION IN THIS SOFTWARE IS  SUBJECT  TO  CHANGE  WITHOUT
!	NOTICE  AND  SHOULD  NOT  BE CONSTRUED AS A COMMITMENT BY DIGITAL
!	EQUIPMENT CORPORATION.
!
!	DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF
!	ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
!
!

!+
! File class codes that call the foreign file facility
!-
LITERAL
       Typ$k_Sixbit         = -1,	! COBOL SIXBIT
       Typ$k_Ebcdic         = -2,	! COBOL EBCDIC
       Typ$k_Isam           = -3,
       Typ$k_Fortran_Binary = -4,	! FORTRAN BINARY

       Typ$k_FFF_Class_Min = -4,
       Typ$k_FFF_Class_Max = -1;