CONTACTS 

SUBJECTS
Save F2 Medit Java Macro 142 Combine Macro File 0702051 into Compile

0803 -
0803 -    ..
0804 - Summary/Objective
0805 -
080501 - Follow up ref SDS 9 0000. ref SDS 8 0000.
080502 -
080503 -
080504 -
080505 -
080506 -
080508 -  ..
0806 -
0807 -
0808 - Progress
0809 -
080901 - Background on setting up to combine macro files 070205... that save
080902 - SDS records and compile into SDS Java code listed on 110312 0955.
080903 - ref SDS 8 9Z5K
080905 -  ..
080906 - On 110312 changed internal dynamic processing code to external macro
080907 - files, because cannot perform dynamic processing in compiled software
080908 - code. ref SDS 8 OH5K
080909 -
080910 -
080912 -  ..
080913 - F2 Save Macro 142 Moved to File 00010 Combined Macro File 0702051
080914 - 00010 File Macro 142 Combined Macro File 0702051 F2 Save
080915 - Macro 142 F2 Save Moved to File 00010 Combined Macro File 0702051
080916 - 0702051 Macro File Combined Macro 142 F2 Save Moved to File 00010
080917 -
080918 - Follow up ref SDS 9 WU5H.
080919 -
080920 - Today, decided to change work on 110312 by eliminating macro 4030 and
080921 - moving code in macro 142 from macro file 000008 into 00010 combined
080922 - with code from macro file 0702051, so that all F2 save code is one
080923 - file.  Initially, considered changing the name of the code from 142 to
080924 - -entry 4030, but decided to keep the original name, since the function
080925 - and tasks are the same, even though the code is considerably
080926 - different, because new Medit Java has no memory limits.
080928 -  ..
080929 - Line 2950, ref OF 26 K56G, -entry 142 in c: sd 33 000008
080930 -
080931 -    -entry 142
080932 -
080933 -        Code for F2 save moved to macro file 00010, and -entry 142 is
080934 -        unplugged.
080935 -
080937 -  ..
080938 - Line 50, ref OF 28 LU5I, -entry 142 in c: sd 33 000010
080939 -
080940 -    -entry 142
080941 -    tl 0
080942 -    macro 22
080943 -    markcur 7
080944 -    setcnt 412 0
080945 -    setcnt 333 0
080946 -
080947 -        Morris programmed Medit Java to fail during macro processing
080948 -        for title lines, so have to turn them off, and then find all
080949 -        the places they have to be restored, when processing completes;
080950 -        this can mostly be done end using macro 144 in 000008, that
080951 -        sets up standard header for SDS records. ref OF 26 8W4N macro
080952 -        22 saves initial position to be restored at the end, also in
080953 -        macro 144 calling macro 23; markcur 7 identifies the file for
080954 -        easy return during processing; setcnt 412 0 processes the 15 or
080955 -        so possible error messages.
080956 -
080958 -  ..
080959 - Line 70, ref OF 28 ZR5F, -entry 142 in sd 33 000010 about 40 lines below
080960 -
080961 -    -if @273 = 4444 setcnt 273 0
080962 -
080963 -        This is a switch to run full save macro 142 op once for F1 F2
080964 -        to make sure pointers are captured for current SDS diary
080965 -        records - counter 273 4444 is set in macro 972 when records are
080966 -        opened from the Schedule shown in compiled macro file 000006.
080967 -        ref OF 24 L59G
080968 -
080970 -  ..
080971 - Other People SDS Records Cannot Change Save Can Only Examine
080972 -
080973 -
080974 - Line 90, ref OF 28 4240, -entry 142 in sd 33 000010 about 50 lines below
080975 -
080976 -    macro 922
080977 -    -if @149 != 1249 -goto 1491249.................... ref SDS 0 5H9F
080978 -    @c:\sd\33\0508 #30
080979 -    -exit
080980 -
080981 -        Message can only open and read another person's work, but
080982 -        cannot change and save other people's diary records.
080983 -
080985 -  ..
080986 - SAA Save But Pointers Not Updated
080987 -
080988 - Line 110, ref OF 28 LG6H, -entry 142 in sd 33 000010
080989 -
080990 -    -label 1491249
080991 -    of 0
080992 -    macro 0
080993 -    -if @249 != 1 -goto SAAo......................... ref SDS 0 236G
080994 -    save
080995 -    macro 23
080996 -    macro 144
080997 -    errormsg  Record saved
080998 -    -exit
080999 -
081000 -        of 0 shifts record to standard position for processing; macro
081001 -        0 updates line numbers so that processing will find line
081002 -        numbers in order;
081004 -         ..
081005 -        SAA update line numbers and save file.
081007 -         ..
081008 -        Don't want to archive pointers, because there are none, and
081009 -        the reference list should not be sorted because that moves
081010 -        list of repetitive dates out of common visibility, and it
081011 -        places the list in absolute chronology, rather than the
081012 -        order set by the user.
081013 -
081015 -  ..
081016 - Outline Structures Refresh
081017 -
081018 - Line 150, ref OF 28 RH7K, -label SAAo in sd 33 000010
081019 -
081020 -    -label SAAo
081021 -    macro 207
081022 -     attr 0
081023 -    top
081024 -    errorcnt 0 0
081025 -    setcnt 4 0
081026 -
081027 -        macro 207 updates outline structures;
081029 -         ..
081030 -        Morris needs to add attr command for confidentiality.
081032 -         ..
081033 -        top and errorcnt 0 0 and setcnt 4 0 set up for next process of
081034 -        verifying record format.
081035 -
081036 -
081038 -  ..
081039 - Format Verify Between References and Control Fields
081040 - Time Mileage Emply Bill Control Field Header Verify Format
081041 - Control Field Header Verify Format Time Mileage Emply Bill
081042 - Reference Field Line Numbers Replace to Correct Corrupted
081043 -
081044 -
081045 - Line 190, ref OF 28 UV4H, -label lprfcf in sd 33 000010
081046 -
081047 -    z 1 4
081048 -    l/0301/
081049 -    -label lprfcf
081050 -    loc_cur 3 1
081051 -    z 4 4
081052 -    l/-/
081053 -    -if @0 > 0 -goto sObJ.................... ref SDS 0 YD5K
081054 -    down
081055 -    macro 641
081056 -    immed 2r
081057 -    up 2
081058 -    ins_text !0306 -    Time Milg Emply T  Bill Function  Special Subject/File!
081059 -    macro 20
081060 -    down
081061 -    ins_text !0306 -   !
081062 -    down
081063 -    ins_text !030601 - !
081064 -    down
081065 -    setlen 1 0
081066 -    -if @1 < 10 immed d
081067 -    down
081068 -    setlen 1 0
081069 -    -if @1 < 10 immed d
081070 -    l /-/
081071 -    z 3 3
081072 -    nb
081073 -
081074 -        From top of record jump to top of Reference field and then to
081075 -        first Control Field; -label lprfcf is a loop to remove and
081076 -        replace header for Control Fields in case user messes it up
081077 -        somehow; replace to correct any problems with Reference Field
081078 -        line numbers above first Control Field.
081080 -         ..
081081 -        macro 20 saves to look for next Control Field
081083 -         ..
081084 -        Scroll down and create blank line format for 4 position number
081085 -        Delete line added if next one is blank.  This allows user to
081086 -        have extra blank lines in Other Files
081088 -         ..
081089 -        l /-/ Jump back to top of current control field nb jumps to
081090 -        bottom of control field so can go locate and verify format
081091 -        header for next Control Field in the loop.
081092 -
081093 -
081094 -
081096 -  ..
081097 - Underline Subject Descriptions Control Fields
081098 -
081099 - Line 300, ref OF 28 WS5H, -label lp205 in sd 33 000010
081100 -
081101 -    -label lp205
081102 -    loc_cur 3 8
081103 -    up
081104 -    chrcnt 1 0
081105 -    -if @1 != 205 -if @1 != 32 -goto lp205
081106 -    -if @1 = 205 -goto undRlN
081107 -    setcnt 302 205
081108 -    setcnt 305 36
081109 -    macro 3094............................ ref OF 21 PY9N
081110 -
081111 -        Since Java cannot handle line draw characters, use line draw
081112 -        macro 3094 created 000002 for Medit Java to enter underline,
081113 -        rather than ins_text that works with original Medit based on
081114 -        DOS.
081115 -
081117 -  ..
081118 - Summary Objective Anchor 0001 Follow Up Blank Lines Remove
081119 - Blank Lines Remove Summary Objective Anchor 0001 Follow Up
081120 -
081121 - Line 350, ref OF 28 ZQ6O, -label lp205 in sd 33 000010
081122 -
081123 -    -label undRlN
081124 -    up
081125 -    chrcnt 1 0
081126 -    -if @1 > 32 -goto itsbcf........................ ref SDS 0 1Z4L
081127 -    up
081128 -     ..
081129 -    -label nbvx
081130 -    chrcnt 1 0
081131 -    -if @1 = 45 -if @4 = 0 -goto bxnv............. ref SDS 0 1Z4G
081132 -    -if @1 = 45 -if @4 = 1 -goto yke.............. ref SDS 0 1Z5M
081133 -    -if @1 > 32 -goto xvbn........................ ref SDS 0 1Z5H
081134 -    -if @4 = 0 -goto xvbn......................... ref SDS 0 1Z5H
081135 -    immed d
081136 -    -goto nbvx.................................... ref SDS 0 1Z3I
081137 -     ..
081138 -    -label bxnv
081139 -    down
081140 -    immed r
081141 -    up
081142 -    -goto xvbn.................................... ref SDS 0 1Z5H
081143 -     ..
081144 -    -label itsbcf
081145 -    immed r
081146 -    up
081147 -     ..
081148 -    -label xvbn
081149 -    up
081150 -    -goto yke..................................... ref SDS 0 1Z5M
081151 -     ..
081152 -    -label lpcd2
081153 -    immed d
081154 -     ..
081155 -    -label yke
081156 -    chrcnt 1 0
081157 -    -if @1 = 32 -goto lpcd2...................... ref SDS 0 PV5L
081158 -    setcnt 9 0
081159 -    -if @1 != 45 -goto lpcd2..................... ref SDS 0 PV5L
081160 -    immed r
081161 -    loc_cur 0 5
081162 -    macro 641
081163 -    ins_text ! -!
081164 -    z 10 80
081165 -    linecnt 10 0
081166 -    setcnt 0 0
081167 -    nb
081168 -    -if @0 > 0 -goto afu41....................... ref SDS 0 PV8K
081169 -    fr /Time Milg Emply/
081170 -    -if @0 = 0 -goto afu41....................... ref SDS 0 PV8K
081171 -    line @10
081172 -    up
081173 -     ..
081174 -    -label lp9dL
081175 -    setlen 1 0
081176 -    -if @1 > 8 -goto afu41....................... ref SDS 0 PV8K
081177 -    -if @9 > 8 -goto afu41....................... ref SDS 0 PV8K
081178 -    addcnt 9 1
081179 -    immed d
081180 -    -goto lp9dL.................................. ref SDS 0 PV7N
081181 -     ..
081182 -    -label afu41
081183 -    setcnt 0 0
081184 -    -if @4 > 0 -goto lprfcf...................... ref SDS 0 554H
081185 -    addcnt 4 1
081186 -    fr /<0001 Follow up/
081187 -    -if @0 = 0 -goto sUMob....................... ref SDS 0 PV4G
081188 -    loc_cur 0 10
081189 -    chrcnt 1 0
081190 -    -if @1 = 60 ic 120
081191 -    immed r
081192 -    -if @1 = 60 rel_cur 0 -1
081193 -    macro 641
081194 -    immed r
081195 -    ins_text !<0001 Follow up!
081196 -     ..
081197 -    -label sUMob
081198 -    down 2
081199 -    loc_cur 3 8
081200 -    ins_text !Summary/Objective                                 !
081201 -    -goto lprfcf................................. ref SDS 0 554H
081202 -
081203 -        This code removes blank lines between the top of 6 position
081204 -        line numbers for narrative field and the Control Field.
081205 -        Verifies 0001 anchor and Follow up, and enters
081206 -        Summary/Objective, if missing.
081207 -
081209 -  ..
081210 - Bottom SDS Record Verify Format Correct
081211 -
081212 - Line 470, ref OF 28 0B4N, -label sObJ in sd 33 000010
081213 -
081214 -    -label sObJ................................... ref SDS 0 554H
081215 -    setcnt 101 0
081216 -    setlen 1 0
081217 -    -if @1 = 0 down
081218 -    -if @1 > 1 immed a
081219 -    ins_text !2200 -       !
081220 -
081221 -        After format for all Control Fields have been verified, per
081222 -        above, ref SDS 0 554H, verify and fix any problems with the
081223 -        end of the record; make sure 1 blank line at bottom.
081224 -
081225 -
081227 -  ..
081228 - Control Fields Sort Remove Duplicates Sort References Update Citations
081229 - Sort References Update Citations Sort Control Fields Remove Duplicates
081230 - Citations Update Sort References Sort Control Fields Remove Duplicates
081231 - Errors Citations Report Sort References Control Fields Remove Duplicates
081232 -
081233 - Line 500, ref OF 28 2G4J, -label sObJ in c: sd 33 00010
081234 -
081235 -    macro 145
081236 -    setcnt 243 1
081237 -    of 0
081238 -    -if @412 != 119 -goto ok119.................. ref SDS 0 KK6F
081239 -     ..
081240 -    -label cfnsre
081241 -    loc_cur 0 1
081242 -    ic 42
081243 -    -if @412 = 118 -goto dBpurge................. ref SDS 0 X34M
081244 -    getscr 12
081245 -    rel_cur 0 1
081246 -    chrcnt 2 0
081247 -    -if @2 > 32 rel_cur 0 1
081248 -    ic 126
081249 -    setcnt 412 119
081250 -    -goto dBpurge
081251 -
081252 -        macro 145 sorts Reference fields, and sorts Control Fields and
081253 -        duplicates removed.  Citations are checked and if there is an
081254 -        error setcnt 412 119 shown in compiled macro 000008,
081255 -        ref OF 26 5501
081256 -
081258 -  ..
081259 - Errors S Confidential Flags Not Synchronized
081260 - Confidential S Suppress Flags Verify Synchronized
081261 -
081262 - Line 570, ref OF 28 WH5J, -label sObJ in c: sd 33 00010
081263 -
081264 -    -label ok119
081265 -    top
081266 -    setcnt 0 0
081267 -    z 5 8
081268 -     ..
081269 -    -label lpcbs
081270 -    l /s-/
081271 -    -if @0 > 0 -goto cnbs....................... ref SDS 0 KK8H
081272 -    linecnt 1 0
081273 -    l /s-/
081274 -    -if @0 = 0 -goto lpcbs...................... ref SDS 0 KK7F
081275 -    line @1
081276 -    setcnt 412 118
081277 -    -goto cfnsre........................... ref SDS 0 KK4H
081278 -
081279 -        Finds double "s" flags in line number field, and returns error
081280 -        message using counter 412 if the flags are not synchronized.
081281 -
081283 -  ..
081284 - Errors Publications Doc Log Fields Not Correctly Entered
081285 - Publications Verify Doc Log Format Fields Correctly Entered
081286 -
081287 - Line 610, ref OF 28 BR5L, -label cnbs in c: sd 33 00010
081288 -
081289 -    -label cnbs
081290 -    setcnt 0 0
081291 -    setcnt 1 0
081292 -    -if @272 = 1001 -goto saV........................ ref SDS 0 CU3I
081293 -    setcnt 93 0
081294 -    setcnt 87 0
081295 -    top
081296 -     ..
081297 -    -label lpD01
081298 -    z 13 23
081299 -    setcnt 0 0
081300 -    l-/02 14 01 60/
081301 -    -if @0 > 0 -goto nRsrch..................... ref SDS 0 KT6K
081302 -     ..
081303 -    -gosub gSIcod............................... ref SDS 0 PN6H
081304 -    -if @180 = 0 -goto lpD01.................... ref SDS 0 KK9K
081305 -    of 88
081306 -    loc_cur 0 1
081307 -    chrcnt 1 0
081308 -    of 140
081309 -    chrcnt 2 0
081310 -    loc_cur 0 31
081311 -    chrcnt 3 0
081312 -    -if @1 > 32 -if @2 > 32 -if @3 > 32 -goto ohky....... ref SDS 0 FZ3N
081313 -    setcnt 412 771
081314 -    -goto erAsgn.................................. ref SDS 0 KT5O
081315 -
081317 -  ..
081318 - Publications Subject Code Subroutine Verify Doc Log Field Entered
081319 - Subject Code Subroutine Verify Doc Log Field Entered for Publications
081320 -
081321 - Line 670, ref OF 28 PP7N, -label gSIcod in sd 33 000010
081322 -
081323 -    -label gSIcod
081324 -    of 247
081325 -    loc_cur 0 1
081326 -    -if @93 = 0 loc_cur 3 0
081327 -    setcnt 86 180
081328 -    macro 1182
081329 -    -return............................ ref SDS 0 PN4M
081330 -
081331 -        Verifies entry in subject field for publications.
081332 -
081334 -  ..
081335 - Line 700, ref OF 28 6Y5N, -label ohky in sd 33 000010
081336 -
081337 -    -label ohky
081338 -    z 13 39
081339 -    zonereps
081340 -    up
081341 -    repscnt 1 0
081342 -    -if @1 != 0 -goto NsamDc.......................... ref SDS 0 KT5H
081343 -    -gosub frSubj..................................... ref SDS 0 CR6N
081344 -    -if @0 = 0 -goto er1q............................. ref SDS 0 KT5L
081345 -     ..
081346 -    -label NsamDc
081347 -    down
081348 -    -goto lpD01....................................... ref SDS 0 KK9K
081349 -     ..
081350 -    -label er1q
081351 -    setcnt 412 772
081352 -     ..
081353 -    -label erAsgn
081354 -    purge W55W
081355 -    of 0
081356 -    -goto dlfpe....................................... ref SDS 0 CT4O
081357 -
081358 -        Verifies other doc log fields entered for publications
081359 -
081360 -
081362 -  ..
081363 - Doc Log Check Duplicate Subject Codes
081364 -
081365 - Line 750, ref OF 28 UF6K, -label frSubj in sd 33 000010
081366 -
081367 -    -label frSubj
081368 -    e W55W
081369 -    macro 301
081370 -    ic 102
081371 -    ic 114
081372 -    ic 47
081373 -    setcnt 86 180
081374 -    macro 1181
081375 -    ic 47
081376 -    ecur 7
081377 -    loc_cur 0 1
081378 -    z 248 310
081379 -    @W55W
081380 -    -return
081381 -
081382 -
081383 -
081385 -  ..
081386 - Doc Log Fields Verify Correspondence Doc Issued Today DIT
081387 - Correspondence Doc Log Fields Verify Doc Issued Today DIT
081388 - DIT Doc Issued Today Correspondence Doc Log Fields Verify
081389 -
081390 - Line 790, ref OF 28 QP4O, -label nRsrch in sd 33 000010
081391 -
081392 -    -label nRsrch
081393 -    of 0
081394 -    macro 21
081395 -    z 28 32
081396 -    setcnt 0 0
081397 -    setcnt 93 1
081398 -    setcnt 13 0
081399 -    setcnt 14 0
081400 -    l-/ DIT /
081401 -    -if @0 > 0 -goto DRTxx......................... ref SDS 0 KT9F
081402 -    setcnt 13 887
081403 -    -goto lpdit.................................... ref SDS 0 KT4F
081404 -
081405 -
081407 -  ..
081408 - Doc Log Fields Verify Correspondence Doc Received Today DRT
081409 - Correspondence Doc Log Fields Verify Doc Received Today DRT
081410 - DRT Doc Received Today Correspondence Doc Log Fields Verify
081411 -
081412 - Line 830, ref OF 28 N34J, -label DRTxx in sd 33 000010
081413 -
081414 -    -label DRTxx
081415 -     top
081416 -    macro 21
081417 -    z 28 32
081418 -    setcnt 0 0
081419 -    l/ DRT /
081420 -    -if @0 > 0 -goto nDRTx............................ ref SDS 0 KU7N
081421 -    setcnt 14 887
081422 -     ..
081423 -    -label lpdit
081424 -    setcnt 4 0
081425 -     ..
081426 -    -label lpditt
081427 -    loc_cur 5 40
081428 -    setlen 3 0
081429 -    -if @3 < 10 -goto blnki4........................ ref SDS 0 06GG
081430 -    chrcnt 1 0
081431 -    -if @14 != 887 -if @13 = 887 -if @1 = 82 setcnt 412 775
081432 -    -if @14 = 887 -if @1 = 73 setcnt 412 776
081433 -    -if @412 > 774 -if @412 < 777 -goto erAsgn.......... ref SDS 0 KT5O
081434 -     ..
081435 -    -label blnki4
081436 -    loc_cur 0 6
081437 -    chrcnt 2 0
081438 -    -if @2 = 45 -goto DITxy............................ ref SDS 0 PVTS
081439 -    -if @3 < 10 -goto blk5i............................ ref SDS 0 PUYS
081440 -    -if @1 = 82 -gosub cpturIT......................... ref SDS 0 KU8J
081441 -    -if @1 = 73 -gosub cpturIT......................... ref SDS 0 KU8J
081442 -    -if @412 > 771 -goto erAsgn........................ ref SDS 0 KT5O
081443 -    z 13 39
081444 -    zonereps
081445 -     ..
081446 -    -label blk5i
081447 -    up
081448 -    setcnt 4 1
081449 -    -goto lpditt.............................. ref SDS 0 0U7S
081450 -     ..
081451 -    -label DRTxx
081452 -     top
081453 -    macro 21
081454 -    z 28 32
081455 -    setcnt 0 0
081456 -    l/ DRT /
081457 -    -if @0 > 0 -goto nDRTx...................... ref SDS 0 KU7N
081458 -    setcnt 14 887
081459 -     ..
081460 -    -label lpdit
081461 -    setcnt 4 0
081462 -     ..
081463 -    -label lpditt
081464 -    loc_cur 5 40
081465 -    setlen 3 0
081466 -    -if @3 < 10 -goto blnki4...................... ref SDS 0 061Y
081467 -    chrcnt 1 0
081468 -    -if @14 != 887 -if @13 = 887 -if @1 = 82 setcnt 412 775
081469 -    -if @14 = 887 -if @1 = 73 setcnt 412 776
081470 -    -if @412 > 774 -if @412 < 777 -goto erAsgn....... ref SDS 0 KT5O
081471 -     ..
081472 -    -label blnki4
081473 -    loc_cur 0 6
081474 -    chrcnt 2 0
081475 -    -if @2 = 45 -goto DITxy.......................... ref SDS 0 F57I
081476 -    -if @3 < 10 -goto blk5i.......................... ref SDS 0 07BE
081477 -    -if @1 = 82 -gosub cpturIT....................... ref SDS 0 KU8J
081478 -    -if @1 = 73 -gosub cpturIT....................... ref SDS 0 KU8J
081479 -    -if @412 > 771 -goto erAsgn...................... ref SDS 0 KT5O
081480 -    z 13 39
081481 -    zonereps
081482 -     ..
081483 -    -label blk5i
081484 -    up
081485 -    setcnt 4 1
081486 -    -goto lpditt............................... ref SDS 0 1W21
081487 -
081488 -
081490 -  ..
081491 - Line 880, ref OF 28 DZ8L, -label DITxy in sd 33 000010
081492 -
081493 -    -label DITxy
081494 -    -if @14 = 0 -goto DRTxx..................... ref SDS 0 PUYX
081495 -     ..
081496 -    -label nDRTx
081497 -    -goto dlfpe................................ ref SDS 0 CT4O
081498 -
081499 -
081501 -  ..
081502 - Doc Log Project Filename R & I Type Fields
081503 -
081504 - Line 900, ref OF 28 LI4N, -label cpturIT in sd 33 000010
081505 -
081506 -    -label cpturIT
081507 -    -if @1 != 82 -if @1 != 73 -goto noRoI..........
081508 -    loc_cur 0 13
081509 -    chrcnt 2 0
081510 -    -if @2 = 32 setcnt 412 781
081511 -    -if @1 = 781 -return
081512 -    loc_cur 0 31
081513 -    chrcnt 2 0
081514 -    -if @2 = 32 setcnt 412 781
081515 -    -if @412 = 781 -return
081516 -    loc_cur 0 41
081517 -    chrcnt 2 0
081518 -    -if @2 > 47 -if @2 < 50 -goto ck64x........... ref SDS 0 KU4I
081519 -    setcnt 412 773
081520 -    -return
081521 -
081522 -
081524 -  ..
081525 - 3rd Doc Log Type Field Evaluate
081526 -
081527 - Line 940, ref OF 28 0J44, -label ck64x in sd 33 000010
081528 -
081529 -    -label ck64x
081530 -    rel_cur 0 1
081531 -    chrcnt 2 0
081532 -    -if @4 > 0 repscnt 1 0
081533 -    -if @2 > 32 -if @2 < 51 -goto 3rdpz.............. ref SDS 0 F66H
081534 -    -if @2 = 32 -goto ckScd7......................... ref SDS 0 F55N
081535 -    setcnt 412 779
081536 -    -return
081537 -
081538 -
081540 -  ..
081541 - Primary Doc Specification Verify Unique
081542 -
081543 - Line 960, ref OF 28 H66M, -label ckScd7 in sd 33 000010
081544 -
081545 -    -label ckScd7
081546 -    -if @4 = 0 -goto ckScd9....................... ref SDS 0 F56N
081547 -    -if @1 > 0 -goto ckScd9....................... ref SDS 0 F56N
081548 -    setcnt 412 782
081549 -    -return
081550 -
081551 -
081553 -  ..
081554 - Secondary Doc Log Fields Check for Errors
081555 -
081556 - Line 1000, ref OF 28 0695, -label ckScd9 in sd 33 000010
081557 -
081558 -    -label ckScd9
081559 -    setcnt 0 0
081560 -    macro 18
081561 -    of 88
081562 -    loc_cur 0 1
081563 -    chrcnt 2 0
081564 -    -if @2 = 32 setcnt 412 777
081565 -    -if @1 = 777 -goto noDup6................... ref SDS 0 084C
081566 -    loc_cur 0 20
081567 -    chrcnt 2 0
081568 -    -if @2 = 32 setcnt 412 777
081569 -    -if @412 = 777 -goto noDup6................ ref SDS 0 084C
081570 -    -gosub gSIcod
081571 -    -if @180 = 0 setcnt 412 778
081572 -    -if @412 = 778 -return
081573 -     ..
081574 -    -label noDup6
081575 -    macro 19
081576 -    -return
081577 -
081579 -  ..
081580 - Doc Log Fields Error Assessment
081581 -
081582 - Line 1030, ref OF 28 BO4F, -label 3rdpz in sd 33 000010
081583 -
081584 -    -label 3rdpz
081585 -    -if @1 != 0 -goto erjnMt.........................
081586 -    -if @2 < 50 -goto ckScd9......................... ref SDS 0 F56N
081587 -    -gosub frSubj.................................... ref SDS 0 CR6N
081588 -    -if @0 > 0 -goto ckScd9.......................... ref SDS 0 F56N
081589 -    setcnt 412 772
081590 -    -return
081591 -
081592 -
081594 -  ..
081595 - Doc Log Error Flag
081596 -
081597 - Line 1050, ref OF 28 PZ6G, -label erjinMt in sd 33 000010
081598 -
081599 -    -label erjnMt
081600 -    setcnt 412 780
081601 -    -return
081602 -
081604 -  ..
081605 - Format SDS Record Verification Complete
081606 -
081607 - Line 1070, ref OF 28 2R8J, -label dlfpe in sd 33 000010
081608 -
081609 -    -label dlfpe
081610 -    -if @1 < 771 -goto saV....................... ref SDS 0 CU3I
081611 -    setcur 2 0
081612 -    addcnt 2 1
081613 -    loc_cur 0 1
081614 -    ic 42
081615 -    loc_cur 12 @2
081616 -    -if @93 = 0 -if @1 < 773 loc_cur 10 44
081617 -    chrcnt 2 0
081618 -    -if @2 > 32 rel_cur 0 1
081619 -    chrcnt 2 0
081620 -    -if @2 = 32 ic 126
081621 -    top
081622 -    loc_cur 4 44
081623 -    inscnt 1 0
081624 -    -goto dBpurge.................................
081625 -
081626 -
081628 -  ..
081629 - SAA Open Update Follow Ups
081630 -
081631 - Line 1140, ref OF 28 1S54, -label saV in sd 33 000010
081632 -
081633 -    -label saV
081634 -    -if @272 = 1001 -goto sumobJ...................
081635 -    of 0
081636 -    top
081637 -    macro 85
081638 -    markcur 7
081639 -    e W56W
081640 -    macro 301
081641 -    ins_text !e d:\sd\08\UUUUU\00\0001!
081642 -    loc_cur 3 12
081643 -    macro 91
081644 -    macro 841
081645 -    ecur 7
081646 -    @W56W
081647 -    top
081648 -    errorcnt 0 0
081649 -    markcur 1
081650 -    e W55W
081651 -    macro 301
081652 -    ins_text !l /yymmdd hhmmss uuuuu/!
081653 -    macro 91
081654 -    loc_cur 3 4
081655 -    macro 871
081656 -    ecur 1
081657 -    z 171 189
081658 -     ..
081659 -    -label lpdfu
081660 -    @W55W
081661 -    immed d
081662 -    down
081663 -    -goto lpdfu............................. ref SDS 0 096F
081664 -
081665 -
081667 -  ..
081668 - Follow Ups Enter into SAA
081669 -
081670 - Line 1280, ref OF 28 2414, -label npfu in sd 33 000010
081671 -
081672 -    -label npfu
081673 -    top
081674 -    setcnt 0 0
081675 -    z 1 4
081676 -    errorcnt 0 0
081677 -    loc_cur 3 6
081678 -    l /0301/
081679 -    z 10 11
081680 -    l /  /
081681 -    down
081682 -    macro 22
081683 -    ecur 7
081684 -    top
081685 -    loc_cur 3 1
081686 -    setcnt 0 0
081687 -     ..
081688 -    -label bRFol_up
081689 -    z 3 9
081690 -    l /f-/
081691 -    -if @0 > 0 -goto bRArc.......................... ref SDS 0 TR3J
081692 -    macro 54
081693 -    ul
081694 -    eol
081695 -    macro 175
081696 -    of 0
081697 -    loc_cur 0 10
081698 -    ecur 1
081699 -    chrcnt 1 0
081700 -    -if @1 != 45 immed r
081701 -    up
081702 -    loc_cur 0 10
081703 -    macro 641
081704 -    loc_cur 0 17
081705 -    macro 171
081706 -    chrcnt 1 0
081707 -    -if @1 != 60 -goto naofu.......................... ref SDS 0 09GF
081708 -    macro 79
081709 -     ..
081710 -    -label naofu
081711 -    loc_cur 0 10
081712 -    ecur 7
081713 -    macro 22
081714 -    top
081715 -    macro 85
081716 -    macro 23
081717 -    ecur 1
081718 -    macro 91
081719 -    macro 87
081720 -    of 155
081721 -    macro 871
081722 -    of 0
081723 -    loc_cur 0 10
081724 -    ecur 7
081725 -    -goto bRFol_up.............................. ref SDS 0 CU9H
081726 -
081727 -
081729 -  ..
081730 - Doc Log Verify Format Structure
081731 -
081732 - Line 1410, ref OF 28 AK6I, -label bRArc in sd 33 000010
081733 -
081734 -    -label bRArc
081735 -    ecur 1
081736 -    save
081737 -    e W56W
081738 -    z 1 100
081739 -    c/e d:/purge d:/* 1
081740 -    ecur 7
081741 -    @W56W
081742 -    purge W56W
081743 -    top
081744 -    z 1 3
081745 -    l/04 /
081746 -    macro 14
081747 -    z 27 31
081748 -    setcnt 3 0
081749 -     ..
081750 -    -label lpvdlf
081751 -    addcnt 3 1
081752 -    -gosub tsDLf.................................. ref SDS 0 TR6I
081753 -    -if @3 = 5 -goto sumobJ....................... ref SDS 0 475L
081754 -    -goto lpvdlf.................................. ref SDS 0 TR5J
081755 -
081756 -
081758 -  ..
081759 - Doc Log Type Subroutine Find for Processing
081760 -
081761 - Line 1470, ref OF 28 QF4N, -label tsDLf in sd 33 000010
081762 -
081763 -    -label tsDLf
081764 -    macro 15
081765 -    setcnt 0 0
081766 -    -if @3 = 1 l-/DRP/
081767 -    -if @3 = 2 l-/DRT/
081768 -    -if @3 = 3 l-/DIP/
081769 -    -if @3 = 4 l-/DIT/
081770 -    -if @3 = 5 l-/OF /
081771 -    -if @0 = 0 -goto DRTf
081772 -    -return
081773 -
081774 -
081776 -  ..
081777 - Doc Log Verify Correct Line Number Structure
081778 -
081779 - Line 1490, ref OF 28 EV3O, -label DRTf in sd 33 000010
081780 -
081781 -    -label DRTf
081782 -    down
081783 -    setlen 1 0
081784 -    -if @1 < 10 -goto whabl............................ ref SDS 0 P969
081785 -     ..
081786 -    -label mblabf
081787 -    immed r
081788 -    up
081789 -    loc_cur 0 10
081790 -    split
081791 -    rel_cur 1 0
081792 -    immed d
081793 -    rel_cur -1 0
081794 -    loc_cur 0 1
081795 -    -goto whab2........................................ ref SDS 0 P975
081796 -     ..
081797 -    -label whabl
081798 -    down
081799 -    setlen 1 0
081800 -    -if @1 < 10 -goto whab2............................ ref SDS 0 P975
081801 -    -goto mblabf....................................... ref SDS 0 TR8N
081802 -     ..
081803 -    -label whab2
081804 -    up
081805 -    ins_text"0302 -     "
081806 -    -return
081807 -
081809 -  ..
081810 - Anchors Verify Underlined Headings
081811 - Headings Underlined Verify Anchors
081812 -
081813 - Line 1570, ref OF 28 T24K, -label sumobJ in sd 33 000010
081814 -
081815 -    -label sumobJ
081816 -    top
081817 -    z 14 16
081818 -    l !y/O!
081819 -    macro 6
081820 -    setcnt 111 0
081821 -    e W55W
081822 -    macro 301
081823 -    ic 108
081824 -    ic 47
081825 -    ic 196
081826 -    ic 196
081827 -    ic 196
081828 -    ic 196
081829 -    ic 196
081830 -    ic 47
081831 -    ecur 7
081832 -     ..
081833 -    -label hdgLp1
081834 -    errorcnt 0 0
081835 -    z 10 50
081836 -    @W55W
081837 -    -if @0 > 0 -goto blbfu............................. ref SDS 0 XW3L
081838 -    -gosub anchor...................................... ref SDS 0 G36L
081839 -    macro 19
081840 -    up 3
081841 -    -gosub nspace...................................... ref SDS 0 XV5F
081842 -    -goto hdgLp1....................................... ref SDS 0 UI3J
081843 -
081845 -  ..
081846 - Anchor Para Find Bottom Para Subroutine
081847 -
081848 - Line 1610, ref OF 28 PF5N, -label nspace in sd 33 000010
081849 -
081850 -    -label nspace
081851 -    setlen 171 0
081852 -    -if @171 > 8 -goto upLin......................... ref SDS 0 XV6G
081853 -    down
081854 -    -return
081855 -     ..
081856 -    -label upLin
081857 -    up
081858 -    -goto nspace................................... ref SDS 0 XV5F
081859 -
081861 -  ..
081862 - Anchor Para Test for Existing Subroutine
081863 -
081864 -
081865 - Line 1670, ref OF 28 696H, -label anchor in sd 33 000010
081866 -
081867 -    -label anchor
081868 -    macro 541
081869 -    macro 18
081870 -     ..
081871 -    -label dohl
081872 -    down
081873 -    chrcnt 1 0
081874 -    -if @1 = 32 -goto ancHe............................ ref SDS 0 S59H
081875 -    -if @1 = 60 -return
081876 -    pushc
081877 -    loc_cur 0 6
081878 -    chrcnt 2 0
081879 -    rel_cur 0 1
081880 -    -if @2 != 45 ic 106
081881 -    popc
081882 -    -if @1 > 33 -if @1 < 123 -goto dohl................. ref SDS 0 XV7H
081883 -    -return
081884 -
081885 -
081887 -  ..
081888 - Anchor Entered Underlined Headings Subroutine
081889 -
081890 -
081891 - Line 1720, ref OF 28 PK9O, -label ancHe in sd 33 000010
081892 -
081893 -    -label ancHe
081894 -    macro 8
081895 -    loc_cur 0 6
081896 -     ..
081897 -    -label aw6l
081898 -    chrcnt 3 0
081899 -    -if @3 != 45 -goto puhnoi........................ ref SDS 0 XV6F
081900 -    down
081901 -    loc_cur 0 10
081902 -    chrcnt 2 0
081903 -    -if @2 = 60 -return
081904 -    -if @2 = 205 -goto whhtsdu....................... ref SDS 0 5W9G
081905 -    loc_cur 0 6
081906 -    -goto aw6l....................................... ref SDS 0 XV9N
081907 -     ..
081908 -    -label whhtsdu
081909 -    macro 9
081910 -    up
081911 -    immed r
081912 -    macro 641
081913 -    pushc
081914 -    loc_cur 0 7
081915 -    ic 32
081916 -    popc
081917 -    -goto aaaatl.................................. ref SDS 0 XV6M
081918 -     ..
081919 -    -label puhnoi
081920 -    loc_cur 0 7
081921 -    ic 32
081922 -    loc_cur 0 @4
081923 -    immed r
081924 -    up
081925 -     ..
081926 -    -label aaaatl
081927 -    macro 987
081928 -    -return
081929 -
081931 -  ..
081932 - Blank Line Below Follow Up Lines
081933 -
081934 - Line 1720, ref OF 28 R44K, -label blbfu in sd 33 000010
081935 -
081936 -    -label blbfu
081937 -    purge W55W
081938 -    macro 7
081939 -    setcnt 0 0
081940 -    z 10 50
081941 -     ..
081942 -    -label lpya
081943 -    l /*ollow up re* SDS/
081944 -    -i  @0 > 0 -goto ancjH......................... ref SDS 0 XW6F
081945 -     ..
081946 -    loc_cur 3 8
081947 -    aw
081948 -    rel_cur 1 -1
081949 -    setlen 1 0
081950 -    -if @1 < 10 -goto lpya......................... ref SDS 0 XW4J
081951 -    aw
081952 -    macro 34
081953 -    -goto lpya..................................... ref SDS 0 XW4J
081954 -
081956 -  ..
081957 - Anchors Below J Headings
081958 -
081959 - Line 1870, ref OF 28 FN4M, -label blbfu in sd 33 000010
081960 -
081961 -    -label ancjH
081962 -    macro 7
081963 -     ..
081964 -    -label ancJ
081965 -    setcnt 0 0
081966 -    setcnt 2 0
081967 -    z 7 7
081968 -    l /j/
081969 -    -if @0 > 0 -goto ancHg........................... ref SDS 0 9H4I
081970 -    linecnt 3 0
081971 -    z 10 50
081972 -     ..
081973 -    -label faL
081974 -    loc_cur 0 9
081975 -    addcnt 2 1
081976 -    fr /</
081977 -    -if @0 > 0 -goto cnl.............................. ref SDS 0 XW8L
081978 -    line @3
081979 -    -gosub nspace..................................... ref SDS 0 XV5F
081980 -    -goto ancJ........................................ ref SDS 0 XW6N
081981 -     ..
081982 -    -label cnl
081983 -    setcnt 0 0
081984 -    down
081985 -    -if @2 < 8 -goto faL.............................. ref SDS 0 E48T
081986 -    line @3
081987 -    setcnt 28 937
081988 -    macro 541
081989 -    setcnt 28 0
081990 -    down
081991 -    macro 987
081992 -    -gosub nspace..................................... ref SDS 0 XV5F
081993 -    -goto ancJ
081994 -
081995 -
081996 -
081998 -  ..
081999 - Anchors Add Paragraphs
082000 -
082001 - Line 2000, ref OF 28 NN3G, -label ancHg in sd 33 000010
082002 -
082003 -    -label ancHg
082004 -    macro 7
082005 -    setcnt 47 2
082006 -     ..
082007 -    -label lnLp1
082008 -    loc_cur 3 9
082009 -    setcnt 0 0
082010 -     ..
082011 -    -label lnLp2
082012 -    up
082013 -    -if @0 > 0 -goto ancRe........................... ref SDS 0 XX6H
082014 -    setlen 1 0
082015 -    -if @1 < 10 -goto lnLp2.......................... ref SDS 0 XW5H
082016 -    z 11 20
082017 -    fr /Time Milg/
082018 -    -if @0 > 0 -goto flM............................. ref SDS 0 XW6K
082019 -    z 8 8
082020 -    l /-/
082021 -    down
082022 -    -goto lnLp1..................................... ref SDS 0 SD5G
082023 -     ..
082024 -    -label flM
082025 -    setcnt 0 0
082026 -    setcnt 28 937
082027 -    macro 541
082028 -    setcnt 28 @4
082029 -    -if @4 > 45 -goto ajmp.......................... ref SDS 0 1H4L
082030 -    chrcnt 1 0
082031 -    -if @1 != 60 -goto naotl........................ ref SDS 0 XX4L
082032 -     ..
082033 -    -label supil
082034 -    up
082035 -    loc_cur 0 6
082036 -    chrcnt 1 0
082037 -    -if @1 = 45 -goto supil......................... ref SDS 0 XX3J
082038 -    -goto ajmp...................................... ref SDS 0 1H4L
082039 -     ..
082040 -    -label naotl
082041 -    -if @1 = 47 -goto lnLp1......................... ref SDS 0 SD5G
082042 -    -if @1 > 47 -if @1 < 123 -goto ancA............. ref SDS 0 XX4M
082043 -     ..
082044 -    -goto ajmp...................................... ref SDS 0 1H4L
082045 -     ..
082046 -    -label ancA
082047 -    macro 18
082048 -    linecnt 1 0
082049 -    z 7 7
082050 -    l-/j/
082051 -    linecnt 2 0
082052 -    macro 19
082053 -    subcnt 1 @2
082054 -    -if @1 < 6 -goto ajmp....................... ref SDS 0 1H4L
082055 -    -if @400 > 0 -goto skiplsfl................. ref SDS 0 XX7H
082056 -    setcnt 400 1
082057 -    e W55W
082058 -    macro 301
082059 -    ic 108
082060 -    ic 45
082061 -    ic 47
082062 -    ic 196
082063 -    ic 196
082064 -    ic 196
082065 -    ic 196
082066 -    ic 196
082067 -    ic 196
082068 -    ic 47
082069 -    ecur 7
082070 -     ..
082071 -    -label skiplsfl
082072 -    linecnt 1 0
082073 -    z 10 40
082074 -    @W55W
082075 -    linecnt 2 0
082076 -    macro 19
082077 -    subcnt 1 @2
082078 -    -if @1 < 6 -goto ajmp.......................... ref SDS 0 1H4L
082079 -    loc_cur 0 6
082080 -    chrcnt 1 0
082081 -    -if @1 != 45 -goto nilnf....................... ref SDS 0 XX9K
082082 -     ..
082083 -    -label cnlfin
082084 -    down
082085 -    chrcnt 1 0
082086 -    -if @1 = 45 -goto cnlfin....................... ref SDS 0 XX8J
082087 -    loc_cur 0 10
082088 -    setlen 1 0
082089 -    -if @1 < 10 macro 987
082090 -    z 5 5
082091 -    nb
082092 -    -goto ajmp................................... ref SDS 0 1H4L
082093 -     ..
082094 -    -label nilnf
082095 -    down
082096 -    chrcnt 1 0
082097 -    up
082098 -    -if @1 != 45 -goto nipf.................... ref SDS 0 1RX5
082099 -    immed r
082100 -    macro 641
082101 -    ins_text !1 -!
082102 -    up
082103 -     ..
082104 -    -label nipf
082105 -    setcnt 153 0
082106 -    setcnt 74 4183
082107 -    macro 49
082108 -    setcnt 74 0
082109 -    -if @153 > @70 -goto ajmp.................... ref SDS 0 1H4L
082110 -    -if @153 > 0 addcnt 333 1
082111 -     ..
082112 -    -label ajmp
082113 -    -gosub nspace................................ ref SDS 0 XV5F
082114 -    -goto lnLp1.................................. ref SDS 0 SD5G
082115 -
082117 -  ..
082118 - Anchors Verify Unique
082119 -
082120 - Line 2240, ref OF 28 7T4I, -label ancRe in sd 33 000010
082121 -
082122 -    -label ancRe
082123 -    top
082124 -    setcnt 0 0
082125 -     ..
082126 -    -label lpaTAn
082127 -    z 1 40
082128 -    l /</
082129 -    -if @0 > 0 -goto ppntrs....................... ref SDS 0 XY6O
082130 -    macro 6
082131 -    macro 541
082132 -    setcnt 0 0
082133 -    macro 1361
082134 -    rel_cur 0 -5
082135 -    -if @6 = 0 -goto lpaTAn........................ ref SDS 0 XY3F
082136 -    e W55W
082137 -    macro 301
082138 -    ic 108
082139 -    rel_cur 0 1
082140 -    ic 47
082141 -    setcnt 86 1
082142 -    macro 1181
082143 -    ic 47
082144 -    ecur 7
082145 -    setcnt 0 0
082146 -    macro 6
082147 -     ..
082148 -    -label naancR
082149 -    z 1 50
082150 -    @W55W
082151 -    -if @0 = 0 -goto ovr23........................ ref SDS 0 XY6F
082152 -    setcnt 0 0
082153 -    macro 7
082154 -    -goto lpaTAn.................................. ref SDS 0 XY3F
082155 -     ..
082156 -    -label ovr23
082157 -    macro 541
082158 -    chrcnt 1 0
082159 -    -if @1 != 60 -goto naancR....................... ref SDS 0 1322
082160 -    macro 987
082161 -    -goto ancRe..................................... ref SDS 0 XX6H
082162 -
082163 -
082165 -  ..
082166 - Archive Control Fields Contacts and References
082167 -
082168 - Line 2370, ref OF 28 3588, -label ppntrs in sd 33 000010
082169 -
082170 -    -label ppntrs
082171 -    top
082172 -    -if @272 = 1001 -goto overr....................... ref SDS 0 X34H
082173 -    -if @271 = 2000 -goto nvMnd1...................... ref SDS 0 3483
082174 -    macro 85
082175 -    of 98
082176 -    loc_cur 0 1
082177 -    strcnt 26 2
082178 -    rel_cur 0 2
082179 -    strcnt 27 2
082180 -    rel_cur 0 2
082181 -    strcnt 28 2
082182 -    loc_cur 0 10
082183 -    -if @26 < 10 ic 48
082184 -    inscnt 26 0
082185 -    -if @27 < 10 ic 48
082186 -    inscnt 27 0
082187 -    -if @28 < 10 ic 48
082188 -    inscnt 28 0
082189 -    loc_cur 0 1
082190 -    macro 84
082191 -    of 0
082192 -    top
082193 -     ..
082194 -    -label nvMnd1
082195 -    errorcnt 0 0
082196 -    setgbl 271 @271
082197 -    -if @271 = 2000 -goto nvMdn2..................... ref SDS 0 XZ6G
082198 -
082199 -
082200 -
082201 -
082203 -  ..
082204 - Current Diary Record Setup Process Pointers
082205 -
082206 - Line 2380, ref OF 28 FJ3F, -label ntim in sd 33 000010 about 10 lines above
082207 -
082208 -    of 88
082209 -    loc_cur 0 1
082210 -    setcnt 86 180
082211 -    macro 1182
082212 -    loc_cur 0 20
082213 -    chrcnt 2 0
082214 -    -if @2 = 32 loc_cur 0 11
082215 -     ..
082216 -    -label ntim
082217 -    strcnt 26 2
082218 -    rel_cur 0 2
082219 -    strcnt 27 2
082220 -    rel_cur 0 2
082221 -    strcnt 28 2
082222 -    -if @26 = 0 -if @27 = 0 -if @28 = 0 -goto zero......... ref SDS 0 Q398
082223 -    -goto nzro...................................... ref SDS 0 XZ3I
082224 -     ..
082225 -    -label zero
082226 -    loc_cur 0 11
082227 -    -goto ntim..................................... ref SDS 0 XY5O
082228 -     ..
082229 -    -label nzro
082230 -    setgbl 26 @26
082231 -    setgbl 27 @27
082232 -    setgbl 28 @28
082233 -    of 0
082234 -    e W55W
082235 -    macro 301
082236 -    macro 91
082237 -    ic 108
082238 -    rel_cur 0 1
082239 -    ic 33
082240 -    setcnt 86 180
082241 -    macro 1181
082242 -    ic 33
082243 -    ecur 96
082244 -    of 0
082245 -    z 1 4
082246 -    @W55W
082247 -    loc_cur 3 6
082248 -    ic 46
082249 -    save
082250 -    of 7
082251 -    ecur 7
082252 -    of 0
082253 -    top
082254 -
082255 -
082257 -  ..
082258 - Pointers Control Field Archive to Weekly Data Base Records
082259 -
082260 - Line 2800, ref OF 28 R87F, -label nvMdn2 in sd 33 000010
082261 -
082262 -    -label nvMdn2
082263 -    macro 85
082264 -    macro 854
082265 -    e W554
082266 -    macro 301
082267 -    ic 108
082268 -    ic 32
082269 -    ic 47
082270 -    macro 91
082271 -    macro 871
082272 -    ic 47
082273 -    e W55W
082274 -    macro 301
082275 -    ic 99
082276 -    ic 32
082277 -    ic 47
082278 -    ic 47
082279 -    macro 925
082280 -    ic 32
082281 -    ic 32
082282 -    ic 32
082283 -    ic 47
082284 -    ic 42
082285 -    ic 32
082286 -    ic 49
082287 -    e W556
082288 -    macro 301
082289 -    ins_text /e d:\sd\08\UUUUU\01\yy\nn/
082290 -    loc_cur 0 12
082291 -    macro 92
082292 -    loc_cur 0 21
082293 -    getgbl 3 3
082294 -    -if @3 < 2000 -if @3 > 99 subcnt 3 1900
082295 -    -if @3 > 1999 subcnt 3 2000
082296 -    -if @3 < 10 ic 48
082297 -    inscnt 3 0
082298 -    rel_cur 0 1
082299 -    getgbl 1 4
082300 -    mulcnt 1 100
082301 -    getgbl 5 5
082302 -    addcnt 1 @5
082303 -    macro 86
082304 -    -if @2 < 10 ic 48
082305 -    inscnt 2 0
082306 -    loc_cur 0 3
082307 -    setcnt 86 180
082308 -    macro 1182
082309 -    e W557
082310 -    macro 301
082311 -    ins_text /savx/
082312 -    loc_cur 0 6
082313 -    setcnt 86 180
082314 -    macro 1181
082315 -    ecur 7
082316 -    errorcnt 0 0
082317 -    setcnt 333 0
082318 -    z 1 3
082319 -    l /03 /
082320 -    setcnt 1 0
082321 -     ..
082322 -    -label 04lines
082323 -    loc_cur 3 1
082324 -    z 4 4
082325 -    l /-/
082326 -    -if @0 > 0 -goto svCFLns...................... ref SDS 0 QUQW
082327 -    addcnt 333 1
082328 -    ul
082329 -    z 3 3
082330 -    nb
082331 -    down
082332 -    of 300
082333 -    lr
082334 -    of 0
082335 -    addcnt 1 1
082336 -    -if @1 = 1 purge CUT
082337 -    copy
082338 -    -goto 04lines............................... ref SDS 0 XZ6K
082339 -
082340 -
082342 -  ..
082343 - Pointers Reference Field Archive to Weekly Data Base Records
082344 -
082345 - Line 2880, ref OF 28 2996, -label svCFLns in sd 33 000010
082346 -
082347 -    -label svCFLns
082348 -    setgbl 333 @333
082349 -    -gosub W556opn............................. ref SDS 0 X16L
082350 -    setcnt 333 0
082351 -    top
082352 -    z 1 6
082353 -    setcnt 0 0
082354 -    l /0304/
082355 -    -if @0 > 0 -goto nRefFL..................... ref SDS 0 X18H
082356 -    z 1 2
082357 -    zonereps
082358 -     ..
082359 -    -label lpRfl2
082360 -    up
082361 -    repscnt 1 0
082362 -    -if @1 > 0 -goto nRefFL..................... ref SDS 0 X18H
082363 -    loc_cur 0 11
082364 -    chrcnt 1 0
082365 -    -if @1 != 58 -goto lpRfl2.................... ref SDS 0 X16I
082366 -    loc_cur 0 1
082367 -    addcnt 333 1
082368 -    ul
082369 -    of 400
082370 -    lr
082371 -    copy
082372 -    of 0
082373 -    -goto lpRfl2................................. ref SDS 0 X16I
082374 -
082375 -
082377 -  ..
082378 - Pointers Record Description & Contacts Weekly Data Base Records
082379 -
082380 - Line 2920, ref OF 28 2434, -label nRefFL in sd 33 000010
082381 -
082382 -    -label nRefFL
082383 -    setgbl 333 @333
082384 -    -gosub W556opn............................. ref SDS 0 X16L
082385 -    setcnt 333 0
082386 -    top
082387 -    loc_cur 5 1
082388 -    addcnt 333 1
082389 -    ul
082390 -    of 130
082391 -    lr
082392 -    copy
082393 -    of 0
082394 -    setgbl 333 @333
082395 -    -gosub W556opn
082396 -    setcnt 333 0
082397 -    top
082398 -    setcnt 0 0
082399 -    line 5
082400 -     ..
082401 -    -label lpcnt6
082402 -    loc_cur 3 6
082403 -    chrcnt 1 0
082404 -    -if @1 != 45 -goto nCnTCs3........................ ref SDS 0 X15O
082405 -    loc_cur 0 1
082406 -    addcnt 333 1
082407 -    ul
082408 -    of 190
082409 -    lr
082410 -    copy
082411 -    of 0
082412 -    up
082413 -    -goto lpcnt6.......................... ref SDS 0 X14K
082414 -     ..
082415 -    -label nCnTCs3
082416 -    setgbl 333 @333
082417 -    -gosub W556opn......................... ref SDS 0 X16L
082418 -    -goto overr........................... ref SDS 0 X34H
082419 -
082421 -  ..
082422 - Weekly Pointer Files Update Subroutine
082423 -
082424 - Line 3010, ref OF 28 3136, -label W556opn in sd 33 000010
082425 -
082426 -    -label W556opn
082427 -    e W556
082428 -    top
082429 -    loc_cur 0 19
082430 -    addcnt 150 1
082431 -    -if @150 = 2 addcnt 150 1
082432 -    inscnt 150 0
082433 -    setgbl 150 @150
082434 -    e W557
082435 -    loc_cur 0 22
082436 -    getgbl 150 150
082437 -    inscnt 150 0
082438 -    @W556
082439 -    errorcnt 0 0
082440 -    getgbl 3 333
082441 -    -if @3 = 0 -goto norcdsa...................... ref SDS 0 X25O
082442 -    bot
082443 -    linecnt 1 0
082444 -    -if @0 > 0 rel_cur 1 0
082445 -    immed a
082446 -    up
082447 -    linecnt 1 0
082448 -    ul
082449 -    paste
082450 -    purge CUT
082451 -    immed /
082452 -    z 1 340
082453 -    @W55W
082454 -     ..
082455 -    -label norcdsa
082456 -    top
082457 -    split
082458 -    z 1 20
082459 -    errorcnt 0 0
082460 -    @W554
082461 -    -if @0 > 0 -goto getIt...................... ref SDS 0 QVXP
082462 -    linecnt 2 0
082463 -    -if @2 = @1 -goto getIt..................... ref SDS 0 QVXP
082464 -    down
082465 -    loc_cur 4 1
082466 -    zonereps
082467 -     ..
082468 -    -label delduplc
082469 -    immed d
082470 -    subcnt 1 1
082471 -    linecnt 2 0
082472 -    repscnt 3 0
082473 -    -if @3 = 0 -if @2 < @1 -if @0 = 0 -goto delduplc....... ref SDS 0 1V4R
082474 -    bot
082475 -    chrcnt 1 0
082476 -    -if @1 > 32 -goto getIt....................... ref SDS 0 QVXP
082477 -    top
082478 -    immed 6a
082479 -    up
082480 -    ins_text !@echo off!
082481 -    rel_cur 1 0
082482 -    ins_text !c:!
082483 -    rel_cur 1 0
082484 -    ins_text !cd\sd\10!
082485 -    rel_cur 1 0
082486 -    ins_text !rem!
082487 -    rel_cur 1 0
082488 -    gfname
082489 -    macro 1180
082490 -    ins_text !del!
082491 -    loc_cur 0 5
082492 -    macro 1181
082493 -    loc_cur 0 1
082494 -    rel_cur 1 0
082495 -    ins_text !rem!
082496 -    rel_cur 1 0
082497 -    ins_text !exit!
082498 -    save c:\sd\td\so.cmd
082499 -    ecur 7
082500 -    @W557
082501 -    dose c:\sd\01\0702053a.bat
082502 -    -return
082503 -
082504 -        immed a below -label W556opn, above, returning error...
082505 -
082506 -            Immediate command not on valid line
082507 -
082508 -        ...command issued from "Tof of File" line, should be valid,
082509 -        and seems to be in test op????
082510 -
082512 -  ..
082513 - Sort Weekly Pointer Files
082514 -
082515 - Line 3160, ref OF 28 4590, -label getIt in sd 33 000010
082516 -
082517 -    -label getIt
082518 -    -if @3 = 0 -goto nocontnt......................... ref SDS 0 1W8M
082519 -    setcnt 0 0
082520 -    setcnt 201 666
082521 -    macro 1451
082522 -     ..
082523 -    -label rmvbl3
082524 -    chrcnt 1 0
082525 -    -if @1 > 32 -goto nblank2....................... ref SDS 0 X26L
082526 -    immed d
082527 -    -goto rmvbl3.................................... ref SDS 0 4590
082528 -     ..
082529 -    -label nblank2
082530 -     ..
082531 -    -label nocontnt
082532 -    @W557
082533 -    e W557
082534 -    c/savx/purge/1 1
082535 -    ecur 7
082536 -     ..
082537 -    @W557
082538 -    e W557
082539 -    c/purge/savx/1 1
082540 -    ecur 7
082541 -    -return
082542 -
082544 -  ..
082545 - Save SDS Record Complete
082546 -
082547 - Line 3250, ref OF 28 F26F, -label overr in sd 33 000010
082548 -
082549 -    -label overr
082550 -    save
082551 -     ..
082552 -    -label dBpurge
082553 -    top
082554 -    addcnt 65 @333
082555 -    -if @412 = 0 -goto saveSR...................... ref SDS 0 H25M
082556 -    -if @272 != 1002 -goto Er119................... ref SDS 0 X37N
082557 -    e W45R
082558 -    macro 301
082559 -    loc_cur 3 12
082560 -    ins_text !e d:\sd\08\uuuuu\00\00!
082561 -    macro 856
082562 -    macro 841
082563 -    @W45R
082564 -    -if @47 = 50 -goto sfao....................... ref SDS 0 18BA
082565 -    macro 941
082566 -    ecur 7
082567 -    -exit
082568 -     ..
082569 -    -label sfao
082570 -    setcolor 7 112
082571 -    macro 20
082572 -    of 0
082573 -    macro 941
082574 -    macro 21
082575 -    ecur 7
082576 -    -exit
082577 -
082578 -
082580 -  ..
082581 - Error Messages Save SDS Records
082582 -
082583 - Line 3330, ref OF 28 Q55N, -label Er119 in sd 33 000010
082584 -
082585 -    -label Er119
082586 -    color 15
082587 -    down 10
082588 -    z 8 85
082589 -    loc_cur 13 1
082590 -    errorcnt 0 0
082591 -    fr/~/
082592 -    -if @0 > 0 -goto n~x.......................... ref SDS 0 X39K
082593 -    of 0
082594 -    rel_cur 0 -1
082595 -    ic 32
082596 -    rel_cur 0 -2
082597 -     ..
082598 -    -label n~x
082599 -    down 10
082600 -    rel_cur 10 0
082601 -    macro 144
082602 -    beep
082603 -    -if @412 = 118 errormsg Confidential "s" marks not in sync!
082604 -    -if @412 = 119 errormsg No reference for this citation!
082605 -    -if @412 = 771 errormsg  Publication needs "Title" and or "Author"!
082606 -    -if @412 = 772 errormsg  Same subject assigned twice to this document!
082607 -    -if @412 = 773 errormsg  Correct doc "Typ", e.g. R1, I0, R01, I00, I020
082608 -    -if @412 = 774 errormsg  Need "R" or "I" for this field.
082609 -    -if @412 = 775 errormsg  Need "R" for "DRT" field.
082610 -    -if @412 = 776 errormsg  Need "I" for "DIT" field.
082611 -    -if @412 = 777 errormsg  Need "From" or "To" in secondary Doc Log fields.
082612 -    -if @412 = 778 errormsg  Need "subject" in secondary Doc Log fields.
082613 -    -if @412 = 779 errormsg  Doc ID 3rd position is only 0, 1, or 2.
082614 -    -if @412 = 780 errormsg  Filename must match for multi-ID document
082615 -    -if @412 = 781 errormsg  Doc spec missing "project" dir or "filename"
082616 -    -if @412 = 782 errormsg  Filename used twice for Doc; check "Typ" param
082617 -
082618 -
082620 -  ..
082621 - End Save Operation Ends
082622 -
082623 - Line 3380, ref OF 28 ZP9I, -label saveSR in sd 33 000010
082624 -
082625 -    -label saveSR
082626 -    -if @412 = 0 macro 1421
082627 -    -exit
082628 -
082629 -
082630 -
082631 -
082632 -
082633 -
082634 -
082635 -
082636 -
082637 -
0827 -