! *********************************************************************************************************************************
!  Created 23-AUG-1983 16:51:40  by  VAX-11 SDL V1.7-5     Source: 23-AUG-1983 16:50:27 DISK$USER01:[FREEDMAN.SCRATCH]FSCN.SDL;2   
! *********************************************************************************************************************************
 
 
!*** MODULE $FSCNDEF ***
! ++
! 
!         Descriptor codes for SYS$FILESCAN
! 
! 
literal FSCN$M_NODE = 1;
literal FSCN$M_DEVICE = 2;
literal FSCN$M_ROOT = 4;
literal FSCN$M_DIRECTORY = 8;
literal FSCN$M_NAME = 16;
literal FSCN$M_TYPE = 32;
literal FSCN$M_VERSION = 64;
macro FLDFLAGS = 0,0,8,0 %;
literal FSCN$S_FLDFLAGS = 1;
macro FSCN$V_NODE = 0,0,1,0 %;          !  Node name present
macro FSCN$V_DEVICE = 0,1,1,0 %;        !  Device name present
macro FSCN$V_ROOT = 0,2,1,0 %;          !  Root directory present
macro FSCN$V_DIRECTORY = 0,3,1,0 %;     !  Directory present
macro FSCN$V_NAME = 0,4,1,0 %;          !  File name present
macro FSCN$V_TYPE = 0,5,1,0 %;          !  File type present
macro FSCN$V_VERSION = 0,6,1,0 %;       !  File version present
literal FSCN$_FILESPEC = 1;             !  complete filespec
literal FSCN$_NODE = 2;                 !  node:: field
literal FSCN$_DEVICE = 3;               !  device: field
literal FSCN$_ROOT = 4;                 !  [root.] field
literal FSCN$_DIRECTORY = 5;            !  [directory] field
literal FSCN$_NAME = 6;                 !  name field
literal FSCN$_TYPE = 7;                 !  .typ field
literal FSCN$_VERSION = 8;              !  ;version field
literal FSCN$S_ITEM_LEN = 8;
macro FSCNDEF = 0,0,0,0 %;
literal FSCN$S_FSCNDEF = 8;
macro FSCN$W_LENGTH = 0,0,16,0 %;       !  return length word
macro FSCN$W_ITEM_CODE = 2,0,16,0 %;    !  item code value
macro FSCN$L_ADDR = 4,0,32,0 %;         !  return length pointer