From:	CRDGW2::CRDGW2::MRGATE::"SMTP::SPCVXA.SPC.EDU::POSTMAST" 21-FEB-1992 10:20:05.35
To:	ARISIA::EVERHART
CC:	
Subj:	RE: Finger V51_1_24 compile errors

From:	postmast@spcvxa.spc.edu@SMTP@CRDGW2
To:	EVERHART@ARISIA@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.123)
	 id AA18734; Fri, 21 Feb 92 09:13:17 EST
Resent-From: postmast@spcvxa.spc.edu
Received: from spcvxa.spc.edu by spcvxa.spc.edu (PMDF #12700) id
 <01GGRXCFTBC08WW1IU@spcvxa.spc.edu>; Fri, 21 Feb 1992 09:07 EST
Received: from spcvxa.spc.edu by spcvxa.spc.edu (PMDF #12700) id
 <01GGRXBZYNCG8WW1JP@spcvxa.spc.edu>; Fri, 21 Feb 1992 09:07 EST
Resent-Date: Fri, 21 Feb 1992 09:07 EST
Date: Fri, 21 Feb 1992 09:07 EST
From: "Terry Kennedy, Operations Mgr" <TERRY@spcvxa.spc.edu>
Subject: RE: Finger V51_1_24 compile errors
To: HEGE@finabo.bitnet
Cc: I-FINGER@spcvxa.spc.edu
Errors-To: postmast@spcvxa.spc.edu
Resent-Message-Id: <01GGRXCFTBC08WW1IU@spcvxa.spc.edu>
Message-Id: <01GGRXBZYNCG8WW1JP@spcvxa.spc.edu>
X-Organization: St. Peter's College, US
X-Vms-To: IN%"HEGE@finabo.bitnet"
X-Vms-Cc: I-FINGER@SPCVXA.SPC.EDU,TERRY

"Kaj 'Hege' H{ggman, 921-654467" <HEGE@finabo.bitnet> writes:

> I'm trying to compile the FOR-files, but FINGER.FOR won't compile, due to:
 
  Yes, DEC changed the definition files again 8-).

  Here are some diffs that should help:

************
File USER0:[SYSTOOLS.FINGER.SRC]FINGER.FOR;164
 3448   	Include	'XABPRODEF.INC'
 3449   	Record /FABDEF/Fab, /RABDEF/ rab
******
File USER7:[ANONYMOUS.FINGER]FINGER.FOR;102
 3378   	Include	'($XABPRODEF)'
 3379   	Record /FABDEF/Fab, /RABDEF/ rab
************
************
File USER0:[SYSTOOLS.FINGER.SRC]FINGER.FOR;164
 3762   	INCLUDE 'XABPRODEF.INC'
 3763   C
******
File USER7:[ANONYMOUS.FINGER]FINGER.FOR;102
 3692   	INCLUDE '($XABPRODEF)'
 3693   C
************
************
File USER0:[SYSTOOLS.FINGER.SRC]FINGER.FOR;164
 3778   	INCLUDE 'XABPRODEF.INC'
 3779   C
******
File USER7:[ANONYMOUS.FINGER]FINGER.FOR;102
 3708   	INCLUDE '($XABPRODEF)'
 3709   C
************

  And the new file XABPRODEF.INC, which is really the file from V5.2, before
DEC rearranged it:

!*** MODULE $XABPRODEF ***
! --
! ++
! 
!         protection xab field definitions
!                 $xabprodef
! 
! 
	PARAMETER XAB$C_PRO = '00000013'X	!  xabpro id code 
	PARAMETER XAB$M_NOREAD = '00000001'X
	PARAMETER XAB$M_NOWRITE = '00000002'X
	PARAMETER XAB$M_NOEXE = '00000004'X
	PARAMETER XAB$M_NODEL = '00000008'X
	STRUCTURE /XABPRODEF/
	UNION
	    MAP
	        PARAMETER XAB$S_NOREAD = 1
	        PARAMETER XAB$V_NOREAD = 0		!  deny read access 
	        PARAMETER XAB$S_NOWRITE = 1
	        PARAMETER XAB$V_NOWRITE = 1		!  deny write access 
	        PARAMETER XAB$S_NOEXE = 1
	        PARAMETER XAB$V_NOEXE = 2		!  deny execution access 
	        PARAMETER XAB$S_NODEL = 1
	        PARAMETER XAB$V_NODEL = 3		!  deny delete access 
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! XABPRODEF
	PARAMETER XAB$M_PROPAGATE = '00000001'X
	PARAMETER XAB$K_PROLEN_V3 = '00000010'X	!  V3a xabpro length 
	PARAMETER XAB$C_PROLEN_V3 = '00000010'X	!  V3a xabpro length 
	PARAMETER XAB$K_PROLEN = '00000058'X	!  xabpro length 
	PARAMETER XAB$C_PROLEN = '00000058'X	!  xabpro length 
	STRUCTURE /XABPRODEF1/
	    BYTE      XABPRODEF$$_FILL_1
	    BYTE      XABPRODEF$$_FILL_2
	    INTEGER*2 XABPRODEF$$_FILL_3
	    INTEGER*4 XABPRODEF$$_FILL_4		! HAS SAME COD, BLN, SPARE AND NXT FIELD 
! THESE 4 FIELDS ARE COMMON TO ALL XABS AND
! HAVE BEEN DEFINED BY $XABDEF
	    UNION
	        MAP
	        INTEGER*2 XAB$W_PRO			!  protection mask 
	        END MAP
	        MAP
	            PARAMETER XAB$S_SYS = 4
	            PARAMETER XAB$V_SYS = 0			!  system 
	            PARAMETER XAB$S_OWN = 4
	            PARAMETER XAB$V_OWN = 4			!  owner 
	            PARAMETER XAB$S_GRP = 4
	            PARAMETER XAB$V_GRP = 8			!  group 
	            PARAMETER XAB$S_WLD = 4
	            PARAMETER XAB$V_WLD = 12
	            BYTE %FILL (2)				!  world 
	        END MAP
	    END UNION
	    BYTE      XAB$B_MTACC			!  Magtape access control char. 
	    UNION
	        MAP
	        BYTE      XAB$B_PROT_OPT		!  XABPRO options field
	        END MAP
	        MAP
	            PARAMETER XAB$S_PROPAGATE = 1
	            PARAMETER XAB$V_PROPAGATE = 0		!  Propagate security attributes on $ENTER and $RENAME
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$L_UIC			!  uic code 
	        END MAP
	        MAP
	            INTEGER*2 XAB$W_MBM			!  member code 
	            INTEGER*2 XAB$W_GRP			!  group code 
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_PROT_MODE(2)		!  eventually may be a quadword
	        END MAP
	        MAP
	            BYTE      XAB$B_PROT_MODE		!  but currently only a byte
	        END MAP
	    END UNION
	    INTEGER*4 XAB$L_ACLBUF			!  address of user's ACL buffer
	    INTEGER*2 XAB$W_ACLSIZ			!  size of user's ACL buffer
	    INTEGER*2 XAB$W_ACLLEN			!  return length of entire ACL
	    INTEGER*4 XAB$L_ACLCTX			!  ACL context field
	    INTEGER*4 XAB$L_ACLSTS			!  ACL return err status
	    INTEGER*4 XABPRODEF$$_FILL_10		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_11		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_12		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_13		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_14		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_15		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_16		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_17		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_18		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_19		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_20		!  spare
	    INTEGER*4 XABPRODEF$$_FILL_21		!  spare
	END STRUCTURE	! XABPRODEF1
 
  By the way, the line numbers in the diffs won't match up, since I've made
other changes to the sources.

  I had been holding off releasing any changes due to the impending release
of the rewritten Finger field test, but as that looks to be a few months off,
would any of you like to see a complete remastered kit for traditional Fin-
ger? If you would, send me direct mail (no need to burden the list with the
traffic).

	Terry Kennedy		Operations Manager, Academic Computing
	terry@spcvxa.bitnet	St. Peter's College, Jersey City, NJ USA
	terry@spcvxa.spc.edu	+1 201 915 9381
