CONTACTS 

SUBJECTS
Confidentiality Correspondence Avoid Publication on Web, 01
Publication Prevent on Internet Email Address Confidentiality 030502
0608 Memory Dose Processing, 010410
235 Macro Saves Record Calls 0608 to Maintain Transfer Directory and
Cursor Original Position Save and Restore After Converserion to HTML
Start Command Called by 0608 to Call 0122 for Converting Documents in
Start Windows Command Launches Other Programs Called with DOSE /C Ope
0608 Calls Windows Start Command to Call 0122 for Converting Document
Anchors Verify Unique, 000810

1111 -
1111 -    ..
1112 - Summary/Objective
1113 -
111301 - Follow up ref SDS 9 0000, ref SDS 1 0000.
111302 -
111303 - Discovered today that the feature for preventing documents marked
111304 - "confidential" from being published on the Internet was not working.
111305 - ref SDS 0 7S6G  Fixing this problem led to a number of improvements.
111306 - Moved code for processing confidential status from 0122 into 0608, and
111307 - streamlined code for returning user to original position after
111308 - changing the structure of the file by adding anchors in 0122.
111309 - ref SDS 0 VG6N  Decided to save confidential documents in the web
111310 - local (wl) directory, so that all files are available to the user,
111311 - while preventing publication of confidential documents to the Interent
111312 - by not saving to the web transfer (wt) directory. ref SDS 0 M49K
111313 - Applied w2k "start" command to call 0122 that converts documents into
111314 - HTML for transfer to the Internet.  This increases the size of files
111315 - that can be processed by about 90K, which is significant for SDS.
111316 - Confidential documents are now processed for local display, but not
111317 - for publication on the Internet, adding utility for printing and
111318 - viewing while maintaining confidentiality. ref SDS 0 M49K  Decided to
111319 - change the symbol for marking a confidential document to streamline
111320 - the code, so modified the letter writing operation. ref SDS 0 554J
111321 - Using start command calling a 2nd session to increase memory caused a
111322 - new problem that complicated user interface, ref SDS 0 EV4J; this led
111323 - to an effort that automates fixing duplicates to provide unique
111324 - anchors, which saves time. ref SDS 0 KO4J
111326 -           ..
111327 -          [On 030622 saving SDS records that adds anchors for
111328 -          addressability was improved by automatically correcting
111329 -          duplicates, with slight modification because SDS records do
111330 -          not swap the anchor symbol. ref SDS 10 G66I
111331 -
111332 -
111333 -
111334 -
111335 -
111337 -  ..
1114 -
1115 -
1116 - Problem
1117 -
111701 - Confidentiality Feature Not Operational for Documents in 0122
111702 -
111703 - Found today that the code in 0122 is not operational for preventing
111704 - publication of a document marked confidential, as explained below.
111705 - ref SDS 0 7S8W
111707 -  ..
111708 - Considered accomplishing this in 0608, ref SDS 0 KU4N, rather than in
111709 - 0122.  Will lose a slight amount of functionality, because the
111710 - confidential feature will run before adding anchors.  Since the
111711 - anchors are for explicit links to facilitate publication on the
111712 - Internet, and since confidential documents will not be published on
111713 - the Internet, and since links needed for internal use are created
111714 - automatically, this lack of utility is not noticable in using SDS.
111716 -  ..
111717 - Actually, another consideration is that we would like to convert files
111718 - to the local wl HTML directory without publishing on the Internet.
111719 - Converting to HTML for the local directory facilitates printing
111720 - documents when that is necessary.  There is also utility in having
111721 - access to all linked sources on the local directory.
111723 -  ..
111724 - This can be accomplished by keeping the flag and using it to simply
111725 - comment out the save command in 070405 and in 0122. ref SDS 0 XO4N  We
111726 - can capture the flag in 0608, and return and error message to alert
111727 - the User that the file is not published on the Internet at the end of
111728 - the process. ref SDS 0 M49K
111729 -
111730 -     [On 030622 made same change for publishing SDS records, so they
111731 -     display on local server, but are not placed in the transfer
111732 -     directory, and so are not displayed on the Internet. ref SDS 10
111733 -     M16M
111735 -      ..
111736 -     [On 040626 added another routine, 02903, to include ASB.htm with
111737 -     NWO and POIMS for assemblng segments of large foundational
111738 -     documnts; ASB.htm is primarily constructed by Aerospace company IT staff, so
111739 -     assembly does not require processing by 0122 for adding HTML code;
111740 -     minimal code needed for converting anchors, and avoiding the wt
111741 -     directory for transfer to the Internet is added to macro file
111742 -     02903. ref SDS 11 G56O
111743 -
111744 -
111745 -
111746 -
111747 -
111748 -
111750 -  ..
1118 -
1119 -
1120 - Background
1121 -
112101 - On 010410 code in 01220 was switched to dose processing to save
112102 - memory. ref SDS 2 0001  There is another 40K or so of memory by using
112103 - the Start Window
112105 -  ..
112106 - Later on 021025 this was changed from a direct call to a call through
112107 - 0608 that also calls 070405 for processing SDS records, to provide a
112108 - common call. ref SDS 5 HA8I
112110 -  ..
112111 - Dose processing switch meant that the code does not return properly
112112 - when a confidential flag is encountered, with the result that the
112113 - confidential feature for documents fails.  The work today fixes this
112114 - problem by modifying 0608. ref SDS 0 M49K
112116 -  ..
112117 - We could move the confidential evaluation to 0608 for 0122, which is
112118 - where the evalation is made for processing SDS records to publish on
112119 - the Internet. ref OF 7 5585
112121 -  ..
112122 - SDS records are now processed with the Windows 2000 Start command
112123 - shown by work on 030202. ref SDS 7 0001
112125 -  ..
112126 - This was not done originally on 021025 because 0122 adds anchors to
112127 - all the para and verifies uniqueness.  We will try to run confidential
112128 - code in 0122 and simply break out and give user notice in the start
112129 - window.  Use can either Esc or press F2, both will save the anchors as
112130 - verified, then quit, rather than process for publication. This gives
112131 - the User notice that the thing was not processed for publication.
112132 -
112134 -  ..
112135 - We have to be able to close the start window op at line 3490,
112136 - ref OF 3 1551,
112137 -
112138 -
112140 -  ..
1122 -
1123 -
1124 - Planning
1125 -
112501 - 0608 and 0122 Convert to Windows Start Op
112502 -
112503 - Objective is to use the Windows 2000 "start" batch file command to
112504 - call 0122 for converting documents into HTML, in the same way "start"
112505 - was set up for calling 070405 to convert SDS records into HTML on
112506 - 030202. ref SDS 7 QR3G
112507 -
112508 -     [On 040626 added another routine, 02903, to include ASB.htm with
112509 -     NWO and POIMS for assemblng segments of large foundational
112510 -     documnts; ASB.htm is primarily constructed by Aerospace company IT staff, so
112511 -     assembly does not require processing by 0122 for adding HTML code;
112512 -     minimal code needed for converting anchors is added to macro file
112513 -     02903. ref SDS 11 G56O
112515 -  ..
112516 - The code in 0608 that launches operations from clicking above
112517 - Quit-ESC, and in the File menu for "Save HTML to Internet" can be used
112518 - to get the name of the file and pass the string as a parameter into
112519 - the batch file for processing by 0122.
112521 -  ..
112522 - This is a little different from processing 070405, which uses a
112523 - constant file name of stufq, because in that case the code can
112524 - construct the filename for SDS records based the date and user ID.
112526 -  ..
112527 - Turns out that Windows will support a variable length filename
112528 - parameter in a batch file.
112529 -
112530 -
112531 -
112532 -
112534 -  ..
1126 -
1127 -
1128 -
1129 - Progress
1130 -
113001 - 0608  Change from Dose to W2K Start Command
113002 - 0122  Move Code to Maintain Relative File Position into 0608
113003 -
113004 - Follow up ref SDS 6 PESS, ref SDS 5 TJ7N.
113005 -
113006 - Line 360, ref OF 7 773G, -label 0122C in 0608 about 40 lines below
113007 -
113008 -    setcnt 147 0
113009 -    -if @31 = 57 -if @30 = 48 -if @29 = 51 -if @28 = 48 -goto nwoJ
113010 -    -if @29 = 48 -if @28 = 51 -if @27 = 48 -if @26 = 48 -goto poims
113011 -
113012 -        Added call to identify POIMS for special handling to assemble
113013 -        sections.
113015 -           ..
113016 -          [On 040626 added ASB to assemble foudational documents in
113017 -          sections. ref SDS 11 K69O
113018 -
113020 -  ..
113021 - Modified work on 021025. ref SDS 5 HA8I
113023 -  ..
113024 - Line 400, ref OF 7 HV8O, -label nwok in 0608 about 40 lines below.
113025 -
113026 -    -if @147 = 0 dose /c C:\01\02\NWO.BAT
113027 -    -if @147 = 1 dose /c C:\01\02\POIMS.BAT
113028 -
113029 -        Call batch file ops for processing NWO, ref SDS 0 GW7M, and
113030 -        POIMS. ref SDS 0 4X7K
113031 -
113032 -           [On 040626 added ASB qualifying SDS for a Aerospace company standard to
113033 -           foundational documents for assembling sections. ref SDS 11
113034 -           QU7F
113035 -
113037 -  ..
113038 - Line 460, ref OF 7 ET5H, -label nnwo in 0608
113039 -
113040 -    -gosub mtd1
113041 -
113042 -        Maintain transfer directory, this is existing code.
113044 -  ..
113045 - To use the Windows "start" command process methodology, we have to
113046 - remove code developed on 021111 in macro file 0122 that restores the
113047 - cursor and the file to the to the original relative screen position
113048 - after adding anchors. ref SDS 0 QK4H  Today, we transfer this process
113049 - from 0122 into 0608 and improve the code by eliminating the former
113050 - procedure of entering a specific char and then looking for that char
113051 - after anchors are added, and swap the original char for the search
113052 - char.  Instead, will look for and then capture a unique string in the
113053 - file, and also capture the adjustment from the unique string to the
113054 - initial cursor position relative to the screen, and use that to
113055 - restore the original condition to the user after adding anchors.
113056 -
113057 -    macro 22
113058 -    setcura 236 0
113059 -    setcnt 238 0
113060 -
113061 -        Save cursor position in macro 22 in the event the thing is on
113062 -        top line of the file.  Capture cursor location relative to the
113063 -        screen.
113065 -     ..
113066 -    setcnt 86 1
113067 -    setcnt 80 1000
113068 -    setcnt 81 30
113069 -
113070 -        Set up to read a string of no more than 30 char to get a unique
113071 -        search argument that can be used to find this line when the
113072 -        process is completed.
113074 -  ..
113075 - Line 470, ref OF 7 SK4F, -label uslfm in 0608
113076 -
113077 -    -label uslfm
113078 -    loc_cur 0 1
113079 -    macro 1182
113080 -    -if @100 > 25 -goto ctltr
113081 -
113082 -        Put the cursor on column 1, and capture the line.  If the
113083 -        string is not at least 25 char, then do an up to test the next
113084 -        line, and keep going until we get a string of at least 25 char
113085 -        to ensure a unique string for a search argument after 0122
113086 -        processing adds anchors.  If the line is over 25 char, then go
113087 -        and save it in the processor 0608 for use after anchors are
113088 -        added to find the original cursor line. ref SDS 0 WG51
113090 -     ..
113091 -    up
113092 -    addcnt 238 1
113093 -    -goto uslfm
113094 -
113095 -        Count number of lines we have to adjust for restoring the
113096 -        original screen after returning from 0122, and go repeat this
113097 -        op until we get a string of at least 25 char. ref SDS 0 SI8M
113098 -
113100 -  ..
113101 - Line 470, ref OF 7 758M, -label ctltr in 0608
113102 -
113103 -    -label ctltr
113104 -    setcnt 80 0
113105 -    save
113106 -
113107 -        Reset flag for chapturing a fixed string length.  Save the file
113108 -        to establish the basis of what is published to the Internet.
113110 -     ..
113111 -    e c:\sd\03\0608
113112 -    line                                                       && *•$
113113 -    loc_cur 3 4
113114 -    -gosub splent
113115 -    ic 36
113117 -         ..
113118 -        Open 0608 and jump to the line with a comment command string;
113119 -        put the cursor on the column that fits the structure of a
113120 -        locate command and call a subroutine that removes a prior pass,
113121 -        and then enters the new string for this pass to save captured
113122 -        string as a search argument for locating the original line
113123 -        after processing by 0122 to add HTML.  ic 36 enters a closing
113124 -        serach delimiter.  Get a little fancy here; will come back
113125 -        later and modify the comment characters to create a locate
113126 -        command, so we don't have to create complicated code to
113127 -        accomplish this step.
113129 -     ..
113130 -    ecur 10
113131 -    gfname
113132 -    setcnt 86 1
113133 -    macro 1180
113134 -
113135 -        Ecur 10 returns to target file.  Set up to call c: sd 01
113136 -        0122.bat created today for using the Windows 2000 batch file
113137 -        "start" command to call 0122 and convert the stuff into HTML,
113138 -        per below. ref SDS 0 EV4J  gfname captures the file name again.
113139 -        Start at counter 1, and transfer to globals.
113141 -     ..
113142 -    e c:\sd\03\0608
113143 -
113144 -        Open 0608 and append filename as parameter to call for 0122.bat
113145 -        op that will be passed to the start command.
113146 -
113147 -
113149 -     ..
113150 -    line                                                       && *%3r
113151 -
113152 -
113153 -
113154 -                 *******************************
113156 -     ..
113157 -    macro 1180
113158 -    e c:\sd\03\0608
113159 -
113160 -        Add new code to move counters captured initially by gfname
113161 -        command, reported on 021025, ref SDS 5 VH7N, into globals for
113162 -        transfer to 0608.
113164 -     ..
113165 -    line
113166 -
113167 -        Jump to line in 0608 where 0122.bat is called.
113169 -     ..
113170 -    loc_cur 4 1
113172 -     ..
113173 -    z 1 30
113174 -    fr /.bat /
113175 -
113176 -        The target command is on next line, so move cursor to one
113177 -        position beyond end of the command string that ends with .bat.
113179 -     ..
113180 -    split
113181 -    rel_cur 1 0
113182 -    immed d
113183 -    rel_cur -1 0
113184 -
113185 -        Split any prior command string, and move cursor down a line to
113186 -        delete the prior string, then put cursor back where the new
113187 -        filename param is to be entered.
113189 -     ..
113190 -    setcnt 86 1
113191 -    macro 1181
113192 -
113193 -        Start char enter at 86 1, and call macro that enters the
113194 -        filename taken above, ref SDS 0 OM6I, as a parameter to the
113195 -        0122.bat file op command call, ref SDS 0 K69O, which passes the
113196 -        filename as the object of processing for 0122. ref SDS 0 EV4J
113197 -
113198 -
113200 -     ..
113201 -    0608  Call Batch Op Run 0122 Under Start Command to Save Memory
113202 -
113203 -
113204 - Line 590, ref OF 7 KG9M, -label ctltr in 0608 about 50 lines below
113205 -
113206 -    ecur 10
113207 -    *%3r
113208 -    dose /c c:\sd\01\0122.bat [....................]
113209 -
113210 -        Return to object file and call 0122.bat to run 0122 in a batch
113211 -        file with w2k start command that saves memory.  Filename is
113212 -        appended as a parameter for 0122.bat, per below. ref SDS 0 EV4J
113213 -
113214 -
113215 -
113217 -     ..
113218 -    Anchor Standard Symbol Restored
113220 -  ..
113221 - Line 580, ref OF 7 558N, -label ctltr in 0608 about 80 lines below
113222 -
113223 -    z 1 60
113224 -    c//* 1
113225 -
113226 -        After the code returns from processing by 0122 convert anchors
113227 -        back to the standard symbol, per above. ref SDS 0 C79I
113228 -
113229 -
113231 -     ..
113232 -    Confidential Flag Process and Give User Notice
113233 -
113234 - Line 590, ref OF 7 M79K, -label ctltr in 0608 about 90 lines below
113235 -
113236 -    top
113237 -    l /[0[/
113238 -    -if @0 > 0 -goto ncf8
113239 -    setcnt 157 9999
113240 -    -label ncf8
113241 -
113242 -        After the code returns from processing by 0122 and after
113243 -        anchors have been converted back to the standard symbol, per
113244 -        above, ref SDS 0 C79I, then look for confidential flag, which
113245 -        is changed today from ][ to [0[, per below, ref SDS 0 XO4N, and
113246 -        if the symbol string is there then set 1 9999 for flag to issue
113247 -        message to user that file was not published to the Internet,
113248 -        but it is in the local wl web directory, so it can be printed,
113249 -        which offers added utility, per above. ref SDS 0 M24J
113251 -         ..
113252 -        Need to enable local display for printing SDS records that are
113253 -        confidential.  Right now there is code in 070405 that discovers
113254 -        confidential flag, ref OF 8 1889, so only need to comment out
113255 -        savx to wt for SDS records, and then return a message in 0608,
113256 -        rather than stop process in 0608, as is currently occurring.
113257 -
113258 -            [On 030622 changed code to save SDS records to web local
113259 -            (wl) directory; but prevent publication on Internet.
113260 -            ref SDS 10 QL6F
113262 -  ..
113263 - Line 1360, ref OF 7 6D7G, -label nsbrtn in 0608
113264 -
113265 -    -label nsbrtn
113266 -    -if @157 != 9999 -goto stopY
113267 -    errormsg  Confidential doc not published on Internet
113268 -    -if @47 = 2 errormsg  Confidential SDS record not published on Internet
113269 -
113270 -        Added code to use conditional 157 = 9999 for confidential
113271 -        documents and SDS records.
113272 -
113273 -
113275 -  ..
113276 - NWO Batch Operations
113277 -
113278 - This is called from within 0608 when NWO is being processed, per
113279 - above. ref SDS 0 QU7F
113280 -
113281 - Line 40, ref OF 1 EF5L, in 01 SD NWO.BAT
113282 -
113283 -    del funn
113284 -    c:\sd\01\e funn c:\sd\03\02901
113285 -    del f:\03\00050\01\09\03\02\03\0309
113286 -
113287 -       Delete "funn" so we can process an empty file.  Run 02901 to
113288 -       process each NWO segment separately, per below, ref SDS 0 IV6F,
113289 -       then delete 0309 to get ready to glue them together into a new
113290 -       0309 file.
113291 -
113292 -
113294 -  ..
113295 - POIMS Batch Operations
113296 -
113297 - This is called from within 0608 when NWO or POIMS is being processed,
113298 - per above. ref SDS 0 QU7F
113299 -
113300 - Line 40, ref OF 2 YW6G, in 01 02 POIMS.BAT
113301 -
113302 -    del funn
113303 -    c:\sd\01\e funn c:\sd\03\02902
113304 -    del f:\03\00050\01\09\01\02\00030
113305 -
113306 -       Delete "funn" so we can process an empty file.  Run 02902 to
113307 -       process each POIMS segment separately, per below, ref SDS 0
113308 -       2K9L, then delete 00030 to get ready to glue them together into
113309 -       a new 00030 file.
113310 -
113311 -
113313 -  ..
113314 - 0122.Bat  Start Command Batch File for sd 03 0122
113315 -
113316 - Follow up ref SDS 5 HA8I.
113317 -
113318 - Create new batch file similar to 070405.bat created on 030202.
113319 - ref SDS 7 X26M
113321 -  ..
113322 - Line 30, ref OF 9 J03M, in sd 01 0122.bat
113323 -
113324 -    %systemroot%\system32\cmd.exe /C start /min /wait c:\sd\01\e %1 c:\sd\03\0122
113325 -    REM
113326 -    REM       Alternate command string for Windows 98
113327 -    REM
113328 -    REM C:\WINDOWS\COMMAND.COM  /C start /min /wait c:\sd\01\e %1 c:\sd\03\0122
113329 -
113330 -        This code will replace %1 with the filename param from the call
113331 -        in 0608, per above. ref SDS 0 WM96
113333 -         ..
113334 -        Since we are adding anchors for uniform addressability with
113335 -        explicit links, and are verifying links are unique in 0122,
113336 -        then if a duplicate anchor is discovered, the User will have to
113337 -        open the 2nd window to make the correction.  We could eliminate
113338 -        the min command and the 2nd window would be visible, but when
113339 -        no duplicates are found, which is the normal situation, then a
113340 -        2nd window will flash.  Since this is annoying and distracting,
113341 -        for now, will try adding a beep to alert the user to open the
113342 -        2nd window by clicking the symbol on the desktop tray, and fix
113343 -        the problem by editing the duplicate anchor and pressing F2.
113345 -         ..
113346 -        Actually, after trying this decided to eliminate requirement
113347 -        for user to change the anchor, and instead will let the system
113348 -        change it, and thereby avoid the issue of the user interacting
113349 -        with the minimized start command session, per below.
113350 -        ref SDS 0 KO4J
113351 -
113352 -
113354 -  ..
113355 - 0122  Convert Op to Run Under Windows Start Command
113356 -
113357 - Line 30, ref OF 3 EM4K, in 0122
113359 -  ..
113360 - Today, the code is changed to use the Windows 2000 Start command in
113361 - order to increase RAM by about 90K and do the work in a fresh session.
113362 - This requires changes in 0122, including changing the way that
113363 - confidential documents are handled, per below. ref SDS 0 XO4N
113364 -
113365 -
113366 -      -goto startn
113367 -    -goto dlprof
113368 -
113369 -        Changed the call for starting 0122 for standard processing,
113370 -        because it will no longer be calling a dose session, as it has
113371 -        been configured up until today.
113372 -
113374 -  ..
113375 - Line 60, ref OF 3 4914, -label startn in 0122
113376 -
113377 -    -goto saHTML
113378 -
113380 -  ..
113381 - Line 130, ref OF 3 VZ3O, -label dlprof in 0122 about 60 lines below
113382 -
113383 -    -if @119 != 119 -gosub sdsgo
113384 -    getgbl 1 167
113385 -    -if @1 = 3728 -exit
113386 -    quit
113387 -
113388 -        This is where the operation ends, with the quit command.
113390 -         ..
113391 -        That worked previously when everything ended in a dose session,
113392 -        but now we are in a Windows Start op, and so the code needs to
113393 -        exit when processing NWO and POIMS.  Added conditionals, per
113394 -        code in 02901 and 02902 below. ref SDS 0 PE3O
113395 -
113396 -
113398 -  ..
113399 - Line 820, ref OF 3 Y15N, -label saVV in 0122 about 30 lines below.
113400 -
113401 -    Disconnected code developed on 021111 for restoring the char
113402 -    removed in original file for the purpose of restoring original
113403 -    relative position. ref SDS 6 4H5F
113404 -
113405 -    This code was transferrd into 0608 for most documents, per above,
113406 -    ref SDS 0 VG6N, and into 02901 for NWO, ref SDS 0 IV6F, and, also,
113407 -    02902 for POIMS. ref SDS 0 2K9L
113408 -
113409 -
113411 -  ..
113412 - 0122  Confidential Documents Avoid Publication on Internet
113413 -
113414 - Line 870, ref OF 3 X59G, -label saVV in 0122 about 40 lines below
113416 -  ..
113417 - Today, we are changing the process.  Previously, if a document is
113418 - marked confidential then processing with 0122 stopped after entering
113419 - anchors.  Since the code is switched to use the start command to save
113420 - memory, per above, ref SDS 0 YG6L,
113421 -
113422 -    errorcnt 0 0
113423 -    top
113424 -    z 1 20
113425 -    l /[0[/
113426 -    -if @0 > 0 -goto sprss
113427 -    setgbl 232 7851
113429 -           ..
113430 -          Change symbol today for identifying a confidential file; will
113431 -          use three (3) char now [0[ instead of only two (2),
113432 -          originally designed ][. I think that the string [0[ is
113433 -          unlikely to be unique enough that we do not need a secondary
113434 -          flag like "Confidential" on the same line.   Set flag global
113435 -          232 7851 for use below to comment out savx command that
113436 -          prevents saving the file in the transfer directory to the
113437 -          Internet.
113439 -           ..
113440 -          Have to change the symbol in 0501 for confidential letters,
113441 -          per below. ref SDS 0 554J
113443 -           ..
113444 -          Removed code in 0122 that notified user about confidential
113445 -          status, because this is now accomplished in 0608, per above.
113446 -          ref SDS 0 M49K
113447 -
113449 -  ..
113450 - Line 950, ref OF 3 W76K, -label dlop1 in 0122 about 60 lines below
113451 -
113452 -    getgbl 232 232
113453 -    -if @232 != 7851 -goto ptroi
113454 -    loc_cur 3 1
113455 -    ic 42
113456 -    ic 42
113457 -    -goto cddnch
113458 -    -label ptroi
113459 -
113460 -          The code has opened 0122 and moved to the line with savx
113461 -          command for the web transfer directory, wt. Get confidential
113462 -          flag in 232, per above, ref SDS 0 XO4N, and if 232 = 7851
113463 -          then comment out savx command so it does not run.  If 232
113464 -          does not equal 7851, then jump this code and set up to run
113465 -          savx normally.
113466 -
113467 -
113468 -
113470 -  ..
113471 - 0122  Verify Anchors Eliminate Duplicates Automatically and Save
113472 -
113473 - Follow up ref SDS 8 6W7O.
113474 -
113475 - Line 510, ref OF 3 NZ7I, -label anLP0 in 0122
113476 -
113477 -    This is where code begins that adds anchors for uniform
113478 -    addressability to any para where an anchor is missing.
113480 -  ..
113481 - Line 750, ref OF 3 OX5K, -label vaaU in 0122
113482 -
113483 -    This code verifies anchors are unique, and when a duplicate anchor
113484 -    is encountered, the code stops to allow the user to fix it.
113486 -  ..
113487 - Previously, the code stopped for user to enter an anchor.  Since 0122
113488 - is now running with the Windows batch file start command, per above,
113489 - ref SDS 0 WM96, and below, ref SDS 0 EV4J, we can eliminate code that
113490 - managed this condition previously, as follows...
113492 -  ..
113493 - Unplug pf2 and -goto end, because this is assigned in the beginning to
113494 - 0122 without a param, and that is still good, because changes to the
113495 - code today, no longer use dose process that previously used pf2
113496 - assigned to 0122 #4.  Eliminate goto end, and instead, just exit
113497 - because now 0122 is still in memory.  This approach creates a problem
113498 - though because using Start to call 0122, means that the operation is
113499 - minimized on the desktop tray, and so the user is not aware of a need
113500 - to edit the anchor string and press F2 to continue processing.  Tried
113501 - adding a beep to alert user that the minimized start session needs to
113502 - be to openned in the 2nd window for editing the anchor, then pressing
113503 - F2, which is assigned with the profile. ref OF 3 645I  Actually, we
113504 - may not need any of this stuff.....
113506 -  ..
113507 - Line 820, ref OF 3 T59F, -label ovr23 in 0122
113508 -
113509 -    Decided instead of giving user another issue to overcome,
113510 -    especially, in learning, will eliminate need to open the start
113511 -    window and change the anchor manually, as we have been doing up
113512 -    until today, per above. ref SDS 0 X64O  Can accomplish this with
113513 -    code that enters a new anchor automatically, and then re-checks
113514 -    itself.
113515 -
113516 -          [On 030622 added this code to 0702051 for SDS record save,
113517 -          with slight modification because SDS records do not swap the
113518 -          anchor symbol. ref SDS 10 X63G
113520 -     ..
113521 -    macro 541
113522 -    macro 987
113523 -    setcnt 57 948
113524 -    -goto vaaU
113525 -
113526 -        Macro 541 jumps cursor to left margin where the anchor starts,
113527 -        and macro 987 enters a new anchor.  Set a flag to process a
113528 -        correction op, and go start from the top again.
113529 -
113531 -  ..
113532 - Line 780, ref OF 3 8D8M, -label lpaTAn in 0122
113533 -
113534 -    -label lpaTAn
113535 -    errorcnt 0 0
113536 -    z 1 40
113537 -
113538 -        This is normal code looking for anchor symbols to convert into
113539 -        alternate symbols and test for duplicates.
113541 -     ..
113542 -    -if @57 != 948 l /</
113543 -    -if @57 = 948 l / ..
113544 -
113545 -        If the duplicate process flag is not set, then look for an
113546 -        anchor symbol.  If the duplicate anchor process is set per
113547 -        above, ref SDS 0 245I, then look for alternate anchors that
113548 -        have already been processed.
113550 -           ..
113551 -          [On 030622 turns out this code is not needed in 0702051 for
113552 -          SDS record save op, because SDS records do not swap the
113553 -          anchor symbol. ref SDS 10 O83G
113555 -     ..
113556 -    -if @0 = 0 -goto paatl
113557 -
113558 -        If an anchor symbol is found, process it normally. ref SDS 0
113559 -        PVTR
113560 -
113561 -    -if @57 != 948 -goto saVV
113562 -
113563 -        This means an anchor symbol was not found, so if the duplicate
113564 -        anchor process op is not underway, then this means the verify
113565 -        op is over, so go do the next step.
113567 -     ..
113568 -    setcnt 57 0
113569 -    -goto vaaU
113570 -
113571 -        This means we have completed testing all of the alternate
113572 -        anchors and found no duplicates, so turn off duplicate anchor
113573 -        op, and start over with regular process, which will skip all of
113574 -        the anchors already determined not to be duplicates.
113576 -     ..
113577 -    -label paatl
113578 -
113579 -        Normal verify anchor process code...
113580 -
113581 -
113582 -
113583 -
1136 -

SUBJECTS
NWO Segment File Too Big for Single File Conversion

1303 -
130401 -  ..
130402 - 02901  Convert NWO to HTML Assemble Segmented Files
130403 -
130404 - Follow up ref SDS 3 F46I.
130405 -
130406 - This code is called in the POIMS batch file op, per above. ref SDS 0
130407 - 4X7K and is identical to the code for NWO in file 02901, per below,
130408 - ref SDS 0 2K9L, except for the filename.  It was originally developed
130409 - on 020811. ref SDS 3 F46I
130411 -  ..
130412 - Line 30, ref OF 4 VV6H, -label lp122
130413 -
130414 -    setcnt 59 0
130415 -    -label lp122
130416 -    addcnt 59 1
130417 -    setgbl 59 @59
130418 -    -if @59 < 6 -goto abcde
130419 -    -goto topP
130420 -
130421 -         Do a loop to process each of the 5 segments of NWO with macro
130422 -         file 0122 explained in the next section. When counter 59
130423 -         reaches 6, all of the segments have been processed, so do the
130424 -         next step.
130425 -
130427 -  ..
130428 - Line 80, ref OF 4 JW9I, -label abcde in 02901
130429 -
130430 -    -label abcde
130431 -    e c:\sd\03\02901
130432 -    line                                                       && *%5
130433 -    -gosub poste
130434 -    line                                                       && *%6
130435 -    -gosub poste
130436 -    line                                                       && *%7
130437 -    -gosub poste
130438 -
130439 -        Call subroutines to change the filenames to process each of the
130440 -        5 segments of NWO.
130441 -
130443 -  ..
130444 - Line 100, ref OF 4 SQ7H, -label abcde in 02901
130445 -
130446 -    *%5
130447 -    e f:\03\00050\01\09\03\02\03\0309A
130448 -    -gosub 0122
130449 -    *%6
130450 -    e f:\03\00050\01\09\03\02\03\0309A
130451 -    -gosub rasE
130452 -    *%7
130453 -    purge f:\03\00050\01\09\03\02\03\0309A
130454 -    -goto lp122
130455 -
130456 -        Open the NWO file segment and add HTML with macro file 0122;
130457 -        since 0122 purges the file, after this has run, open it again
130458 -        and run another subroutine that changes the temporary anchor
130459 -        symbol back to the standard anchor symbol.  Then return to the
130460 -        processor file and purge the NWO segment file, and go do the
130461 -        next file segement. ref SDS 0 M36O
130462 -
130463 -
130464 -
130465 -
130466 -
130467 -
130468 -
130469 -
130470 -
130472 -  ..
130473 - Line 320, ref OF 4 PE3J, -label 0122 in 02901
130474 -
130475 -    -label 0122
130476 -    macro 150
130477 -    setcnt 111 32
130478 -    line 130
130479 -    loc_cur 10 1
130480 -    setgbl 167 3728
130481 -    errorcnt 0 0
130482 -    @c:\sd\03\0122
130483 -    **
130484 -    purge c:\sd\03\0122
130485 -    -return
130486 -
130487 -        This is a subroutine that processes each segment of
130488 -        foundational documents for POIMS, developed on 020811 to work
130489 -        the same way that 02901 works for procesing NWO. ref SDS 3 AE7G
130491 -         ..
130492 -        Set flag telling 0122 that foundational document segment is
130493 -        being processed, so exit, rather than quit.  Calls macro file
130494 -        0122 to convert to HTML, but today, since we have changed 0122,
130495 -        ref SDS 0 YG6L, to run in a Windows Start op, per above,
130496 -        ref SDS 0 EV4J, changed the code in 0122 to exit rather than
130497 -        quit.
130498 -
130500 -  ..
130501 - Line 360, ref OF 4 H27M, -label rasE in 02901
130502 -
130503 -    -label rasE
130504 -    z 1 60
130505 -    c//* 1
130506 -    save
130507 -    e funn
130508 -    -return
130509 -
130510 -        Subroutine to change anchor back to standard symbol.
130511 -
130512 -
130513 -
130514 -
1306 -

SUBJECTS
POIMS Segment File Too Big for Single File Conversion
POIMS.BAT 02901 Convert POIMS Segments into HTML File on Internet

1504 -
150501 -  ..
150502 - 02902  Convert POIMS to HTML Assemble Segmented Files
150503 -
150504 - Follow up ref SDS 3 F46I.
150505 -
150506 - This code is called in POIMS batch file op, per above, ref SDS 0 4X7K,
150507 - and is identical to the code for NWO in file 02901, per above,
150508 - ref SDS 0 IV6F, except for the filename.
150510 -  ..
150511 - Line 30, ref OF 5 VV6H,
150512 -
150513 -    e f:\03\00050\01\09\01\02\00030A
150514 -    -gosub 0122
150515 -    e f:\03\00050\01\09\01\02\00030A
150516 -    -gosub rasE
150517 -    purge f:\03\00050\01\09\01\02\00030A
150518 -
150519 -       This is a typical code scheme for processing each segment of
150520 -       POIMS.  Open the segment, process with 0122 to convert to HTML.
150521 -       ref SDS 0 PW3O  Subroutine rasE changes the symbol for anchors,
150522 -       so after 0122 process is complete, run another subroutine to
150523 -       convert anchors back to standard symbol. ref SDS 0 729I
150524 -
150525 -           [On 040626 created 02093 to support ASB file that sets
150526 -           standard for SDS at Aerospace company. ref SDS 11 IV6F
150527 -
150529 -  ..
150530 - Line 320, ref OF 5 PE3J, -label 0122 in 02902
150531 -
150532 -    -label 0122
150533 -    macro 150
150534 -    setcnt 111 32
150535 -    line 130
150536 -    loc_cur 10 1
150537 -    setgbl 167 3728
150538 -    errorcnt 0 0
150539 -    @c:\sd\03\0122
150540 -    **
150541 -    purge c:\sd\03\0122
150542 -    -return
150543 -
150544 -        This is a subroutine that processes each segment of
150545 -        foundational documents for POIMS, developed on 020811 to work
150546 -        the same way that 02901 works for procesing NWO. ref SDS 3 AE7G
150548 -         ..
150549 -        Set flag telling 0122 that foundational document segment is
150550 -        being processed, so exit, rather than quit.  Calls macro file
150551 -        0122 to convert to HTML, but today, since we have changed 0122,
150552 -        ref SDS 0 YG6L, to run in a Windows Start op, per above,
150553 -        ref SDS 0 EV4J, changed the code in 0122 to exit rather than
150554 -        quit.
150555 -
150557 -  ..
150558 - Line 360, ref OF 5 H27M, -label rasE in 02902
150559 -
150560 -    -label rasE
150561 -    z 1 60
150562 -    c//* 1
150563 -    save
150564 -    e funn
150565 -    -return
150566 -
150567 -        Subroutine to change anchor back to standard symbol.
150568 -
150569 -
150570 -
150571 -
150572 -
1506 -

SUBJECTS
Confidentiality Privacy Secrecy Flag on 0001 Default Anchor 0001 Abov

1603 -
160401 -  ..
160402 - 0501  Writing Letter Confidentiality Change Flag
160403 -
160404 - Follow up ref SDS 4 5I4I.
160405 -
160406 - As a result of work today on switching from Medit dose to Windows
160407 - start command, ref SDS 0 M24J, that required changing the symbol for a
160408 - confidential document, ref SDS 0 XO4N, need to revise 0501 that sets
160409 - up a file for writing a letter with a standard format, which was last
160410 - modified on 021013. ref SDS 4 5I4I
160411 -
160412 -     [On 040714 added new confidential flag system entering !%] or !$]
160413 -     in documents that are no correspondence. ref SDS 12 FY4N
160415 -  ..
160416 - Line 750, ref OF 6 4380, -label pnDtd in 0501
160417 -
160418 -    ins_text!<....       [0[                        Confidential!
160419 -
160420 -        Changed the code from ][ to [0[, per above. ref SDS 0 IS5M
160421 -
160422 -
160423 -
160424 -
160425 -
160426 -
160427 -
160428 -
160429 -
160430 -
160431 -
1605 -