*COMDECK JFQUEDCLS
  
      DEF DFJFNLAST #08#;    # NEXT TO LAST ENTRY IN JFQUEUE           #
      DEF DFJFLAST  #09#;    # LAST ENTRY IN JFQUEUE                   #
      DEF DFJFILEOK #10#;    # LOG FILE IS ACCESSIBLE - NOT SWITCHING  #
      DEF DFJFET    #11#;    # JOURNAL LOGGING FET ADDRESS             #
      DEF DFLOGBUF  #(SASCMAXLOG[SALX]+4)/5 + 128#; 
                             # JOURNAL/TRANSACT LOG BUFFER SIZE        #
  
#     JFQUEUE ENTRY TYPE CODES   - ALL BUT DFJFQEMPTY MUST BE EVEN     #
  
      DEF DFJFQEMPTY  #01#;  # CODE FOR AN EMPTY QUEUE POSITION        #
      DEF DFJFQREC    #02#;  # WRITE RECORD TO BUFFER - DONT FORCE OUT #
      DEF DFJFQRECF   #04#;  # WRITE RECORD TO BUFFER - FORCE OUTPUT   #
      DEF DFJFQFORCE  #06#;  # FORCE OUTPUT TO THE DISK                #
      DEF DFJFQRES    #08#;  # RESERVE SPACE IN THE JOURNAL LOG FILE   #
      DEF DFJFQNULL   #10#;  # NULLIFIED ENTRY, NOT YET COMPRESSED OUT #
  
  
      BASED ARRAY JFQUEUE S(1); 
        BEGIN 
        ITEM JFQWORD I(00,00,60);  # FULL WORD DEFINITION              #
        ITEM JFQCODE U(00,54,06);  # ENTRY TYPE CODE                   #
        ITEM JFQRCB  I(00,00,18);  # RCB ADDRESS OF USER               #
  
#       FIELDS SPECIFIC TO DFJFQREC AND DFJFQRECF TYPE ENTRIES         #
  
        ITEM JFQREC  I(00,18,18);  # ADDRESS OF RECORD TO BE OUTPUT    #
        ITEM JFQLEN  I(00,36,18);  # LENGTH OF RECORD TO BE OUTPUT     #
  
#       FIELDS SPECIFIC TO DFJFQFORCE ENTRY                            #
  
        ITEM JFQWA   I(00,24,30);  # CWA WHEN RECORD WAS PUT IN BUFFER #
  
#       FIELDS BEYOND THE END OF THE JFQUEUE                           #
  
        ITEM JFQTIME U(DFJFILEOK,18,12); # TIMESTAMP OF LAST DB$JRPT   #
        ITEM JFQMAX  U(DFJFILEOK,30,24); # PREALLOCATED PRU SIZE       #
        ITEM JFQSW   B(DFJFILEOK,58,01); # FILE SWITCH IS REQUIRED     #
        ITEM JFILEOK B(DFJFILEOK,59,01); # NOT CURRENTLY SWITCHING     #
                                         # OR PROCESSING RECOVERY POINT#
  
        ITEM JFQFET  I(DFJFET,00,60);   # FET                          #
        END 
  
