*COMDECK JLPCMDCLS
#**********************************************************************#
  
*CALL JLDEFDCLS 
  
# COMMON FOR JOURNAL LOG PROCESSOR                                     #
  
      COMMON DB$JLCM; 
        BEGIN 
  
      BASED ARRAY JLREC;
*CALL JLRECDCLS 
  
  
# THE FOLLOWING BASED ARRAY DESCRIBES THE JOURNAL LOG FIT              #
  
      BASED ARRAY JLFIT;
        BEGIN 
        ITEM JLFITWD    U(0,0,60);      #FIRST WORD                    #
        ITEM JLFLFN     C(0,0,7);       #LOGICAL FILE NAME             #
        ITEM JLFDSL     B(1,0,1);       #TRUE IF TAPE FILE             #
        ITEM JLFFP      U(10,26,7);     #FILE POSITION                 #
        ITEM JLFRL      U(11,0,24);     #RECORD LENGTH                 #
        ITEM JLFOF      U(11,25,2);     #OPEN FLAG                     #
        ITEM JLFVF      U(11,30,2);     #END-OF-VOLUME FLAG            #
        ITEM JLFMRL     U(12,0,24);     #MAXIMUM RECORD LENGTH         #
        ITEM JLFBFS     U(17,42,18);    #BUFFER SIZE                   #
        ITEM JLFDX      U(12,42,18);    #END-OF-DATA EXIT ADDRESS      #
        ITEM JLFES      U(13,33,9);     #ERROR STATUS                  #
        ITEM JLFEX      U(13,42,18);    #ERROR EXIT ADDRESS            #
        ITEM JLFWSA     U(15,42,18);    #WORKING STORAGE ADDRESS       #
        ITEM JLFOC      U(17,01,2);     #OPEN/CLOSE FLAG               #
        ITEM JLFON      U(24,4,1);      #OLD/NEW FLAG                  #
        END 
  
  
  
# THE FOLLOWING BASED ARRAY IS USED TO FORMAT THE PRIMARY KEY IN THE   #
# JOURNAL LOG RECORD                                                   #
  
      BASED ARRAY PRIMKEY;
          ITEM PRKEY  C(0,0,240); 
  
  
# COMMON PARAMETERS                                                    #
  
      ITEM PARLEN;                      # LENGTH (CHARS) OF THE STUB OF#
                                        # THE LOG RECORD. NOTE--THIS   #
                                        # LENGTH INCLUDES THE TRAILER  #
                                        # FOR ALL RECORD TYPES EXCEPT  #
                                        # THE RECORD IMAGE FOR TYPES 3 #
                                        # AND 4 ("BEFORE/AFTER" IMAGES)#
      ITEM TRLRLEN;                     # LENGTH (CHARS) OF TRAILER    #
                                        # (APPLICABLE ONLY TO TYPES 3  #
                                        # AND 4--"BEFORE/AFTER" IMAGE) #
      ITEM WSA;                         # ADDRESS OF RECORD IMAGE      #
      ITEM JULDAT C(10);                # JULIAN DATE (FROM SYSTEM)    #
      ITEM TIME C(10);                  # TIME (FROM SYSTEM)           #
        END 
  
#**********************************************************************#
