Chris,

Try the following:


QUAD -- JHK, Quest Software, KWS, Summit Information Systems, January, 1993
        Compiled with SPLash! (c) Software Research Northwest, Inc.

/new
  COBOL file (Y/N)? y

<<now 'gather' in your 10000+ record cobol source file>>

/gather <coby> to 1 by .001
  File numbered
  Nbr Rec: 10008     Rec Size:   80 Bytes
  File code: 1052    File Access: INPUT
  10008 lines moved

<< The last record on 'coby' was 999.999>>

/l l-10/l
 10.997    move function current-date to full-date.
 10.998    display "New Today= ", full-date.
 10.999
 11        compute int-date = function integer-of-date (c-date).
 11.001    display "Int Today= ", int-date.
 11.002
 11.003    add 998 to int-date.
 11.004    compute future-date = function date-of-integer (int-date).
 11.005    display "Fut Today= ", future-date.
 11.006
 11.007    CALL 'COBDSUBS'.
/

Regards
Paul Christidis

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *