IBM Year 2000 - y2kmas.gif
 
<HEADER>
  <PROGRAM>           dataeg1  <ANALYZED AT>        Mon Mar  2 04:33:59 1998
  <INPUT-SEED-FILE>   D:\dataeg1\dataeg1.xsd  <SAVED AT>           Fri Jan  9 02:43:08 1998
  <OUTPUT-OPTIONS>
    <NAME> YES
    <CALL> YES
    <DDNAME> YES
    <CICS-FILE-NAME> YES
    <CICS-FILE-VAR> YES
    <NON-YEAR> YES
  </OUTPUT-OPTIONS>
</HEADER>

<PROGRAM> DATAEG1

  <PROGRAM-INFO>
    <FILE>  V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl  </FILE>
  </PROGRAM-INFO>

  <DDNAME> INFILE
    <RESULT>
      <USED-AS-YEAR>
        <INDEX>  5   <LENGTH> 2
        <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
      </USED-AS-YEAR>
    </RESULT>
  </DDNAME>

  <DDNAME> OUTFILE
    <RESULT>
      <USED-AS-YEAR>
        <INDEX>  5   <LENGTH> 2
        <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
      </USED-AS-YEAR>
    </RESULT>
  </DDNAME>

  <NAME> DATESINFILE
    <NAME> DATESIN
      <NAME> THEYEAR <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 21.16.21.22 </DEF-POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 18.12.18.18 </DEF-POS>
        <POS> 201.22.201.28r </POS>
      </FILE>
    </NAME>
    <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
      <DEF-POS> 17.12.17.22 </DEF-POS>
      <POS> 200.22.200.32 </POS>
    </FILE>
  </NAME>

  <NAME> DATESOUTFILE
    <NAME> DATESOUT
      <NAME> THEYEAR <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 27.16.27.22 </DEF-POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 24.12.24.19 </DEF-POS>
        <POS> 201.33.201.40m 202.23.202.30er </POS>
      </FILE>
    </NAME>
    <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
      <DEF-POS> 23.12.23.23 </DEF-POS>
    </FILE>
  </NAME>

  <NAME> DATE1
    <NAME> SPLIT
      <NAME> THEDAY <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 33.20.33.25 </DEF-POS>
          <POS> 108.23.108.28m 113.17.113.22r 130.23.130.28m </POS>
          <POS> 139.15.139.20r </POS>
        </FILE>
      </NAME>
      <NAME> THEMONTH <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 34.20.34.27 </DEF-POS>
          <POS> 38.32.38.39 140.25.140.32m 142.25.142.32m </POS>
        </FILE>
      </NAME>
      <NAME> THEYEAR <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 35.20.35.26 </DEF-POS>
          <POS> 38.46.38.52 132.23.132.29m </POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 32.16.32.20 </DEF-POS>
        <POS> 36.36.36.40 </POS>
      </FILE>
    </NAME>
    <NAME> COMPOSITE
      <NAME> WHOLEDATE <SIZE> 6
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 4
            <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
          </USED-AS-YEAR>
          <USED-AS-YEAR>
            <INDEX>  5   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 37.20.37.28 </DEF-POS>
          <POS> 119.27.119.35m </POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 36.16.36.24 </DEF-POS>
      </FILE>
    </NAME>
    <NAME> DAYLESS <SIZE> 4
      <RESULT>
        <USED-AS-YEAR>
          <INDEX>  1   <LENGTH> 2
          <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
        </USED-AS-YEAR>
        <USED-AS-YEAR>
          <INDEX>  3   <LENGTH> 2
          <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
        </USED-AS-YEAR>
      </RESULT>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 38.16.38.22 </DEF-POS>
        <POS> 123.17.123.23r </POS>
      </FILE>
    </NAME>
    <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
      <DEF-POS> 31.12.31.16 </DEF-POS>
    </FILE>
  </NAME>

  <NAME> DATE2
    <NAME> SPLIT
      <NAME> THEDAY <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 44.20.44.25 </DEF-POS>
          <POS> 113.36.113.41m 131.23.131.28m 139.33.139.38r </POS>
        </FILE>
      </NAME>
      <NAME> THEMONTH <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 45.20.45.27 </DEF-POS>
          <POS> 49.32.49.39 </POS>
        </FILE>
      </NAME>
      <NAME> THEYEAR <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 46.20.46.26 </DEF-POS>
          <POS> 49.46.49.52 133.23.133.29m </POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 43.16.43.20 </DEF-POS>
        <POS> 47.36.47.40 147.52.147.56m </POS>
      </FILE>
    </NAME>
    <NAME> COMPOSITE
      <NAME> WHOLEDATE <SIZE> 6
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 4
            <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
          </USED-AS-YEAR>
          <USED-AS-YEAR>
            <INDEX>  5   <LENGTH> 2
            <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 48.20.48.28 </DEF-POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 47.16.47.24 </DEF-POS>
      </FILE>
    </NAME>
    <NAME> DAYLESS <SIZE> 4
      <RESULT>
        <USED-AS-YEAR>
          <INDEX>  1   <LENGTH> 2
          <YEAR-REASON> <PATTERN> *DATE* D:\dataeg1\dataeg1.xsd 21.13 </YEAR-REASON>
        </USED-AS-YEAR>
        <USED-AS-YEAR>
          <INDEX>  3   <LENGTH> 2
          <YEAR-REASON> <PATTERN> *YEAR* D:\dataeg1\dataeg1.xsd 43.13 </YEAR-REASON>
        </USED-AS-YEAR>
      </RESULT>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 49.16.49.22 </DEF-POS>
        <POS> 123.37.123.43m </POS>
      </FILE>
    </NAME>
    <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
      <DEF-POS> 42.12.42.16 </DEF-POS>
      <POS> 154.38.154.42m </POS>
    </FILE>
  </NAME>

  <NAME> DATE3
    <NAME> YEARLESS
      <NAME> THEDAY <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <INFERENCE>SPLIT = YEARLESS</INFERENCE> </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 53.20.53.25 </DEF-POS>
        </FILE>
      </NAME>
      <NAME> THEMONTH <SIZE> 2
        <RESULT>
          <USED-AS-YEAR>
            <INDEX>  1   <LENGTH> 2
            <YEAR-REASON> <INFERENCE>SPLIT = YEARLESS</INFERENCE> </YEAR-REASON>
          </USED-AS-YEAR>
        </RESULT>
        <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
          <DEF-POS> 54.20.54.27 </DEF-POS>
        </FILE>
      </NAME>
      <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
        <DEF-POS> 52.16.52.23 </DEF-POS>
        <POS> 147.31.147.38r 154.17.154.24r </POS>
      </FILE>
    </NAME>
    <FILE> V:\PUWIN\COBOL\DATAEG1\dataeg1.cbl
      <DEF-POS> 51.12.51.16 </DEF-POS>
    </FILE>
  </NAME>

</PROGRAM>