CONTACTS 

SUBJECTS
Subject Report Chained Segments Improve Memory Assemble Full Report w

0503 -
0503 -    ..
0504 - Summary/Objective
0505 -
050501 - Follow up ref SDS 5 0000, ref SDS 3 0000.
050502 -
050503 - Completed work today on improvements to SDS subject reports.  Work on
050504 - the "full" report is shown in the record on 031028. ref SDS 5 0001,
050505 - and is primarily a memory management effort that increases the size of
050506 - reports to aid pattern recognition, i.e., connecting the dots.  Work
050507 - today improves the Summary report by opening SDS records listed in
050508 - reports to the part that is relevant to the specified subject selected
050509 - by the user to assemble a report.  These changes improved the standard
050510 - search function executed with Shift F4. ref SDS 0 BV8T  Another
050511 - improvement is to refine error handling by continuing processing when
050512 - a pointer is encountered and there is no SDS record, ref SDS 0 NY5N,
050513 - or there is entery in the weekly pointer file for 01 record
050514 - description lines for the Summary Diary report. ref SDS 0 XW4H
050515 -
050516 -
050517 -
050518 -
050519 -
050520 -
0506 -

SUBJECTS
Subject Report Chained Segments Improve Memory Assemble Full Report w
Find Subject Specification for Summary Subject Report Open Original F

1004 -
100501 -  ..
100502 - Summary Report Find Subject in Control Field When SDS Record Opened
100503 -
100504 - Follow up ref SDS 5 W53G.
100505 -
100506 - On 031028 developed planning to improve the summary subject report.
100507 - ref SDS 5 W53G  Up until now a record listed in a Summary Report has
100508 - been opened at the top of the narrative section, and the user then had
100509 - to scroll through the record to hunt or use F1 F4 to manually enter a
100510 - specification and then press Shift F4 to find the relevant section of
100511 - the record.  These steps take time and cause mistakes that take more
100512 - to correct rework.
100514 -  ..
100515 - Today added feature that automatically finds the target account when
100516 - an SDS record is opened from a listing in the summary report for
100517 - either a function or a subject, and, also, loads the specification
100518 - into the standard search feature to find multiple instances of the
100519 - report subject account using the standard function for executing a
100520 - search, Shift F4.
100522 -  ..
100523 - The new method reduces the time required to find information when
100524 - needed, as a complement to the full report improved on 031028.
100525 -
100527 -  ..
100528 - 06112  Summary Report Modified to Find Relevant Segment in Record
100529 -
100530 - Line 1020, ref OF 2 866O, -label fbrss in 06112
100531 -
100532 -    -if @147 != 12 -goto nssrT
100533 -
100534 -        If the code is not running the Summary part of a Subject report
100535 -        op, then skip over this process. ref SDS 0 UB3O  Set up the
100536 -        search command in this processor 06112 and in the standard
100537 -        search utility to open an SDS record listed in the Subject
100538 -        Summary report to the account specified in the report screen.
100539 -
100541 -     ..
100542 -    e q1
100543 -    top
100544 -    loc_cur 14 36
100545 -    chrcnt 110 0
100546 -    -if @110 = 32 aw
100547 -
100548 -       Open 06112 processor which is "q1" during run time, and restore
100549 -       the initial report configuration at the top of the file.  Put
100550 -       cursor on the line and column where a subject specification is
100551 -       entered.  Capture condition to see if a subject spec was
100552 -       entered, and if not, then advance to the function account
100553 -       specification.
100555 -  ..
100556 - Line 1030, ref OF 2 US4L, -label lpfbrts in 06112 about 50 lines
100557 - below
100558 -
100559 -    setcnt 80 0
100560 -    setcnt 87 0
100561 -    macro 1188
100562 -    purge qsc
100563 -    macro 66
100564 -    loc_cur 3 3
100565 -    getgbl 110 110
100566 -    setcnt 111 7097
100567 -    -if @110 > 32 ins_text !53  !
100568 -    -if @110 = 32 ins_text !35  !
100569 -    loc_cur 4 4
100570 -    macro 1189
100571 -    -if @110 = 32 ic 48
100572 -    -if @110 > 32 rel_cur 0 1
100573 -    ic 47
100574 -
100575 -        Reset flags 80 and 87 so that macro 118 called as part of macro
100576 -        1188 will read the full length of the Subject account specified
100577 -        for the report.  Purge the search file qsc, then open it with
100578 -        macro 66 to use the SDS standard search function called
100579 -        manually with F1 F4, and executed with Shift F4 macro 42, per
100580 -        below.
100581 -        loc_cur 3 3 positions to enter the 1st parameter of
100582 -        the zone command for the search.  getgbl 110 110 controls
100583 -        begining zone is based on whether the report specifies a
100584 -        subject or a function search. ref SDS 0 534J  After entering
100585 -        the 1st zone parameter, loc_cur 4 4 moves the cursor to enter
100586 -        the search spec.  macro 1189 enters the actual report
100587 -        specification captured above with macro 1188. ref SDS 0 WP6N
100588 -        rel_cur 0 1 moves the cursor over one space to enter the spec
100589 -        delimiter.
100590 -
100592 -  ..
100593 - Line 160, ref OF 2 626O, -label fbrss in 06112 about 70 lines below
100594 -
100595 -    -if @100 > 45 subcnt 100 135
100596 -    -if @110 > 32 addcnt 100 53
100597 -    -if @110 = 32 addcnt 100 35
100598 -    loc_cur 6 6
100599 -    inscnt 100 0
100600 -
100601 -        Macro 1189 for capturing the specification as a search
100602 -        parameter, per above, ref SDS 0 WP6N, calls macro 118 that uses
100603 -        counter 100, which therefore determines the number of
100604 -        characters captured in a string.  This system uses counters 1 -
100605 -        45 and 180 to 220, therefore if counter 100 is greater than 45
100606 -        subtract 135 (the difference between 45 and 180) from counter
100607 -        100 to get the actual length of the search string.  If counter
100608 -        110 is greater than 32, then the subject field in the report
100609 -        screen is not blank, which shows this is a subject report,
100610 -        determined above, ref SDS 0 534J; therefore, calculate the
100611 -        ending zone of the search by adding the common start column for
100612 -        subject accounts in the Control Field which begins on column
100613 -        53, i.e., addcnt 100 53.  Otherwise, if 110 = 32 it means this
100614 -        is a function report so addcnt 100 35 calcualtes the ending
100615 -        search parameter for a function search in the Control Field.
100616 -
100618 -  ..
100619 - Line 1070, ref OF 2 JA8I, -label fbrss in 06112 about 80 lines below
100620 -
100621 -    loc_cur 5 1
100622 -    -if @100 < 53 ins_text !loc_cur 13 35    !
100623 -    -if @100 > 53 ins_text !loc_cur 13 53    !
100624 -    loc_cur 4 4
100625 -    e q_out
100626 -    load qsc
100628 -         ..
100629 -        Move cursor to bottom line in qsc and enter the locate command
100630 -        based on whether the search spec was for a function or a
100631 -        subject.  loc_cur 4 4 ends with cursor on search spec in case
100632 -        user decides to edit the specification.  e q_out returns to the
100633 -        summary report to continue with next step.  The code is now
100634 -        wired to find the first target record segment if the user
100635 -        decides to open an actual record in the report.  load qsc
100636 -        removes the search macro file from edit chain, so if the report
100637 -        is closed without openin a record, the report screen returns
100638 -        and not the qsc search macro file.
100640 -     ..
100641 -    -label nssrT
100642 -
100643 -        Continue original code.
100644 -
100645 -
100646 -
100648 -  ..
100649 - Enter Opens Record Listed in Subject Summary Report
100650 -
100651 - Line 1090, ref OF 2 RK5F, -label fbrss in 06112 about 150 lines below
100652 -
100653 -    pfent macro 97
100654 -
100655 -        This calls the code in 000006. ref SDS 0 R66H
100657 -         ..
100658 -        It will call @qsc to execute the search command set up in 06112
100659 -        after the summary report is constructed, per above. ref SDS 0
100660 -        WP6N
100662 -         ..
100663 -        Macro 97 calls 05091 developed on 030816 when a file is opened
100664 -        for an SDS record using a listing in a Diary Summary and the
100665 -        record turns out not to exist. ref SDS 4 FS4L  The user can
100666 -        create a new record or use SDS record menu for the Diary to
100667 -        delete references to the record so that it will not show up in
100668 -        the Diary Summary again.  This same feature is needed for the
100669 -        Subject report summary; and the problem of references causing
100670 -        erroneous full Subject reports was handled on 031028 by
100671 -        creating a summary listing in the report, which can be opened
100672 -        to either create a new record or delete the references that
100673 -        caused the false report.
100674 -
100675 -
100676 -
100678 -  ..
100679 - 000006 Macro 97 When Enter or Double Click in Summary Subject Report
100680 -
100681 - Line 60, ref OF 4 106K, -entry 97 in 000006
100682 -
100683 -    -entry 97
100684 -    setgbl 113 0
100685 -    -if @47 = 19 -if @147 = 12 setgbl 113 9919
100686 -
100687 -        Added code to setgbl 113 0 that starts the flag for a summary
100688 -        subject report off, and then if 47 = 19 and 147 = 12 turn this
100689 -        flag of with setgbl 113 9919
100691 -     ..
100692 -    setgbl 142 9142
100693 -    macro 981
100694 -    setgbl 142 0
100695 -
100696 -        This opens the SDS record and the user clicked or pressed
100697 -        Enter between the date field and the record description field,
100698 -        then the Summary is closed after the record is opened.
100699 -
100700 -
100702 -     ..
100703 -    Search Subject Locate When SDS Record Opened from Summary
100704 -
100705 -
100706 - Line 90, ref OF 4 0172, -label 113r in 000006
100707 -
100708 -    -label 113r
100709 -    getgbl 139 139
100710 -    -if @139 != 9919 -exit
100711 -    setgbl 139 0
100713 -         ..
100714 -        -label 113r is called when macro 981 opens an SDS record and
100715 -        closes the Summary. ref SDS 0 9M7O  Global 113 is set in macro
100716 -        file 06112 when a Summary Subject report, is called, per
100717 -        above.
100718 -
100720 -     ..
100721 -    top
100722 -    @qsc
100723 -    down 10
100724 -    setcnt 106 1
100725 -    setcnt 1 917
100726 -    macro 6
100728 -         ..
100729 -        Macro file 06112 also sets up the standard search
100730 -        macro qsc, normally set up with manually with F1 F4 calling
100731 -        macro 65 or 66, but in this case qsc is configured by 06112 so
100732 -        that a record opened from a summary subject report is
100733 -        positioned with the cursor on the control field line where the
100734 -        subject specified in the report is located in the SDS record
100735 -        control field.
100736 -
100738 -     ..
100739 -    Position User at Top of Narrative Relevant to Search Subject
100740 -
100741 -
100742 - Line 100, ref OF 4 2936, -label 113r in 000006 about 50 lines below
100743 -
100744 -    up 10
100745 -    z 5 5
100746 -    nb
100747 -    down 10
100748 -    loc_cur 13 10
100749 -    macro 10
100750 -    -exit
100751 -
100752 -        Scroll screen back up to do a search from tos to find bottom of
100753 -        the Control Field and position the user at the beginning of the
100754 -        narrative and entering mark 3.  User can go see the particular
100755 -        control field line if desired by entering Shift F1 to return to
100756 -        mark 1.
100757 -
100758 -
100760 -     ..
100761 -    Blank Records Use Menu to Remove References or Build a New Record
100762 -
100763 -
100764 - Line 1120, ref OF 4 GR3I,
100765 -
100766 -    -label n_FlE
100767 -    @c:\sd\03\05091
100768 -    -exit
100769 -
100770 -        This code is called by macro 99 under macro 97 and 981 to
100771 -        process a blank record, i.e., a situation where there is an
100772 -        entry in a summary report but there is no record, as explained
100773 -        on 030814. ref SDS 4 FS4L
100775 -         ..
100776 -        Today, will use macro file 05091 to handle error messages and
100777 -        provide a fast and easy method for deleting references that
100778 -        cause false reports by using the Diary menu to delete a record
100779 -        in the blank record file.
100780 -
100781 -
100783 -  ..
100784 - Line 1180, ref OF 4 F69J, -entry 981 in 000006
100785 -
100786 -    -entry 981
100787 -    -if @159 != 777 markcur 8
100788 -    macro 18
100789 -    -if @47 != 22 -goto othr
100790 -
100791 -        entry 981 is the code called under macro 97 to open a record
100792 -        and leave the summary in memory, per above. ref SDS 0 UH3I
100793 -
100794 -
100796 -  ..
100797 - Line 1440, ref OF 4 VN5N, -label OVeRR in 000006
100798 -
100799 -     -label OVeRR
100800 -     getgbl 137 137
100801 -     setgbl 137 0
100802 -     -if @159 = 778 -goto stufqq
100803 -     getgbl 142 142
100804 -     -if @142 != 9142 -goto 113r
100805 -     -exit
100806 -
100807 -        This code ends the process of opening an SDS record from a
100808 -        summary report and closing the summary, rather than leave it
100809 -        open in memory.  Changed this code that ends the operation to
100810 -        open an SDS record listed in a subject summary report and close
100811 -        the summary to call the new code developed today for calling
100812 -        the search macro file qsc to find the Control Field in the
100813 -        record where the specified subject occurs. -goto 133r,
100814 -        ref SDS 0 TV4F
100815 -
100816 -
100817 -
100818 -
1009 -

SUBJECTS
S04 Search and Change Execute
Find Multiple Instances Specified Subject Account Shift F4 for Summar
Control Fields Find Multiple Instances Specified Subject Account Shif

1305 -
130601 -  ..
130602 - 000001  Shift F4 Macro 42 Find Subjects in SDS Record
130603 -
130604 - Improved ability to navigate through Knowledge Space by enabling users
130605 - to scroll through the record to find each occurrance where a subject
130606 - specified in a summary report occurs in the SDS record. Changed the
130607 - mark and return system applied to scrolling through the record. Mark 1
130608 - is now assigned to the first instance where a subject is found.  If a
130609 - subject occurs more than once in a record, then each subsequent search
130610 - can be returned to the prior location with Shift F2, and the initial
130611 - location can be returned with Shift F1.  When all of the instances in
130612 - the record have been found, the next time Shift F4 is used, the record
130613 - is restored to the first instance at mark 1.  This means that
130614 - repeated use of Shift F4 scrolls continuously through the record.
130616 -  ..
130617 - Line 2750, ref OF 3 PU6M, -entry 42 in 000001
130618 -
130619 -    -entry 42
130620 -    macro 16
130621 -    errorcnt 0 0
130622 -    -if @1 = 917 up 10
130623 -    @qsc
130624 -
130625 -        -entry 42 is called by Shift F4 to execute the search
130626 -        specification in macro file qsc, which typically is entered by
130627 -        the user after opening qsc with F1 F4.  Today, added new code
130628 -        in 06112 that now sets up qsc for finding subject account codes
130629 -        specified for assembling a summary subject report that occur in
130630 -        an SDS record opened from a list in the summary report, per
130631 -        above. ref SDS 0 WP6N
130632 -
130634 -  ..
130635 - Line 2810, ref OF 3 Z49N, -label sip31 in 000001
130636 -
130637 -    -label sip31
130638 -    down 10
130639 -    -if @111 != 7097 loc_cur 13 10
130640 -
130641 -        Added code for 111 = 7079 set in 06112 for opening an SDS
130642 -        record listed in a summary report to the control field where
130643 -        the subject specified in the report is entered in the subject
130644 -        field.
130645 -
130646 -
130647 -
130648 -
1307 -

SUBJECTS
Error Message Subject Report Recovery Using Alt F6 Failing
Reports Avoid Missing Records Verify Pointers Align with Actual Recor
Records Blank Error Messages Reports Avoid Missing Records Verify Poi
Blank Record When New Record Started without Using a Diary for a Prio
Pointers Delete for Missing Diary Records
Error Messages Reports Avoid Missing Records Verify Pointers Align wi
Reports Blank Records Error Messages Reports Avoid Missing Records Ve
Open Blank Records that are Missing Recover to Maintain Data Base
References Data Base Maintenance Align with Actual Records Accomplish

2511 -
251201 -  ..
251202 - Maintain References Report Error Message Recovery Blank Records
251203 - Blank Records Maintain References Report Error Message Recovery
251204 - Error Message for Blank Records Maintain References on Subject Report
251205 - 05091  Recover from Blank Records Maintain References
251206 -
251207 - Follow up ref SDS 4 TE7O, ref SDS 2 0000.
251208 -
251209 - On 030814 developed a system using macro file 05091 to enable a user
251210 - to create a diary for a prior date in the Diary Summary rather than
251211 - the standard method of creating a new task in the Schedule and then
251212 - starting SDS to archive the new record.  Using the Diary Summary saves
251213 - a lot of time. ref SDS 4 PPTR
251215 -  ..
251216 - Today, it appears this method for creating a diary for a prior date,
251217 - can also be used to provide an error message and instructions on how
251218 - to recover when a Summary Subject report lists a record for which
251219 - there is no actual record.
251221 -  ..
251222 - A few days ago on 031028 eliminated the prior error message system for
251223 - assembling full subject reports. ref SDS 5 GR7H  The rationale for
251224 - changing full Subject Reports, also, applies to the problem today of
251225 - saving time using summary subject reports. ref SDS 5 P69N
251227 -  ..
251228 - The new design will avoid the time required and emotional stress
251229 - caused by the prior system that forced people to stop work and correct
251230 - an error in the data base of references that cause a false report.
251231 - Previously, for some reason was never able to develop a scheme for
251232 - quickly correcting the problem.  An example is work on 030602 trying
251233 - to retain and refine the prior system. ref SDS 2 0001  Earlier on
251234 - 030426  Gary reported problems on this issue. ref SDS 1 0001  The new
251235 - system takes only a few seconds.
251236 -
251238 -  ..
251239 - Line 430, ref OF 2 XV3M, -label cOnxtU in 06112
251240 -
251241 -    -label cOnxtU
251242 -    top
251243 -    setcnt 0 0
251244 -    subcnt 39 @38
251245 -    setcnt 38 0
251246 -
251247 -        Begin primary loop to read list of pointers in 1yout
251248 -
251250 -  ..
251251 - Line 470, ref OF 2 855K, -label X_week in 06112 about 40 lines below
251252 -
251253 -    loc_cur 4 1
251254 -    macro 891
251255 -    setcnt 1 0
251256 -    setcnt 19 0
251257 -    -if @3 = @18 setcnt 19 1
251258 -    setcnt 18 @3
251259 -    -if @38 = 0 -goto cOsaU
251260 -
251261 -        Read the record ID in the list, and evaluate year param.
251262 -
251264 -  ..
251265 - Line 600, ref OF 2 OF5M, -label cO_s_W in 06112
251266 -
251267 -    -label cO_s_W
251268 -    e Q1
251269 -    macro 91
251270 -    getgbl 15 15
251271 -    -if @15 = 1000 -goto cOS_wk
251272 -    getgbl 2 2
251273 -    loc_cur 3 24
251274 -    -if @2 < 10 ic 48
251275 -    inscnt 2 0
251276 -    loc_cur 3 12
251277 -    macro 841
251278 -
251279 -        After reading the record spec open q1 processor to set up a
251280 -        get command to read in the 01 record description lines.
251281 -
251283 -  ..
251284 - Line 670, ref OF 2 EC8G, -label cOS_wk
251285 -
251286 -    -label cOS_wk
251287 -    loc_cur 7 3
251288 -    macro 871
251289 -    ecur 97
251290 -    setcnt 0 0
251291 -    getgbl 15 15
251292 -    -if @15 = 1000 -goto cS_wk_a
251293 -    rel_cur 1 0
251294 -    immed 9999d
251295 -    rel_cur -1 0
251296 -    G d:\sd\08\UUUUU\04\YY\__
251297 -    -label cS_wk_a
251298 -    loc_cur 4 1
251299 -    linecnt 132 0
251300 -    immed dd
251301 -    S/                   /
251302 -
251303 -        After loading the get command, read in the weekly pointer file
251304 -        that should have the 01 record description pointer for record
251305 -        found in the selection op, and then search the weekly pointer
251306 -        file to find the 01 record description line.
251307 -
251308 -
251310 -     ..
251311 -    Error Message Eliminate Summary Report When No Record for Pointer
251312 -
251313 -
251314 - Line 700, ref OF 2 EC8G, -label cS_wk_a in 06112
251315 -
251316 -           [On 040406 developed the code reported in this part of the
251317 -           record today for continuity; it eliminates an error message
251318 -           so a Summary Subject Report does not not stop when a record
251319 -           description is not found for a pointer in the output file.
251320 -           ref SDS 6 1Q7U
251321 -
251322 -    -label cS_wk_a
251323 -    loc_cur 4 1
251324 -    linecnt 132 0
251325 -    immed dd
251326 -    macro 22
251327 -    S/                   /
251328 -    -if @0 = 0 -goto cO_FnD
251330 -       ..
251331 -      setgbl 141 2101
251332 -      setcnt 18 1000
251333 -
251334 -      -goto cOstop
251336 -     ..
251337 -    macro 23
251338 -    pcmd2
251339 -    -goto X_week
251340 -
251341 -        This is where the code stops the report process and reports an
251342 -        error.  unplugged commands to call error message, and added
251343 -        commands to restore the weekly 01 record description list to
251344 -        the location prior to the search, pcmd2 clears the pending
251345 -        immed dd command, and then -goto X_week, starts the loop over
251346 -        that looks for the next entrin the 1yout file.
251348 -         ..
251349 -        There is a note in the code that says...
251350 -
251351 -             As of April 20, 1988, this thing stops processing when a
251352 -             pointer is encountered that has no actual record.
251354 -              ..
251355 -             It should simply report the problem and continue
251356 -             processing, the User has the benefit of the information
251357 -             that is available, including disclosure of any other
251358 -             similar errors in the selection specification.
251360 -              ..
251361 -             This will be a future improvement.
251363 -         ..
251364 -        Today, the future has arrived.
251365 -
251366 -           [On 040406 actually, the future arrived a few months later,
251367 -           when this work was done. ref SDS 6 1Q7U
251368 -
251369 -
251370 -
251371 -
251373 -  ..
251374 - Line 120, ref OF 1 M73G, in 05091
251375 -
251376 -      e diary
251377 -    ecur 8
251378 -    -if @47 = 51 -goto gddia...........................
251379 -
251380 -        Got lucky on this that the Diary Summary and the Summary
251381 -        Subject report both use markcur 8 to identify the summary file,
251382 -        so the change to the call developed on 030816 to open the
251383 -        "diary" file, ref SDS 4 FG7K, to instead call ecur 8 for
251384 -        opening the summary file where the operation was executed that
251385 -        opened a blank file.  Once the summary file is opened, -if @47
251386 -        = 51 says this is a Diary Summary, so -goto gddia.
251387 -
251388 -
251390 -     ..
251391 -    savescr 10
251392 -    loc_cur 0 9
251393 -    macro 1188
251394 -    getscr 10
251395 -
251396 -        Code has determined by default this is a subject summary report
251397 -        and an error occurred because the file is blank; so, save the
251398 -        initial location in the Summary and read the record description
251399 -        with macro 1188.  We don't really need this for the task to be
251400 -        performed, but providing the description in the record offers a
251401 -        better visual experience.
251402 -
251404 -     ..
251406 -  ..
251407 - Line 140, ref OF 1 Q15M -label nurdne in 05091
251408 -
251409 -    -label nurdne.................................. ref SDS 0 035H
251410 -    ecur 11
251411 -    loc_cur 5 1
251412 -    of 5
251413 -    setcnt 86 1
251414 -    macro 1189
251415 -    of 0
251416 -
251417 -        Return to the blank record and enter the description with
251418 -        macro 1189.
251419 -
251421 -     ..
251422 -    Error Message Record Does Not Exist
251423 -
251424 -
251425 - Line 150, ref OF 1 3B6M, in 05091
251426 -
251427 -    up 7
251428 -    loc_cur 14 7
251429 -    immed 7r
251430 -    ic 107
251431 -    loc_cur 0 14
251432 -    ....
251433 -    ....
251434 -    ....
251435 -    -goto end4
251436 -
251437 -        Scroll up and enter an error message with instructions to the
251438 -        user on how to delete the references in the data base, or
251439 -        create a new record.
251440 -
251441 -
251443 -     ..
251444 -    Diary Summary Lists Blank Record
251445 -
251446 -
251447 - Line 180, ref OF 1 0Y9L, -label gddia in 05091
251448 -
251449 -    -label gddia
251450 -    loc_cur 0 8
251451 -    macro 20
251452 -    immed /
251453 -    loc_cur 3 0
251454 -
251455 -        This code executes when a file is listed in a Diary Summary,
251456 -        because pointers exist, but there is no actual file on the disk
251457 -        for the record.
251458 -
251460 -  ..
251461 - Line 300, ref OF 1 OL5I, -label gddia in 05091 about 140 lines below
251462 -
251463 -    macro 1188
251464 -    loc_cur 0 8
251465 -    -goto nurdne................................. ref SDS 0 036G
251466 -
251467 -        Code completes for situation when a blank record is encoutered
251468 -        in a Diary Summary, and so cycles back to provide standard
251469 -        error message.
251470 -
251471 -
251472 -
251473 -
251474 -
251475 -
251476 -
251477 -
251478 -
251479 -
251480 -
251481 -
251482 -
251483 -
251484 -
251485 -
251486 -
2515 -