CONTACTS 

SUBJECTS
Links Forward to Establish Follow Up Work Was Performed 0121224

0403 -
0403 -    ..
0404 - Summary/Objective
0405 -
040501 - Follow up ref SDS 1 CY6F.
040502 -
040503 - Changed the program today so that if a forward link construction
040504 - encounters conditions without an anchor, then rather than returning an
040505 - error message, the code will construct an anchor and create the link.
040506 - An error message will be entered in the record reporting the added
040507 - anchor with a color highlight to alert the user to investigate and
040508 - change formatting for the anchor if needed.
040509 -
040510 -
040511 -
040512 -
040513 -
040514 -
040516 -  ..
0406 -
0407 -
0408 - Progress
0409 -
040901 - 0122124  Forward Link Modify to Add Anchors When Needed
040902 -
040903 - Follow up ref SDS 1 VZ3K.
040904 -
040905 - On 030628 developed function to create a forward link.  This has
040906 - proven very useful.  At that time, the code was designed to return an
040907 - error message when there was not an anchor within 20 lines of the link
040908 - line to use for a forward link in the target record. ref SDS 1 W56R
040910 -  ..
040911 - This design has proven ineffective.  The problem arises so
040912 - infrequently that when it does, the error message has no meaning.
040913 - ref SDS 1 VN5H  Initially considered improving the message.
040914 - Experience shows that any message encountered infrequently will likely
040915 - have a different meaning until it is studied.  The aim of technology
040916 - is to reduce study time applied to using the technology, so that the
040917 - technology can be applied to study work being performed.
040919 -  ..
040920 - Decided to change the design, and have the code construct an anchor
040921 - when one is not encountered.
040923 -  ..
040924 - Line 110, ref OF 1 AP5L, -label flink in 0121224
040925 -
040926 -    gfname
040927 -    setcnt 86 1
040928 -    macro 1180
040929 -    e c:\sd\03\0121224
040930 -    line
040931 -    loc_cur 4 7
040932 -    setcnt 86 1
040933 -    macro 1181
040934 -    ecur 30
040935 -
040936 -        Eliminated this code that sets up to purge the target record
040937 -        where a forward link is to be entered, because now, the link
040938 -        will always be entered, so no need to prepare to purge it.
040939 -
040940 -
040942 -  ..
040943 - Anchor Look Within 15 Lines of target Link to Create Forward Link
040944 -
040945 -
040946 - Line 280, ref OF 1 9O8L, -label lpb4 in 0121224
040947 -
040948 -    -label lpb4
040949 -    setcnt 0 0
040950 -    fr /</
040951 -    -if @0 = 0 -goto evAnc
040952 -    down
040953 -    addcnt 131 1
040954 -    -if @131 > 15 -goto err0
040955 -    -goto lpb4
040956 -
040957 -        This is a loop that looks for an anchor within 15 lines of the
040958 -        line where the link is located used for calling a forward link.
040959 -        Up until today, -goto err0 when to an error message; today
040960 -        change this an branch to construct an anchor, then proceed to
040961 -        complete creating the forward link.
040962 -
040963 -
040965 -  ..
040966 - Line 310, ref OF 1 3U4O, -label err0 in 0121224
040967 -
040968 -    -label err0
040969 -    macro 7
040970 -    setcnt 131 0
040971 -    -label lpaaw
040972 -    down
040973 -    addcnt 131 1
040974 -    -if @131 > 10 -goto fnah
040975 -    setlen 127 0
040976 -    -if @127 < 10 -goto fnah
040977 -    -goto lpaaw
040978 -
040979 -        Simple loop macro 7 restores initial line where there is a
040980 -        link that was used to create a forward link.  Scroll down no
040981 -        more than 10 lines looking for a blank line where an anchor
040982 -        can be entered, and if a blank line is encountered, -goto fnah
040983 -        executes commands that construct an anchor.  If an blank is
040984 -        not found within 10 lines, then -goto fnah splits the lines to
040985 -        create a new para where an anchor can be added.
040986 -
040987 -
040988 -
040990 -  ..
040991 - Line 310, ref OF 1 J13H, -label fnah in 0121224
040992 -
040993 -    -label fnah
040994 -    up
040995 -    setcnt 28 937
040996 -    macro 541
040997 -    setcnt 28 0
040998 -    immed r
040999 -    macro 641
041000 -    addcnt 220 1
041001 -    -if @127 < 10 -goto labnr
041002 -    immed r
041003 -    up
041004 -    addcnt 220 1
041005 -    -label labnr
041006 -    macro 987
041007 -    ins_text !      **** Anchor Added Here for Link ****  !
041008 -    rel_cur 0 -4
041009 -    color 15
041010 -    save
041011 -    setcnt 0 0
041012 -
041013 -        up scrolls the file up to figure out the left margin. macro 541
041014 -        jumps the cursor to the left margin where an anchor can be
041015 -        entered.   immed r repeats the line and macro 64 makes the line
041016 -        blank for entering an anchor.  addcnt 220 1 increments the
041017 -        number for restoring the initial position with the cursor on
041018 -        the line with line that is needed to complete processing by
041019 -        adding the forward link.  If the code did not find a blank line
041020 -        within 10 lines of the link line, then the text is split and an
041021 -        anchor is added. macro 987 creates the anchor on the new blank
041022 -        line, and an error message is given telling the user what was
041023 -        done.  color 15 highlights the message to aid notice for making
041024 -        revisions to the construction if needed.  Since an anchor is
041025 -        added, save writes the record to the disk.  Processing then
041026 -        continues to complete the forward link process.
041027 -
041028 -
041029 -
041030 -
041031 -
041032 -
041033 -
041034 -
041035 -
041036 -
041037 -
041038 -
041039 -
041040 -
041041 -
041042 -
0411 -