THE WELCH COMPANY
440 Davis Court #1602
San Francisco, CA 94111-2496
415 781 5700
rodwelch@pacbell.net


S U M M A R Y


DIARY: February 22, 2006 09:44 PM Wednesday; Rod Welch

SDS function general replication of multiple views in context management.

1...Summary/Objective
2...General Replication Reduces Knowledge Management Faster Easier
3...General Replication for Context Management Reduces Cognitive Overhead
4...Context Management Time Construct Multiple Views to Find Everything
5...Knowledge Management Dilemma Finding Everything Time to Manage Context
6...General Replication New Function Populates all Multiple Views
7...New Function to Conform Subject Accounts to Common Multiple Views
8...Control Field Conform Subject Accounts to Common Descriptions
9...Controlled General Replication Balances Speed and Avoids Mistakes
10...General Replication Launch Cols 53 54 Control Field Check for Errors
11...Forced General Replication Very Fast and Risky Need Deliberate Task
12...General Replication Forced Press Enter Only on "S" above Control Field
13...Secondary Replication Forced Tools Executed with Great Deliberation
14...Situational Awareness Enables Working Quickly and Accurately
15...Messages and Errors Report in Subject Field below Control Field
16...000008 Enter Check Cursor Position Manage General Replication Choices
17...General Replication Choices Based on Cursor Position When Enter Used
....S.on Subject/File for Forced General Replication
....Forced General Replication Launch with Cursor on S Subject/File
....Enter on 52 53 Controlled Replication Account Descriptions in SI
18...035012 General Replication in Subject Index Launch from Control Field
19...SI Descriptions Update to Common Set Forced or Controlled Replication
20...Multiple Views Manage Changes General Replication Forced or Controlled
....110 = 733* Replication Choices Defined in 035012
....Stufqc1 Save Control Field Subjects to Disk for Transfer File
....Control Field Subjects Saved to Disk for Transfer File Stufqc1
....Transfer File Opened Enter Subject Account for General Replication
....Control Field Read into Transfer File for Use in Subject Index
....Types of Replication Identify in Transfer File
....Replication Type Enter Flag into Transfer File
....Format Transfer File to Process Only Subjects from Control Field
....Replication Execute Immediately Use Subject Field of Control Field
....Dose Command Launch 03501 by 035012 Start Command Memory Segment
....Control Field Enter Messages Below in Subject Description Field
....Error Messages Genral Replication Enter Below Control Field
....Error Message No Master, Descriptions Don't Match
....Replacement Descriptions Don't Match Existing Error Message
....Account Description Entered in Subject Field Below Control Field
....Master Set Subject Descriptions Not Created with F3 Error Message
....Messages Return Control to User Replication Complete
21...03501 Begin Process Set Flags for General Replication
....Target Account Found Ready for General Replication
....Master Set Descriptions Not Found Error Message
....Error Message Master Set Descriptions Not Found
....035071 Called by 03501 for New General Replication Process
....Replication Called to Replace Account Descriptions with Master File
....Save Replicated Account Descriptions in Subject Index Manage Errors
....Account Not Found Error Message General Replication
....Error Flags General Replication
....Mismatch Master File and Subject Index Top Description
....Error Build List in Transfer File to Identify Differences
....Description Capture to Transfer for Entering to Control Field
....Control Field Line Numbers Capture to Reset After Replication
....Transfer File Capture Control Field Line Numbers for Replication
....Transfer File Construct Control Field Line Number Format
....Enter Account Description for Subject Field Below Control Field
....Error Message Account Not Found; Descriptions Don't Match
....Error Message Descriptions Don't-Match; Account Not Found
....Transfer File Process Next Account and End Process
....Transfer Special Filename to Load Content Below Control Field
22...035071 Replace Account Descriptions with Master File Subroutine
....Remove Subject Descriptions Leave Primary for General Replication
....Subject Account Description in Control Field Replace Only 1st
....General Replication Notice to User Replace 1st Subject Description
....Get Replacement Descriptions in Master File Captured with F3
....Master Set Replacement Descriptions Not Found Set Flag for Error
....Subject Description Load Transfer File Once for Control Field
....Master Set Replacement Descriptions Load Primary Description Once
....Error Descriptions Don't Match Avoid Controlled Replication
....Descriptions Don't Match Error Controlled Replacement Stopped
....Verify Top Lines of Description in Master File Match Existing
....Replace Existing Descriptions with Descriptions in Master Set F3
....End General Replication for Current Account Cycle Back for Next One


..............
Click here to comment!

CONTACTS 

SUBJECTS
General Replication for Context Management Reduces Cognitive Overhea

0903 -
0903 -    ..
0904 - Summary/Objective
0905 -
090501 - Follow up ref SDS 11 0000.
090502 -
090503 - General replication developed today, and over the next few weeks,
090504 - reduces time for context management from hours down to seconds.  Two
090505 - (2) new functions construct uniform "multiple views" for different
090506 - contexts in the organic structure of knowledge. "Controlled" general
090507 - replication updates all instances of subject descriptions for accounts
090508 - in a Control Field, except when a mismatch occurs. "Forced"
090509 - replication updates all instances of descriptions for Control Field
090510 - accounts regardless of mismatches. ref SDS 0 U55O  Users are notified
090511 - of errors in context to optimize situational awareness. ref SDS 0 NT7N
090512 - These tools help solve the knowledge management dilemma of balancing
090513 - time and quality, so that people can get things done quickly and
090514 - accurately in two ways:  (1) constructing an organic subject structure
090515 - for managing the complexity of dynamic context; and, (2) using the
090516 - Subject Index to find critical details in time to take effective
090517 - action based on accurate understanding of work history, objectives,
090518 - requirements, and commitments.
090519 -
090520 -
090521 -
090523 -  ..
0906 -
0907 -
0908 - Evaluation
0909 -
090901 - General Replication Reduces Knowledge Management Faster Easier
090902 -
090903 - Follow up ref SDS 13 HB8H, ref SDS 10 5I7M.
090904 -
090905 - Support for general replication reduces time for Context Management.
090906 - This extends prior work developing replication support on 050618, and
090907 - so further reduces "cognitive overhead. ref SDS 10 5I7M  Productivity
090908 - improvements are listed on 000824. ref SDS 4 RY8H
090910 -  ..
090911 - Two new functions balance speed and safety and are easy to execute...
090912 -
090913 -    1.  "Controlled general replication" executes instantly and returns
090914 -        messages to report mismatches. ref SDS 0 NT7N
090915 -
090916 -    2.  "Forced general replication" requires more deliberation to
090917 -        call and so reduces risks, ref SDS 0 4W6I, but also runs
090918 -        instantly.
090920 -  ..
090921 - "General replication" based on situational awareness, discussed below,
090922 - ref SDS 0 G17F, is approximately a 20:1 improvement in productivity by
090923 - eliminating work that previously took 15 minutes to several hours per
090924 - day. ref SDS 0 4W7L   This aligns with Moore's Law reviewed on 050303,
090925 - ref SDS 9 7N4G, and citing theory of transformation developed on
090926 - 040503. ref SDS 8 JT5F  Reducing the time required to perform work
090927 - that is performed a lot has a big impact on productivity.
090929 -  ..
090930 - The basic functions took a few days to create.  Initial experience
090931 - indicated a robust message system is needed for general replication.
090932 - Creating an effective system of messages took several weeks of
090933 - experimentation to discover and construct.  The problem to solve was
090934 - creating awareness and preventing harmful, unintended changes to the
090935 - Subject Index that occur out of the user's view. ref SDS 0 NW6G
090936 - Adding support for situational awareness makes these new functions
090937 - powerful additions to Context Management. ref SDS 0 G17F
090938 -
090939 -
090940 -
090941 -
090943 -  ..
0910 -
0911 -
0912 - Background
0913 -
091301 - General Replication for Context Management Reduces Cognitive Overhead
091302 - Context Management Time Construct Multiple Views to Find Everything
091303 - Knowledge Management Dilemma Finding Everything Time to Manage Context
091304 -
091305 - Application of the Subject Index has evolved in recent years toward
091306 - rigorous context management practices.  A "replication" function was
091307 - created to populate "multiple views."  Press F3 to capture a set of
091308 - account description lines for the current Subject Index and store them
091309 - temporarily in a "master" file for replication to other accounts.
091310 - Shift F3 adds the description lines in the master file to any other
091311 - account.  F1 F1 F3 replaces an entire set of account description lines
091312 - with the lines in the master file captured with F3.
091314 -  ..
091315 - These new tools, F3, Shift F3, and F1 F1 F3 are to replicate "multiple
091316 - views" for accounts in the Subject Index that define a record segment.
091317 - Constructing contextual representation can produce 100s of account
091318 - descriptions; however, SDS "knowledge management" tools produce a
091319 - single primary description for a Control Field.  Summarizing many
091320 - subjects, categories, topics, and classifications reduces the
091321 - "Knowledge Management Dilemma" of tracking complexity without being
091322 - overwhelmed by confusion. ref SDS 0 4W4J  In other words, the tools
091323 - convert complexity from a liability into an asset.
091325 -  ..
091326 - Experience doing context management for many years in SDS has
091327 - discovered that understanding context expands by the "process" of
091328 - constructing multiple views of account descriptions.  This is
091329 - precisely what is intended by the notion of "expanding span of
091330 - attention" to make sense of complex circumstances by recognizing
091331 - correlations, implications, and nuance that influence cause and
091332 - effect.  In other words, while constructing a common set of multiple
091333 - views, or expressions for a subject that defines a particular context
091334 - in an SDS record segment (like this one), the mind naturally refines
091335 - and expands the number of "views" that reasonably describe contextual
091336 - associations.   At low levels of detail, context is a continuum.  The
091337 - subject index helps people manage this condition by constructing
091338 - floating boundaries that are effective for taking action in the moment
091339 - by finding relevant history showing causation.
091341 -  ..
091342 - Tools to construct and post multiple views into a Control Field record
091343 - segment reduce the time and physical effort of repetitive tasks.  This
091344 - significantly increasing awareness, i.e., comprehension, of scope and
091345 - distinctions, i.e., contextual boundaries, by mentally stepping
091346 - through the Subject Index and observing alternate context choices.
091347 - Since the mind is poor at memory and strong making choices, converting
091348 - "memory" tasks into "choosing" tasks significantly leverages thinking,
091349 - knowledge, intelligence, etc.  Constructing and posting from a
091350 - hierarcial, outline list (i.e., inventory of subjects) with tools
091351 - increases accuracy by orders of magnitude from reducing mistakes
091352 - caused by fatigue and distraction.  Comprehensive, accurate subjects
091353 - assignments makes context management faster and easier to find
091354 - critical details in time to be effective getting things done correctly
091355 - to save lives, time, and money.
091357 -  ..
091358 - Advantages of mental (cognitive) process support is illustrated by the
091359 - following fragment of primary subjects in the organic structure of
091360 - context, i.e., the ontology of existence...
091361 -
091362 -        Projects
091363 -        Research
091364 -        Contacts
091365 -        Operations
091367 -  ..
091368 - Within each of these major accounts many organic sub-account branches
091369 - arise.  It is not uncommon to wind up replicating an account structure
091370 - in 20 - 40+ different locations within the Subject Index for a single
091371 - Control Field.  This means a Control Field may have 20 - 40+ subject
091372 - lines, but at the end of a complex structure each of these 40+
091373 - accounts has the same set of descriptions for "multiple views."
091375 -  ..
091376 - This method of defining organic structure with "multiple views" has
091377 - proven effective for finding details quickly based on situational
091378 - awareness, as explained in POIMS. ref OF 14 KH8J
091380 -  ..
091381 - There may be other ways to find the "needle in a haystack" of complex
091382 - history, and to assemble relevant context showing cause and effect
091383 - into a larger construction of "knowledge," but they are not obvious
091384 - nor commonly used, as noted by Millie on 960406. ref SDS 1 5922  At
091385 - that time, Morris said that nobody has solved the problem of
091386 - organizing information for finding critical details when needed.
091387 - ref SDS 1 4249  A year later on 970116 Morris described the problem of
091388 - "frationalized subjects," which computer science has not solved.
091389 - ref SDS 2 2909  On 021108 Bill Gates described a project to expand
091390 - computer science by improving Microsoft programs for finding
091391 - information. ref SDS 6 EF5I
091393 -  ..
091394 - SDS addresses the problem by adding organic structure to position
091395 - everything in the right place at the right time, as noted by Morris on
091396 - 010425.  He feels SDS methodology, per above, ref SDS 0 YS7N, is a
091397 - "utopia" compared to other efforts using computers. ref SDS 5 EP7F
091398 - Jack Park has described this capability as managing a "Pandora's Box"
091399 - of complexity, reported on 000221. ref SDS 3 M854
091401 -  ..
091402 - SDS provides an effective solution, as explained in POIMS. ref OF 14
091403 - 1110  The challenge is how to reduce the time for implementation.
091405 -  ..
091406 - When the mind switches context, per above, ref SDS 0 YS7N, typically a
091407 - broader set of associations becomes evident than initially came to
091408 - mind, with the result that in moving through all related contexts the
091409 - set of multiple views is expanded and refined.   After entering
091410 - subjects for all multiple views, the final set is different from prior
091411 - intermediate renderings.  To conform all of the accounts to a single
091412 - set of multiple views, requires opening each account and replicating
091413 - the lines from the final account.  Sometimes this winds up being done
091414 - several times.
091416 -  ..
091417 - For example, there are 41 lines in the Control Field for a record
091418 - segment on 050722. ref SDS 12 RP54
091420 -  ..
091421 - If it takes 5 seconds for each line, then 40 lines takes 200 seconds,
091422 - and if this is done 3 or 4 times, that could take up to 800 seconds,
091423 - or about 13 minutes.  Apart from the boring nature of a repetitive
091424 - task...
091425 -
091426 -        1.  Place cursor on subject in a Control Field
091427 -        2.  Enter to open SI at target location
091428 -        3.  F1 F1 F3 to replace account descriptions
091429 -        4.  F2 to Save revised listing
091430 -        5.  ESC to close SI and return to SDS record
091431 -        6.  Repeat step 1 by pressing down arrow
091433 -  ..
091434 - These steps are extremely easy, but repetition increases the chance of
091435 - error by pressing a wrong key in haste.  If there are say 20 record
091436 - segments per day that have to be constructed, this one exercise can
091437 - stretch into many hours.  The tendency is to begin viewing the
091438 - benefits of organization using "multiple views" as "unnecessary
091439 - overkill" in order to perform tasks that are being organized. (see
091440 - thinking and doing, in POIMS. ref OF 11 2049)
091442 -  ..
091443 - With this experience in mind, we can save a lot of time and also
091444 - maintain or increase the quality of work by automatically conforming
091445 - all subjects in a Control Field to a common set of multiple views for
091446 - account descriptions in the Subject Index, per above. ref SDS 0 XV5I
091447 - In short, we need a new function for general replication that
091448 - complements current tools for particular replication.
091449 -
091450 -        Actually, wound up with two (2) new functions, one for
091451 -        controlled general replication, and another for forced general
091452 -        replication. ref SDS 0 U55O
091453 -
091454 -
091455 -
091456 -
091457 -
0915 -

SUBJECTS
General Replication Planning Subject Index Control Field Conform Sub

1403 -
1404 - Planning
140501 -  ..
140502 - General Replication New Function Populates all Multiple Views
140503 - New Function to Conform Subject Accounts to Common Multiple Views
140504 - Control Field Conform Subject Accounts to Common Descriptions
140505 -
140506 - Will try positioning the cursor on "S" in Subject/File at the top of a
140507 - Control Field, and pressing Enter or double click.  This condition
140508 - returns 125 = 52, and so provides a simple way to launch the op
140509 - without adding anything to compiled code.
140510 -
140511 -        Finally assigned "S" to the most high risk of two (2) new
140512 -        functions. ref SDS 0 U57H
140514 -  ..
140515 - This new function could capture the description set for the first
140516 - subject in a Control Field and use it as the template.  The problem is
140517 - that most of the time it is not the account with the final set of
140518 - multiple views, since they evolve from experience replicating a set in
140519 - multiple context levels, so it is rare that the first account in a
140520 - Control Field will contain the final set of lines.  A user could
140521 - manually replicate the final set to the first account, but this is a
140522 - hit and miss approach.  Therefore will leave it to the user when to
140523 - decide to press F3 to capture a set of multiple views for a particular
140524 - context and make it the source for general replication.
140526 -  ..
140527 - Execution of this function must be very precise to require deliberate
140528 - and particular action in order to reduce the risk of inadvertently
140529 - calling a command that can cause harm, as well as benefit.
140530 -
140531 -        See decision to create two functions. ref SDS 0 U55O
140533 -  ..
140534 - There is of course a very big risk with this type of "replacement"
140535 - process.
140537 -  ..
140538 - Very often, possibly most of the time, and certainly for most of the
140539 - years SDS has been used, most Control Fields have multiple subject
140540 - description sets, rather than just one.  The single set practice is
140541 - only recent in the past few years.  If this new function is used where
140542 - all the subjects are not the same set of multiple views, it would
140543 - badly corrupt the subject index, reducing its power.
140545 -  ..
140546 - A strategy was considered to reduce this risk by assuming that any
140547 - changes to an account set of multiple views would have a common first
140548 - description, i.e., the description at the top of the list.  The code
140549 - could therefore check the top line, and verify that the top line of
140550 - the master set of multiple views is the same, and if not skip
140551 - conforming that particular account.  The problem is that it cannot be
140552 - guaranteed that this condition will always exist, and since the entire
140553 - operation is transparent to the user, variance would be introduced
140554 - without awareness of the situation.
140556 -  ..
140557 - The current SDS design provides some resiliency that moderates this
140558 - risk, although it requires first updating account descriptions in an
140559 - SDS record.  Where there is only a single line for the account
140560 - descriptions, this establishes that all subjects in the Control Field
140561 - are using the same set of "multiple views."
140563 -  ..
140564 - Based on this, we could do two types of things....
140565 -
140566 -    1.  The new code could first verify there is only one description
140567 -        line below a Control Field, and in that case execute; and, if
140568 -        not, then shut down and return an error message.
140570 -         ..
140571 -    2.  The new code could execute the process that updates account
140572 -        descriptions below the Control Field, before step 1 is
140573 -        performed, and only execute if that is the case.
140574 -
140575 -
140576 -
140578 -  ..
140579 - Controlled General Replication Balances Speed and Avoids Mistakes
140580 - General Replication Launch Cols 53 54 Control Field Check for Errors
140581 -
140582 - Actually, these ideas are not very good.  We might be able to
140583 - completely solve the problem as follows...
140585 -         ..
140586 -    1.  Primary and controlled version of general replication can be
140587 -        called by pressing Enter or double clicking any Control Field
140588 -        line in the first two columns (53-54) of the Subject field.
140590 -         ..
140591 -    2.  Implement procedure that top line of an account in the Subject
140592 -        Index must conform to top line in the master file replacement
140593 -        list.  This allows multiple "views" in a Control Field, but not
140594 -        overwrite things that are intended to be different.
140596 -         ..
140597 -    3.  Return an error message below the Control Field that lists
140598 -        lines that were found different.  The user can then open the
140599 -        subject index for those particular lines, and, if needed, press
140600 -        F3 to construct a multiple view set for it, and run the new
140601 -        function again to conform that set of multiple views.  This
140602 -        would yield another exception report, which could then be
140603 -        investigated, the master index could be recreated for the
140604 -        exception line, and then general replication could be called
140605 -        again.  This might take 10 seconds.
140606 -
140607 -
140609 -  ..
140610 - Forced General Replication Very Fast and Risky Need Deliberate Task
140611 - General Replication Forced Press Enter Only on "S" above Control Field
140612 - Secondary Replication Forced Tools Executed with Great Deliberation
140613 -
140614 - Actually, we need two (2) functions.  One that executes under
140615 - controlled conditions, per above, ref SDS 0 NT7N, and a second that
140616 - forces everything to change without skipping and returning an error
140617 - message.
140618 -
140619 -    After working with an account for 10 minutes to several hours, the
140620 -    mind can settle (feel confident "knowing") that general replication
140621 -    is appropriate for all accounts in a Control Field.  If the top
140622 -    line is edited in the final set of master descriptions, then every
140623 -    account will return an error under the "controlled" general
140624 -    replication function.  So a means is needed to force conformance of
140625 -    everything, otherwise under the primary scheme, every account in a
140626 -    Control Field would have to be manually updated, just as required
140627 -    without the new feature.
140629 -     ..
140630 -    Secondary forced replication is a high risk application and so will
140631 -    be the hardest and most deliberate to execute by pressing on Enter
140632 -    only on "S" in Subject/File above the Control Field. ref SDS 0 8S4M
140633 -
140634 -
140635 -
140636 -
1407 -

SUBJECTS
Planning Messages Errors Report System in Subject Field below Contro

2503 -
250401 -  ..
250402 - Situational Awareness Enables Working Quickly and Accurately
250403 - Messages and Errors Report in Subject Field below Control Field
250404 -
250405 - Developed system today of constructing messages for errors in the
250406 - Transfer File and loading them in the Subject field below the Control
250407 - Field.  This correlates messages to accounts on specific Control Field
250408 - lines so that adjustments can be made based on situational awareness.
250409 - This enables improvement to productivity of approximately 20:1, per
250410 - evaluation above, ref SDS 0 BQ5G, by enabling people to work quickly
250411 - and smoothly without compounding harm to the Subject Index, which
250412 - would take days and weeks to fix, and likely be ignored, greately
250413 - reducing usefulness of the record.
250415 -  ..
250416 - Since general replication processes use many different codes, we need
250417 - a system of messages that flag problems, pinpoint the location, and
250418 - proceed to accomplish work where there is not a problem.
250419 -
250420 -    Account Not Found............................... ref SDS 0 JN5J
250421 -    Master Descriptions Not Created with F3......... ref SDS 0 T99K
250422 -    Descriptions Don't Match........................ ref SDS 0 RT3K
250423 -
250424 -
250425 -
250426 -
250427 -
250428 -
250429 -
250430 -
2505 -

SUBJECTS
General Replication Code Development Subject Index Control Field Con
General Replication Choices Controlled or Forced Cursor Enter Identi

2704 -
2705 - Progress
270601 -  ..
270602 - 000008 Enter Check Cursor Position Manage General Replication Choices
270603 - General Replication Choices Based on Cursor Position When Enter Used
270604 -
270606 -  ..
270607 - Line 1450, ref OF 5 0671, -label nrepS in 000008 about 50 lines below
270608 -
270609 -    setcnt 93 996
270610 -    -if @3 = 0 -goto oCodes......................... ref SDS 0 U45O
270611 -
270612 -        Macro 136 calls setcnt 93 996 when Enter is used with cursor in
270613 -        a Control Field.  Establishing cursor is in a Control Field is
270614 -        part of criteria for "Controlled General Replication."
270615 -        ref SDS 0 NT7N
270616 -
270618 -  ..
270619 - Line 1460, ref OF 5 0616, -label nrepS in 000008 about 60 lines below
270620 -
270621 -    z 1 20
270622 -    fr /Milg/
270623 -    getscr 1
270624 -    -if @0 = 0 -goto oPSI1........................ ref SDS 0 U44J
270625 -
270626 -        Macro 136 looks for Milg to identify the top of a Control
270627 -        Field, mostly for looking up Contacts and Functions; when Enter
270628 -        is called for Subject/File, currently either the Subject Index
270629 -        is opened for access, construction, and finding subjects, or
270630 -        there is a transparent operation that opens the Subject Index
270631 -        for every account in the Control Field and descriptions below
270632 -        the Control Field are conformed to descriptions in the Subject
270633 -        Index.  Today this line is further adopted for "deliberate"
270634 -        action to "force" general replication that updates descriptions
270635 -        for all accounts in the Subject Index that are listed in the
270636 -        Control Field by replacing descriptions with content captured
270637 -        with the F3 replication function in the Subject Index.
270638 -        ref SDS 0 U55O
270639 -
270640 -
270642 -     ..
270643 -    S on Subject/File for Forced General Replication
270644 -    Forced General Replication Launch with Cursor on S Subject/File
270645 -
270646 -
270647 - Line 2250, ref OF 5 0888, -label oPSI1 in 00008
270648 -
270649 -    -label oPSI1
270650 -    rel_cur 1 0
270651 -    setcnt 93 997
270652 -    -if @125 > 33 -if @125 < 42 setcnt 93 998
270653 -    -if @125 > 65 -goto esidfc
270654 -    -goto 035012m
270655 -
270656 -        This is where Enter is called on the header above the Control
270657 -        Field.  This code establishes the column where Enter was used,
270658 -        which identifies either...
270659 -
270660 -           Function....................... Subject Index Open Functions
270661 -           Subject/File................... Subject Index open Subjects
270662 -           Beyond Subject/File............ Subject Descriptions from
270663 -                                           Index enter below Control
270664 -                                           Field in SDS record
270665 -           "S" beginning Subject/File..... Forced General Replication
270666 -                                           in Subject Index,
270667 -                                           ref SDS 0 U55O
270669 -         ..
270670 -        Flags applied with counter 110 in 035012 to configure transfer
270671 -        file, per below. ref SDS 0 G29M
270672 -
270673 -
270674 -
270675 -
270677 -     ..
270678 -    Enter on 52 53 Controlled Replication Account Descriptions in SI
270679 -
270680 -
270681 - Line 2200, ref OF 5 TM4N, -label oCodes in 000008
270682 -
270683 -    -label oCodes
270684 -    getscr 1
270685 -    -if @125 > 43 -if @125 < 51 -goto lfcds
270686 -    -if @125 > 33 -goto 035012m
270687 -    -label esidfc
270688 -    @c:\sd\03\035012 #2
270689 -    -exit
270690 -
270691 -        This is when Enter is called in a Control Field, and the cursor
270692 -        is beyond the "Bill" field, so it could be either a lookup in
270693 -        the Subject Index for either a Function or Subject call.  We
270694 -        are adding to utility today to launch "controlled" general
270695 -        replication. ref SDS 0 NT7N
270696 -
270697 -           Employee....................... Find in Contacts
270698 -           Billing entity................. Find in Contacts
270699 -           Function....................... Find account in Subject Index
270700 -           Subjects....................... Find account in Subject Index
270701 -           Subjects cols 52 53............ Controlled General Replication
270702 -                                           in Subject Index,
270703 -                                           ref SDS 0 NT7N
270705 -         ..
270706 -        Flag applied with counter 110 in 035012 to configure transfer
270707 -        file, per below. ref SDS 0 G29M
270708 -
270709 -
270710 -
270711 -
2708 -

SUBJECTS
035012 General Replication Interpret Flags Set Macro 136 Enter in 00

2803 -
280401 -  ..
280402 - 035012  General Replication in Subject Index Launch from Control Field
280403 - SI Descriptions Update to Common Set Forced or Controlled Replication
280404 - Multiple Views Manage Changes General Replication Forced or Controlled
280405 -
280406 -
280407 - Line 480, ref OF 2 KB9J, -label start in 035012
280408 -
280409 -    -label start
280410 -    -if @93 = 997 -if @125 = 52 -goto csadcmv........ ref SDS 0 PH8O
280411 -    -if @93 = 996 -if @125 > 51 -if @125 < 54 -goto cscmv47.....
280412 -    ................................................. ref SDS 0 4A4M
280413 -
280414 -        Use flags set by macro 136 in 000008 to identify forced general
280415 -        replication. ref SDS 0 U44J  93 997 means Enter was called with
280416 -        cursor on Control Field description line, and 125 = 52 means
280417 -        cursor was on "S" in Subject/File.  So to do this exercise
280418 -        called "forced general replication," user must start with
280419 -        cursor on a single special position. ref SDS 0 U55O   The
280420 -        second call is identified in 000008 for controlled general
280421 -        replication. ref SDS 0 U45O  User can press Enter or double
280422 -        click on columns 52 or 53 in a Control Field. ref SDS 0 NT7N
280423 -
280424 -
280425 -
280427 -  ..
280428 - Line 40, ref OF 2 I65K, -label cscmv47 in 035012
280429 -
280430 -    -label cscmv47.................................. ref SDS 0 LR7N
280431 -    setcnt 125 4443
280432 -    -goto cnfrm...................................... ref SDS 0 PH8O
280433 -
280434 -        New flag for controlled general replication..... ref SDS 0 LR7N
280435 -
280436 -
280438 -  ..
280439 - Line 50, ref OF 2 PH5N, -label csadcmv in 035012
280440 -
280441 -    -label csadcmv
280442 -    setcnt 125 4444
280443 -
280444 -    -label cnfrm
280445 -    ....
280446 -    -if @125 > 40 -goto cdacsi.................. ref SDS 0 G29M
280447 -
280448 -        Added new flag for forced general replication. ref SDS 0 LR7N
280449 -        ...which is then processed with code when cursor is beyond col
280450 -        40, the Function field.
280451 -
280452 -
280453 -
280454 -
280455 -
2805 -

SUBJECTS
Forced Replication Flag 110 = 7331 Defined in 035012
SDS Record Control Field Saved to Disk for Entry into Transfer File

3004 -
300501 -     ..
300502 -    110 = 733* Replication Choices Defined in 035012
300503 -
300504 -
300505 - Line 180, ref OF 2 GZ8J, -label cdacsi in 035012
300506 -
300507 -    -label cdacsi
300508 -    setcnt 93 996
300509 -    setcnt 110 7333
300510 -    -if @125 = 4444 setcnt 110 7331
300511 -    -if @125 = 4443 setcnt 110 7332
300512 -    setgbl 110 @110
300513 -
300514 -        Set flags to identify two new ops...
300515 -
300516 -            110 = 7331................ Forced general replication
300517 -            110 = 7332................ Controlled general replication
300518 -            110 = 7333................ Subject descriptions conform
300520 -         ..
300521 -        110 = 7333 is an existing feature developed on 040305,
300522 -        ref SDS 8 648N, these choices are initially defined by this
300523 -        code in 035012, based on where Enter is called, per above.
300524 -        ref SDS 0 U44J  These flags are posted into the transfer file,
300525 -        per below. ref SDS 0 WH3N
300526 -
300527 -
300528 -
300530 -     ..
300531 -    Stufqc1 Save Control Field Subjects to Disk for Transfer File
300532 -    Control Field Subjects Saved to Disk for Transfer File Stufqc1
300533 -
300534 -
300535 - Line 270, ref OF 2 8T8I, -label cdacsi in 035012 about 40 lines below
300536 -
300537 -    save stufq8
300538 -    immed /
300539 -    loc_cur 3 1
300540 -    errorcnt 0 0
300541 -    z 6 6
300542 -    l-/-/
300543 -    immed dd
300544 -    top
300545 -    immed dd
300546 -    z 3 3
300547 -    nb
300548 -    down
300549 -    rel_cur 1 0
300550 -    immed 9999d
300551 -    rel_cur -1 0
300552 -    save stufqc1
300553 -
300554 -        This code is unchanged, but provided for process context;
300555 -        write the SDS record to the disk, stufq8, delete everything
300556 -        except the current Control Field; write it to the disk in
300557 -        stufqc1; then read stufq8 back and restore the SDS record;
300558 -        then go setup the transfer file.
300559 -
300560 -    -goto strt3.............................. ref SDS 0 PH40
300561 -
300562 -        Go process replication.
300563 -
300565 -  ..
300566 - Line 510, ref OF 2 FW5O, -label strt3 in 035012
300567 -
300568 -    -label strt3
300569 -
300570 -        Nothing changed in initial transfer file setup.
300571 -
300573 -  ..
300574 - Line 790, ref OF 2 L17N, -label ndlro in 035012
300575 -
300576 -     getgbl 110 110
300577 -     -if @110 > 7330 -goto 7333b.................. ref SDS 0 JL4F
300578 -
300579 -        Processing has switched from batch file back into the SDS
300580 -        record to get criteria that will be processed in the Subject
300581 -        Index.  Added call for two new types of general replication to
300582 -        skip ahead, per above. ref SDS 0 G29M
300583 -
300584 -
300585 -
300586 -
3006 -

SUBJECTS
Transfer File Opened to Enter Subject Accounts Captured from Control

3103 -
310401 -     ..
310402 -    Transfer File Opened Enter Subject Account for General Replication
310403 -
310404 -
310405 - Line 890, ref OF 2 J19J, -label 7333b in 035012
310406 -
310407 -    -label 7333b
310408 -    macro 231
310409 -    macro 301
310410 -    macro 1189
310411 -    getgbl 1 93
310412 -    setgbl 93 0
310413 -    getgbl 110 110
310414 -    -if @110 > 7330 -goto 7333d..................... ref SDS 0 U54M
310415 -
310416 -        macro 231 opens transfer file using name constructed above.
310417 -        ref SDS 0 JK5M  macro 301 empties file, if it by chance
310418 -        already exists; macro 1189 enters the control field subject
310419 -        account which will be processed in the Subject Index;
310420 -        processing type is passed to counter 1 from global 93;
310421 -        replication type is called from counter 110, and if any of the
310422 -        three types of replication for Subject Index,
310423 -        have been called...
310424 -
310425 -            1.  Capture descriptions in Subject Index that correspond
310426 -                to accounts in the Control Field, and use them to
310427 -                replace the descriptions below the Control Field.
310429 -                 ..
310430 -            2.  Controlled general replication added today. ref SDS 0
310431 -                NT7N
310433 -                 ..
310434 -            3.  Forced general replication. ref SDS 0 U55O
310435 -
310436 -        ...by the user, then processing jumps ahead.
310437 -
310438 -
310440 -  ..
310441 - Line 1060, ref OF 2 K46M, -label 7333d in 035012 about 50 lines below
310442 -
310443 -    -label 7333d
310444 -    ecur 45
310445 -    -if @93 != 996 -goto bHstar
310446 -    setcnt 93 0
310447 -    setgbl 247 0
310448 -    setcnt 243 0
310449 -    -if @110 > 7330 -goto 007003..................... ref SDS 0 MO9K
310450 -
310451 -        ecur 45 switches control from transfer file to SDS record and
310452 -        -if @93 != 996 -goto bHstar allows only replication and lookup
310453 -        ops to proceed; -if @110 > 7330 -goto 007003 allows processing
310454 -        of subject index account replication to jump ahead.
310455 -
310457 -  ..
310458 - Line 1320, ref OF 2 O36H, -label 007003 in 035012
310459 -
310460 -    -label 007003
310461 -    ecur 15
310462 -    immed a
310463 -    loc_cur 4 1
310464 -    getgbl 1 243
310465 -    ic 37
310466 -    -if @1 = 102 ic 55
310467 -    -if @1 = 0 ic 56
310468 -
310469 -        ecur 15 returns to transfer file; immed a adds a line for
310470 -        entering content to process in Subject Index; ic 37 starts with
310471 -        % char to identify when everything in the list has been
310472 -        processed.  For functions, enter a 7, and for subjects enter an
310473 -        8.
310474 -
310475 -
310476 -
310477 -
3105 -

SUBJECTS
Control Field Subjects Loaded into Transfer File for Use in Subject

3203 -
320401 -     ..
320402 -    Control Field Read into Transfer File for Use in Subject Index
320403 -
320404 -
320405 - Line 1370, ref OF 2 L86N, -label 007003 in 035012 about 40 lines below
320406 -
320407 -    getgbl 1 110
320408 -    -if @1 < 7331 -goto ncfsdc
320409 -    errorcnt 0 0
320410 -    up
320411 -    g stufqc1
320412 -    loc_cur 4 53
320413 -    setcnt 0 0
320414 -
320415 -        getgbl 1 110 and -if @1 < 7331 -goto ncfsdc jumps ahead that is
320416 -        not reading in content for processing in the Subject Index. up
320417 -        and g stufqc1 reads into the transfer file control field
320418 -        content; loc_cur 4 53 positions cursor to split off only the
320419 -        subject portion for transfer into the Subject Index.
320420 -
320421 -
320422 -
320423 -
3205 -

SUBJECTS
Replication Type Enter Flag into Transfer File Type 1 Capture Descri

3303 -
330401 -     ..
330402 -    Types of Replication Identify in Transfer File
330403 -    Replication Type Enter Flag into Transfer File
330404 -    Format Transfer File to Process Only Subjects from Control Field
330405 -
330406 -
330407 - Line 1380, ref OF 2 JH6N, -label lpccfs in 035012 about 40 lines below
330408 -
330409 -    -label lpccfs
330410 -    immed d
330411 -    loc_cur 3 3
330412 -    join
330413 -    -if @110 = 7333 ic 49
330414 -    -if @110 = 7332 ic 50
330415 -    -if @110 = 7331 ic 51
330416 -    ....
330417 -    -goto eofn3.................................. ref SDS 0 RK6J
330418 -
330419 -        110 = 733* replication types are initially defined in 035012,
330420 -        per above, ref SDS 0 G29M, based on where Enter is called.
330421 -        ref SDS 0 U44J
330423 -         ..
330424 -        This is a loop that processes all Control Field lines so that
330425 -        only the subject part is transferred; added -if @110 = 7333 ic
330426 -        49 makes "1" for existing feature to get the actual account
330427 -        description from the Subject Index and enter below the Control
330428 -        Field; -if @110 = 7332 ic 50 is for controlled general
330429 -        replication, per above. ref SDS 0 NT7N and -if @110 = 7331 ic
330430 -        51 is for forced general replication. ref SDS 0 U55O
330431 -
330432 -
330434 -  ..
330435 - Line 1490, ref OF 2 SU4H, -label eofn3 in 035012 about 40 lines below
330436 -
330437 -    -label eofn3
330438 -    savx
330439 -    ecur 45
330440 -    -label bHstar
330441 -    macro 229
330442 -    -if @110 < 7331 -if @47 != 13 save
330443 -
330444 -        Write transfer file to the disk and switch back to SDS record;
330445 -        macro 229 closes transfer file -if @110 < 7331 -if @47 != 13
330446 -        save  writes the SDS record to disk for operations where user
330447 -        will interact with the Subject Index, and can open and edit SDS
330448 -        records, reported on 030902. ref SDS 7 B44K  This is not needed
330449 -        for replication ops, -if @110 < 7331, because the enire process
330450 -        is transparent to the user.
330451 -
330452 -
330453 -
330454 -
3305 -

SUBJECTS
Subject Index 03501 Process Begin Dose Command Launch 03501 by 03501
Replication Type Complete Processing in 035012 after 03501 Processin

3504 -
350501 -     ..
350502 -    Replication Execute Immediately Use Subject Field of Control Field
350503 -    Dose Command Launch 03501 by 035012 Start Command Memory Segment
350504 -
350505 -
350506 - Line 1520, ref OF 2 4F5M, -label anfisR in 035012
350507 -
350508 -    -label anfisR
350509 -    dose /c c:\sd\01\03501.bat
350510 -    -if @110 > 7330 -goto 7333j...................... ref SDS 0 RF4L
350511 -
350512 -        Return from secondary memory processing in Subject Index, -if
350513 -        @110 > 7330 this is conforming subject descriptions below the
350514 -        control field, or is general replication; both can jump ahead.
350516 -         ..
350517 -        Orignially, planned to open transfer file and read the op type
350518 -        flag returning from SI, but changed code to eliminate reading
350519 -        this field, and simply load messages into the subject
350520 -        description field below the Control Field.
350521 -
350522 -
350523 -
350524 -
350525 -
3506 -

SUBJECTS
Master File Descriptions Subject Account Error No Master File Set Er

3703 -
370401 -     ..
370402 -    Control Field Enter Messages Below in Subject Description Field
370403 -    Error Messages Genral Replication Enter Below Control Field
370404 -
370405 -
370406 - Line 1750, ref OF 2 LT7J, -label 7333j in 035012
370407 -
370408 -    -label 7333j................................... ref SDS 0 YI3G
370409 -    immed /
370410 -    z 3 3
370411 -    nb
370412 -    down
370413 -    loc_cur 4 8
370414 -    -label lpgstq
370415 -    setlen 1 0
370416 -    -if @1 < 10 -goto gstfq
370417 -    immed d
370418 -    -goto lpgstq
370419 -    -label gstfq
370420 -    immed r
370421 -    ins_text "=================================================="
370422 -
370423 -        Code greatly simplified by constructing error messages in
370424 -        Subject Index, and then reading them into the SDS record below
370425 -        the Control Field; the code here finds the bottom of the
370426 -        Control Field, and does a loop to delete content, then enters
370427 -        the underline to prepare for reading in the content.
370428 -
370429 -
370431 -     ..
370432 -    Error Message No Master, Descriptions Don't Match
370433 -    Replacement Descriptions Don't Match Existing Error Message
370434 -    Account Description Entered in Subject Field Below Control Field
370435 -    Master Set Subject Descriptions Not Created with F3 Error Message
370436 -
370437 -
370438 - Line 1780, ref OF 2 LL9F, -label 7332j in 035012 about 50 lines below
370439 -
370440 -    g stufqei 2
370441 -    z 1 50
370442 -    errorcnt 0 0
370443 -    fr /** Master set/
370444 -    -if @0 = 0 setcnt 110 7320
370445 -    loc_cur 0 1
370446 -    fr /** Descriptions don't match/
370447 -    -if @0 = 1 -if @110 != 7320 setcnt 118 7332
370448 -    -goto bMeNd
370449 -
370450 -        Read in content constructed in Subject Index; this could be
370451 -        subject description replacements; look for error messages and
370452 -        set flags if any.
370453 -
370454 -
370456 -  ..
370457 - Line 1960, ref OF 2 646O, -label 47e13a in 035012 about 40 lines below
370458 -
370459 -    ecur 45
370460 -    beep
370461 -    -if @110 > 7330 -if @110 < 7333 setcnt 110 7320
370462 -    -if @110 != 7320 setcnt 110 4
370463 -    -goto bMeNd..................................... ref SDS 0 G38M
370464 -
370465 -        Error message when account not found.
370466 -
370467 -
370468 -
370469 -
370470 -
3705 -

SUBJECTS
Messages Return Control to User Replication Complete

3803 -
380401 -     ..
380402 -    Messages Return Control to User Replication Complete
380403 -
380404 -
380405 - Line 3120, ref OF 2 B55H, -label bMeNd in 035012
380406 -
380407 -    -label bMeNd
380408 -    macro 229
380409 -    -gosub rset2
380410 -    -if @110 = 7331 errormsg  Subject descriptions conformed to master in SI
380411 -    -if @110 = 7332 errormsg  Subject descriptions conformed to master in SI
380412 -    -if @110 = 7320 errormsg  Subject descriptions create master set with F3
380413 -    -if @118 = 7332 errormsg  Subject Index Accounts Don't Match Master List
380414 -    setcnt 110 0
380415 -    setcnt 118 0
380416 -
380417 -        Added new error messages for general replication, including
380418 -        when master file was not created, and reset flags for
380419 -        replication.
380420 -
380421 -
380422 -
380423 -
3805 -

SUBJECTS
03501 Begin Process Set Flags for General Replication

3903 -
390401 -  ..
390402 - 03501 Begin Process Set Flags for General Replication
390403 -
390404 -
390405 - Line 180, ref OF 1 UV4G, -label bHstar in 03501 about 80 lines below
390406 -
390407 -    loc_cur 4 3
390408 -    chrcnt 110 0
390409 -    -if @110 < 32 setcnt 110 0
390410 -    -if @110 > 254 setcnt 110 0
390411 -    -if @110 = 49 setcnt 110 7333
390412 -    -if @110 = 50 setcnt 110 7332
390413 -    -if @110 = 51 setcnt 110 7331
390414 -    setgbl 110 @110
390415 -    -if @110 > 7330 -goto 7333a
390417 -         ..
390418 -        Counter 110 flag controls op, posted by 035012, per above.
390419 -        ref SDS 0 G29M
390420 -
390421 -
390423 -  ..
390424 - Line 990, ref OF 1 RN4I, -label fpaclar in 03501
390425 -
390426 -    Testing debug here where the code searches for the target account,
390427 -    to figure out how to return an error message.
390428 -
390429 -    No changes.
390430 -
390431 -
390432 -
390433 -
3905 -

SUBJECTS
Subject Index Target Account Found Ready for General Replication in

4003 -
400401 -     ..
400402 -    Target Account Found Ready for General Replication
400403 -
400404 -
400405 - Line 1140, ref OF 1 3Z6K, -label acfnD in 03501
400406 -
400407 -    -label acfnD
400408 -    getgbl 110 110
400409 -    -if @110 < 7332 -goto ncluop
400410 -    z 10 90
400411 -    fr /.. /
400412 -    -if @110 = 7333 -goto casdcf................... ref SDS 0 AJ4G
400413 -
400414 -        Modified this code to branch the operation; at this point we
400415 -        can conform the accounts in the transfer file.
400416 -
400417 -
400418 -
400419 -
400420 -
4005 -

SUBJECTS
030571 Called by 03501 General Replication Performed by 035071 Calle

4103 -
410401 -     ..
410402 -    Master Set Descriptions Not Found Error Message
410403 -    Error Message Master Set Descriptions Not Found
410404 -    035071 Called by 03501 for New General Replication Process
410405 -    Replication Called to Replace Account Descriptions with Master File
410406 -
410408 -  ..
410409 - Line 1160, ref OF 1 DR7H, -label acfnD
410410 -
410411 -    @c:\sd\03\035071 #4......................... ref SDS 0 EP3G
410412 -    -if @109 != 6666 -goto ssad5..................... ref SDS 0 WR4M
410413 -    ecur 15
410414 -    top
410415 -    loc_cur 5 1
410416 -    immed 999d
410417 -    loc_cur 4 1
410418 -    ins_text "0401 - *** Master set of subject descriptions not found ***    "
410419 -    -goto ovRx6................................. ref SDS 0 ZQ6L
410420 -
410421 -        Added new call to 035071 for general replication that replaces
410422 -        all of the description lines for each account in the Control
410423 -        Field with descriptions in a master file initially captured by
410424 -        F3.  In other words, the user must have created a master set of
410425 -        descriptions with F3 while in the Subject Index.  If user fails
410426 -        to create a master set of descripions, the code in 035071 sets
410427 -        counter 109 6666, so if after 035071 executes, if 109 != 6666,
410428 -        it means that error did not occur, and if it does then this
410429 -        code enters into the transfer file an error message explaining
410430 -        the problem, which will be entered into the SDS record below
410431 -        the Control Field.  -goto ovRx6 saves the transfer file to a
410432 -        special name for loading messages with the get command below
410433 -        the Control Field, per above. ref SDS 0 BT5H
410434 -
410435 -
410436 -
410437 -
410438 -
4105 -

SUBJECTS
Save Replicated Account Descriptions in Subject Index

4203 -
420401 -     ..
420402 -    Save Replicated Account Descriptions in Subject Index Manage Errors
420403 -
420404 -
420405 - Line 1210, ref OF 1 BY5G, -label ssad5 in 03501
420406 -
420407 -    -label ssad5
420408 -    -if @112 = 7332 -if @110 = 7332 -goto lcisp...... ref SDS 0 EO7O
420409 -    setcnt 237 883
420410 -    -gosub bH_sVx
420411 -    -if @112 = 7332 -if @110 = 7331 -goto lcisp...... ref SDS 0 EO7O
420412 -    ecur 15
420413 -    -goto 7332b.................................... ref SDS 0 2P8O
420414 -
420415 -        After 035071 swaps the content of the master set of account
420416 -        descriptions for the descriptions in the Subject Index, 035071
420417 -        calls this code in 03501 as a subroutine to save the index;
420418 -        ecur 15 switches from sndx to the transfer file and process the
420419 -        next account in the list.
420421 -         ..
420422 -        Two situations occur that distinguish controlled from forced
420423 -        general replication...
420424 -
420425 -            1.  If an error occurred for controlled replication, then
420426 -                the index is not saved, and processing is branched to
420427 -                report an error message, then process the next account
420428 -                in the list.
420430 -                 ..
420431 -            2.  If an error occurred for forced replication, then the
420432 -                index is saved, and processing branches to report an
420433 -                error message, then process the next account in the
420434 -                list.
420435 -
420436 -
420437 -
420438 -
4205 -

SUBJECTS
Account Not Found Error Message General Replication Failure End Ops

4303 -
430401 -     ..
430402 -    Account Not Found Error Message General Replication
430403 -
430404 -
430405 - Line 1370, ref OF 1 JQ7N, -label nffp in 03501 about 50 lines below
430406 -
430407 -    -if @0 = 0 -goto msiop
430408 -    setgbl 113 1115
430409 -    -if @109 = 0 -goto notacrm................... ref SDS 0 ZA5K
430410 -
430411 -        This should not happen, but odd things can happen, so this code
430412 -        handles a situation where a subject account in a Control Field
430413 -        is not found in the Subject Index, per planning for situational
430414 -        awareness. ref SDS 0 G17F  After the code determines an account
430415 -        is not in the subject index, added new flag 113 1115 to enter a
430416 -        message for replication.
430417 -
430418 -
430419 -
430420 -
430421 -
4305 -

SUBJECTS
Mismatch Master File and Subject Index Top Description Error Build L

4403 -
440401 -     ..
440402 -    Error Flags General Replication
440403 -    Mismatch Master File and Subject Index Top Description
440404 -    Error Build List in Transfer File to Identify Differences
440405 -
440406 -    Follow up ref SDS 8 U35N.
440408 -  ..
440409 - Line 1430, ref OF 1 ZE3J, -label notacrm in 03501
440410 -
440411 -    -label notacrm............................ ref SDS 0 JN5J
440412 -    getgbl 110 110
440413 -    -if @110 < 7331 -goto remanf
440414 -
440415 -        If not general replication, can end operation.
440416 -
440417 -
440419 -  ..
440420 - Line 1440, ref OF 1 7H6H, -label lcisp 03501
440421 -
440422 -    -label lcisp
440423 -    ecur 15
440424 -    getgbl 112 112
440425 -    setcnt 111 7334
440426 -    -goto 7333m................................ ref SDS 0 YT7G
440427 -
440428 -        Errors occurred performing general replication; added getgbl
440429 -        112 112 to assess when general replication is running, set in
440430 -        035071. ref SDS 0 EP6I
440432 -         ..
440433 -        After error messages are constructed, the code allows
440434 -        replicatoin to continue, so that all errors are accumulated at
440435 -        once and reported to the user below the Control Field.
440436 -
440437 -
440438 -
440439 -
4405 -

SUBJECTS
Description Capture Top Line Read in from Master Set of Replacement

4503 -
450401 -     ..
450402 -    Description Capture to Transfer for Entering to Control Field
450403 -
450404 -
450405 - Line 4980, ref OF 1 UR6I, -label casdcf in 03501
450406 -
450407 -    -label 03571s2........................... ref SDS 0 EP6I
450408 -    loc_cur 0 69
450409 -    ins_text/    /
450410 -    loc_cur 0 1
450411 -    setcnt 87 0
450412 -    macro 1188
450413 -    -if @123 != 5100 -if @110 != 7333 -goto lsdnml
450414 -    ecur 15
450415 -
450416 -        Capture account descriptions in the Subject Index for transfer
450417 -        into an SDS record for subject descriptions below the Control
450418 -        Field.  For general replication, it is called as a new
450419 -        subroutine by 035071. ref SDS 0 EP6I
450420 -
450421 -
450422 -
450423 -
4505 -

SUBJECTS
Line Numbers Control Field Capture in Transfer File to Reset after E

4603 -
460401 -     ..
460402 -    Control Field Line Numbers Capture to Reset After Replication
460403 -    Transfer File Capture Control Field Line Numbers for Replication
460404 -
460405 -
460406 - Line 5030, ref OF 1 3S4I, -label 7333m in 03501
460407 -
460408 -    -label 7333m.............................. ref SDS 0 KK6L
460409 -    errorcnt 0 0
460410 -    loc_cur 4 79
460411 -    chrcnt 61 0
460412 -    rel_cur 0 1
460413 -    chrcnt 62 0
460414 -    -if @112 != 7332 -if @111 != 7333 -goto elncfs...... ref SDS 0 616F
460415 -
460416 -        Capture subject account description and enter into transfer
460417 -        file for posting below Control Field.  This can be used to
460418 -        enter the first description for replacing account descriptions
460419 -        in the Subject Index, per below. ref SDS 0 1L8H
460420 -
460421 -
460422 -
460423 -
4605 -

SUBJECTS
Line Number Format 0401 Control Field Transfer File Construct - for

4703 -
470401 -     ..
470402 -    Transfer File Construct Control Field Line Number Format
470403 -
470404 -
470405 - Line 5060, ref OF 1 KM7L, -label elncfs in 03501
470406 -
470407 -    -label elncfs
470408 -    loc_cur 0 1
470409 -    ins_text !0401 -  !
470410 -    -if @111 != 7334 -goto ensdfi................. ref SDS 0 QJ3K
470411 -    join
470412 -    -goto safiti............................... ref SDS 0 7W6L
470413 -
470414 -        For constructing messages in the transfer file that are read
470415 -        back into the SDS record below below the Control Field; enter
470416 -        the line number field structure; and if no errors, -if @111 !=
470417 -        7334 (set in 035071), then go to enter the account description
470418 -
470419 -
470420 -
470421 -
470422 -
4705 -

SUBJECTS
Enter Replicated Account Description in Transfer File for Subject Fi

4803 -
480401 -     ..
480402 -    Enter Account Description for Subject Field Below Control Field
480403 -
480404 -
480405 - Line 5080, ref OF 1 2F9I, -label ensdfi in 03501
480406 -
480407 -    -label ensdfi
480408 -    loc_cur 0 8
480409 -    macro 1189
480410 -    setcnt 1 1114
480411 -    -goto nemdr................................. ref SDS 0 ZQ5G
480412 -
480413 -        This code enters account descriptions into Transfer File for
480414 -        entry into the Subject field below the Control field; added
480415 -        flag setcnt 1 1114 to tell the code not to delete this line,
480416 -        but to scroll the file up processing all the accounts in the
480417 -        Transfer File list.
480418 -
480419 -
480420 -
480421 -
4805 -

SUBJECTS
Error Message Account Not Found or Descriptions Don't Match Enter in

4903 -
490401 -     ..
490402 -    Error Message Account Not Found; Descriptions Don't Match
490403 -    Error Message Descriptions Don't-Match; Account Not Found
490404 -
490405 -
490406 - Line 5120, ref OF 1 875J, -label safiti in 03501
490407 -
490408 -    -label safiti................................ ref SDS 0 616F
490409 -    -if @112 = 7332 -goto grEM8
490410 -    loc_cur 0 53
490411 -    ins_text "**Not Found**"
490412 -    -goto nemdr
490413 -    -label grEM8
490414 -    loc_cur 0 27
490415 -    ins_text "** Account descriptions don't match **
490417 -     ..
490418 -    -label nemdr
490419 -    loc_cur 0 79
490420 -    ic @61
490421 -    ic @62
490422 -    setgbl 110 7333
490423 -    -if @112 = 7332 setgbl 110 7332
490424 -
490425 -        Added code to identify when the top line in a Subject Index
490426 -        account description does not match the top line in a master
490427 -        description replacement file.
490428 -
490429 -
490430 -
490431 -
4905 -

SUBJECTS
Next Account Transfer File Process and End Op After All Accounts Pro

5003 -
500401 -     ..
500402 -    Transfer File Process Next Account and End Process
500403 -
500404 -
500405 - Line 5160, ref OF 1 CK5G, -label 7332b in 03501
500406 -
500407 -    -label 7332b.............................. ref SDS 0 WY7M
500408 -    loc_cur 4 1
500409 -    setcnt 111 0
500410 -    -if @1 = 1114 up
500411 -    -if @1 != 1114 immed d
500412 -    setcnt 1 0
500413 -    setcnt 0 0
500414 -    loc_cur 4 1
500415 -    chrcnt 1 0
500416 -    purge sndx
500417 -    -if @1 = 37 -goto lpesdcf
500418 -    -if @110 < 7333 -goto ovRx6...................... ref SDS 0 ZQ6L
500419 -
500420 -        Reset error management flag; -if @1 = 1114 up scrolls the list
500421 -        of accounts to process in the Transfer File up to save the line
500422 -        for entry in the SDS record, if a message was entered on the
500423 -        line, and of if not, the code deletes the line to make the next
500424 -        line current, based on counter 1 1114, set above. ref SDS 0
500425 -        QJ3K loc_cur 4 1 tests the next line to see if there is another
500426 -        account to replicate, and if the character is not "%", then
500427 -        list has been completed; for general replication -goto ovRx6 to
500428 -        save the transfer file to a specific filename for use in
500429 -        035012.
500430 -
500431 -
500432 -
500433 -
5005 -

SUBJECTS
Save Stufqei Filename Transfer File to Load Content Error Messages o

5103 -
510401 -     ..
510402 -    Transfer Special Filename to Load Content Below Control Field
510403 -
510405 -  ..
510406 - Line 5240, ref OF 1 N65L, -label ovRx6 in 03501
510407 -
510408 -    -label ovRx6
510409 -    save stufqei
510410 -    -goto stufqei.............................
510411 -
510412 -        Write transfer file to disk with different name so it can be
510413 -        used to read back the replacement accounts and error messages
510414 -        constructed by general replication; then go to code that ends
510415 -        op in Subject Index.
510416 -
510417 -
510418 -
510419 -
510420 -
510421 -
5105 -

SUBJECTS
Replication Subroutine in 035071 Replace Account Descriptions with M

5203 -
520401 -  ..
520402 - 035071  Replace Account Descriptions with Master File Subroutine
520403 -
520405 -  ..
520406 - Line 30, ref OF 3 S64O, in 035071
520407 -
520408 -    -goto rplct.................................. ref SDS 0 W58O
520409 -
520410 -        New subroutine call for general replication from 03501.
520411 -        ref SDS 0 WY7M
520412 -
520413 -
520415 -  ..
520416 - Line 560, ref OF 3 EE6N, -label rplct in 035071
520417 -
520418 -    -label rplct
520419 -    setcnt 253 6648
520420 -    -if @110 > 7332 -gosub rasd
520421 -    -if @110 > 7330 -if @110 < 7333 -gosub qrds........ ref SDS 0 2Q7G
520422 -    setcnt 253 0
520423 -    -if @109 = 6666 -goto en4d....................... ref SDS 0 9G8J
520424 -    setlen 1 0
520425 -    -if @1 = 0 -goto bline
520426 -    -label lpdeL
520427 -    immed d
520428 -    chrcnt 1 0
520429 -    -if @1 > 32 -goto lpdeL
520430 -    -label bline
520431 -    -if @110 > 7330 -if @110 < 7333 -goto en4d.......... ref SDS 0 9G8J
520432 -
520433 -        New subroutine call added -if @110 > 7330 -if @110 < 7333
520434 -        -gosub qrds for general replication.  After returning from the
520435 -        subroutine, the code does clean up at the bottom of the list of
520436 -        subjects for an account, then for general replication, the code
520437 -        -if @110 > 7330 -if @110 < 7333 -goto en4d exits this op, and
520438 -        returns to 03501 subroutine to process next account in the
520439 -        list from the SDS record.
520441 -         ..
520442 -        return from subroutine initially occurs if the master file is
520443 -        empty -if @109 = 6666 -goto en4d sets flag to end op and
520444 -        return to SDS record with error message to user.
520446 -         ..
520447 -        return also occurs for general replication when the top
520448 -        existing account description does not match the top replacement
520449 -        description, ref SDS 0 RT3K, in that case return to subroutine
520450 -        in 03501 and process the next subject account in the list from
520451 -        the Control Field in the SDS record.
520452 -
520453 -
520454 -
520455 -
520456 -
5205 -

SUBJECTS
Descriptions Remove for Existing Subject Account Account Leave Prima

5303 -
530401 -     ..
530402 -    Remove Subject Descriptions Leave Primary for General Replication
530403 -    Subject Account Description in Control Field Replace Only 1st
530404 -    General Replication Notice to User Replace 1st Subject Description
530405 -
530406 -
530407 - Line 230, ref OF 3 P33I, -label qrds in 035071
530408 -
530409 -    -label qrds
530410 -    split
530411 -    -if @110 > 7330 -if @110 < 7333 up
530412 -    rel_cur 1 0
530413 -    -label lpc4
530414 -    setlen 1 0
530415 -    -if @1 = 0 -goto lc30......................... ref SDS 0 635L
530416 -    immed d
530417 -    -goto lpc4
530418 -
530419 -        This code does a loop to remove all of the existing lines of
530420 -        description for a subject account to prepare for replacement
530421 -        with a new new in the master file captured with F3.  Added code
530422 -        -if @110 > 7330 -if @110 < 7333 up for new general replication
530423 -        options (controlled and forced) feature to leave the first line
530424 -        of description in the existing account descriptions to compare
530425 -        with the first line of the new list from the master file, so
530426 -        that an error message can be returned to the user to
530427 -        investigate.
530428 -
530430 -  ..
530431 - Line 260, ref OF 3 Q65G, -label lc30 in 035071
530432 -
530433 -    -label lc30
530434 -    loc_cur 3 0
530435 -    -if @110 > 7330 -if @110 < 7333 -goto get.......... ref SDS 0 G46K
530436 -
530437 -        Move the cursor back to the top of the screen and -goto to code
530438 -        for get command to read in replacement subject descriptions for
530439 -        general replication.
530440 -
530441 -
530442 -
530443 -
5305 -

SUBJECTS
Descriptions Get Replacement in Master File Captured with F3

5403 -
540401 -     ..
540402 -    Get Replacement Descriptions in Master File Captured with F3
540403 -
540404 -
540405 - Line 310, ref OF 3 WP5N, -label get in 035071
540406 -
540407 -    -label get
540408 -    g stufq9
540409 -    pushc
540410 -    loc_cur 5 1
540411 -    chrcnt 2 0
540412 -    popc
540413 -    -if @2 = 205 -goto risd............................. ref SDS 0 EP6I
540414 -    -if @110 > 7330 -if @110 < 7333 -goto grsaicf....... ref SDS 0 T99K
540415 -    -goto stndem
540416 -
540417 -        Get command reads in subject account descrptions previously
540418 -        captured by the user with F3; the code then reads line 5 to
540419 -        test for the header underline, and if this confirms subjects
540420 -        were read in, and processing can continue; if not, this means
540421 -        the user forgot to use F3 to create a master list of subject
540422 -        descriptions for replacement.  General Replication cycles back
540423 -        to transfer file and ends process; returns an error message to
540424 -        user in the Subject description field, below the Control Field.
540425 -
540426 -
540428 -     ..
540429 -    Master Set Replacement Descriptions Not Found Set Flag for Error
540430 -
540431 -
540432 - Line 320, ref OF 3 EA3L, -label grsaicf in 035071
540433 -
540434 -    -label grsaicf
540435 -    setcnt 109 6666
540436 -    -return.................................... ref SDS 0 W58O
540437 -
540438 -        Master set of descriptions does not exist for general
540439 -        replication; set flag and return to end subroutine, and break
540440 -        out of op, reporting problem to user, per planning for
540441 -        situational awareness. ref SDS 0 G17F
540442 -
540443 -
540444 -
540445 -
540446 -
5405 -

SUBJECTS
Subject Description Load Transfer File Once for Control Field

5503 -
550401 -     ..
550402 -    Subject Description Load Transfer File Once for Control Field
550403 -    Master Set Replacement Descriptions Load Primary Description Once
550404 -
550405 -
550406 - Line 390, ref OF 3 YG9O, -label risd in 035071
550407 -
550408 -    -label risd........................................ ref SDS 0 2Q5K
550409 -    rel_cur 1 0
550410 -    immed 2d
550411 -    -if @110 = 7336 -goto f1f3n
550412 -    getgbl 108 108
550413 -    -if @108 = 4955 -goto o1c0351............... ref SDS 0 RT3K
550414 -    setgbl 123 5100
550415 -    setcnt 123 5100
550416 -    immed r
550417 -    @c:\sd\03\03501 #22
550418 -    e sndx
550419 -    setcnt 123 0
550420 -    setgbl 123 0
550421 -    setgbl 108 4955
550422 -    immed d
550423 -
550424 -        -if @110 = 7336 -goto f1f3n this is standard F1 F1 F3 replace
550425 -        op in SI, so jump ahead. setcnt 108 4955 provides a switch for
550426 -        the code to capture and enter a common description one time
550427 -        from the master set of subject descriptions captured by F3 and
550428 -        read into the subject index with the get command, per above,
550429 -        ref SDS 0 G46K   Call subroutine 03501 #22 to load this into
550430 -        the transfer file for entry into the SDS record; and then
550431 -        position all of the captured description lines on each line for
550432 -        the account in the subject index.
550433 -
550434 -
550435 -
550436 -
5505 -

SUBJECTS
Error Replacement Description Doesn't Match Existing

5603 -
560401 -     ..
560402 -    Error Descriptions Don't Match Avoid Controlled Replication
560403 -    Descriptions Don't Match Error Controlled Replacement Stopped
560404 -    Verify Top Lines of Description in Master File Match Existing
560405 -
560406 -
560407 - Line 440, ref OF 3 ON4N, -label o1c0351 in 035071
560408 -
560409 -    -label o1c0351
560410 -    z 1 100
560411 -    zonereps
560412 -    rel_cur -1 0
560413 -    repscnt 1 0
560414 -    -if @1 = 0 -goto grok3........................... ref SDS 0 JJ8O
560415 -    -if @110 = 7331 -if @1 != 0 -gosub grok3......... ref SDS 0 JJ8O
560416 -    setcnt 111 7334
560417 -    setcnt 112 7332
560418 -    setgbl 112 7332
560419 -    -return.................................... ref SDS 0 W58O
560420 -
560421 -        Compare primary existing description with new replacement
560422 -        description, and if they match then proceed with replication,
560423 -        and if not, then for controlled replication, report an error
560424 -        and do not replace the descriptions; for forced replication,
560425 -        report an error and proceed with replacement.  For error, set
560426 -        flags that accounts don't match, and -return ends subroutine
560427 -        for controlled replication; forced replication proceeds, but
560428 -        returns an error message to the user, per planning. ref SDS 0
560429 -        G17F
560430 -
560431 -
560432 -
560433 -
5605 -

SUBJECTS
Replace Existing Descriptions with Descriptions in Master Set F3

5703 -
570401 -     ..
570402 -    Replace Existing Descriptions with Descriptions in Master Set F3
570403 -
570404 -
570405 - Line 480, ref OF 3 NO9F, -label grok3 in 035071
570406 -
570407 -    -label grok3
570408 -    immed d
570409 -    down
570410 -    -label lp5
570411 -    immed r
570412 -    rel_cur 2 0
570413 -    setlen 1 0
570414 -    -if @1 = 0 -goto en3d
570415 -    immed m
570416 -    rel_cur -2 0
570417 -    immed t
570418 -    join
570419 -    up
570420 -    -goto lp5
570421 -
570422 -        Initially, the code removes the existing account description
570423 -        used for making comparison; then do a loop that appends all
570424 -        the new descriptions to the account codes.
570425 -
570426 -
570427 -
570428 -
5705 -

SUBJECTS
End General Replication for Current Account Cycle Back for Next One

5803 -
580401 -     ..
580402 -    End General Replication for Current Account Cycle Back for Next One
580403 -
580404 -
580405 - Line 670, ref OF 3 UV7M, -label en3d in 035071
580406 -
580407 -    -label en3d
580408 -    rel_cur -2 0
580409 -    immed 3 d
580410 -    down
580411 -    loc_cur 0 1
580412 -    z 1 90
580413 -    fr /./
580414 -    rel_cur 0 -1
580415 -    setcur 1 0
580416 -    z 1 @1
580417 -    zonereps
580418 -    immed 4a
580419 -    rel_cur 2 0
580420 -    errorcnt 0 0
580421 -    -label lpend
580422 -    chrcnt 1 0
580423 -    linecnt 32 0
580424 -    -if @1 = 32 -goto dl3
580425 -    repscnt 1 0
580426 -    rel_cur -1 0
580427 -    -if @253 = 6648 -goto 4rtn
580428 -    -if @0 = 0 -if @1 = 0 -if @119 > 32 immed d
580429 -    -goto en2d
580430 -    -label 4rtn
580431 -    -return
580432 -
580433 -        This is mostly existing ending code for replication that
580434 -        configures the bottom of the list of descriptions in relation
580435 -        to the next account in the Index, or the end of the file; -if
580436 -        @253 = 6648 -goto 4rtn is the flag from the subroutine set in
580437 -        the beginning, ref SDS 0 W58O, so in that case cycle back to
580438 -        end this replacement and process the next account in the
580439 -        transfer file.
580440 -
580441 -
580442 -
580444 -  ..
580445 - Line 690, ref OF 3 8G4J, -label en4d
580446 -
580447 -    -label en4d
580448 -    purge c:\sd\03\035071
580449 -
580450 -        Process of replication over.
580451 -
580452 -
580453 -
580454 -
580455 -
5805 -