*COMDECK PFHASH 
          CTEXT - PFHASH  HASH PERMANENT FILE ID
          LIST   X
**        PFHASH COMDECK
* 
* 
**
*         HASH  ID
* 
*                ALGORITHM GIVEN USES THREE TECHNIQUES
* 
*                A) NUMBER OF BUCKETS - PRIME - REDUCES 
*                                               CONFLICTS 
*                B) ALL SUBD NUMBERS CNA BE CALCULATED
* 
* 
*         ID HASH COMDECK 
* 
*         THIS ALGORITHM WORKS BEST WITH THE NO. OF SDS BEING PRIME 
*         HASH NO. = MOD(LOGICAL SUM OF ID CHARACTERS)
*                WHERE THE MOD BASE IS THE NUMBER OF SDS
* 
          IF     DEF,DUM
* 
          LDM    SELECT+4 
          SHN    -6 
          LMM    SELECT+3 
          LMM    SELECT+2 
          LMM    SELECT+1 
          LMM    SELECT 
          STD    D.T0 
HASH4     SBM    SDTLENGT 
          MJN  HASH5
          STD    D.T0 
          UJN  HASH4
* 
HASH5     LDD    D.T0 
          ADN    1
          STM    SUBD 
* 
          ELSE
* 
          RJM  MSTADR 
          ADN    W.MSPFD
          CRD    D.T0 
          LDD    D.T0+C.MSHPN 
          SHN    -6                NUMBER OF HASH POINTS
          STD    TEMP1
          LDM    OWNER+4
          SHN    -6 
          LMM    OWNER+3
          LMM    OWNER+2
          LMM    OWNER+1
          LMM    OWNER
HASH1     SBD    TEMP1
          PJN  HASH1
          RAD    TEMP1
          ADN    1
          STM    SUBD 
* 
          ENDIF 
* 
**        END OF PFHASH 
          LIST   *
          ENDX
