CONTACTS 

SUBJECTS
Diligence Attitudes Resist Improve Overcome Laziness by SDS Technolog
Letter Correspondence Writing Document Management Integrated with Con
Knowledge Space Integrates People Time Documents Organization

1405 -
1405 -    ..
1406 - Summary/Objective
1407 -
140701 - Follow up ref SDS 33 0000, ref SDS 32 0000.
140702 -
140703 - Abandoned PCL as default format for writing letters.  Improved support
140704 - to format new documents using HTML features for the Internet that
140705 - treats documents issued and received in the same way. ref SDS 0 TG4I
140706 - Decided to eliminate appending a "location" to the street address that
140707 - identifies a room or mail stop, since most mail is now being sent
140708 - electronically. ref SDS 0 H65I  Also, decided to eliminate a Reference
140709 - field that complements the Subjct field in some settings, often in
140710 - government. ref SDS 0 NV9G
140711 -
140712 -      [On 021019 improved doc log management to support improvements
140713 -      for issuing and receiving documents. ref SDS 40 0001
140715 -       ..
140716 -      [On 021025 improved letterhead system for publishing SDS records
140717 -      on the Internet that complements doc log management. ref SDS 41
140718 -      0001
140720 -       ..
140721 -      [On 021027 summarized improvements to system of Knowledge Space
140722 -      that integrates management of people, documents, time and
140723 -      organization. ref SDS 42 0001
140725 -       ..
140726 -      [On 021227 added feature to return error messages if doc log
140727 -      fields not field out for new documents to issue and receive
140728 -      letters and to identify a publication. ref SDS 44 PL8L
140730 -       ..
140731 -      [On 021227 changed procedure to execute savx for all new files.
140732 -      ref SDS 44 YW5W
140734 -       ..
140735 -      [On 030823 consolidated commands and reduced keystrokes for
140736 -      entering text of a document into SDS record. ref SDS 45 PI7K
140737 -
140738 -
140739 -
140741 -  ..
1408 -
1409 -
1410 - Evaluation
1411 -
141101 - Knowledge Space Learning and Implementation Made Faster and Easier
141102 -
141103 - On 021010 Gary Johnson commented that differences betweeen receiving
141104 - and issuing documents make SDS complex, and so hard to learn and use.
141105 - ref SDS 39 5G3K  Earlier on 890809 Morris made a similar point about
141106 - how SDS integrated management to save time and money is harder to
141107 - learn. ref SDS 1 2079, and later reported that attitudes resist saving
141108 - time and money, and so have to change before people will try good
141109 - management practices.  On 011210 Gary was worried that improving the
141110 - work to save time and money takes 50 years for an established culture
141111 - to adopt. ref SDS 35 R66K  Discovering that new methods save time and
141112 - money takes experience, but ignorance, fear and denial prevent people
141113 - from acquiring experience.  Transcending inherent innovation loops
141114 - driven by laziness to resist good management due to ignorance, fear
141115 - and denial, noted by Jack Park on 010908, ref SDS 34 UV4H, requires
141116 - making technology fast and easy, as reported by Gary Johnson on
141117 - 020618. ref SDS 36 BK5L
141119 -  ..
141120 - Changes today reduce the complexity of managing documents by using a
141121 - common method for handling documents issued and received.  This makes
141122 - learning and using good management practices faster and easier.  Gary
141123 - reported on 020618 that making SDS faster and easier changes attitudes
141124 - that resist using good management to save time and money. ref SDS 36
141125 - MU6H
141127 -  ..
141128 - Changing the default environment from printed documents to Internet
141129 - support advances goals for SDS Knowledge Space to enable a paperless
141130 - office, while maintaining ability to use printing through web
141131 - browsers. ref SDS 0 L66J  This aids transformation from information to
141132 - a culture of knowledge, discussed with SRI on 001011. ref SDS 29 0001,
141134 -  ..
141135 - Electronic handling to replace printed documents supports objectives
141136 - for Knowledge Space, explained in POIMS, ref OF 10 034J, and popularly
141137 - described as a "paperless" or "virtual" office, see again POIMS.
141138 - ref OF 10 0690  Since the Internet has become widely used, the former
141139 - support for printing is no longer necessary, so will change the
141140 - process today by making the default format for writing a letter HTML.
141141 -
141143 -  ..
141144 - Transformation , Regress to Traditional  Documents
141145 - Giving Up on Communication Hard to Accept Saving Time and Money
141146 - References Relaced by Direct Access to Information in Knowledge Space
141147 - New Way Working Slow Transformation, Regress to Traditional  Documents
141148 -
141149 - For many years proponents of....
141150 -
141151 -          Knowledge Management
141152 -          Paperless Office
141153 -          Virtual Office
141154 -          Knowledge Repository
141155 -          Dynamic Knowledge Repository
141156 -          Internet
141157 -          World Wide Web
141158 -          Business Intelligence
141159 -          Linking
141160 -
141161 - ...extolled "future" benefits of electronic connections that improve
141162 - access to referenced material.  When this capability did not exist,
141163 - people felt good at school, at seminars and in meetings at the office
141164 - talking about a new way of working that provides direct access to
141165 - referenced material for verifying accuracy and for use in daily work.
141167 -  ..
141168 - On 970328 USACE reported experience showing SDS enables a new way of
141169 - working.  They found Communication Metrics saves time and money by
141170 - adding intelligence to daily information.  An example is immediate
141171 - access to referenced material that is commonly listed in military
141172 - documents. ref DRP 1 6172  The original format for issuing documents
141173 - in SDS provided a section for "References," because this conformed
141174 - with traditional practice.  However, USACE's report that SDS improves
141175 - traditional practice by providing fast and easy access to linked
141176 - information improves productivity, demonstrates that a paperless
141177 - office meets objectives for saving time and money.  As a result, I am
141178 - removing "References" from the default format for issuing documents,
141179 - per below. ref SDS 0 NV9G
141181 -  ..
141182 - Recently, people have rebelled against a new way of working that uses
141183 - linking to improve accuracy, reported on 020820. ref SDS 38 V66I  In
141184 - the past few weeks, Morris wrote that he prefers traditional practice
141185 - of listing a biblography to support information in a letter, rather
141186 - than provide "intelligence" by linking directly to an original source.
141188 -  ..
141189 - This record of giving up on improving communication, cited by Peter
141190 - Drucker, reviewed on 931130, ref SDS 6 3851, shows transformation from
141191 - information to a culture of knowledge is not a smooth, stready path,
141192 - as posed on 020820, ref SDS 37 01ZV, but rather progress occurs
141193 - unevenly with some progress, then regress, which is evident in the 50
141194 - year period required for an established culture to adopt impovements
141195 - that save time and money, reported on 011210. ref SDS 35 R66K
141196 -
141197 -
141198 -
141199 -
141200 -
141201 -
141202 -
1413 -

SUBJECTS
0450431 Letterhead Signature Block Address Salutation Dear
0405431 Enter Signature Block
Letterhead Sender 0450431
HTML Conversion Macro 003 Convert PCL to HTML
HTML Default Format Call 003 in 0501

2207 -
2208 - Planning
220901 -  ..
220902 - Treat Documents Issued and Received the Same with Savx and HTML
220903 -
220904 - Follow up ref SDS 39 544L.
220905 -
220906 - On 021010 support for Gary Johnson showed potential advantage to make
220907 - learning SDS easier by simplifying the process of writing and
220908 - receiving corresponence. ref SDS 39 I29O and ref SDS 39 KI3H
220909 -
220910 -     [On 021019 background on original objectives for a system to
220911 -     write a letter and other elements of document and contact
220912 -     management are explained. ref SDS 40 4741
220914 -      ..
220915 -     [On 021027 user procedures for applying SDS doc log system are
220916 -     explained. ref SDS 42 5G3K
220917 -
220919 -  ..
220920 - Up until now, only documents issued were automatically formatted and
220921 - saved with the "savx" command, and with HTML fields for....
220922 -
220923 -         a.  Sender Date Document ID Address with email address Anchor
220924 -             Confidential flag (default) Subject Salutation, Dear so
220925 -             and so, Complimentary cloes - Sincerely, Signature Block
220926 -             with title, department, email address Post Script Copy to
220927 -             Blind Copyt to - BCC with suppression
220928 -
220929 - ...as discussed with Gary Johnson on 021010. ref SDS 39 KI3H
220931 -  ..
220932 - Previously, these fields were entered for a document received by
220933 - pressing F1 F5 (to execute macro file 05011), and the file was saved
220934 - to the disk by manually entering "savx" from the command line to
220935 - create the directory structure needed for storing documents received.
220936 - This has proven awkard for learning.  Experience with Gary Johnson in
220937 - recent weeks shows users expect a single system for handling
220938 - documents.
220940 -  ..
220941 - Today, we will change the system to treat both documents issued and
220942 - received in exactly the same way, so that the only difference is that
220943 - an issued document does not have content, and a received document has
220944 - to be read into a correspondence file using the Medit get (g) command,
220945 - as related on 021010. ref SDS 39 BT4O
220946 -
220947 -     [On 021227 made similar change to manage Other Files for
220948 -     publications. ref SDS 44 4O8K
220950 -  ..
220951 - For reporting documents received, we want to change the process by...
220952 -
220953 -     1.  Make HTML the default format for both documents issued and
220954 -         received.
220955 -
220956 -         We can use the format for issuing a letter to, also, receive a
220957 -         letter to enter the sender's address, date, the addressee and
220958 -         salutation, and signature block.  Then edit based on stuff
220959 -         from using get command to read in an email.
220961 -          ..
220962 -     2.  Run savx to create the directory structure, so F2 is standard
220963 -         save command during editing.
220964 -
220966 -  ..
220967 - Knowledge Space Manages Issued and Received Documents
220968 - Letter Templates Change from PCL to HTML for Issued and Received
220969 -
220970 - Currently, when a file is opened to write a letter, macro 136 calls
220971 - macro file 0501 which sets up the default format in PCL using a call
220972 - to macro file 0450431.  For the past three (3) years or so, most of
220973 - the time, about 99.9%, the next step, after opening a file to write a
220974 - letter, is to convert PCL format into HTML, because the Internet
220975 - provides a more efficient and less costly way to distribute
220976 - information than sending traditional printed documents through the US
220977 - mail system, planned on 971021. ref SDS 12 0257  Macro 0450431 was
220978 - originally used because it was the easiest way to provide letterhead
220979 - support for both writing a letter and for publishing SDS records on
220980 - the Internet, as set out in planning on 980526. ref SDS 19 3579  Using
220981 - a tool for appling PCL to print documents, as a bridge for a paperless
220982 - environment based on Internet methods is a poor solution, so today, we
220983 - take another step toward transformation from documents to Knowledge
220984 - Space.
220985 -
220986 -      [On 021019 explained these changes, background and updated format
220987 -      files and Help for the Contact System. ref SDS 40 4741
220989 -  ..
220990 - Where printing documents is needed, this can be accomplished using a
220991 - web browser, as planned on 971105. ref SDS 13 3871  Over the past five
220992 - (5) years we have maintained the PCL feature to test theory developed
220993 - on 971105.  Experience of rarely using the PCL format for formal
220994 - correspondence shows the original plan was well founded.  Moreover,
220995 - PCL does not seem to be supported by newer printers.
220997 -  ..
220998 - An easy way to eliminate PCL as the default format is to keep the
220999 - current process that calls 0450431 to enter PCL with a letterhead,
221000 - date, doc ID, address, subject and the signature block, and then
221001 - execute the command that converts PCL to HTML.
221002 -
221003 -     On 930310 problems were anticipated using 0450431 for letterhead
221004 -     support. ref SDS 4 WI8F  Experience has shown that these problems
221005 -     reduce productivity.
221007 -      ..
221008 -     Decided to abandon the 0450431 procedure for posting contacts to
221009 -     write a letter.  Will create a new macro file op to support 070405
221010 -     by creating letterheads to publish SDS records on the Internet,
221011 -     per planning on 980527. ref SDS 20 0001
221012 -
221013 -         [On 021019 developed code that builds a letterhead into file
221014 -         04501 for use by 070405 to publish SDS records on the
221015 -         Internet, including email address. ref SDS 40 VQU1 and
221016 -         ref SDS 40 IU4L
221018 -      ..
221019 -     Today, created code that will read the letterhead in contact
221020 -     records beginning on line 001601, based on what is entered in To
221021 -     and From fields of the secondary doc log format.
221023 -  ..
221024 - Tools Eliminated by Changes Today....
221025 -
221026 -
221027 -    1.  PCL and letterhead setup.................... c: sd 03 0450431
221028 -    2.  HTML and letterhead setup................... c: sd 03 05011
221029 -    3.  Remove PCL.................................. c: sd 03 003
221030 -    4.  Post 0450431 with letterhead from doc log... c: sd 03 000901
221032 -  ..
221033 - We will keep these routines for awhile to see how the new system
221034 - works out.
221035 -
221036 -
221037 -
221038 -
221039 -
221041 -  ..
2211 -
2212 -
2213 - Progress
2214 -
221401 - Enter Double Click Open File to Write a Letter Macro 136
221402 - 000008  Macro 136 Enter Double Click Open File to Write a Letter
221403 -
221404 - Line 1090, ref OF 7 3592, -entry 136 in 000008
221405 -
221406 -    -entry 136
221407 -
221408 -        This code is launched by Enter or double click to open a file
221409 -        or a link in SDS records.
221410 -
221412 -  ..
221413 - Line 1420, ref OF 7 3564, -label nrepS in 000008 about 40 lines below
221414 -
221415 -    of 0
221416 -    loc_cur 0 1
221417 -    setcnt 86 1
221418 -    setcnt 87 32
221419 -    macro 1182
221420 -
221421 -        Evaluate line number field to determine if Reference field.
221422 -
221424 -  ..
221425 - Line 1460, ref OF 7 0672, -label nrepS in 000008 about 80 lines below
221426 -
221427 -    -if @1 = 48 -if @2 < 52 -goto nlinKem............. ref SDS 0 NN8H
221428 -
221429 -        Enter or double click occurred in Reference field.
221430 -
221431 -
221433 -  ..
221434 - Line 1470, ref OF 7 664M, -label nrepS in 000008 about 90 lines below
221435 -
221436 -    -if @125 > 68 eol
221437 -    -if @125 < 69 rel_cur 0 3
221438 -    z 8 81
221439 -    fl /ref /
221440 -    -if @0 = 0 -goto lSDS......................... ref SDS 0 NN8J
221441 -
221442 -        Enter or double click on citation in SDS record narrative, then
221443 -        go open the citation.
221444 -
221445 -
221447 -  ..
221448 - Line 1870, ref OF 7 8461, -label lSDS in 000008
221449 -
221450 -    -label lSDS.................................. ref SDS 0 NN6O
221451 -    macro 982........................................ ref SDS 0 Y97G
221452 -    -exit
221453 -
221454 -        macro 982 opens citations, and needs to branch to call macro
221455 -        file 0501.
221456 -
221457 -
221459 -  ..
221460 - Line 1890, ref OF 7 6804, -label nlinKem in 000008
221461 -
221462 -    -label nlinKem............................. ref SDS 0 NN6F
221463 -
221465 -  ..
221466 - Line 1950, ref OF 7 1830, -label nlinKem in 000008 about 60 lines
221467 - below
221468 -
221469 -    -if @1 = 48 -if @2 = 51 -goto oFil............. ref SDS 0 NN9O
221470 -
221471 -        This is where code has determined processing is occuringin the
221472 -        Reference field and the task is to open a file, such as to
221473 -        write a letter.
221475 -  ..
221476 - Line 2050, ref OF 7 I46M, -label oFil in 000008
221477 -
221478 -    -label oFil............................... ref SDS 0 NN8O
221479 -    -if @125 > 8 -goto ndlus................ ref SDS 0 MB6Q
221480 -
221481 -        This is where code begins to open a file, such as to write a
221482 -        letter.
221483 -
221485 -  ..
221486 - Line 2080, ref OF 7 H49M, -label ndlus in 000008
221487 -
221488 -    loc_cur 0 40
221489 -    chrcnt 1 0
221490 -    getscr 1
221491 -    -if @1 = 73 -goto odsub..................... ref SDS 0 PUPR
221492 -
221493 -        Here is where the code evaluates if an entry in the Reference
221494 -        field is a file for a new letter to write.
221496 -  ..
221497 - Line 2090, ref OF 7 L04L, -label odsub in 000008
221498 -
221499 -    -label odsub.............................. ref SDS 0 NN4O
221500 -    -if @125 < 44 -goto mac107j
221501 -
221502 -        Evaluate if opening the document or looking up the subject in
221503 -        the Subject Index.
221504 -
221506 -  ..
221507 - Line 2130, ref OF 7 4252, -label mac107j in 000008
221508 -
221509 -    -label mac107j
221510 -    macro 107.................................. ref SDS 0 QN5N
221511 -    -exit
221512 -
221513 -        macro 107 opens files listed in the Reference field of an SDS
221514 -        record.
221515 -
221516 -
221517 -
221518 -
221520 -  ..
221521 - 000006  Macro 107 Calls Macro 106 to Open File in Reference Field
221522 -
221524 -  ..
221525 - Line 3220, ref OF 6 4876, -entry 107 in 000006
221526 -
221527 -    -entry 107...............(macro 136)....... ref SDS 0 NO3F
221528 -    -entry 107...............(macro 982)....... ref SDS 0 QF4M
221529 -    ......
221530 -    ......
221531 -    macro 106.................................. ref SDS 0 II6F
221532 -
221533 -        macro 107 is called under macro 136 when Enter or double click
221534 -        occurs in the Reference field of an SDS record; it is also
221535 -        called under macro 982 to open a citation.
221536 -
221537 -
221539 -  ..
221540 - 000006  Macro 982 Open Citations in SDS Narrative to Reference Field
221541 -
221542 - Line 1670, ref OF 6 9324, -entry 982 in 000006
221543 -
221544 -    -entry 982
221545 -
221546 -        This code is called by macro 136 when Enter or double click is
221547 -        executed to open a citation in the narrative of an SDS record.
221548 -
221550 -  ..
221551 - Line 1940, ref OF 6 RD5H, -label doc_of in 000006
221552 -
221553 -    -label doc_of
221554 -    -if @121 = 2 l/- DRT/
221555 -    -if @121 = 3 l/- DRP/
221556 -    -if @121 = 4 l/- DIT/
221557 -    -if @121 = 5 l/- DIP/
221558 -    -if @121 = 6 l/- OF /
221559 -
221560 -        Look for document type based on citation flags.
221561 -
221563 -  ..
221564 - Line 1960, ref OF 6 OV3J, -label doc_of in 000006
221565 -
221566 -    macro 1363
221567 -    -if @0 = 20 -goto nofwaap........................ ref SDS 0 QF4M
221568 -
221569 -        macro 1363 evaluates for a file extension to open a file with
221570 -        another program. param "20" for counter 0 has to match the
221571 -        number of extensions examined by macro 1363 in 000008 line 1210
221572 -        and above anchor 313J
221573 -
221575 -  ..
221576 - Line 1980, ref OF 6 5945, -label nofwaap in 000006
221577 -
221578 -    -label nofwaap
221579 -    loc_cur 0 40
221580 -    chrcnt 1 0
221581 -    getscr 10
221582 -    macro 107
221583 -
221584 -        loc_cur 0 40 and chrcnt 1 0 runs same code that is in 0000008
221585 -        to evaluate if this is a new document, ref SDS 0 MB6Q, which is
221586 -        used in macro file 0501 called by macro 107, which is the same
221587 -        call that opens documents in macro 136, per above, ref SDS 0
221588 -        QN5J, which calls macro 106 to open a file for writing a
221589 -        letter.
221590 -
221591 -
221593 -  ..
221594 - 000006  Macro 106 Calls Macro File 0501 to Open a File to Write Letter
221595 -
221597 -  ..
221598 - Line 3020, ref OF 6 GF3F, -entry 106 in 000006
221599 -
221600 -    -entry 106
221601 -
221602 -        Called by macro 107 to open a file in the Reference field.
221603 -
221605 -  ..
221606 - Line 3040, ref OF 6 5G4L, -entry 106 in 000006 about 40 lines below
221607 -
221608 -    macro 1188
221609 -    -if @112 != 10105 -goto dsrsR
221610 -    -if @2 = 58 -goto dsrsR.......................... ref SDS 0 II5N
221611 -
221612 -        macro 1188 reads spec in Reference field, and if the 2nd pos is
221613 -        a colon, then we are opening a document, and not an SDS record
221614 -
221615 -
221617 -  ..
221618 - Line 3190, ref OF 6 9N7M, -label ofsup in 000006
221619 -
221620 -    -label ofsup...................................... ref SDS 0 II6J
221621 -    getgbl 110 110
221622 -    -if @110 = 13002 @c:\sd\03\0501................... ref SDS 0 Z24K
221623 -    -exit
221624 -
221625 -         Execute letterhead macro for standard file, if the thing was
221626 -         called from an SDS file.  global 110 13002 is set in 000008
221627 -         macro 136 -label 1ma07j based on establishing this is a new
221628 -         document.
221629 -
221630 -
221631 -
221632 -
221633 -
221635 -  ..
221636 - 05010   Writing Letter HTML Default Format Documents Issued Today
221637 -
221638 - Follow up ref SDS 33 5H8I.
221639 -
221640 - Macro file 0501 sets up a file to write or receive a letter, and is
221641 - called uncer macro 0106 -label ofsup. ref SDS 0 II5N
221643 -  ..
221644 - Line 20, ref OF 4 RG5G, macro file 0501 is a common routine for
221645 - opening all files from the SDS reference field.
221647 -  ..
221648 - Line 110, ref OF 4 7D7K, -label start
221649 -
221650 -    savx
221651 -    markcur 31
221652 -
221653 -       Identifies file for writing a letter to the 000009 contact
221654 -       system that tells it how to get back to the target file for
221655 -       entering contact information.
221657 -  ..
221658 - Line 140, ref OF 4 T14I, -label start in 0501 about 70 lines below
221659 -
221660 -    ecur 13
221661 -    macro 22
221662 -    loc_cur 0 40
221663 -    chrcnt 32 0
221664 -    getscr 9
221665 -
221666 -        Return to SDS record. macro 22 marks initial cursor position
221667 -        on the line where the file spec is located. loc_cur 0 40 moves
221668 -        to the document type field, chrcnt 32 reads doc type to
221669 -        determine if this is new letter to or from someone.  getscr 9
221670 -        restores the initial position on the doc ID line.
221671 -
221672 -             [On 021227 revised code to test for a publication and
221673 -             notify if the doc log fields have not been filled out.
221674 -             ref SDS 44 PL8L
221676 -              ..
221677 -             [On 040328 corrected error in this code. ref SDS 46 FW59
221678 -
221679 -
221681 -     ..
221682 -    Publication Document Determine Other File Requires Secondary Fields
221683 -
221684 -
221685 - Line 160, ref OF 4 OU5J, -label mbplcn in 0501
221686 -
221687 -    -if @4 = 48 -if @5 = 50 -if @7 = 49 -goto mbplcn
221688 -    -goto npubl
221689 -
221690 -       If not a publication, jump this code.
221692 -     ..
221693 -    -label mbplcn
221694 -    -if @8 = 52 -if @13 = 54 -goto pYb
221695 -    -goto npubl
221696 -
221697 -       We have read the file spec to open it.  See if it is a
221698 -       publication file, and if so check to see if the doc log fields
221699 -       have been filled out.
221701 -          ..
221702 -         [On 021227 revised program to add the code shown here to test
221703 -         for a publication and notify if the doc log fields have not
221704 -         been filled out. ref SDS 44 PL8L
221706 -  ..
221707 - Line 190, ref OF 4 XW8H, -label pYb in 0501
221708 -
221709 -       We have established that the file spec is for a publication; so,
221710 -       verify all of the fields have been filled out.
221711 -
221712 -    loc_cur 0 44
221713 -    chrcnt 1 0
221714 -
221715 -       Description, see if the first char is filled out.
221717 -     ..
221718 -    of 88
221719 -    loc_cur 0 1
221720 -    chrcnt 2 0
221721 -       ..
221722 -       Off set the screen to access secondary doc log fields, and
221723 -       check the Title field.
221725 -     ..
221726 -    of 140
221727 -    chrcnt 3 0
221728 -       ..
221729 -       Publisher, see if this is filled out.
221731 -     ..
221732 -    of 170
221733 -    chrcnt 4 0
221734 -
221735 -       Offset the screen to the author field and check it.
221737 -     ..
221738 -    loc_cur 0 78
221739 -    chrcnt 5 0
221740 -
221741 -       Subject, verify a subject has been entered.
221743 -     ..
221744 -    macro 23
221745 -
221746 -       Restore original condition
221748 -  ..
221749 - Line 200, ref OF 4 RL6O, -label mbpbl in 0501
221750 -
221751 -    -if @1 > 32 -if @2 > 32 -if @3 > 32 -goto mbpbl
221752 -    -goto pblcn
221753 -    -label mbpbl
221754 -    -if @4 > 32 -if @5 > 32 -goto npubl
221755 -
221756 -       If a publication field has not been filled out, then go set a
221757 -       flag to notify User.
221759 -  ..
221760 - Line 220, ref OF 4 6J4H, -label pblcn in 0501
221761 -
221762 -    -if @1 = 32 setgbl 118 7831
221763 -    -if @2 = 32 setgbl 118 7832
221764 -    -if @3 = 32 setgbl 118 7833
221765 -    -if @4 = 32 setgbl 118 7834
221766 -    -if @5 = 32 setgbl 118 7835
221767 -
221768 -       This means a publication field is being processed, and one or
221769 -       more fields were not filled out, so system can return an error
221770 -       message to alert the User.
221772 -          ..
221773 -         [On 021227 revised program to add the code shown here to test
221774 -         for a publication and notify if the doc log fields have not
221775 -         been filled out. ref SDS 44 TQ6L
221776 -
221778 -  ..
221779 - Line 220, ref OF 4 PQ5J, -label npubl in 0501
221780 -
221781 -    -if @32 = 73 -goto v78
221782 -    -if @32 = 82 -goto v78
221783 -
221784 -       If counter 10 per above, identified an R or an I then process a
221785 -       new letter.  This changes the prior process of opening received
221786 -       documents as a blank file, and opening issued documents with
221787 -       formatting to write a letter.  Now both issued and received
221788 -       documents will be formatted, per planning above. ref SDS 0 YV9I
221790 -        ..
221791 -       If not, use ecur 31 to return to the file and end processing, to
221792 -       treat this as opening a regular file by ending the 0501
221793 -       operation.
221794 -
221795 -            [On 021227 revised code to test for a publication and
221796 -            notify if the doc log fields have not been filled out.
221797 -            ref SDS 44 PL8L
221799 -  ..
221800 - Line 120, ref OF 4 Y53I, -label v78 in 0501
221801 -
221802 -    save
221803 -
221804 -       Save SDS record identifing a new document file that have been
221805 -       saved to the disk, so that there is a consistant method to
221806 -       access the document.
221808 -     ..
221809 -    ecur 31
221810 -
221811 -         Return to new blank file
221813 -     ..
221814 -    Add 50 lines to process the file for writing or receiving a letter
221815 -    by setting up a format with HTML fields for....
221816 -
221817 -         b.  Sender
221818 -         c.  Date
221819 -         d.  Document ID
221820 -         e.  Address with email address
221821 -         f.  Anchor
221822 -         g.  Confidentiallity flag default
221823 -         h.  Subject
221824 -         i.  Salutation, Dear so and so,
221825 -         j.  Complimentary cloes - Sincerely,
221826 -         k.  Signature Block with Title and email address
221827 -         l.  Post Script
221828 -         m.  Copy to
221829 -         n.  Blind Copyt to - BCC with suppression
221830 -
221832 -     ..
221833 -    Sender's Letterhead
221834 -
221835 -
221836 - Line 160, ref OF 4 NE7G, -label v78 in 0501 about 50 lines below
221837 -
221838 -    Open SDS record and read organization ID in the secondary doc log
221839 -    field for "From," then open Contact record for that ID and capture
221840 -    the address.  Use the alternate format in the Contact record for
221841 -    "Letterhead," if there is a letterhead address entered on line
221842 -    001601. ref SDS 0 RF7F
221843 -
221844 -       ...below, this is similar to entering the address for the
221845 -       addressee. ref SDS 0 AB4H
221847 -         ..
221848 -        [On 021019 letterhead can be set for SDS records using the menu
221849 -        bar in a Contact record. ref SDS 40 RZ4L
221851 -         ..
221852 -        [On 021025 improved letterhead system for publishing SDS
221853 -        records on the Internet that complements doc log management.
221854 -        ref SDS 41 0001
221856 -         ..
221857 -        [On 021227 changed code to use new control scheme. ref SDS 44
221858 -        4O8K
221859 -
221861 -     ..
221862 -    <! sender >
221863 -
221864 -       Enter the sender's address at the top of the file.
221866 -     ..
221867 -    setcnt 98 1143
221868 -    setgbl 98 @98
221869 -
221870 -       Flag for the "Dear" salutation op not to run for the sender's
221871 -       address.
221872 -
221873 -           ...below, this switch is turned off on the 2nd pass to enter
221874 -           the address. ref SDS 0 UU8M
221876 -              ..
221877 -             [On 021227 changed code to use new control scheme.
221878 -             ref SDS 44 4O8K
221880 -        ..
221881 -       Make it global so macro 1813 in 000009 Contact system can get
221882 -       the alternate letterhead in the Contact record if it is there.
221884 -  ..
221885 - Line 180, ref OF 4 DL8I, -label v78, about 60 lines below
221886 -
221887 -    ecur 13
221888 -
221889 -       Return to SDS record to capture the From ID from the secondary
221890 -       doc log fields.
221892 -     ..
221893 -    of 261
221894 -    loc_cur 0 29
221895 -
221896 -       Offset the file to get access to the "From" ID string which is
221897 -       the secondary doc log field beginning in col 290
221898 -
221900 -  ..
221901 - Line 190, ref OF 4 VE6L, -label v78 in 0501 about 80 lines below
221902 -
221903 -    -gosub CNTadr
221904 -
221905 -       Subroutine for letterhead of sender, use contacts system in
221906 -       000009 to get the actual address and name of author using param
221907 -       in the secondary doc log field for the organization and person.
221908 -       ref SDS 0 5D5H  This will look for an alternate letterhead field
221909 -       on line 001601, and if there it will use it, instead of the main
221910 -       address.
221912 -      ..
221913 -     setcnt 98 0
221914 -     setgbl 98 0
221915 -
221916 -       Reset switch so addressee's name, title, and department will be
221917 -       entered on the next pass when the address is entered, per above.
221918 -       ref SDS 0 NT4N
221920 -     ..
221921 -    up 2
221922 -    getgbl 110 110
221923 -    -if @110 = 0 -goto nSadr
221924 -
221925 -       Scroll up 2 lines to create some space between the top of the
221926 -       file and the date field,  If a letterhead is entered for the
221927 -       sender, it will always have more than two lines,  If the
221928 -       secondary doc log field has not been entered, per the
221929 -       subroutine, explained below, ref SDS 0 TK5K, perhaps because
221930 -       there not a contact in the record, then jump the code that finds
221931 -       the bottom of the sender's address, and enter the date field.
221932 -       ref SDS 0 Q25H
221933 -
221934 -
221936 -     ..
221937 -    Date Field HTML
221938 -
221939 -
221940 - Line 200, ref OF 4 5L5J, -label v78 in 0501 about 90 lines below
221941 -
221942 -
221943 -    z 1 1
221944 -    l / /
221945 -
221946 -       The file is near line 1 and the cursor is on the symbol for &
221947 -       that identifies the end of the signature block, that will be
221948 -       moved after the complimentary close is created.
221950 -        ..
221951 -       zone column 1 1 and locate the next blank position, to mump the
221952 -       file to the bottom of the letterhead.
221954 -     ..
221955 -    -label nSadr
221956 -    up 2
221957 -    ins_text/<! date>/
221958 -    up
221959 -
221960 -       Put the date field 2 lines below the letterhead for a normal an
221961 -       visually acceptable location.
221962 -
221964 -  ..
221965 - Line 230, ref OF 4 VB6G, -label v78 in 0501 about 230 lines below.
221966 -
221967 -    gfname
221968 -
221969 -       Capture spec of the file for the new letter and enter the date
221970 -       by constructing a standard format using parameters from the
221971 -       directory for the document on the disk.
221973 -     ..
221974 -    macro 1180
221975 -
221976 -       Move locals to globals for entering the doc ID string, per
221977 -       below. ref SDS 0 U56M
221979 -  ..
221980 - Line 280, ref OF 4 9MV8, -label v78 in 0501 about 280 lines below.
221981 -
221982 -    datecnt 113 0
221983 -    inscnt 113 0
221984 -
221985 -       Figure out first two positions for century
221986 -       portion of the year based on the current date.
221988 -     ..
221989 -    rel_cur 0 -2
221990 -    ic @16
221991 -    ic @17
221992 -
221993 -       Backup and replace last two numbers with values from gfname for
221994 -       Doc Spec; this only has a slight chance of being wrong once a
221995 -       century.
221996 -
221998 -     ..
221999 -    Document ID Field
222000 -
222001 -
222002 - Line 300, ref OF 4 K54L, -label v78 in 0501 about 180 lines below.
222003 -
222004 -       Today, abandon prior feature of using PCL, because we can print
222005 -       everything from browser technology.
222007 -     ..
222008 -    loc_cur 0 51
222009 -
222010 -       Position cursor on the date line in the right margin with
222011 -       enough space to enter the standard doc ID string.
222012 -
222013 -                  03 00050 TT YYMMDDnn
222014 -                  02 04 05 TT YYMMDDnn
222015 -     ..
222016 -    setcnt 86 4
222017 -    macro 1181
222018 -
222019 -       gfname enters counters to globals, so it is ready to use 1181
222020 -       for entering the string.
222022 -     ..
222023 -    loc_cur 0 53
222024 -
222025 -       Put cursor back on the first column with a path delimiter,
222026 -       and do a loop that removes the \ char.
222028 -     ..
222029 -    loc_cur 0 65
222030 -
222031 -       Put cursor on column between yy mm and collapse to yymm, then
222032 -       move to between mm dd and collapase so the entire string shows
222033 -       yymmddnn
222034 -
222036 -     ..
222037 -    Address the Letter, Anchor, Subject, Salutation
222038 -
222039 -
222040 - Line 330, ref OF 4 8E57, -label lpida in 0501 about 50 lines below
222041 -
222042 -    Similar to procedure for the letterhead. ref SDS 0 4G3M  Open SDS
222043 -    record and read organization ID in secondary doc log "To" field,
222044 -    then open Contact record for ID spec and capture address, except
222045 -    check for an alternate address format in the Contact record and use
222046 -    it if there is an alternate address entered.  Capture the name of
222047 -    the specific person to whom the letter is addressed and include in
222048 -    the formal address format in the letter.
222050 -     ..
222051 -    Enter the default anchor (0001, Subject and get the subject
222052 -    description from the SDS record, and then resume normal Contact
222053 -    operations to capture the salutation Dear field from the Contact
222054 -    record, and enter this in the letter format file.
222056 -     ..
222057 -    loc_cur 0 1
222058 -
222059 -       After entering doc ID in prior step, move the cursor back to
222060 -       column one for the address op.
222062 -     ..
222063 -    up 3
222064 -    ins_text /<! address >/
222065 -    up
222066 -
222067 -       Provide standard 3 lines between date and address field.  Enter
222068 -       HTML address field ID string that is used by macro 0122 for
222069 -       entering HTML to address the letter.
222071 -        ..
222072 -       Scroll up for entering the actual address below the field id
222073 -       string.
222075 -     ..
222076 -    ecur 13
222077 -
222078 -       Return to SDS
222080 -     ..
222081 -    of 261
222082 -    loc_cur 0 45
222083 -
222084 -       Offset the screen for access to ID strings of addressee in the
222085 -       secondary doc log fields beginning on column 309.
222086 -
222087 -    -gosub CNTadr
222088 -
222089 -       Run subroutine used for the letterhead, per above, ref SDS 0
222090 -       IP7I, and explained in detail below, ref SDS 0 5D5H, that loads
222091 -       the...
222092 -
222093 -            name, title, department of addressee
222094 -            address of organization
222095 -            Anchor 0001
222096 -            Subject
222097 -            Description of subject
222098 -            Salutation Dear.... ref SDS 0 DW6G
222100 -     ..
222101 -    References Eliminated from Letter Format
222102 -
222103 -    We have carried a format for "References" primarily for military
222104 -    practices that cite references in documents.  Today, decided to
222105 -    remove References, from the standard format for writing a letter
222106 -    because the Internet enables citations with direct links to
222107 -    original sources that replaces and improves the purpose of the
222108 -    References field.  There is still utility for a Reference field to
222109 -    summarize all of the links in a document, commonly called a
222110 -    bibliography.  See also discussion above on transformation to a
222111 -    culture of knowledge. ref SDS 0 8Z8L
222113 -     ..
222114 -    In any case, macro 0122 manages References like any outline list,
222115 -    and so References can be easily added back by the user for military
222116 -    or other formats, when needed.
222118 -     ..
222119 -    Additionally, macro 0122 makes it possible to have multiple subject
222120 -    lines that are placed in a table.  This feature is another way of
222121 -    listing referenced material, even without a formal Reference
222122 -    section in a letter or memo.
222123 -
222125 -     ..
222126 -    Complimentary Close
222127 -
222128 -
222129 - Line 350, ref OF 4 TL6H, -label lpida in 0501 about 60 lines below
222130 -
222131 -    macro 21
222132 -
222133 -       Return to salutation line where salutation Dear was entered. per
222134 -       below. ref SDS 0 DW6G
222136 -     ..
222137 -    up 15
222138 -    ins_text /<! close>/
222139 -    up
222140 -    ins_text/Sincerely,/
222141 -
222142 -       When the operation ends to enter the address, anchor,
222143 -       subject and salutation in the previous process, the cursor is at
222144 -       the end of the salutation, or at the end of the subject
222145 -       description, if there is no salutation.  So, move the cursor to
222146 -       column 1.
222148 -        ..
222149 -       Scroll up 15 lines to provide initial space for writing
222150 -       the letter, and to make it easy to scroll the screen up to use
222151 -       the get command for reading in an email.
222153 -        ..
222154 -       Enter the HTML string for the close field, and then scroll
222155 -       up and enter the complimentary close.  The User can set to this
222156 -       any prefered string, like Very truly yours.
222158 -        ..
222159 -       Scroll up another 4 lines to enter the signature block in the
222160 -       next step.
222161 -
222162 -
222163 -
2222 -

SUBJECTS
Internet Address
Letterhead Macro 0450431 Support
Planning and Concepts
Email Address for Comment Option in SDS Records on Internet
0405431 Enter Signature Block
Email Address in Signature Block Macro 0501

2808 -
280901 -     ..
280902 -    Signature Block Copied from Sender's Address Includes Email Address
280903 -
280904 -    On 990827 added feature using macro file 0450431 of including email
280905 -    address in signature block for correspondence. ref SDS 24 7395
280906 -    The new design now eliminates the need for 0450431.
280907 -
280908 -    Today, we discontinue using 0450431. A new scheme is developed that
280909 -    sets 94 9251, per below. ref SDS 0 LS6L
280911 -  ..
280912 - Line 380, ref OF 4 V25J, -label lpida in 0501 about 70 lines below.
280913 -
280914 -    -if @94 != 9251 -goto nsblk
280915 -
280916 -       If a person's name was entered by macro 1305 in 000009 with the
280917 -       letterhead operation for the Sender field at the top of the
280918 -       file, then a flag is set for 94 = 9251.  If that flag is not
280919 -       set, then jump the next code for entering a signature block.
280920 -       ref SDS 0 LS6L
280922 -     ..
280923 -    line 2
280924 -
280925 -       So, if 94 = 9251, a signature block was entered, so mark this
280926 -       location and return to the top of the file to get the lines
280927 -       included in the signature block.
280929 -     ..
280930 -    getgbl 10 129
280931 -    -if @10 != 9251 -goto orgblk
280932 -    immed r
280933 -    up
280934 -    setgbl 129 0
280935 -
280936 -       If this is a personal contact letterhead
280938 -     ..
280939 -    -label orgblk
280940 -    immed mm
280941 -    setcnt 2 0
280943 -     ..
280944 -    -label lpsblk
280945 -    up
280946 -    chrcnt 1 1
280947 -    -if @1 != 38 -goto lpsblk
280948 -
280949 -       At the top of the file, on line 2, start a block move, with
280950 -       immed mm; then do a loop to scroll the file up to the &
280951 -       character that has been entered on the line between the
280952 -       signature block lines, and the organizational letterhead.
280954 -     ..
280955 -    immed d
280956 -    down
280957 -    linecnt 2 0
280958 -    -if @1 > 2 -goto bosblk
280959 -
280960 -       Delete the line with the & character, and scroll the file down
280961 -       one line the make the bottom of the signature block the current
280962 -       line.  Get the line number and if it is greater than 2, it
280963 -       means it is a multi-line signature block of the form...
280965 -                        ..
280966 -                       Fred Smith
280967 -                       Senior Engineer
280968 -                       New Business Development
280969 -                       fred.smith@greatcompany.com
280971 -     ..
280972 -    pcmd2
280973 -    immed m
280974 -    -goto slsbl
280975 -
280976 -       If the signature block has only one line, that clear the prior
280977 -       immed mm command with pcmd2, and enter a single line move
280978 -       command immed m, and jump to the code for entering the target.
280980 -     ..
280981 -    -label bosblk
280982 -    immed mm
280983 -
280984 -       If there is a multi-line signature block, then enter an immed mm
280985 -       command on the bottom line of the block of lines.
280987 -  ..
280988 - Line 440, ref OF 4 RG7N, -label slsbl in 0501.
280989 -
280990 -    z 1 5
280991 -    l /Since/
280992 -    up 3
280993 -
280994 -       Since we are deleting a line, and moving a variable number of
280995 -       lines, saving the mark is awkward, so just look for the
280996 -       complimentary close again, then scroll up for entering the
280997 -       signature block.
280999 -        ..
281000 -       Macro 0122 that processes HTML for publication to Internet,
281001 -       wants to see 4 spaces between Sincerely, and the signature
281002 -       block.
281004 -     ..
281005 -    immed t
281006 -    up
281007 -
281008 -       After investigating and setting up to move a block of lines for
281009 -       the signature block, execute return to mark to return to the
281010 -       location for entering the signature block, and execute immed t
281011 -       for the target of the move operation.  Scroll the file up so the
281012 -       top line of the signature block is on the current line where the
281013 -       cursor is located.
281015 -     ..
281016 -    -if @10 != 9251 macro 79
281017 -
281018 -       Remove the surname in the signature block.
281019 -
281020 -       The code in Contact records will always return a surname, so just
281021 -       remove this first word of every name string in the signature
281022 -       block, because it will always be the surname, which does not
281023 -       belong in the signature block.
281025 -     ..
281026 -    -label nMrMs
281027 -    chrcnt 1 0
281028 -    -if @1 = 32 -goto nsblk
281029 -    up
281030 -    -goto nMrMs
281031 -
281032 -       Scroll the file up to the bottom of the signature block
281033 -
281034 -
281035 -
281036 -
2811 -

SUBJECTS
Post Script Below Signature Block

2903 -
290401 -     ..
290402 -    Post Script Field Below Signature Block
290403 -
290404 -
290405 - Line 470, ref OF 4 8T6I, -label nsblk in 0501
290406 -
290407 -    up 2
290408 -    ins_text !<00W2!
290409 -    rel_cur 1 0
290410 -    ins_text /<! PS >/
290411 -    rel_cur 1 0
290412 -    ins_text !Post Script!
290413 -
290414 -       Create HTML Post Scrip field for processing by macro 0122.  Put
290415 -       the post script field two lines below the signature block,
290416 -       because the code in 0122 treates lines within one line of the
290417 -       signature block as part of the signature block.
290419 -           ..
290420 -          [On 021202 added code in 0122 to put the post script directly
290421 -          below the signature block separated only by an explicit link.
290422 -          0122 proceses the signature block requires 3 three spaces
290423 -          below the signature block in order to recognize the end of
290424 -          processing the signature block, so post script is placed in
290425 -          this position by 0501, but 0122 removes the spaces after the
290426 -          signature block is processed. ref SDS 43 PI6M
290427 -
290428 -
290429 -
290430 -
290431 -
2905 -

SUBJECTS
Copies Below Post Script Below Signature Block

3003 -
300401 -     ..
300402 -    Copies To Field
300403 -
300404 -
300405 - Line 480, ref OF 4 VY4J, -label nsblk in 0501 about 20 lines below
300406 -
300407 -    up 2
300408 -    ins_text !<00W3-!
300409 -    rel_cur 1 0
300410 -    ins_text /<! copy >/
300411 -    rel_cur 1 0
300412 -    ins_text !Copy to!
300413 -    rel_cur 2 0
300414 -
300415 -       Scroll up 2 and enter an anchor for the copy field; use a dash
300416 -       to avoid excessive lines being added by 0122 processing.
300417 -
300418 -
300419 -
300420 -
300421 -
300422 -
3005 -

SUBJECTS
BCC Below Copies Below Post Script Below Signature block

3103 -
310401 -     ..
310402 -    Blind Copy and Supressions
310403 -
310404 -
310405 - Line 490, ref OF 4 TT4L, -label nsblk in 0501 about 20 lines below
310406 -
310407 -    up 2
310408 -    ins_text !<00W4-!
310409 -    rel_cur 1 0
310410 -    ins_text !// !
310411 -    rel_cur 1 0
310412 -    ins_text /<! BCC >/
310413 -    rel_cur 1 0
310414 -    ins_text !BCC!
310415 -    up 2
310416 -    ins_text !// !
310418 -        ..
310419 -       Scroll up 2 lines and enter the anchor for blind copy field.
310420 -       Below the anchor, enter the symbol for suppression, so the this
310421 -       part is removed from the version that is published from the web.
310422 -
310423 -
310424 -
310425 -
310426 -
310427 -
3105 -

SUBJECTS
Letter Format Ends with Cursor on Subject Description So User Can Edi

3203 -
320401 -     ..
320402 -    End Write Letter Format Operation Put Cursor on Subject Line
320403 -
320404 -
320405 - Line 510, ref OF 4 4026, -label nsblk in 0501 about 50 lines below
320406 -
320407 -    z 6 8
320408 -    l-/ct:/
320409 -    down 10
320410 -    loc_cur 13 11
320411 -
320412 -       Zone the end of the Subject: string, and do a reverse search for
320413 -       the line.  Put it in the middle of the screen for context, and
320414 -       put the cursor on at the beginning of the description to enter
320415 -       any edits.  Often the string that is entered from the Subject
320416 -       index is either too cryptic or not condensed enough for a
320417 -       subject in a letter, and so it has to be edited.
320418 -
320419 -
320420 -
3205 -

SUBJECTS
Savx Create Directories for Knowledge Space

3303 -
330401 -     ..
330402 -    Savx Creates Directories Saves File, Special Flag for Help
330403 -
330404 -
330405 - Line 520, ref OF 4 3933, -label nsblk in 0501 about 60 lines below
330406 -
330407 -    setcnt 147 4567
330408 -    savx
330409 -      beep
330410 -    errormsg  Letter format ready!
330411 -    -goto c23
330412 -
330413 -          [On 021227 changed location for executing this code, so that
330414 -          savx now executes for all new files. ref SDS 44 YW5W
330416 -        ..
330417 -       Counter 147 4567 sets a flag to open Help for writing a letter.
330419 -        ..
330420 -       Decided to unplug the beep, it is a little annoying, and works
330421 -       best for alerting to mistakes.
330423 -        ..
330424 -       savx, creates directories and saves the initial file, so that F2
330425 -       will work rather than the user having to initially enter savx,
330426 -       which is difficult learning issue.
330428 -        ..
330429 -       End the routine, return control to the User.
330430 -
330431 -
330432 -
330433 -
330435 -  ..
330436 - Subroutines Interface with 000009 to Address Correspondence
330437 -
330438 - There are a series of subroutines that complement the standard code
330439 - for entering addressses.
330440 -
330441 - The operation for the sender's address looks for a letterhead in the
330442 - contact record, because that provides an opportunity to create a
330443 - structure that the organization wants.  If there is no letterhead
330444 - entered on 001601, then use the standard address strings at the top of
330445 - the Contact record.  The letterhead operation does not need to look
330446 - for the "Location" field, which is part of the standard operation for
330447 - entering an address, because a letterhead is generic. This operation
330448 - needs to capture the name of the person specified in the Doc Log
330449 - system, to use for a signature block in the complimentary close.
330451 -  ..
330452 - A similar procedure occurs for addressing the letter.  Look for an
330453 - "alternate address" in line 001501, and if it is not found, then use
330454 - the standard entry at the top of the Contact record.  After the
330455 - address is entered, the default anchor and Subject fields are entered,
330456 - and then the SDS record is opened and the subject description is
330457 - captured from the description field for the doc log format.  After the
330458 - Subject is created, the code returns to the Contact record and reads
330459 - the salutation, Dear field and enters this in the letter file.
330460 -
330462 -     ..
330463 -    Contact ID Captured from SDS Secondary Doc Log Fields
330464 -
330465 -
330466 - Line 550, ref OF 4 6C3O, -label CNTadr in 0501
330467 -
330468 - This code is called twice, first to enter the Sender's address, and
330469 - then for the Addressee's address.
330470 -
330471 -    chrcnt 19 0
330472 -    -if @19 = 73 rel_cur 0 1
330473 -    setcnt 86 1
330474 -    macro 1182
330476 -        ..
330477 -       Code starts from within the SDS record....
330478 -
330479 -          1.  Sender code offsets screen, and puts cursor on the first
330480 -              column of the From position in the secondary doc log
330481 -              field, per above. ref SDS 0 PE9J
330482 -
330483 -          2.  Addressee code does the same thing. ref SDS 0 OX4H
330485 -        ..
330486 -       Get char of the first position to see if it is an I, and if so
330487 -       advance one position to read the actual string for the personal
330488 -       contact data base, rather than the organizational data base.
330489 -       Read the string.
330491 -  ..
330492 - Line 560, ref OF 4 WH5H, -label CNTadr in 0501 about 30 lines below
330493 -
330494 -    -if @1 > 47 -if @1 < 58 -goto cNz
330495 -    setgbl 110 0
330496 -    -if @98 != 1143 -goto supS
330497 -    -return
330498 -
330499 -       If there is a contact ID, go and enter the address, and if not,
330500 -       set a flag to continue the letter format process without
330501 -       entering an address, per above for the Sender. ref SDS 0 VC6O,
330503 -        ..
330504 -       If 98 != 1143 then this is an Address field op, rather than an
330505 -       op for the Sender field, per above, ref SDS 0 TI5H, so continue
330506 -       to get set up for entering the Subject and dear fields, which is
330507 -       part of this subroutine.
330508 -
330510 -     ..
330511 -    Contact Record Not Available for Entering Address
330512 -
330513 -
330514 - Line 580, ref OF 4 KZ7I, -label supS in 0501
330515 -
330516 -    -label supS
330517 -    ecur 31
330518 -    up 3
330519 -    -goto pnDtd
330520 -
330521 -       A contact ID for the addressee of the letter was not found in
330522 -       the "To" field of the secondary doc log fields, so an address
330523 -       cannot be entered for the addressee.  ecur 31 switches back from
330524 -       the SDS record to the letter format file, and scroll up a few
330525 -       lines to leave space for the user to enter an address manually.
330526 -       Then goto the code that enters the Subject.
330528 -  ..
330529 - Line 600, ref OF 4 Z19F, -label cNz in 0501
330530 -
330531 -    -label cNz
330532 -    setgbl 110 342
330533 -
330534 -       Set a flag that a Contact ID was found and so the Contact
330535 -       system can process an address for the letter format file.
330536 -
330537 -    -if @19 != 73 -goto orGZ
330538 -
330539 -        If 19 != 73 it means we are processing an organization record,
330540 -        so go to that code which sets up to look for the name of the
330541 -        individual in the record.
330543 -     ..
330544 -    setgbl 128 2
330545 -
330546 -       If 19 = 73 it means an individual contact record was found
330547 -       because the string begins with "I", and in that case setgbl 128
330548 -       2 to tell the code in 000009 that is is processing an Individual
330549 -       contact op.
330550 -
330551 -    -goto npcN
330552 -
330553 -       It is an Individual contact record op, so we can skip code that
330554 -       loads this 0501 processor to locate the name of the individual
330555 -       in the Contact record, since the name of the individual is the
330556 -       primary criteria at the top of an individual contact record.
330558 -  ..
330559 - Line 620, ref OF 4 GB4O, -label orGZ in 0501
330560 -
330561 -    -label orGZ
330562 -    setgbl 128 4
330563 -
330564 -       This op is processing an organization string in the secondary
330565 -       doc log field, so set a flag 128 4 telling the code in 000009 to
330566 -       process an organization, and make it global to pass the value
330567 -       to the letter format file and to the contact record when it is
330568 -       opened later.
330570 -     ..
330571 -    rel_cur 0 1
330572 -    setcnt 86 10
330573 -    macro 1182
330574 -
330575 -       Move the cursor one position over to the start of the field that
330576 -       has the line number in the Contact record where the name of the
330577 -       person in the organization that is the author or the addressee
330578 -       of the letter.
330580 -        ..
330581 -       Start the char read process at 10 because the first eight
330582 -       postions were used for the contact record ID, and the 9th
330583 -       position is a 0 to signify the end of the organization ID
330584 -       string.
330586 -  ..
330587 - Line 630, ref OF 4 3504, -label orGZ in 0501 about 20 lines below
330588 -
330589 -    e c:\sd\03\0501
330590 -    line                   ..................
330591 -    loc_cur 3 4
330592 -    setcnt 86 10
330593 -    macro 1181
330594 -
330595 -       Open the 0501 processor and load the line number in a locate
330596 -       command for finding the person's name in the Contact record.
330597 -
330598 -
330599 -
330600 -
3307 -

SUBJECTS
Addressee Address and Salutation, 0501

3503 -
350401 -     ..
350402 -    Address Call Macro 1305 in 000009 to Find and Load Address
350403 -    Macro 1305 in 000009 to Find and Load Address to Letter Format
350404 -
350405 -
350406 - Line 630, ref OF 4 3504, -label orGZ in 0501 about 20 lines below
350407 -
350408 -    -label npcN
350409 -    ecur 31
350410 -    getgbl 128 128
350411 -
350412 -       Return to the letter format file, and get the flag telling
350413 -       000009 which type of contact record to process.
350415 -     ..
350416 -    setgbl 90 0
350417 -    setgbl 91 0
350418 -    setgbl 151 0
350419 -
350420 -       Reset globals for doc log operation.
350422 -     ..
350423 -    setcnt 113 661
350424 -    setgbl 113 661
350425 -
350426 -       Set flag telling macro 1305 in 000009 to do special processing
350427 -       using routines in the 0501 processor for writing a letter.
350428 -
350429 -       This is used by macro 1305 in 000009 to use code in 0501 instead
350430 -       of in 000009 for processing alternate address formats, and
350431 -       letterheads, depending on whether the Sender or Addressee
350432 -       address is being entered, per below. ref SDS 0 QPTV
350434 -     ..
350435 -    macro 1305
350436 -
350437 -       Execute macro 1305 in 000009 to enter an address for the contact
350438 -       specified in the SDS record, per below, ref SDS 0 FW8M, and
350439 -       using some custom steps in the 0501 letter format processor.
350441 -        ..
350442 -       This code will do the following...
350443 -
350444 -          1.  Sender op....
350445 -
350446 -                Signature block
350447 -
350448 -                   Name, title, department, email address
350449 -
350450 -                &  .................... identifies signature block
350451 -                Letterhead
350453 -              ..
350454 -          2. Addressee address op...
350455 -
350456 -                name, title, department of addressee
350457 -                email address
350458 -                address of organization
350459 -                Anchor 0001
350460 -                Subject
350461 -                Description of subject
350462 -                Salutation Dear....
350464 -     ..
350465 -    -return
350466 -
350467 -       When this code completes, return control to....
350468 -
350469 -          1.  Sender op, to enter the date. ref SDS 0 IP7I
350470 -
350471 -          2.  Addressee op, to enter complimentary close. ref SDS 0
350472 -              OX1I
350473 -
350475 -     ..
350476 -    Subroutine Locate Person in Contact Record for Signature Block
350477 -
350478 -
350479 - Line 690, ref OF 4 3263, -label fcn in 0501
350480 -
350481 -    ecur 33
350482 -    z 1 4
350483 -    l /**  /
350484 -    -exit
350485 -
350486 -        This is called from within 000009 to locate within a Contact
350487 -        record the name of the person specified in the SDS secondary
350488 -        doc log fields for both the Sender and Addressee.
350489 -
350491 -     ..
350492 -    Phone Number Removed from Address of Addressee
350493 -    Address Remove Phone Number Anchor Subject Salutation
350494 -
350495 -
350496 - Line 720, ref OF 4 LD8M, -label Deear in 0501
350497 -
350498 -    After an address is entered by macro 1305 in 000009, this code is
350499 -    called as a subroutine from within macro 1305 about line 2450 under
350500 -    -label sopni, per below. ref SDS 0 P95H   The code in this 0501
350501 -    macro file removes the phone number which is part of the standard
350502 -    address operation, then it enters the default anchor 0001, it
350503 -    enters the Subject field in the letter, and it opens the SDS record
350504 -    and gets the description field, then it enters the salutation from
350505 -    the Contact record, then it returns control to macro 1305 in order
350506 -    to close the Contact record and end macro 1305 op.
350508 -     ..
350509 -    down
350510 -
350511 -        The cursor is below the bottom of the address so scroll down
350512 -        to put the cursor on the last line in the address entered by
350513 -        macro 1305.
350515 -     ..
350516 -    chrcnt 1 0
350517 -    rel_cur 0 1
350518 -    chrcnt 2 0
350519 -    rel_cur 0 1
350520 -    chrcnt 3 0
350521 -    -if @1 > 47 -if @1 < 58 -goto dPN
350522 -    -if @2 > 47 -if @2 < 58 -goto dPN
350523 -    -if @3 > 47 -if @3 < 58 -goto dPN
350525 -        ..
350526 -       Read the bottom string in the address, and if it is a phone
350527 -       number indicated by the first three char being numbers delete
350528 -       the line, since the phone number is not part of a standard
350529 -       address in a letter.
350531 -  ..
350532 - Line 740, ref OF 4 HN4L, -label dPN in 0501
350533 -
350534 -    Delete the phone number from the Address for the addressee of the
350535 -    letter.
350536 -
350537 -
350538 -
3506 -

SUBJECTS
Confidentiality Privacy Secrecy Flag on 0001 Default Anchor 0001 Abov

3603 -
360401 -     ..
360402 -    Privacy Confidentiality Secrecy Default for Documents
360403 -    Anchor Default Entered Below Address Above Subject
360404 -    Subject Description Obtained from SDS Doc Log
360405 -
360406 -
360407 - Line 750, ref OF 4 4380, -label pnDtd in 0501
360408 -
360409 -    up
360410 -    loc_cur 0 1
360411 -    ins_text!<0001!      ][                         Confidential!
360412 -
360413 -       Default anchor entered with default condition created that
360414 -       makes all documents confidential, and so cannot be published
360415 -       unless User removes the flag.
360417 -     ..
360418 -    up
360419 -    ins_text/Subject:  /
360420 -    macro 18
360421 -    loc_cur 0 11
360422 -    ecur 13
360423 -
360424 -       Create Subject field, and mark the location.
360426 -        ..
360427 -       Move the cursor into position for entering the subject
360428 -       description, and open SDS record to capture the description
360429 -       from the primary doc log fields.
360431 -  ..
360432 - Line 780, ref OF 4 1X8O, -label pnDtd in 0501 about 60 lines below.
360433 -
360434 -    of 43
360435 -    loc_cur 0 1
360436 -
360437 -       Make the description in the primary doc log field the offset so
360438 -       the full width of the field can be read.
360440 -     ..
360441 -    setcnt 86 1
360442 -    macro 1182
360443 -
360444 -       Capture the description from the subject index and as edited by
360445 -       the user.
360447 -     ..
360448 -    macro 23
360449 -
360450 -       Restore the original condition of the SDS record when the User
360451 -       launched the letter writing op by pressing enter on a new entry
360452 -       in the doc log field.
360454 -     ..
360455 -    ecur 31
360456 -    setcnt 86 1
360457 -    macro 1181
360458 -
360459 -       Return to the letter format file, and enter the description
360460 -       into the Subject field.
360461 -
360462 -
360463 -
3605 -

SUBJECTS
Salutation, 0501

3703 -
370401 -     ..
370402 -    Salutation Dear So and So
370403 -
370404 -
370405 - Line 800, ref OF 4 P25H, -label pnDtd in 0501 about 70 lines below
370406 -
370407 -    ins_text /Dear/
370408 -    macro 20
370409 -
370410 -       Save location of salutation jumping back after address
370411 -       subroutine is completed for entering the complimentary close.
370412 -       ref SDS 0 2M7G
370413 -
370414 -    -if @110 = 342 -goto Dsalu
370415 -
370416 -       If a contact spec was found in the secondary doc log field in
370417 -       the SDS record, then we are processing a contact record, and
370418 -       this code was launched from within macro 1305 in 000009, so
370419 -       procede to locate the name of the person in the Contact record.
370421 -     ..
370422 -    -return
370423 -
370424 -       This code is actually executed both as a subroutine from within
370425 -       macro 1305 in 000009 when a contact is being processed based on
370426 -       finding a spec in the doc log field in the SDS record. However,
370427 -       we want the thing to run even a contact spec is not entered,
370428 -       becasuse lot of times there isn't enough time to create a
370429 -       contact record, or the user may decide not to create a contact
370430 -       for an organization for which there is no activity and not
370431 -       expected to be any activity.  As a result, this code is also
370432 -       called as a subroutine within 0501 when no contact is being
370433 -       processed, and so at this point the op is over, and so there is
370434 -       a -return.
370435 -
370437 -  ..
370438 - Line 820, ref OF 4 UU3J, -label Dsalu in 0501
370439 -
370440 -    ecur 33
370441 -    macro 15
370442 -
370443 -       Getting a little tired here, the code has determined that a
370444 -       contact record is being processed, and so switches back to the
370445 -       contact record, then executes a return to mark to a position
370446 -       within the part of the record where the particular name of the
370447 -       addressee is located, and then it does a locate for a Dear
370448 -       field and gets the string, then returns to the letter writing
370449 -       file and enters the Dear ......
370451 -        ..
370452 -       After the salutation is entered, there is an -exit command that
370453 -       returns control to macro 1305 in 000009 and it closes the
370454 -       contact record and ends macro 1305 op.  Control then continues
370455 -       in 0501, per above. ref SDS 0 TI9H
370456 -
370457 -
370458 -
370459 -
370461 -  ..
370462 - 000009  Macro 1813 Load Contact to Letter Format File
370463 -
370464 - Line 30, ref OF 8 2F5L, macro 1305 in 000009
370465 -
370466 -     Open a contact record specified in the SDS record secondary doc
370467 -     log fields for "From" or "To", for which the user has previously
370468 -     entered data in account code fields for identifying the contact
370469 -     record, as reported on 981101, ref SDS 22 QF9I, and extract stuff
370470 -     for entering contact information in a target file, either an SDS
370471 -     record, plain file, or, as in this case, a letter format file per
370472 -     above. ref SDS 0 TI9H
370473 -
370475 -  ..
370476 - Line 1140, ref OF 8 TP4O, -label 0472N in 000009
370477 -
370478 -     Look for letterhead or alternate address format.
370479 -
370480 -     Letterhead is on line 001601 and is used in the first pass for
370481 -     the Sender field to write a letter.
370483 -      ..
370484 -     Alternate address is on line 001501 and is used in the second
370485 -     pass for the Address field to write a letter.
370487 -  ..
370488 - Line 1170, ref OF 8 8V7L, -label 0472N in 000009 about 40 lines below
370489 -
370490 -    getgbl 98 98
370491 -
370492 -       Distinguishes between Sender and Addressee.
370493 -
370494 -    getgbl 113 113
370495 -
370496 -       Distinguishes between letter writing op, and simply entering an
370497 -       organization into an ordinary test file.
370499 -     ..
370500 -    -if @113 = 661 -if @98 = 1143 -if @47 = 1 l /001601/
370501 -
370502 -       This is saying that if this is an op to write a letter and it is
370503 -       the Sender's address set by the "From" field in the secondary
370504 -       doc log field, then look for a letterhead which the user may
370505 -       have entered in the Contact record.
370506 -
370507 -    -if @113 = 661 -if @98 != 1143 -if @47 = 1 l /001001/
370508 -
370509 -       This is saying that if this is an op to write a letter and it is
370510 -       the Addressee's address set by the "To" field in the secondary
370511 -       doc log field, then look for an alternate address, which the
370512 -       user may have entered in the Contact record.
370513 -
370515 -  ..
370516 - Line 1310, ref OF 8 FG5N, -label edlvv in 000009
370517 -
370518 -    loc_cur 3 10
370519 -    chrcnt 114 0
370520 -    -if @114 != 32 -goto edlA
370521 -
370522 -       The cursor has landed on either an alternate address field, or
370523 -       on a letterhead field.  If the field is not blank, process the
370524 -       field.  If it is blank, look for the standard address format
370525 -       for all records.
370527 -  ..
370528 - Line 1230, ref OF 8 4V9H, -label edlA
370529 -
370530 -    loc_cur 3 4
370531 -    -if @114 != 32 loc_cur 0 6
370532 -
370533 -       Start the cursor on column 4, but if counter 114 != 0 this means
370534 -       we landed on an alternate address or letterhead field, launched
370535 -       by macro file 0501 to write a letter, so process it by moving
370536 -       cursor over one line number level, because we are operating on a
370537 -       different level.
370539 -        ..
370540 -       Could make standard address field in Contact records 6 columns
370541 -       instead of 4, but this would require changing 8 or 900 records.
370543 -        ..
370544 -       Currently, the address is 4 columns because that is what popped
370545 -       into my head 20 years ago.
370546 -
370547 -           [On 021019 made change and developed code to handle legacy
370548 -           documents for awhile. ref SDS 40 HK5O
370550 -  ..
370551 - Line 1520, ref OF 8 K56L, -label athere in 000009
370552 -
370553 -    -gosub conF1
370554 -    macro 1189
370555 -
370556 -       Create SDS line number field for contacts, and then enter the
370557 -       character string drawn from the Contact record for the name of
370558 -       the organization selected by the User.
370559 -
370561 -  ..
370562 - Line 2410, ref OF 8 JL5G, -label aQo1 in 000009
370563 -
370564 -    -if @98 != 1143 -goto nlhdop
370565 -
370566 -       This code runs after an address has been entered.  If it is a
370567 -       letterhead op, running from macro file 0501, we need to create a
370568 -       flag that identifies the bottom of the signature block, so it
370569 -       can be moved to below the complimentary close.
370571 -     ..
370572 -    ecur 31
370573 -    loc_cur 0 1
370574 -    immed a
370575 -    up
370576 -    ic 38
370577 -    up
370578 -
370579 -       Return to letter format file, add a line and enter an &
370580 -       character to identify the bottom of the signature block.
370582 -     ..
370583 -    setcnt 94 9251
370584 -
370585 -       Set flag 94 9251 telling the code in 0501 that a signature block
370586 -       has been entered, ref OF 8 L75K, so it can be processed by
370587 -       moving it to below the complimetnary close field, per code in
370588 -       0501. ref SDS 0 RE7H
370589 -
370591 -  ..
370592 - Line 2540, ref OF 8 WD7M, -label sopni in 000009
370593 -
370594 -    -if @113 = 661 -if @98 != 1143 @c:\sd\03\0501 #3
370595 -
370596 -       If this is a letter writing op and it is not the Sender op, then
370597 -       it is the addressee address op, so call the code in 0501 that
370598 -       creates the anchor, subject and salutation, which is taken from
370599 -       the Contact record.
370600 -
370601 -
370602 -
370603 -
3707 -

SUBJECTS
Multiple Records Load to SDS, 910312

3803 -
380401 -  ..
380402 - Mulitple Contacts Load to SDS Records
380403 -
380404 - On 911009 developed feature to enter multiple contacts in an SDS
380405 - record. ref SDS 2 EX7J,
380406 -
380407 - I want to change this system today.  Will empty the summary and leave
380408 - the only records to be processed.
380410 -  ..
380411 - Line 440, ref OF 3 8352, -label xx7 in 047041 about 30 lines below.
380412 -
380413 -    pfent macro 1305
380414 -
380415 -       Enter executes macro 1305 in 000009. ref SDS 0 FW8M
380417 -  ..
380418 - Line 9010, ref OF 8 QX4J, -label lpsume in 000009
380419 -
380420 -    loc_cur 0 1
380421 -    ic 43
380422 -
380423 -       Move the cursor to column 1 and enter a character so the next
380424 -       op will not delete this line.
380426 -     ..
380427 -    top
380428 -    errorcnt 0 0
380429 -
380430 -       After tagging the current line, jump the top, and set up to
380431 -       delete all lines except tagged lines.  This supports entering
380432 -       multiple lines.
380433 -
380434 -    -label lpsume
380435 -    up
380436 -    -if @0 > 0 -goto empty
380437 -    -label lpsm3
380438 -    chrcnt 1 0
380439 -    -if @1 > 32 -goto lpsume
380440 -    immed d
380441 -    -goto lpsm3
380442 -    -label empty
380443 -    top
380444 -    immed d
380445 -       ..
380446 -       Do a loop that scrolls the file up and deletes all lines
380447 -       except the lines that are tagged, so we wind up with only lines
380448 -       that are to be processed.
380450 -        ..
380451 -       Generally, this will only be one line, but it is used to reduce
380452 -       drag on memory, hopefully.
380453 -
380454 -
380455 -
380456 -
380458 -  ..
380459 - Line 3580, ref OF 8 Q79J, -label lmctef in 000009 about 20 lines
380460 - below.
380461 -
380462 -    -if @144 = 2000 -exit
380463 -
380464 -
380465 -
380466 -
380467 -
380468 -
380469 -
380470 -
380471 -
380472 -
3805 -

SUBJECTS
Location Room Mail Stop in Address Processing
Location EG Room Mail Stop Removed This Feature in Addressing Corresp

4204 -
420501 -  ..
420502 - Location Field Remove from Automatic Entry for Writing a Letter
420503 -
420504 - Decided today to remove the feature of addressing correspondence that
420505 - appends the location of an addressee to the end of the line with the
420506 - street address.  Need for this feature arose on 960119. ref SDS 9
420507 - 0001, and was developed on 960211. ref SDS 10 0001
420509 -  ..
420510 - Today, we are revising the design the correspondence so that a single
420511 - system will create an format for both issued and received documents.
420512 - This means the loction feature that is useful in the address field is
420513 - not needed in the Sender's field.  We want to use the same code for
420514 - both.  We could develop some code to distinguish these conditions, but
420515 - this adds more to the size of the program, when memory is a critical
420516 - factor.  Removing this feature saves about 2K of RAM.
420518 -  ..
420519 - The Location field in Contact records is still useful for mailing
420520 - documents and packages to a particular room or mail stop, but it not
420521 - needed for email, which has become the dominate use of SDS in recent
420522 - years.  We can create a location field in a Contact record when needed
420523 - for the US mail.   This occurs in big organizations like Intel, DOD,
420524 - state government, etc.
420525 -
420527 -  ..
420528 - Line 1300, ref OF 8 FH5K, -label ncslz
420529 -
420530 -    -if @141 = 1 -goto nsalcf
420531 -       ..
420532 -       This code enters the # character in column 70 in order to
420533 -       get back to the street address line and append the location such
420534 -       as room number or mail stop.
420535 -       ..
420536 -       Today, I am eliminating this feature.
420538 -  ..
420539 - Line 2440, ref OF 8 3875, -label loliop
420540 -
420541 -    This code looks for the Location field in an Contact record, which
420542 -    I am unplugging today, per above. ref SDS 0 H65I
420543 -
420544 -    We retain the field in the Contact record and can enter it manually
420545 -    when needed to mail a physical object.
420546 -
420548 -  ..
420549 - Line 2590, ref OF 8 Y86M, -label feosA
420550 -
420551 -    -label feosA
420552 -
420553 -       This code is a subroutine for finding the # char in col 70 and
420554 -       removing it at the end of the process for entering an address.
420555 -
420556 -
420557 -
420558 -
420559 -
420560 -
420561 -
420562 -
420563 -
420564 -
420565 -
420566 -
420567 -
420568 -
420569 -
420570 -
4206 -