*COMDECK  WRKSTG77
00002  WORKING-STORAGE SECTION.                                         WRKSTG77
       77  TALLY PICTURE 9(6) VALUE ZEROS.
       77 CURRENT-DATE   PICTURE X(8).
       77  REL-LIMIT PICTURE 99 VALUE 16. 
       77  BLNK-SUB PICTURE 99. 
00009  77  FIRST-REC-SW                PICTURE X   VALUE "Y".              CL**2
00010  77  SEC-PAGE-SW             PICTURE X   VALUE "Y".                  CL**2
00011  77  CTL-RECORD-COUNT      PICTURE S99 COMP VALUE ZERO.              CL**2
00012  77  STD-LINE-TYPE           PICTURE X VALUE "A".                    CL**2
00013  77  STD-BLINE-TYPE          PICTURE X VALUE "B".                    CL**2
00014  77  MK4-LINE-TYPE           PICTURE X VALUE "X".                    CL**2
00015  77  STD-CLINE-TYPE              PICTURE X VALUE "C".                CL**2
  
      *    THE CONTROL FILE LIMIT IS DETERMINED BY THE
      *    TOTAL NUMBER OF WRITES PERFORMED BY DCUTL100 
      *    AT INITIALIZATION TIME.
  
       77  CONTROL-FILE-LIMIT     PICTURE 999 VALUE 130.
