CONTACTS 

SUBJECTS
Extend Schedule When Current Date is Not in the Schedule La  ch Sched
Extend Another month, Shift F4
Schedule Automatically Extend During SDS Program Launch Called by 047
Schedule Extend Automatically

0706 -
0706 -    ..
0707 - Summary/Objective
0708 -
070801 - Follow up ref SDS 3 4U6F, ref SDS 1 0000.
070802 -
070803 - Another record this morning explains Wayne had problems extending the
070804 - Schedule for SDS about eight (8) months ago, because the current date
070805 - was no longer in the Schedule. ref SDS 3 4U6F  Previusly, on 990910
070806 - the code to automatically extend the Schedule was disconnected to
070807 - reduce the burden on memory. ref SDS 1 9W4J  Decided to install this
070808 - code again now that we have freed up some memory.  The new system will
070809 - automatically extend the Schedule a month at a time until there two
070810 - (2) months beyond the current date. This will occur without any user
070811 - input, so the problem and the solution are now transparent to the
070812 - User. ref SDS 0 LK9L  Also, added back feature for SDS to
070813 - automatically investigate each time the program is used and extend the
070814 - calendar when there are less than two (2) months. ref SDS 0 EW4K
070815 -
070816 -        [On 040229 modified code which is reported in this record to
070817 -        jump over indented line numbers to place follow up link only on
070818 -        narrative lines. ref SDS 4 5C4L
070820 -         ..
070821 -        [On 040422 system to automatically extend the Schedule ran
070822 -        correctly to configure SDS for Wayne after 2 years not using
070823 -        SDS. ref SDS 5 XT5T
070824 -
070825 -
070826 -
070828 -  ..
0709 -
0710 -
0711 - Progress
0712 -
071201 - Line 1260, ref OF 1 SB7N, -label bRno_curr in 04702
071202 -
071203 -    -label bRno_curr
071204 -    z 8 28
071205 -    setcnt 0 0
071206 -    s /yy    /
071207 -    -if @0 = 0 -goto bRFnD...................... ref SDS 0 IQ9K
071208 -       -if @41 = 2002 -goto no_curR
071209 -       @c:\sd\03\0514 #30
071210 -       -exit
071211 -    setcnt 255 999
071212 -    -label no_curR
071213 -    @c:\sd\03\008
071214 -
071215 -    -goto bRno_curr............................ ref SDS 0 7X6M
071217 -        ..
071218 -       Changed SDS today by disconnecting the code that posts an error
071219 -       message, and, instead, automatically extend the Schedule when a
071220 -       search for the current date produces an error.  The code now
071221 -       does a loop to extend the Schedule by calling macro file 008
071222 -       until the current date is located, and then when the current
071223 -       date is located, adds several more months to start off with some
071224 -       period to Schedule.
071225 -
071226 -           [On 040229 modified code which is reported in this record to
071227 -           jump over indented line numbers to place follow up link only
071228 -           on narrative lines. ref SDS 4 5C4L
071230 -            ..
071231 -           [On 040422 this code ran successfully on Wayne's XP
071232 -           computer. ref SDS 5 H29W
071233 -
071235 -  ..
071236 - Line 1310, ref OF 1 QRXY, -label bRFnD in 04702
071237 -
071238 -    -label bRFnD
071239 -    -if @255 != 999 -goto dneS................ ref SDS 0 T18O
071240 -    @c:\sd\03\008
071241 -    **
071242 -    @c:\sd\03\008
071243 -    **
071244 -    @c:\sd\03\008
071245 -    top
071246 -    setcnt 255 0
071247 -    -goto bRno_curr...................... ref SDS 0 7X6M
071248 -
071249 -        If the current date is not in the Schedule, then the calendar
071250 -        is extended until the current date is encountered;  Another 3
071251 -        months are added to provide room for scheduling tasks, and then
071252 -        the flag for not finding the current date is reset.  The code
071253 -        then cycles back to the current date code to continue on.
071254 -
071255 -
071257 -  ..
071258 - Line 1300, ref OF 1 SR5F, -label dneS in 04702
071259 -
071260 -    -label dneS
071261 -    of 66
071262 -    loc_cur 3 1
071263 -    setcnt 86 180
071264 -    macro 1181
071265 -    setcur 180 0
071266 -    setcnt 40 87
071267 -    subcnt 40 @180
071268 -
071269 -        Post User's name and ID, no changes to this code.
071270 -
071271 -
071273 -  ..
071274 - Automatically Extend Schedule When Less than 2 Months Remain
071275 -
071276 - Line 2290, ref OF 1 6003, -label bRDATE, 80 lines below
071277 -
071278 -    -label NtnD
071279 -    line @120
071280 -    down
071281 -    immed dd
071282 -    macro 958
071283 -
071284 -        This is where code was previously created for automatically
071285 -        extending the Schedule to maintain date lines for at least 1
071286 -        year, but was disconnected on 990910 in order to reduce the
071287 -        size of the code in 04702 and the number of lines carried as
071288 -        overhead in the Schedule. ref SDS 1 OQ6K
071290 -         ..
071291 -        Initially considered today keeping this feature disconnected,
071292 -        and evaluating how the new design that automatcially extends
071293 -        the Schedule as needed to find the current date works out.
071295 -         ..
071296 -        Finally, decided to install this code again to automatically
071297 -        extend the Schedule, but changed the length of the file from
071298 -        365 to only 60 days.  This allows the maximum length of the
071299 -        file to be 8 months, rather than 18 months, and so is a
071300 -        compromise on the memory issue.  Better memory management
071301 -        developed since 990910, and shown in the record on 031208
071302 -        listing improvements for SDS version 4, support this change
071303 -        today. ref SDS 2 4Q5O
071304 -
071305 -            [On 040422 this code ran successfully on Wayne's XP
071306 -            computer. ref SDS 5 H29W
071307 -
071309 -  ..
071310 - Line 2310, ref OF 1 NO5O, -label NtnD in 04702 about 50 lines below.
071311 -
071312 -    of 0
071313 -    bot
071314 -    -label 45u
071315 -    chrcnt 1 0
071316 -    -if @1 = 32 -goto dAt8
071317 -    down
071318 -    -goto 45u
071319 -
071320 -        This is a loop to find the last date line in the Schedule.
071321 -
071322 -    -label dAt8
071323 -    loc_cur 0 8
071324 -    chrcnt 2 0
071325 -    -if @2 > 32 -goto dun9
071326 -    down
071327 -    loc_cur 0 1
071328 -    -goto 45u
071329 -
071330 -        This looks for the last line in the Schedule where the Date is
071331 -        entered, which occurs on col 8.
071332 -
071333 -    -label dun9
071334 -    of 7
071335 -    loc_cur 0 1
071336 -    macro 85
071337 -    datecnt 10 0
071338 -
071339 -        Macro 85 reads the date.
071341 -     ..
071342 -    subcnt 3 @10
071343 -    mulcnt 3 365
071344 -    addcnt 5 @3
071345 -    subcnt 4 1
071346 -    mulcnt 4 30
071347 -    addcnt 4 @5
071348 -    subcnt 11 1
071349 -    mulcnt 11 30
071350 -    addcnt 11 @12
071351 -    subcnt 4 @11
071352 -    -if @4 < 60 @c:\sd\03\008 #3
071353 -
071354 -       If the last day is less than 60 days beyond current date, add
071355 -       another 6 months to Summary.
071356 -
071357 -
071358 -
071359 -
071360 -
071361 -
071362 -
071363 -
071364 -
0714 -