控制级指示器(L1-L9).doc

1.4.1.3 控制級指示器（L1L9） 控制級指示器是在輸入規範表中63、64列上定義的，把一個輸入欄位定義為一個控制欄位，用它限制計算和輸出操作，有效的控制級指示器L1L9。 控制級指示器可定義一個輸入欄位作為控制欄位。當讀一個控制欄位時，該控制欄位中的資料和前一個記錄中相同的控制欄位進行比較。如果資料不同，發生控制中斷，則分配給控制欄位的控制級指示器置ON。這樣可以用控制級指示器作為條件限制操作，也即只對讀入的控制欄位中有相同資訊的所有記錄進行處理。由於該指示器在總計時和第一次明細期間保持ON，所以它們也能用來限制總計列印（控制組的最後一個記錄）或者明細列印（控制組中第一個記錄）。在讀下一個記錄前，控制級指示器為OFF。 讀入含有控制欄位的第一個記錄之後，能發生控制中斷，這個記錄中的控制欄位與含有十六進位零的記憶體中一個區域比較，由於來自兩個不同記錄的欄位不能比較，則在這個週期內繞過總計計算和總計輸出操作。 控制級指示器按重要程度的順序排列，L1最低，L9最高。作為控制中斷的結果，一個較高級指示器為ON時，所有較它低級的指示器設為ON。如果定義了低級指示器，則它們僅可用於程式中。例如，由於控制中斷，L8為ON，則L1L7為ON，當輸入檔是檔末時，則LR置ON，LR被認為是最高控制級指示器，它強迫使L1L9均為ON。 你也可以把控制級指示器定義做記錄標識或結果指示器，以這種方式使用它們時，當較高級指示器置ON時，較低級指示器的狀態不變。例如，L3做為結果指示器，如果L3置為ON，則L1和L2的狀態不變。 控制欄位相對於其他欄位的重要性在於它能決定如何分配控制級指示器。例如，要求小計的資料應該比最後總計所需資料的控制指示器級別低，如果一個部門是由許多雇員組成，則含有部門號的控制欄位應該有比含有雇員號的控制欄位較高的控制級指示器（看1.4.1.3.1中的圖10）。 1.4.1.3.1 控制級指示器規則 當你分配控制級指示器時，請記住： 僅可為主檔或次檔指定控制欄位 不可以為全過程檔，二進位欄位或先行欄位指定控制欄位 當在輸入規範表的4962列上指出陣列名稱時，不能使用控制級指示器，但是可以把控制級指示器和陣列元素一起使用。 控制級比較操作按找到的順序進行，而不管它們來自哪個檔。 如果在不同的記錄類型或不同的檔上使用相同控制級指示器，與指示器相聯繫的控制欄位必須長度相同（看圖10）。但僅要求在類型上匹配的日期、時間、時間標記欄位除外，（就是說，它們可能是不同格式）。 控制級指示器的欄位長度即為記錄中一個控制級指示器長度。例如，在記錄中，L1有10位元組的欄位長，則L1的控制級指示器的欄位長為10個位元組。 分離控制欄位的指示器長度為所有相關欄位的總和。假如L2是由3個欄位組成的分離控制欄位，長度分別為12、2和4個位元組，那麼L2的控制級指示器欄位長度為18個位元組。 如果多個記錄使用相同控制級指示器，那麼指示器的欄位長僅為一個記錄長，而不是所有記錄的長度和。 在程式內，全部控制級指示器的控制欄位長總和不能超過256位元組。 分配給不同控制級指示器的控制欄位的記錄位置可以在相同記錄類型上重迭（看圖11）。對於要求控制或匹配欄位的記錄類型，控制或匹配欄位的總長不多於256。例如，在圖11中，分配給控制級的是15個位元組。 在控制級操作中，可以忽略欄位名。因此，分配給同樣控制級指示器的不同記錄類型的欄位可以有相同名。 控制級可按任意順序寫，L2可出現在L1之前，不必分配所有較低級控制指示器。 如果檔中不同記錄類型沒有相同數目的控制欄位，能產生不需要的控制中斷。圖12表示了如何避免不需要的控制中斷。 *.1.+.2.+.3.+.4.+.5.+.6.+.7. A* EMPLOYEE MASTER FILE - EMPMSTL A R EMPREC PFILE(EMPMSTL) A EMPLNO 6 A DEPT 3 A DIVSON 1 A* A* (ADDITIONAL FIELDS) A* A R EMPTIM PFILE(EMPMSTP) A EMPLNO 6 A DEPT 3 A DIVSON 1 A* A* (ADDITIONAL FIELDS) *.1.+.2.+.3.+.4.+.5.+.6.+.7. IFilename+SqNORiPos1+NCCPos2+NCCPos3+NCC. I.Fmt+SPFrom+To+DcField+L1M1FrPlMnZr. I* I* 在這個例子中，對三個欄位定義控制級指示器，控制欄位名（DIVSON， I* DEPT，EMPLNO）。給出相對的重要性。DIVSON是最主要的，使用最 I* 高的控制級（L3），DEPT比DIVSON低，分配給它L2，EMPLNO有 I* 最低級的控制級指示器L1。 I* IEMPREC 10 I EMPLNO L1 I DIVSON L3 I DEPT L2 I* I* 相同的控制級指示器能用於不同的記錄類型，但同一指示器的控制欄位必須 I* 有同樣的長度，對外部描述檔中的記錄，欄位的屬性在外部描述中定義。 I* IEMPTIM 20 I EMPLNO L1 I DEPT L2 I DIVSON L3圖10 控制級指示器 控制欄位1 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 控制欄位2 一共有15個位置分配給了控制級圖11 重迭控制欄位 (L2) (L2) (L1) Sale Sale Sale 號碼 名字 號碼 item名 總數 1 2 3 5 1 2 3 5 6 8 Sale記錄 Item記錄 *.1.+.2.+.3.+.4.+.5.+.6.+.7. IFilename+SqNORiPos1+NCCPos2+NCCPos3+NCC. I.Fmt+SPFrom+To+DcField+L1M1FrPlMnZr. ISALES 01 I 1 2 L2FLD L2 I 3 15 NAME IITEM 02 I 1 2 L2FLD L2 I 3 5 L1FLD L1 I 6 8 AMT CL0N01Factor1+Opcode(E)+Factor2+Result+Len+D+HiLoEq. C* 當讀Salesman記錄時，指示器11設為ON。 C 01 SETON 11 C* 當讀item記錄時，指示器11設為OFF，允許發生正常的01控制中斷。 C 02 SETOFF 11 C 02AMT ADD L1TOT L1TOT 5 0 CL1 L1TOT ADD L2TOT L2TOT 5 0 CL2 L2TOT ADD LRTOT LRTOT 5 0 C* *.1.+.2.+.3.+.4.+.5.+.6.+.7. OFilename+DF.N01N02N03Excnam+B+A+Sb+Sa+. O.N01N02N03Field+YB.End+PConstant/editword/DTformat OPRINTER D 01 1 1 O L2FLD 5 O NAME 25 O D 02 1 O L1FLD 15 O AMT Z 15 O* 下個item記錄引起L1控制中斷，如果指示器11為ON，不列印總計輸出。 O* 對item記錄做明細計算。 OFilename+DF.N01N02N03Excnam+B+A+Sb+Sa+. O.N01N02N03Field+YB.End+PConstant/editword/DTformat O T L1N11 1 O L1TOT ZB 25 O 27 * O T L2 1 O L2TOT ZB 25 O 28 * O T LR 1 O LRTOT ZB 25 01 JOHN SMITH 不需要的 01 JOHN SMITH 控制 100 3 中斷 100 3 100 2 100 2 5 5 101 4 101 4 4 4 9 9 02 JANE DOE 不需要的 02 JANE DOE 控制 100 6 中斷 100 6 100 2 100 2 8 8 101 3 101 3 3 3 11 11 20 20 不需要的控制中斷表示的輸出 正確的輸出圖12 如何避免不需要的控制中斷一般情況下，不同的記錄類型有相同數目的控制欄位。但是，有一些應用需要在某些記錄中有不同的控制欄位。推銷員記錄僅有一個L2的控制欄位，而item記錄則有L1和L2兩個控制欄位。如果用正常的編碼，由推銷員記錄後的第一個item記錄生成一個不需要的控制中斷，這個是由緊跟在推銷員記錄後的L1控制中斷識別出來的，並在推銷員記錄的下一行上列印一個星號。數字型控制欄位以區位十進位格式比較，壓縮型數位輸入欄位長度是由下列公式決定： d=2n-1d為該欄位中數位個數，n為輸入欄位長度。壓縮