CONTACTS 

SUBJECTS
Start Command Windows Improve Memory
Subject Index Access from Control Field and Documents, 03502 beginni
Ctrl F6 Scroll Between SDS Record and Subject Index File Sndx for Co
03501 Macro Ctrl F6 Opens Originating SDS Record from 1st Start Sess

0706 -
0706 -    ..
0707 - Summary/Objective
0708 -
070801 - Follow up ref SDS 4 6M6K.
070802 -
070803 - Created a method to use the standard function Ctrl F6 for scrolling
070804 - between the originating SDS record and the Subject Index file to
070805 - provide context and adjust file position for entering subjects and
070806 - functions.  Developed unique file transfer method to enable multiple
070807 - sessions of SDS to access and perform context management at the same
070808 - time. ref SDS 0 LK4K  Started work on linking, but did not make good
070809 - progress; impact is minimal on productivity, because links are not
070810 - typicaly executed from reports. ref SDS 0 MW6M  Completed work
070811 - providing access to subjects and functions from subject reports.
070812 - ref SDS 0 2W5I  Configured the feature for deleting indexes, so user's
070813 - can create and delete structure at will. ref SDS 0 XR5K
070815 -        ..
070816 -       [On 030926 submitted update to Gary Johnson. ref SDS 5 0001
070818 -        ..
070819 -       [On 060305 added flag for secondary memory situational awareness
070820 -       SDS records annotate Schedule/Diary 1a. ref SDS 9 BQ5H
070821 -
070822 -
070824 -  ..
0709 -
0710 -
0711 - Evaluation
0712 -
071201 - Testing seems to show that the objective to substantially improve
071202 - memory management is achievable using the Microsoft Windows Start, and
071203 - that this reduces the frequency of program failure, as planned on
071204 - 030902. ref SDS 4 YO6J
071206 -  ..
071207 - There is likely some loss of utility required by this method that
071208 - requires saving a record to the disk each time the subject index is
071209 - opened, but for now the changes seem close to the standard Medit e
071210 - command for scrolling between files in the edit chain, and access is
071211 - fast and easy.  Program responsiveness remains high.
071212 -
071213 -
071214 -
071216 -  ..
0713 -
0714 -
0715 - Progress
0716 -
071601 - Today, completed initial code to run Subject Index from a 2nd session
071602 - of DOS using the Windows Start command, reported on 030902.
071603 - ref SDS 4 MJ9J  Work on implementation has been reported in the record
071604 - for 030902 in order to maintain continuity that enhances understanding
071605 - closely related, complex tasks, as noted in that record. ref SDS 4
071606 - TJ4F  Beginning today and over the next six (6) days accomplished
071607 - several tasks pending on 030902. ref SDS 4 PPWR
071608 -
071609 -    1.  Opening originating SDS record in context.
071611 -         ..
071612 -    2.  Reports and functionality
071614 -         ..
071615 -    3.  Support for multi-session processing by developing a naming and
071616 -        management scheme to use unique transfer files for each
071617 -        session, and for multiple sessions for the same record.
071618 -        ref SDS 0 LK4K
071619 -
071620 -
071622 -  ..
071623 - Ctrl F6 in 2nd Session Opens Originating SDS Record in SI and Reports
071624 -
071625 - We need a way to open the originating SDS record using Ctrl F6 in...
071626 -
071627 -             •  Subject Index, ref SDS 0 GH3X
071629 -                 ..
071630 -             •  Subject Report screen, ref SDS 0 GY5N
071632 -                 ..
071633 -             •  SDS records opened by doing a Subject Report.
071634 -                ref SDS 0 GY5N
071635 -
071636 -
071637 - ...in order for the user to figure out context needed for constructing
071638 - new subjects and selecting subjects for entering to a Control Field,
071639 - as reported on 030902. ref SDS 4 7W5J Developed new code for Ctrl F6
071640 - do this task which aligns with current utility, until we do a report
071641 - or somehow open another record. ref SDS 0 7S8I
071643 -  ..
071644 - Ctrl F6 under the prior code (for the past 15 years) opens the
071645 - originating SDS record for each of these cases with the e command that
071646 - scrolls the edit chain. ref OF 15 8P8J
071648 -  ..
071649 - The originating record is not in memory when the SI is opened using a
071650 - 2nd DOS session.  Similarly, if a report is called from the Subject
071651 - Index in the 2nd session, then the originating SDS record is not in
071652 - the edit chain, and the same when a report is run and an SDS record is
071653 - opened.
071655 -  ..
071656 - We could open the originating SDS record when the 2nd session is
071657 - opened and this provide the same functionality as the prior code, but
071658 - this would reduce the advantage of using a 2nd session for better
071659 - memory management.  We want to improve memory management by opening
071660 - the originating SDS record only when needed.
071662 -  ..
071663 - These conditions require specialized code in 03501 for Ctrl F6 in the
071664 - Subject Index to open the originating SDS record, per below.
071665 - ref SDS 0 GH3X  Specialized code is also needed in 06112 for Ctrl F6
071666 - in the Subject Report screen to open the originating SDS record; this
071667 - feature may work, as well, when a report is run and an SDS record is
071668 - opened, Ctrl F6 can open the Subject Report screen and there Ctrl F6
071669 - opens the originating SDS record. ref SDS 0 GY5N
071670 -
071671 -
071673 -  ..
071674 - SDS Record Relative Screen Position Captured for SI Start Session
071675 -
071676 - In order to use Ctrl F6 to open the originating SDS record, we need to
071677 - capture screen coordinates to position the file in the 2nd session in
071678 - the same way shown in the 1st session, otherwise merely opening the
071679 - record is not useful.  The User needs context preserved. This code
071680 - therefore captures the record coordiates and they are then posted into
071681 - the transfer file.
071683 -  ..
071684 - Line 460, ref OF 2 7W7G, -label usID in 035012 about 30 lines below
071685 -
071686 -    macro 22
071687 -    setcura 66 0
071688 -    addcnt 66 1
071689 -    addcnt 67 1
071690 -    setgbl 65 @65
071691 -    setgbl 66 @66
071692 -    setgbl 67 @67
071693 -    setgbl 271 @271
071694 -    setgbl 272 @272
071695 -
071696 -        Use macro 22 to put the current line number in counter 65,
071697 -        then setcura 66 0 puts y position in counter 67 and x in 66,
071698 -        and they need to be incremented to use with loc_cur in next
071699 -        step under 03501.  Globals pass the values to the transfer
071700 -        file stufq7y.
071702 -         ..
071703 -        We can use this method to pass the same values back to the
071704 -        orginating file when the 2nd session is closed, and the
071705 -        originating record has been opened with Ctrl F6 and changed in
071706 -        the 2nd session, per below. ref SDS 0 GH3X  When the file is
071707 -        saved, this op can open the transfer file and change these
071708 -        position parameters, so if the user decides to do something
071709 -        different, this can be accomodated.
071710 -
071711 -
071713 -  ..
071714 - Line 500, ref OF 2 S24O, -label npfilu in 035012
071715 -
071716 -    getgbl 65 65
071717 -    getgbl 66 66
071718 -    getgbl 67 67
071719 -    getgbl 271 271
071720 -    getgbl 272 272
071721 -    loc_cur 0 48
071722 -    inscnt 65 0
071723 -    rel_cur 0 2
071724 -    inscnt 67 0
071725 -    rel_cur 0 2
071726 -    inscnt 66 0
071727 -    rel_cur 0 2
071728 -    inscnt 271 0
071729 -    rel_cur 0 2
071730 -    inscnt 272 0
071731 -
071732 -        Bring globals for positioning originating file in a new session
071733 -        for the Subject Index ops.  Enter current line number in column
071734 -        55, four spaces beyond the F parameter created for the Function
071735 -        index, reported on 030902. ref SDS 4 F14K
071737 -         ..
071738 -        Also bring globals for SDS record type in counters 271 nad 272
071739 -        which is interpreted by profile op in macro 150 and 157.
071740 -
071741 -
071743 -  ..
071744 - 035012  Return from Start Session Swap Content of Changed Files
071745 - Swap Content of SDS Record to Absorb Changes during SI Session
071746 -
071747 - Follow up ref SDS 4 B44K.
071748 -
071749 - The batch system using the Microsoft Windows Start command is
071750 - explained above, ref SDS 0 LK4K
071752 -  ..
071753 - In order for Ctrl F6 to work correctly, the user needs to open the
071754 - originating SDS record and work normally, then any changes should be
071755 - reflected in the primary session when the secondary session for the
071756 - Subject Index ends.  The initial design only allowed Users to open the
071757 - originating record to view, but not use SDS functionality for doing
071758 - work, because conforming files in memory for the 1st session to
071759 - changes in the 2nd session seemed complex and so too difficult.  The
071760 - theory was that all the user needs is to view the record and in some
071761 - cases copy from the record into a Subject Index for constructing
071762 - subject descriptions.  Experience showed this is not a good way to
071763 - work, because it inhibits taking immediate action in a record based on
071764 - situational awareness that maintains productivity, and increases
071765 - creativity, and problem solving, which were all supported by the
071766 - original design, and so must be supported as much as possible using
071767 - the Start command in a new design based on virtual memory.  To enable
071768 - seemless performance that leverages productivity, the primary session
071769 - therefore needs to be saved prior to opening the Subject Index in a
071770 - second session under the Start command, and then it needs to replace
071771 - the current contents with the content on the disk that may have been
071772 - edited during the 2nd session opened with Start.
071774 -  ..
071775 - We cannot completely eliminate risk of overwriting in the 2nd session,
071776 - becasue there may be 10 records and other files in memory, when the
071777 - user needs to look up somthing using the SI, and when that task is
071778 - performed, it can lead to seeing things in other files that require
071779 - changes.  If those changes are made to a file already in memory in the
071780 - first session then there is risk of loss, mistake and rework due to
071781 - overwriting.  However, we have worked with this condition for many
071782 - years by opening a second session of SDS in order to save memory,
071783 - rather than use the 1st session, and then when target data is located,
071784 - the address is opened in the first session to create a link or
071785 - something.  This has proved to be rarely problematic, and so providing
071786 - the same level of risk in the new system while providing significantly
071787 - improved memory is a worthwhile effort.
071789 -  ..
071790 - As a reslt, the aim of this effort is swap out only originating SDS
071791 - records, and in some cases the Schedule where it has been changed.
071793 -  ..
071794 - Line 480, ref OF 2 PW6R, -label usID in 035012 about 70 lines below
071795 -
071796 -    e c:\sd\03\035012
071797 -    line          && *%5j
071798 -    loc_cur 4 3
071799 -    setcnt 86 1
071800 -    macro 1181
071801 -
071802 -        Added this code to work on 030902, ref SDS 4 F14K, by opening
071803 -        this processor 035012 and move to the line where the get
071804 -        command is located. Put the cursor on the column to enter the
071805 -        SDS record spec, and then read the spec captured above into the
071806 -        get command. ref SDS 0 FH43
071807 -
071808 -
071810 -  ..
071811 - Line 690, ref OF 2 OI4J, -label 03502j in 025012
071812 -
071813 -    save
071814 -    dose /c c:\sd\01\03501.bat
071815 -
071816 -        save command added each time SI opened.
071818 -         ..
071819 -        This is where Start command is called to start the 2nd session.
071820 -        Whatever transpires in the 2nd session to files in memory in
071821 -        the originating session, needs to be swapped out and saved,
071822 -        because the files that have been changed are saved on the disk,
071823 -        and what is memory must conform to that to avoid overwrites.
071824 -
071826 -  ..
071827 - Line 720, ref OF 2 5N4M, -label 03502j in 035012
071828 -
071829 -    tl 0
071830 -    top
071831 -    immed d
071832 -    rel_cur 1 0
071833 -    immed 9999d
071834 -
071835 -        New code added today.  Turn titles off, jump to the top and
071836 -        deleate the record ID because it has a color and so this seems
071837 -        to confuse SDS, especially when all lines in the record are
071838 -        deleted.  So we won't delete all the lines.  Leave the blank
071839 -        line between the record ID and description, then delete
071840 -        everything else.
071841 -
071842 -
071843 -
071845 -  ..
071846 - Line 760, ref OF 2 NS7J, -label 03502j in 035012 about 80 lines below
071847 -
071848 -    *%5j
071849 -    g --- command ---
071850 -    immed d
071851 -    macro 157
071852 -    macro 23
071853 -    macro 0
071854 -
071855 -        ecur 21 returns to SDS record.  Call get command to read back
071856 -        the SDS record from the disk.  Since the top line is blank,
071857 -        delete it to put the record ID line at line 1, then set up
071858 -        standard profile.  macro 23 hopefully restores the position,
071859 -        and the macro 0 refreshes colors to lines in the record.
071860 -
071861 -
071862 -
071864 -  ..
071865 - Line 400, ref OF 1 HT5J, -label jtfstf 03501 about 30 lines below
071866 -
071867 -    setcnt 86 1
071868 -    macro 1181
071869 -
071870 -        Set up for Ctrl F6 to open originating SDS record for context,
071871 -        if needed, by capturing originating filename.
071873 -     ..
071874 -    loc_cur 0 48
071875 -    strcnt 1 4
071876 -    setgbl 65 @1
071877 -
071878 -        Move cursor to the field with the line number; read the line
071879 -        number and transfer to global 65.
071881 -     ..
071882 -    aw
071883 -    strcnt 1 2
071884 -    setgbl 67 @1
071885 -
071886 -        Move ahead and read y value for positioning the cursor in the
071887 -        same position as the originating record, captured in 035012,
071888 -        per above. ref SDS 0 7S8I
071890 -     ..
071891 -    aw
071892 -    strcnt 1 2
071893 -    setgbl 66 @1
071894 -
071895 -        Move ahead and capture x cursor position; save to global 66
071897 -     ..
071898 -    aw
071899 -    strcnt 1 4
071900 -    setgbl 271 @1
071901 -    aw
071902 -    strcnt 1 4
071903 -    setgbl 272 @1
071904 -
071905 -        Move ahead and capture SDS record type factors.
071907 -     ..
071908 -    e c:\sd\03\03501
071909 -    line                      && *%ec
071910 -
071911 -        Open main 03501 processor and move to the line where the code
071912 -        will be executed for Ctrl F6.
071914 -     ..
071915 -    loc_cur 4 3
071916 -    setcnt 86 1
071917 -    macro 1182
071918 -
071919 -        Enter the file specification for the originating SDS record,
071920 -        shown below. ref SDS 0 GH3X
071922 -     ..
071923 -    e stufq7y
071924 -
071925 -        Return to stufq7y to process the rest of the data for opening
071926 -        a subject index.
071927 -
071928 -
071929 -
071930 -
071931 -
0720 -

SUBJECTS
Ctrl F6 E Command Scroll Between Subject and SDS Record Open in Start

0803 -
080401 -  ..
080402 - Subject Index Ctrl F6 Open Originating SDS Record Scroll Edit Chain
080403 - Ctrl F6 Subject Index Open Originating SDS Record Scroll Edit Chain
080404 -
080405 - Follow up ref SDS 4 UV4K.
080406 -
080407 - Line 860, ref OF 1 X88O, -label oosrE in 03501
080408 -
080409 -    -label oosrE
080410 -    -if @245 != 812 -goto Q1nim
080411 -    -exit
080412 -
080413 -        245 = 812 is set in 06112 when Subject Index is opened from a
080414 -        subject report, ref SDS 0 LB7M, and so the regular e command
080415 -        works; but if SI was not opened from subject report, then it
080416 -        must have been opened in a Windows Start command session and so
080417 -        do alternate code.
080419 -     ..
080420 -    -label Q1nim
080421 -    -if @123 != 666 -goto ctrlf6
080422 -    setcnt 142 99
080423 -    -gosub bH_prior
080424 -    setcnt 142 0
080425 -
080426 -        If this is a sorted list, setcnt 123 = 666 then don't open the
080427 -        originating SDS record until after running the code that
080428 -        switches back to the actual index for the target line. -gosub
080429 -        bH_prior, which is the F1 F3 code.  This will be a smaller file
080430 -        than an assembled sorted list, and so reduces the frequency of
080431 -        memory failure.
080432 -
080434 -     ..
080435 -    -label ctrlf6
080436 -    *%ec
080437 -    e d:\
080438 -
080439 -        Use similar scheme for Ctrl F6 in Subject Report screen.
080440 -        ref SDS 0 LU4F
080442 -         ..
080443 -        SDS record filename is loaded with positioning and profile data
080444 -        into the transfer file created by 035012, per above,
080445 -        ref SDS 0 SX4G, and then read by 03501 to configure this code
080446 -        in 03501, per below, ref SDS 0 HT3N, when the 2nd session is
080447 -        launched by the start command in sd 01 03501.bat
080449 -     ..
080450 -    -if @162 != 3831 -goto recdos
080451 -    -exit
080452 -
080453 -        If switch for Ctrl F6 is on to open originating file then on
080454 -        each succeeding pass, since the file is already open, just
080455 -        exit.
080457 -  ..
080458 - Line 1050, ref OF 1 4H6L, -label recdos in 03501
080459 -
080460 -    -label recdos
080461 -    setcnt 162 3831
080462 -
080463 -        Set switch for Ctrl F6 on first pass to open originating file
080464 -        and set up profile placing User in same context.  On each
080465 -        succeeding pass, if the file is already open, code will just
080466 -        exit.
080468 -     ..
080469 -    getgbl 65 65
080470 -    getgbl 66 66
080471 -    getgbl 67 67
080472 -
080473 -        Get globals to move the file into the position of the
080474 -        originating SDS record for context, since that is primary
080475 -        purpose of the exercise.  Counter 65 is the number for the
080476 -        current line.  Counters 66 and 67 are x and y coordinates.
080478 -     ..
080479 -    getgbl 271 271
080480 -    getgbl 272 272
080481 -
080482 -        Move session global User ID to current User ID params.
080484 -     ..
080485 -    macro 856
080486 -
080487 -        Get SDS file type flags to show what type of profile to setup
080488 -        for a Schedule or an SDS record, and if it is a schedule task,
080489 -        a current diary or an archived diary.
080490 -
080491 -    -if @271 = 999 macro 941
080492 -
080493 -        271 = 999 is the Schedule file flag, so call macro 941 to
080494 -        create the colors and positioning for the Schedule.
080496 -     ..
080497 -    line @65
080498 -    loc_cur @67 @66
080499 -
080500 -        Move the file to the same line and place the cursor on the
080501 -        same relative position as originating SDS record for context,
080502 -        since that is the primary purpose of this exercise.
080503 -
080504 -    -if @271 = 999 -goto schDl
080505 -
080506 -        If it is a Schedule file, then jump next code that sets up an
080507 -        SDS record, and go configure for a Schedule screen, and return
080508 -        control to the User.
080510 -     ..
080511 -    setcnt 47 2
080512 -    macro 153
080513 -    macro 157
080514 -    cmd2off
080515 -    -exit
080516 -
080517 -        Get SDS record type flags in 271 and 272; move global User ID
080518 -        to local User ID in macro 856; 47 2 sets SDS profile; macro 153
080519 -        and macro 157 set up SDS conditions without moving the file.
080520 -        Disconnect F1 to scroll profile and F2 to save the file since
080521 -        we cannot change the originating file that is in session 1.
080523 -     ..
080524 -    -label schDl
080525 -    markcur 96
080526 -    -exit
080527 -
080528 -        This is a Schedule screen so give it stardard mark so that
080529 -        functions can open it if needed.
080530 -
080531 -
080532 -
080533 -
080534 -
080535 -
080536 -
0806 -

SUBJECTS
Delete SI level

0903 -
090401 -  ..
090402 - Delete Index and Files for Subject Index
090403 - Subject Index Remove Index and Directory
090404 -
090405 - Follow up ref SDS 2 0000.
090406 -
090407 - Need to update the function that deletes a subject index, and the
090408 - directory.
090410 -  ..
090411 - Line 2920, ref OF 1 8B6O, -label delIT in 03505
090412 -
090413 -    This has two parts.
090414 -
090415 -    1.  Create a secondary menu to ask the user to verify intent to
090416 -        delete a subject by pressing Enter.
090418 -         ..
090419 -    2.  User can then press Enter to execute subject delete op, or
090420 -        press ESC to cancel.
090422 -     ..
090423 -    Changed the way the code creates the sub-menu.  decided to use the
090424 -    block copy and move commands rather than cut and paste.  The same
090425 -    method could also be used for the general menu system to save more
090426 -    memory.
090427 -
090428 -       [On 031022 made same change to menu system in macro 80.
090429 -       ref SDS 6 QD8I
090431 -        ..
090432 -       [On 040506 to handle longer subject account strings, changed
090433 -       macro 1182 to 1188 and changed macro 1181 to macro 1189.
090434 -       ref SDS 7 4Q7P
090435 -
090436 -
090437 -
090438 -
090439 -
0905 -

SUBJECTS
File List for Subject Account F1 F7

1103 -
110401 -  ..
110402 - File Management DMS List Files for Current Subject Account
110403 -
110404 - Line 3390, ref OF 1 WO9O, -label bHD_list in 03501
110405 -
110406 -     No change to this code.
110407 -
110408 -
110409 -
110410 -
110411 -
110412 -
110413 -
1105 -

SUBJECTS
Filename Path Current Subject Account F1 F8 Open 03501

1203 -
120401 -  ..
120402 - Filename Path Current Subject Account F1 F8 Open 03501
120403 - F1 F8 Open 03501 to Path and Filename for Current Subject Account
120404 -
120405 -
120406 - Line 4830, ref OF 1 HY3K, -label o03501g in 03501
120407 -
120408 -    -label o03501g
120409 -    -gosub bHpf081
120410 -    e c:\sd\03\03501
120411 -    line                                                       && *%5
120412 -    loc_cur 4 1
120413 -    macro 153
120414 -    -exit
120415 -
120416 -        This is a new function to switch from the index file to the
120417 -        subject index processing macro file 03501, and to the line that
120418 -        has the path and filename where the subject is located.
120420 -         ..
120421 -        This is handy to know sometimes.
120422 -
120423 -           [On 040525 added line command to find the get command
120424 -           stack. ref SDS 8 QO8V
120425 -
120426 -
120427 -
120428 -
120429 -
1205 -

SUBJECTS
Mouse Code Macro 232 for Subject Index
Enter & Mouse Support, 920710
Enter Assigned Macro 232 in Subject Index by 03501

1405 -
140601 -  ..
140602 - Mouse Functions for Subject Index Require Update for Windows Start
140603 -
140604 - On 030902 functionality of the Mouse listed 5 features. ref SDS 4 687G
140605 -
140606 - The fourth feature does not seem to be working...
140607 -
140608 -         Less than 10 columns in front of subject description the
140609 -         code executes F1 F3 to return to the pior level in the
140610 -         organic structure, i.e., goes back one level.
140611 -
140613 -  ..
140614 - Line 1610, ref OF 7 4125, -entry 232 in 00001
140615 -
140616 -    -entry 232
140617 -
140618 -        This is the standard operation when Enter is pressed or double
140619 -        click occurs in the Subject Index
140620 -
140622 -  ..
140623 - Line 1720, ref OF 7 RY3L, -label 03501_8
140624 -
140625 -    -label 03501_8
140626 -    @c:\sd\03\03501 #5
140627 -    -exit
140628 -
140629 -        Problem was that #5 was still #8 and the record on 030902
140630 -        modified 03501 to consolidate a lot of functionality, and this
140631 -        resulted in changing these assignments.  This is one of the
140632 -        assignments that did not get updated.
140633 -
140634 -
140635 -
140636 -
1407 -

SUBJECTS
Scroll Edit Chain Ctrl F6 in 2nd Session when Subject Report Called
Ctrl F6 Open Original SDS Record from Subject Reports

1804 -
180501 -  ..
180502 - Ctrl F6 Open Original SDS Record from Subject Reports
180503 - Original SDS Record Open from Subject Reports Using Ctrl F6
180504 - Subject Reports Access Original SDS Record and Subject Index Ctrl F6
180505 -
180506 - Follow up ref SDS 1 0000.
180507 -
180508 - We have two conditions to manage...
180509 -
180510 -    1.  Launch Subject Report from primary session using F1 F9 in an
180511 -        SDS record Control Field.
180513 -         ..
180514 -        In this situation, the code should run as it does now.
180516 -         ..
180517 -    2.  Launch Subject Report from 2nd session running under the
180518 -        Windows Start command in a separate section of memory.
180520 -         ..
180521 -    3.  Ctrl F6 should open originating SDS record in a subject report,
180522 -        similar to the Subject Index, developed above. ref SDS 0 GH3X
180524 -  ..
180525 - Right now, as a result of work on 030902, we can launch subject
180526 - reports in the current session and in the 2nd session that uses a
180527 - separate, and so fresh, memory segment.  If we open a subject report
180528 - in the current session, should it open the Subject Index in a separate
180529 - session or in the same session?
180530 -
180531 -    If we launch SI from within the first session, then it can use
180532 -    03501 direclty, and need not call 035012.
180534 -     ..
180535 -    Let's take the approach that SI will be opened from the same
180536 -    session, and will not launch a 2nd session.
180537 -
180539 -  ..
180540 - Line 141, ref OF 4 4690, -label cOProf_1 in 06112 about 40 lines
180541 - below
180542 -
180543 -    pfb1i savescr 15
180544 -    pfb1 macro 230
180545 -
180546 -        Mouse calls standard macro 230. ref SDS 0 435O
180547 -
180549 -  ..
180550 - Line 360, ref OF 7 4473, -entry 230 in 000001
180551 -
180552 -    This begins code for the mouse called in Subject reports.
180553 -    ref SDS 0 3Z9M
180554 -
180556 -  ..
180557 - Line 770, ref OF 7 CE8F, -label 2Clks in 00001
180558 -
180559 -    -if @47 = 12 -goto siOpn1
180560 -
180561 -        When the profile is set for subject reports, then a double
180562 -        click directs processing to -label siOpn1. ref SDS 0 GE3M
180563 -
180565 -  ..
180566 - Line 800, ref OF 7 GG5H, -label siOpn1 in 000001
180567 -
180568 -    -label siOpn1
180569 -    @Q1 #42
180570 -    -exit
180571 -
180572 -        Set flags for processing in Subject Report which when running
180573 -        uses file Q1, and this is to open the Subject Index.
180574 -
180576 -  ..
180577 - Line 900, ref OF 7 5473, -label rrPts in 000001
180578 -
180579 -    -if @222 = 3 -if @221 > 40 -if @47 = 12 -goto Srpts_S
180580 -
180581 -        Changed direction of click on Function menu to the same call
180582 -        used for Subjects, because as of today, the code in 06112 will
180583 -        distinguish between these tasks based on the screen position
180584 -        params, per below. ref SDS 0 TA6G
180586 -  ..
180587 - Line 920, ref OF 7 F63H, -label rrPts in 000001 about 30 lines below
180588 -
180589 -    -if @222 = 4 -if @221 > 40 -if @47 = 12 -goto Srpts_S
180590 -
180591 -           Call to open Primary Subject Index, -goto Srpts_S
180592 -
180593 -
180595 -  ..
180596 - Line 2340, ref OF 4 O55F, -label subJct in 06112
180597 -
180598 -    -label subJct
180599 -    setcnt 245 812
180600 -    setgbl 245 812
180601 -
180602 -        245 812 establishes SI was opened from within the subject
180603 -        report feature, rather from an SDS record.  It is used in 03501
180604 -        for managing Ctrl F6 op that runs the "e" command, per above.
180605 -        ref SDS 0 GH3X
180606 -
180608 -  ..
180609 - Line 2360, ref OF 4 2438, -label subJct in 06112 about 20 lines below
180610 -
180611 -    -if @222 < 5 -if @221 > 40 -goto psiOP
180612 -    -goto osiacl
180613 -    -label psiOP
180614 -    -if @222 = 3 -if @221 > 40 setgbl 244 10
180615 -    -if @222 = 4 -if @221 > 40 setgbl 244 0
180616 -    setcnt 119 0
180617 -    -goto opsilmo
180618 -
180619 -        222 < 5 and 221 > 40 means user clicked on the menu for opening
180620 -        the primary function or subject index, and did not click on the
180621 -        account spec to open the SI at that level.  If the user did not
180622 -        click on this location, then only other option is that user
180623 -        clicked report specificattion to open the SI at that levle, so
180624 -        go do that task, -goto osiacl, ref SDS 0 W63K,
180626 -         ..
180627 -        If User clicked on the Function menu, then setgbl 244 10 is
180628 -        used in 03501 to open the Primary Function Index, per work on
180629 -        030902. ref SDS 4 X97J  If User clicked on the Subject menu the
180630 -        turn the Function flag off, and then set global 119 0, because
180631 -        that signals to 03501 to load a primary subject index.
180632 -
180634 -     ..
180635 -    -label osiacl
180636 -    savescr 13
180637 -    chrcnt 151 0
180638 -    rel_cur 0 1
180639 -    chrcnt 152 0
180640 -    rel_cur 0 -1
180641 -
180642 -    -if @151 = 32 -if @152 != 32 ic 42
180643 -
180644 -        Save cursor position and read char to determine if the user
180645 -        clicked between account levels to open the SI at an
180646 -        intermediate level.  Move ahead and read the next position,
180647 -        then put the cursor back.  If the first position is blank, and
180648 -        the next position is not, this meand the click between account
180649 -        levels so enter a marker (using a * but anything that is not
180650 -        part of the normal account character set works), so that the
180651 -        string read feature will stop.
180652 -
180653 -
180655 -  ..
180656 - Line 90, ref OF 1 NE4G, -label bHstar in 03501
180657 -
180658 -    -if @47 = 12 -goto n2adl
180659 -
180660 -        When SI opened from within a Subject Report 47 = 2, so can skip
180661 -        everything and immediately open the file, -goto n2adl,
180662 -        ref SDS 0 6Z4J,
180663 -
180664 -
180666 -  ..
180667 - Line 270, ref OF 1 1B8L, -label n2adl in 03501 about 30 lines below
180668 -
180669 -    This is where processing continues when 03501 launched from within
180670 -    06112, per above. ref SDS 0 CY3K
180671 -
180672 -
180673 -
180674 -
180675 -
1807 -

SUBJECTS
Enter Key - make it action key, 910706

1903 -
190401 -     ..
190402 -    Enter in Subject Report Opens Subject Index to Report Spec
190403 -
190404 -
190405 - Line 210, ref OF 4 IN6L, -label F1go in 06112
190406 -
190407 -    -label F1go
190408 -    setcura 221 0
190409 -    -if @221 > 36 -if @222 = 13 -goto subJct
190410 -
190411 -        This label is called by Enter in the Subject Report.  Get
190412 -        screen position, and if the User pressed Enter on the report
190413 -        specification section of the screen, then run the code for
190414 -        doublec clicking on the same location, -goto subJct.
190415 -        ref SDS 0 LB7M
190417 -         ..
190418 -        This lets the user either double click or move the cursor over
190419 -        and press Enter to open the SI.
190420 -
190421 -
190422 -
190423 -
1905 -

SUBJECTS
Ctrl F6 Scroll Edit Chain in 2nd Session when Subject Report Called f

2003 -
200401 -  ..
200402 - Subject Report Ctrl F6 Open Originating SDS Record Scroll Edit Chain
200403 - Ctrl F6 Subject Report Open Originating SDS Record Scroll Edit Chain
200404 -
200405 - We need to open the originating SDS record from the Subject Report
200406 - screen for context under reasoning for using Ctrl F6 to do this in the
200407 - Subject Index, per above. ref SDS 0 GC57  This enables opening the
200408 - originating SDS record from another SDS record opened from a report,
200409 - because the e command can open the Subject Index and Ctrl F6 can open
200410 - the originating record when needed to position the file for linking.
200412 -  ..
200413 - Plan is to use new code in 044011 to create code in 06112 each pass
200414 - for opening the originating SDS record using diagnostics in the
200415 - transfer file, similar to the code developed for Ctrl F6 in 03501.
200416 - ref SDS 0 EZ81  This is a little tricky because both 044011 and 06112
200417 - have to accomodate the two cases of opening a subject report from the
200418 - originating SDS record using F1 F9 on a Control Field, and from
200419 - launching a report from within the subject index.  This requires a
200420 - flag that says when a subject index op is underway.  Add a flag in
200421 - 03501 setgbl 255 7296 to support this requirement. ref OF 1 KP4J
200423 -  ..
200424 - Line 1680, ref OF 7 NW9J, -label stcr141 in 000001
200425 -
200426 -    -label stcr141
200427 -    ...
200428 -    -if @221 >= @142 -if @221 < @140 -goto m117y
200429 -
200430 -        When cursor clicked or double click 10 positions in front of a
200431 -        subject description, call code for a report, -goto m117y,
200432 -        ref SDS 0 AW3N,
200433 -
200435 -  ..
200436 - Line 1770, ref OF 7 BV8G, -label m117y in 000001
200437 -
200438 -    -label m117y
200439 -    setgbl 58 0
200440 -    -label apNDD
200441 -    macro 117
200442 -
200443 -        Call code in 000007 to setup for a subject report, macro 117.
200444 -        ref SDS 0 ES3N
200445 -
200446 -
200448 -  ..
200449 - Line 680, ref OF 10 3P8N, -label 117 in 000007
200450 -
200451 -    -label 117
200452 -    setcnt 52 0
200453 -    -label 117xx
200454 -    markcur 78
200455 -    e Q1
200456 -    -if @47 = 13 -goto dlog7
200457 -    ecur 78
200458 -    @c:\sd\03\044011
200459 -
200460 -        Mark subject index open Q1 return to subject index, then call
200461 -        044011 to setup a subject report.
200462 -
200464 -  ..
200465 - Line 40, ref OF 3 3010, in 044011
200466 -
200467 -    called by macro 117 in 000007 to set up a subject report, per
200468 -    above. ref SDS 0 ES3N
200469 -
200471 -  ..
200472 - Line 410, ref OF 3 066F, -label bL_SI in 044011
200473 -
200474 -    -label bL_SI
200475 -    of 0
200476 -
200477 -        Main common code that determines subject report is called.
200478 -
200480 -  ..
200481 - Line 450, ref OF 3 N66H, -label fandS in 044011
200482 -
200483 -    -label fandS
200484 -    setgbl 147 12
200485 -    getgbl 255 255
200486 -    -if @255 != 7296 -goto 78qk
200487 -    @c:\sd\03\03501 #14
200488 -    save stufq7z
200489 -
200490 -        Add code to getgbl 255 255, which is set in 03501 when the
200491 -        subject index is launched, per below. ref OF 1 KP4J   If 255 !=
200492 -        7296 it means a subject report was launched from the
200493 -        originating SDS record, so the code here would skip operations
200494 -        that load the filename into a the e command for scrolling the
200495 -        edit chain using Ctrl F6, -goto 78qk, ref SDS 0 DX9J
200497 -         ..
200498 -        @c:\sd\03\03501 #14 runs standard code in 03501 for opening the
200499 -        transfer file, so it can be saved to a common temporary name
200500 -        that can be opened after 03501 is purged from memory in order
200501 -        to capture file identification for opening the originating SDS
200502 -        record by using code in 03501 for opening the transfer file set
200503 -        up for this session, later per below. ref SDS 0 ZC3G  We need
200504 -        to do this because the transfer filename varies for each SI
200505 -        session in order to support multiple sessions of SDS, per
200506 -        above. ref SDS 0 LK4K
200508 -     ..
200509 -    e sndx
200510 -    @c:\sd\03\03501 #16
200511 -
200512 -        Since subject index is still in memory, open the subject
200513 -        index, sndx, and close the transfer file, since we have it
200514 -        saved now to a common name.
200515 -
200517 -  ..
200518 - Line 460, ref OF 3 DT7H, -label 78qk in 044011
200519 -
200520 -    -label 78qk
200521 -    markcur 27
200522 -    e Q1
200523 -    ...
200524 -    ...
200525 -    purge C:\SD\03\03501
200526 -
200527 -        Now the code has captured the filename for the originating SDS
200528 -        record, if needed when a subject report is launched from the
200529 -        Subject Index, so resume normal processing by marking the
200530 -        current file and returning to Q1 to set up the report screen.
200531 -        03501 is removed from memory becasue we now have identification
200532 -        data needed for the transfer file to get the spec for the
200533 -        originating SDS record, per above. ref SDS 0 C19J
200534 -
200536 -  ..
200537 - Line 470, ref OF 3 VH6N, -label 78qk in 044011
200538 -
200539 -    macro 3
200540 -    getgbl 52 52
200541 -    -if @52 = 0 g c:\sd\03\06112
200542 -
200543 -        03501 is now closed and code gets 06112 to run a subject
200544 -        report.
200546 -  ..
200547 - Line 880, ref OF 3 I74G, -label sTrtD in 044011 about 120 lines below
200548 -
200549 -    getgbl 255 255
200550 -    -if @255 != 7296 -goto nsR3
200551 -    e stufq7z
200552 -    top
200553 -    setcnt 86 1
200554 -    macro 1182
200555 -
200556 -        getgbl 255 255 reads flag set by 03501 when subject index is
200557 -        run in the 2nd session.  In that case 255 = 7296 needs to load
200558 -        the filename of the originating SDS record to load the e
200559 -        command for normal Ctrl F6 ops to scroll the edit chain.  When
200560 -        255 != 7296 it means processing for a subject report was
200561 -        launched directly from a control field using F1 F9 and so does
200562 -        not need to get load the file spec for the originating SDS
200563 -        record because it is already in memory, so -goto nsR3,
200564 -        ref SDS 0 RJ7L, whereas that is not the case when a subject
200565 -        report is called from the Subject Index, because the subject
200566 -        index is opened in a 2nd session that does not have the
200567 -        originating SDS record in memory, since we are trying to reduce
200568 -        the burden on memory.  This macro 044011 saves the transfer
200569 -        file to stufq7z above, ref SDS 0 C19J, so open stufqzy and read
200570 -        the file spec for the originating SDS record.
200571 -
200572 -
200574 -  ..
200575 - Line 880, ref OF 3 PX5P, -label sTrtD in 044011 about 120 lines below
200576 -
200577 -    e Q1
200578 -    purge stufq7z
200579 -    z 1 5
200580 -    l /*%cf6/
200581 -    loc_cur 4 3
200582 -    setcnt 86 1
200583 -    macro 1181
200584 -    line 1
200585 -
200586 -        Now that we have the string that identifies the filename for
200587 -        the originating SDS record needed when launching a report from
200588 -        the subject index, open Q1 which has the code from 06112 for
200589 -        subject reports, and purge the temorary file stufq7z created
200590 -        above for obtaining the filename. ref SDS 0 ZC3G z 1 5 and
200591 -        locatee the line in the subject report screen (Q1 - 06112) that
200592 -        has the code for the "e" command; move the cursor in place and
200593 -        enter the string for the originating SDS record.  Then restore
200594 -        the Q1 subject report screen to line 1 to complete set up for
200595 -        returning control to the user.  The code in 06112 has now been
200596 -        modified to wire Ctrl F6 to scroll the edit chain, and should
200597 -        work when a subject report is called directly from an SDS
200598 -        record or from the Subject Index. ref SDS 0 LU4F
200599 -
200601 -  ..
200602 - Line 910, ref OF 3 TW5G, -label nsR3 in 044011
200603 -
200604 -    -label nsR3
200605 -    -if @58 = 1 -goto norplc
200606 -
200607 -        Resume normal processing in 044011
200608 -
200609 -
200610 -
200612 -  ..
200613 - Line 120, ref OF 4 LL6O, -label pc6or in 06112
200614 -
200615 -    -label pc6or
200616 -    e d:\sd\08......................
200617 -
200618 -    markcur 10
200619 -    e Q1
200620 -    ecur 10
200621 -
200622 -        Use similar scheme developed for Ctrl F6 in Subject Index, per
200623 -        above. ref SDS 0 W93I
200625 -         ..
200626 -        e command is loaded by 044011 only when a subject report is
200627 -        called from the subject index, per above, ref SDS 0 C19J,
200628 -        scroll back to the report screen in Q1 which has content from
200629 -        06112, so that Q1 can be put in the edit chain.  When code in
200630 -        Q1 executes this removes the file from the edit chain, so
200631 -        opening Q1 restores Q1, then return to the originating SDS
200632 -        record.
200634 -     ..
200635 -    getgbl 92
200636 -
200637 -    -if @92 = 7296 -exit
200638 -    setcnt 92 7296
200639 -
200640 -        We need a switch to setup the originating SDS record once with
200641 -        a profile and in the position from parameters in session 1.
200643 -     ..
200644 -    Rest of code same as 03501 for SI, per above. ref SDS 0 OZ6F
200645 -
200646 -
200647 -
200648 -
200649 -
200650 -
2007 -

SUBJECTS
Links Create Open Automatically Using Enter and Double Clicking

2103 -
210401 -  ..
210402 - Link Record Opened in Start Session to Originating Record
210403 -
210404 - Using the Subject Index in a secondary session with separate memory
210405 - using the Windows Start command, developed on 030902, ref SDS 4 0001,
210406 - leads to doing reports in the 2nd session and then opening records.
210407 - There is a natural progression of wanting to create links, and do
210408 - other tasks normally performed with SDS records.
210410 -  ..
210411 - A question arises about where to create the link....
210412 -
210413 -    1.  The link could occur in the 2nd session by opening the
210414 -        originating record when a subject report is called in the 2nd
210415 -        session.  It could be marked for linking with F5, and then when
210416 -        the User presses Enter the link is created.
210418 -         ..
210419 -        This has an advantage of doing these tasks in fresh memory.
210421 -         ..
210422 -        The user can switch between records to study where to place
210423 -        links; however, at this time the originating record would have
210424 -        to be opened in the SI before calling a Subject Report, because
210425 -        the 03501 SI profile that has the originating record file
210426 -        identification is closed along with the other Subject Index
210427 -        files, when a report is called.  On the other hand, 06112 can
210428 -        use the transfer file to get the file spec for opening the
210429 -        originating record only when needed.  This should reduce the
210430 -        impact on memory, because memory is only used when needed.
210432 -         ..
210433 -        The disadvantage is where the first session may have multiple
210434 -        tasks in train, with several files and records in memory, and
210435 -        there is a desire to work these files together.  The subsidiary
210436 -        files are not in memory in the 2nd session, and so whatever is
210437 -        in mind has to wait until the 2nd session is ended.
210439 -         ..
210440 -        We need a flag that says the Start session is running, so...
210441 -
210442 -           1.  Get file ID from transfer file to use Ctrl F6 for
210443 -               scrolling to the originating SDS record to position the
210444 -               file for a link.
210445 -
210446 -           2.  load the anchor data into the transfer file, rather than
210447 -               create the link directly.
210448 -
210449 -
210450 -
210452 -         ..
210453 -    2.  Putting the link in the 1st session might limit ability to link
210454 -        between files in the 2nd session.
210455 -
210456 -
210457 -
210458 -
210459 -
210460 -
210461 -
210462 -
210463 -
210464 -
2105 -

SUBJECTS
Transfer File Associate with SDS Record Rather than Use Common File f
TD C: SD TD Temporary Transfer Directory Files 0305012 Improve Memory

2404 -
240501 -  ..
240502 - Transfer File Changed from Common to Uniqe for Each SDS Record SI Op
240503 -
240504 - Follow up ref SDS 4 F14K.
240505 -
240506 - On 030902 developed system to call a batch file 03501.bat that uses
240507 - the Microsoft Windows Start command operating on a transfer file,
240508 - stufq7y, to open a 2nd session for running Subject Index operations.
240509 - ref SDS 4 B44K  At that time, analysis showed how a common transfer
240510 - file reduces usefulness and productivity of SDS by preventing opening
240511 - multiple sessions of SDS, which occurs often when using SDS, similar
240512 - to the way people have several stacks of papers and folders on their
240513 - desk and work between them as needed through the course of the day.
240514 - ref SDS 4 R85L
240516 -  ..
240517 - Work today will try to restore this functionality by developing new
240518 - code that uses a unique transfer file associated with each SDS record
240519 - where the Subject Index is opened.
240521 -  ..
240522 - Filename format...
240523 -
240524 -     hhmmss.0
240526 -  ..
240527 - This method turned out to present problems on uniqueness.  The problem
240528 - was solved using macro 987 developed on 000811, ref SDS 3 ZO6L, for
240529 - creating a 5 char anchor....
240530 -
240531 -    1.  Construct unique string for transfer filename that supports
240532 -        multiple use in the same record, since
240534 -         ..
240535 -    2.  Unique string for multiple Start sessions in multiple records.
240537 -         ..
240538 -    3.  Transfer files are deleted once a day when backup.bat is run
240539 -        during SDS initial launch. ref SDS 0 KR4G
240540 -
240542 -  ..
240543 - Line 60, ref OF 2 6P3G, -label usID in 035012 about 30 lines below
240544 -
240545 -    e c:\sd\03\035012
240546 -
240547 -        Modify code on 030902, ref SDS 4 F14K,
240549 -         ..
240550 -        We need a way to construct a unique file transfer name on each
240551 -        pass, and it needs to be different for the same record for the
240552 -        case where the user has opened a record and then wants to
240553 -        check something in another session for the same record.
240555 -         ..
240556 -        The anchor macro 987 might work.
240558 -         ..
240559 -        Below, transfer files are deleted once a day when backup.bat is
240560 -        run during SDS initial launch. ref SDS 0 KR4G
240561 -
240563 -     ..
240564 -    line             && *%t1
240565 -    loc_cur 3 10
240566 -    macro 987
240567 -
240568 -        Jump to the line
240569 -
240571 -  ..
240572 - Line 90, ref OF 2 ET9H, -label usID in 035012 about 60 lines below
240573 -
240574 -    setgbl 262 @5
240575 -    setgbl 263 @4
240576 -    setgbl 264 @3
240577 -    setgbl 265 @2
240578 -
240579 -        Move anchor values to permenant globals to save transfer file
240580 -        identification.  The next code figures out the first part of
240581 -        the filename to replace the < symbol.
240583 -     ..
240584 -    datecnt 1 0
240585 -    -if @6 < 48 addcnt 6 64
240586 -    -if @6 > 90 subcnt 6 23
240587 -    -if @6 > 57 -if @6 < 65 addcnt 6 12
240589 -      ..
240591 -     ..
240592 -    setgbl 261 @6
240593 -
240594 -        Datecnt figures out a unique char to replace < in the
240595 -        filename; setgbl 261 @6 saves this first char.
240596 -
240597 -
240598 -
240599 -
240600 -
240601 -
240603 -  ..
240604 - Line 100, ref OF 1 JP5G, -label bHstar in 03501
240605 -
240606 -    gfname
240607 -    setgbl 261 @10
240608 -    setgbl 262 @11
240609 -    setgbl 263 @12
240610 -    setgbl 264 @13
240611 -    setgbl 265 @14
240612 -
240613 -        Save transfer filename to permenant globals for the 2nd
240614 -        session, so we have a common way to get originating file
240615 -        diagonstics and so we can put things back to give instructions
240616 -        back in the originating file.  These globals are used by macro
240617 -        231 to open the transfer file, ref SDS 0 ZE5I,
240618 -
240619 -
240620 -
240621 -
240623 -  ..
240624 - Transfer File Open and Purge Macro for General Use
240625 -
240626 - We need a macro for opening and closing the temporary transfer file
240627 - that is assigned each session.
240628 -
240629 -
240630 - Line 1590, ref OF 7 ZH5F, -entry 229 in 000001
240631 -
240632 -    -entry 229
240633 -    setcnt 1 785
240634 -
240635 -    -entry 231
240636 -    markcur 14
240637 -    macro 52
240638 -    ins_text !e c:\sd\td\!
240639 -    -if @0 = 785 ins_text !purge c:\sd\td\!
240640 -    eol
240641 -    rel_cur 0 1
240642 -
240643 -        mark current file to come back after opening temporary
240644 -        processor to setup for opening the transfer file  Initially
240645 -        load a string to open the transfer file, but if the purge flag
240646 -        is set by macro 229, then enter the purge file command format.
240647 -        position cursor to enter the transfer filename.
240649 -     ..
240650 -    getgbl 1 261
240651 -    getgbl 2 262
240652 -    getgbl 3 263
240653 -    getgbl 4 264
240654 -    getgbl 5 265
240655 -
240656 -        Get globals for transfer filename that are stored initially
240657 -        when the transfer file is opened by 03501
240659 -     ..
240660 -    ic @1
240661 -    ic @2
240662 -    ic @3
240663 -    ic @4
240664 -    ic @5
240665 -    ecur 14
240666 -    @0w7j
240667 -    -exit
240668 -
240669 -        Enter the transfer filename, switch back to the inital file,
240670 -        and execute processor which opens or purges the transfer file
240671 -        and purges processor, depending on whether macro 229 or macro
240672 -        231 was called.
240673 -
240674 -
240675 -
2407 -

SUBJECTS
Subject Index Transfer Files TD Transfer Directory Remove Once a Day
Backup.bat Delete C: SD TD Temporary Transfer Direcotry Once a Day

2604 -
260501 -  ..
260502 - Backup.bat Add Remove Temporary Transfer Files for Subject Index
260503 -
260504 - Line 20, ref OF 6 TT4L, in backup.bat
260505 -
260506 -    %STR% rd c:\sd\td /s /q
260507 -
260508 -        Removed the transfer directory that now includes subdirectories
260509 -        for full subject report chained segment files, per above.
260510 -        ref SDS 0 6S6I
260512 -         ..
260513 -        %STR% runs the environment variable in sds.bat that calls the
260514 -        cmd.exe start command. ref OF 4 LV4K  The system of environment
260515 -        variables was applied to SDS beginning on
260516 -
260517 -
260518 -
260519 -
260520 -
260521 -
260522 -
260523 -
260524 -
260525 -
260526 -
260527 -
2606 -