*COMDECK LFGSTAN
      DEF DIR$LST # 1 #;     # NUMBER ASSOCIATED WITH DIRECTIVE HEADER #
      DEF DIR$HDR # " INPUT DIRECTIVES" #;
      DEF SUM$LST # 2 #;     # NUMBER ASSOCIATED WITH SUMMARY HEADER   #
      DEF SUM$HDR # " NETWORK LOAD FILE CONTENTS SUMMARY" #;
  
      COMMON PAGE;
        BEGIN 
        ITEM FIRST$PAGE B;   # FIRST PAGE FLAG                         #
        ITEM LINEN U;        # LINE NUMBER                             #
        ITEM LISTFLG B;      # FLAG SET OF LISTING IS REQUESTED        #
        ITEM PAGEN U;        # PAGE NUMBER                             #
        ITEM PARTNUM U;      # PARTITION NUMBER                        #
  
        ARRAY BLANKL [0:0] S(1);
          BEGIN 
          ITEM BLANKL1 C(0,0,1) = [" "];
          ITEM BLANKZ U(0,6,54) = [ 0 ];
          END 
  
        ARRAY LISTH [0:0] S(5); 
          BEGIN 
          ITEM LISTH1 C(0,0,44) = 
            [" NO.   PARTITION NAME   INPUT FILE   RECORDS"]; 
          ITEM LISTHZ U(4,24,36) = [ 0 ]; 
          END 
  
        ARRAY SKIPPG [0:0] S(1);
          BEGIN                # SKIP TO NEW PAGE                      #
          ITEM SKIPPG1 C(0,0,2) = ["1 "]; 
          ITEM SKIPZ U(0,12,48) = [ 0 ];
          END 
  
        ARRAY STANDH [0:0] S(13); 
          BEGIN                # STANDARD HEADER                       #
          ITEM STANDH1 C(0,0,35); 
          ITEM STANDB1 C(3,30,35) = [" "];
          ITEM STANDLFG C(7,0,3) = ["LFG"]; 
          ITEM STANDV C(7,18,10); 
          ITEM STANDLV C(8,18,5); 
          ITEM STANDB2 C(8,48,2) = [" "]; 
          ITEM STANDATE C(9,0,10);
          ITEM STANDTIME C(10,0,10);
          ITEM STANDB3 C(11,0,6) = [" "]; 
          ITEM STANDPG C(11,36,4) = ["PAGE"]; 
          ITEM STANDPN C(12,0,6); 
          ITEM STANDZ U(12,36,24) = [ 0 ];
          END 
        END # COMMON -PAGE- # 
