*COMDECK OUTCDA 
      COMMON OUTCDA;
        BEGIN 
        ITEM LENGTH     I;   # MAXIMUM MESSAGE LENGTH                  #
        ITEM LINE$COUNT I;   # LINE COUNT                              #
        ITEM LTAA       I;   # NUMBER OF FRAGMENTED BUFFERS            #
        ITEM MIDNITE    I;   # MIDNIGHT RTIME IN MILLISECONDS          #
        ITEM OUMSGNO    I;   # NUMBER OF MESSAGES IN ZZZZZDN           #
        ITEM OUPART     B;   # OUTPUT PARTIAL LINE IF TRUE             #
        ITEM PAGE$COUNT I;   # PAGE COUNT                              #
        ITEM SCLHHMMSS  I;   # START CLOCK TIME OFFSET                 #
        ITEM SDTYYMMDD  I;   # START DATE IN YY/MM/DD                 # 
        ITEM SM         I;   # STARTING MESSAGE                        #
        ITEM SRTSEC     I;   # START TIME OFFSET IN SECONDS            #
        ITEM SRTMILS    I;   # START TIME OFFSET IN MILLISECONDS       #
        ITEM TRUNC;          # WORD LENGTH OF MESSAGE                  #
  
        ARRAY L1 S(12); 
          BEGIN 
          ITEM L1FIL0 C(0,0,1)      =["1"]; 
          ITEM L1FIL1 C(0,6,39)     =[" "]; 
          ITEM L1NAME C(4,0,7); 
          ITEM L1FIL2 C(4,42,61)    =[" LOG FILE OUTPUT"];
          ITEM L1DATE C(10,48,8); 
          ITEM L1FIL3 C(11,36,2)    =[" "]; 
          ITEM L1ZERO U(11,48,12)   =[0]; 
          END 
  
        ARRAY L2 S(12); 
          BEGIN 
          ITEM L2FIL1 C(0,0,40)     =[" "]; 
          ITEM L2FIL2 C(4,0,16)     =["DATE RECORDED - "];
          ITEM L2DATE C(5,36,8);
          ITEM L2FIL3 C(6,24,44)    =[" "]; 
          ITEM L2FIL4 C(10,48,5)    =["PAGE "]; 
          ITEM L2PGNO C(11,18,5); 
          ITEM L2ZERO U(11,48,12)   =[0]; 
          END 
  
        ARRAY L3 S(6);
          BEGIN 
          ITEM L3FIL1 C(0,0,40)     =[" "]; 
          ITEM L3FIL2 C(4,0,13)     =["MACHINE ID - "]; 
          ITEM L3MID  C(5,18,2);
          ITEM L3FIL3 C(5,30,3)     =[" "]; 
          ITEM L3ZERO U(5,48,12)    =[0]; 
          END 
  
        ARRAY THRL S(1);
          BEGIN 
          ITEM THFIL1 C(0,0,8)      =["0"]; 
          ITEM THFIL2 U(0,48,12)    =[0]; 
          END 
        END 
  
