*COMDECK JLRECDCLS
#**********************************************************************#
          BEGIN 
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG RECORD HEADER           #
  
  
            ITEM JLHDWDA    C(0,0,10);  # WORD DEFINITION              #
            ITEM JLHDFILA   C(0,0,1);   # NOT USED                     #
            ITEM JLHDTYPE   C(0,6,1);   # RECORD TYPE CODE             #
                                        #    0 = BEFORE IMAGE  TRF ONLY#
                                        #    1 = OPEN                  #
                                        #    2 = PRIVACY BREACH        #
                                        #    3 = BEFORE IMAGE          #
                                        #    4 = AFTER IMAGE           #
                                        #    5 = CLOSE                 #
                                        #    6 = INVOKE                #
                                        #    7 = TERMINATE             #
                                        #    8 = RECOVERY POINT        #
                                        #    9 = CHECKPOINT            #
                                        #    A = BEGIN                 #
                                        #    B = COMMIT                #
                                        #    C = DROP                  #
                                        #    D = DUMP START            #
                                        #    E = DUMP END              #
                                        #    F = VERSION CHANGE        #
            ITEM JLHDFILAA  C(0,12,1);  # NOT USED                     #
            ITEM JLHDDIRC   C(0,18,1);  # DIRECTIVE CODE (CDCS)        #
                                        #   A = OPEN/RETRIEVAL         #
                                        #   B = OPEN/UPDATE            #
                                        #   C = READ                   #
                                        #   D = WRITE                  #
                                        #   E = REWRITE                #
                                        #   F = DELETE                 #
                                        #   Z = FOR RECORD TYPES OTHER #
                                        #        THAN 1, 3 OR 4        #
            ITEM JLHDTRLS   C(0,24,6);  # DISPLAY CODE NUMBER FOR THE  #
                                        #  NUMBER OF CHARACTERS IN THE #
                                        #  TRAILER PART OF THE RECORD  #
            ITEM JLHDWDB    C(1,0,10);  # WORD DEFINITION              #
            ITEM JLHDFILB   C(1,0,2);   # RESERVED FOR DBRCN/DBRST     #
            ITEM JLHDSEQNO  U(1,0,12);  # SEQUENCE NUMBER (DBRCN/DBRST)#
            ITEM JLHDSCID   C(1,12,4);  # SCHEMA IDENTIFIER ASSIGNED BY#
                                        #  MD UTILITY (DISPLAY CODE)   #
            ITEM JLHDARID   C(1,36,4);  # AREA IDENTIFIER ASSIGNED BY  #
                                        #  MD UTILITY (DISPLAY CODE)   #
            ITEM JLHDWDC    C(2,0,10);  # WORD DEFINITION              #
            ITEM JLHDVENM   C(2,0,7);   # REQUESTED VERSION NAME       #
            ITEM JLHDFILC   C(2,42,3);  # NOT USED                     #
            ITEM JLHDWDD    C(3,0,10);  # WORD DEFINITION              #
            ITEM JLHDJBID   C(3,0,7);   # JOB NAME (ASSIGNED BY OS)    #
            ITEM JLHDFILD   C(3,42,2);  # NOT USED                     #
            ITEM JLHDPAD    C(3,54,1);  # NUMBER OF UNUSED CHARS AT    #
                                        # THE END OF BEFORE/AFTER      #
                                        # RECORD IMAGES                #
            ITEM JLHDUSID   C(4,0,10);  # USER ID (FROM INVOKE CALL)   #
            ITEM JLHDWDE    C(5,0,10);  # WORD DEFINITION              #
            ITEM JLHDDATE   C(5,0,5);   #  JULIAN DATE (YYDDD) STAMP   #
            ITEM JLHDFILE   C(5,30,2);  # NOT USED                     #
            ITEM JLHDKEYL   C(5,42,3);  # FOR TYPE 3 AND 4 RECORDS, THE#
                                        # DISPLAY CODE NUMBER FOR THE  #
                                        # PRIMARY KEY LENGTH. SET TO   #
                                        # DISPLAY CODE ZERO FOR OTHER  #
                                        # TYPES.                       #
            ITEM JLHDTIME   C(6,0,10);  #  10-CHARACTER TIME STAMP     #
                                        #  ( HH.MM.SS )                #
  
# THE FOLLOWING DECLARATIONS DESCRIBE THE JOURNAL LOG HEADER RECORD    #
# (THE FIRST RECORD IN THE FILE).                                      #
  
            ITEM JLFRSCNAM  C(01,00,30); # SCHEMA NAME                 #
            ITEM JLFRCDATE  C(04,00,10); # CREATE DATE ( YY/MM/DD.)    #
            ITEM JLFRCTIME  C(05,00,10); # CREATE TIME ( HH.MM.SS.)    #
            ITEM JLFRDDATE  C(06,00,10); # LAST DUMP DATE ( YY/MM/DD.) #
            ITEM JLFRDTIME  C(07,00,10); # LAST DUMP TIME ( HH.MM.SS.) #
            ITEM JLFRFLIM   C(08,00,10); # FILE SIZE (PRUS)            #
            ITEM JLFRMBLOK  C(09,00,05); # BLOCK LENGTH (WORDS)        #
                                         # BITS 30-53 ARE UNUSED       #
            ITEM JLFRSTAT   C(09,54,01); # STATUS OF FILE              #
                                         # 0 = INACTIVE                #
                                         # 1 = FATAL ERROR             #
                                         # 2 = DUMP INITIATED          #
                                         # 3 = IN USE                  #
            ITEM JLFRLRPT   C(10,00,10); # LAST RECOVERY POINT         #
            ITEM JLFRLRPTL  C(11,00,10); # LAST RECOVERY POINT LOCATION#
            ITEM JLFRPFN    C(12,00,10); # PERMANENT FILE NAME         #
  
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "OPEN" RECORD TRAILER   #
  
            ITEM JLOPARNM   C(7,0,30);  # 30-CHARACTER AREA NAME       #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "CLOSE" RECORD TRAILER  #
  
            ITEM JLCLARNM   C(7,0,30);  # 30 CHARACTER AREA NAME       #
            ITEM JLCLNRDS   C(10,0,10); # NUMBER OF READ OPERATIONS    #
            ITEM JLCLNWRS   C(11,0,10); # NUMBER OF WRITE OPERATIONS   #
            ITEM JLCLNRWS   C(12,0,10); # NUMBER OF REWRITE OPERATIONS #
            ITEM JLCLNDLS   C(13,0,10); # NUMBER OF DELETE OPERATIONS  #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "PRIVACY" RECORD TRAILER#
  
            ITEM JLPVBRDT   C(7,0,1);   # DATA TYPE OF BREACH ATTEMPT  #
                                        #  A " AREA                    #
                                        #  B = ITEM/DATA AGGREGATE     #
                                        #  C = RECORD                  #
            ITEM JLPVFLLR   C(7,6,1);   # NOT USED                     #
            ITEM JLPVSCIT   C(7,12,4);  # SCHEMA ITEM ORDINAL (IF DT=B)#
            ITEM JLPVSSIT   C(7,36,4);  # SUB-SCHEMA ITEM ORD (IF DT=B)#
            ITEM JLPVSCNM   C(8,0,30);  # 30-CHARACTER SCHEMA NAME     #
            ITEM JLPVSBNM   C(11,0,30); # 30-CHARACTER SUB-SCHEMA NAME #
            ITEM JLPVARNM   C(14,0,30); # 30-CHARACTER AREA NAME       #
            ITEM JLPVRCNM   C(17,0,30); # 30-CHARACTER RECORD NAME     #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "INVOKE" AND "VERSION"  #
# RECORD TRAILER                                                       #
  
            ITEM JLINSCNM   C(7,0,30);  # 30-CHARACTER SCHEMA NAME     #
            ITEM JLINSBNM   C(10,0,30); # 30-CHARACTER SUB-SCHEMA NAME #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "TERMINATE" RECORD TRLR #
  
            ITEM JLTMSCNM   C(7,0,30);  # 30-CHARACTER SCHEMA NAME     #
            ITEM JLTMSBNM   C(10,0,30); # 30-CHARACTER SUB-SCHEMA NAME #
            ITEM JLTMNRDS   C(13,0,10); # NUMBER OF READ OPERATIONS    #
            ITEM JLTMNWRS   C(14,0,10); # NUMBER OF WRITE OPERATIONS   #
            ITEM JLTMNRWS   C(15,0,10); # NUMBER OF REWRITE OPERATIONS #
            ITEM JLTMNDLS   C(16,0,10); # NUMBER OF DELETE OPERATIONS  #
            ITEM JLTMRCPT   C(17,0,10); # RECOVERY POINT NUMBER        #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "RECOVERY POINT" TRAILER#
  
            ITEM JLRPNUMB   C(7,0,10);  # RECOVERY POINT NUMBER        #
            ITEM JLRPUTXT   C(8,0,30);  # USER OR CDCS TEXT FOR        #
                                        # RECOVERY POINT.              #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "CHECKPOINT" TRAILER    #
  
            ITEM JLCPNUMB   C(7,0,10);  # CHECKPOINT NUMBER            #
            ITEM JLCPRNUM   C(8,0,10);  # RECOVERY POINT NUMBER        #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "BEGIN", "COMMIT", AND  #
# "DROP" RECORD TRAILER                                                #
  
            ITEM JLARBCID   C(7,0,10);  # TRANSACTION IDENTIFIER       #
            ITEM JLARURID   C(8,0,10);  # RESTART IDENTIFIER           #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "BEFORE/AFTER IMAGE" TRL#
  
            ITEM JLBARKEY   C(7,0,240); # PRIMARY RECORD KEY           #
            ITEM JLBARIMG   C(8,0,10);  # BEFORE/AFTER IMAGE RECORD    #
  
# THE FOLLOWING ITEMS DESCRIBE THE JOURNAL LOG "VERSION-CHANGE" TRAILER#
  
            ITEM JLVRSCNM   C(7,0,30);  # 30-CHARACTER SCHEMA NAME     #
            ITEM JLVRSBNM   C(10,0,30); # 30-CHARACTER SUBSCHEMA NAME  #
  
          END 
  
#**********************************************************************#
