CONTACTS
SUBJECTS
Subject Index Automatic Construct Account Codes 2nd Level Binary Org
1903 -
1903 - ..
1904 - Summary/Objective
1905 -
190501 - Follow up ref SDS 10 0000, ref SDS 3 0000.
190502 -
190503 -
190504 -
190505 -
190507 - ..
1906 -
1907 -
1908 - Progress
1909 -
190901 - 03501 Fix Subject Code Load to Control Field SDS Records
190902 -
190903 - Follow up ref SDS 10 WY4G.
190904 -
190905 - Fixing Problems with Subject Index listed on 110709 1835, ref SDS 14
190906 - VN94
190907 -
190909 - ..
190910 - Line 4610, ref OF 3 5590, -label bHpf081 in \01\14\035010 about 160 lines below
190911 -
190912 - pfent macro 232................................ ref SDS 0 GJ4J
190913 -
190914 - Enter key in Subject Index calls macro 232
190915 -
190917 - ..
190918 - Line 1960, ref OF 7 4125, -entry 232 in \sd\33\000001
190919 -
190920 - -entry 232
190921 -
190923 - ..
190924 - Line 2060, ref OF 7 4290, -label stcr141 in \sd\33\000001
190925 -
190926 - -if @221 > @140 -if @221 <= @141 -goto 04402x
190927 -
190928 - When Enter or double click are executed, and the cursor is
190929 - within 10 columns of the beginning of the account
190930 - description, load this account and description to the SDS
190931 - record Control Field.
190932 -
190934 - ..
190935 - Line 2060, ref OF 7 RU5K, -label 04402x in \sd\33\000001
190936 -
190937 - -label 04402x
190938 - @c:\sd\33\03501 #12
190939 - -exit
190940 -
190941 - Call code in Subject Index profile, 03501
190942 -
190944 - ..
190945 - Line 5298, ref OF 4 T44G, -label bHpf081 in \01\14\035010 about 160 lines below
190946 -
190947 - -label ecsitcf
190948 - tl 0
190949 - -if @156 > 96 -if @156 < 123 -goto sof42c
190950 - -goto seop3
190951 - -label sof42c
190952 - setcnt 156 0
190953 - macro 65
190954 - -goto gsasqsc
190955 -
190956 - Enter key in Subject Index called from macro 232, per above.
190957 - ref SDS 0 QR6G
190958 -
190959 -
190961 - ..
190962 - Line 5450, ref OF 4 8H3H, -label 101102v in \01\14\035010 about 160 lines below
190963 -
190964 - -label 101102v
190965 - setcnt 0 0
190966 - setcnt 237 883
190967 - -gosub bH_sVx
190968 - setcnt 237 0
190969 -
190970 - debug test here.
190971 -
190972 -
190974 - ..
190975 - Line 1940, ref OF 5 WI4J, -label anfisR in \02\14\0350120
190976 -
190977 - *%8g
190978 - @c:\sd\33\03501
190979 - ecur 15
190980 -
190981 -
190982 -
190984 - ..
190985 - Line 2450, ref OF 5 4H5N, -label funop3 in \01\14\0350120 about 70 lines below
190986 -
190987 - -if @115 > 180 subcnt 115 1 3.
190988 -
190989 - Fixed code typgraphical error.
190990 -
190991 - Revised this code extensively to eliminate calculating ending
190992 - search zone based on char read macro 1189, and...
190993 -
190995 - ..
190996 - Line 2580, ref OF 5 WK9I, -label funop3 in \01\14\0350120 about 100 lines below
190997 -
190998 - setcnt 58 9992
190999 - macro 1189
191000 - setcnt 58 0
191001 - ic 32
191002 - ic 47
191003 - setcur 115 0
191004 - addcnt 115 48
191005 - immed a
191006 - loc_cur 3 6
191007 - inscnt 115 0
191008 -
191009 - added setcur 115 0 to get ending cursor col after macro 1189
191010 - enters the account string into the search macro; addcnt 115
191011 - 48 makes ending zone based on subject field in SDS record
191012 - starting with column 53.
191013 -
191014 -
191015 -
1911 -
SUBJECTS
Delete Subject Index File and Directory SDS Java Transform from DOSE
2703 -
270401 - ..
270402 - 03501 Delete Subject Index File Transform from DOSE /C to DOS CMD.EXE
270403 - Delete Subject Index File Transform from DOSE /C to DOS CMD.EXE 03501
270404 - Subject Index Delete File Switch from DOSE /C to DOS CMD.EXE 03501
270405 -
270407 - ..
270408 - Line 5290, ref OF 4 A79B, -label delIT in \01\14\035010
270409 -
270410 - -label delIT
270411 - e c:\sd\33\03501
270412 - line && *%5
270413 - loc_cur 4 3
270414 - setcnt 86 1
270415 - macro 1188
270416 - line && *%j5
270417 - macro 52
270418 - ins_text !dose /c del!
270419 - ins_text !dos cmd.exe /c del!
270420 - loc_cur 3 13
270421 - loc_cur 4 21
270422 - macro 1189
270423 - ins_text !" /q!
270424 - @w07j
270425 - of 0
270426 - loc_cur 0 1
270427 - *%j5
270428 - dos cmd.exe /c del "
270429 - e sndx
270430 - setcnt 100 3311
270431 - -goto bH_prior
270432 -
270433 - Decided can disconnect macro 52 and @ commands, and call new
270434 - SDS java "dos" command directly in 03501.
270436 - ..
270437 - For some reason had to put subject index path and filename in
270438 - quotes to get dos command to execute and return.
270439 -
270440 -
270441 -
270442 -
270443 -
270444 -
2705 -
SUBJECTS
Subject Index Automatic Construct Account Codes 2nd Level Binary Org
4303 -
430401 - ..
430402 - 03502 Modify Code Subject Index Control Field Ops SDS Records
430403 -
430404 - Follow up ref SDS 10 KG7L.
430405 -
430406 - Have to add code in SDS java macro file 01 14 03502 for processing
430407 - binary subject account assignements added on 110210 0746. ref SDS 3
430408 - DP5G to original SDS macro file 01 04 03502 developed on 070511 1447.
430409 - ref SDS 1 LP5J
430411 - ..
430412 - Compare SDS java verify Control Field account assignemnts to Subject
430413 - Index, with original SDS...
430414 -
430416 - ..
430417 - Line 1900, ref OF 2 S35M, -label anfisR in 01 04 0350120
430418 -
430419 - -label anfisR
430420 - dose /c c:\sd\01\03501.bat
430421 -
430422 -
430423 -
430424 -
430425 -
430427 - ..
430428 - Line 90, ref OF 3 LJ5F, -label bHstar in 01 04 035020
430429 -
430430 - -label bHstar
430431 - markcur 15
430432 - loc_cur 5 3
430433 - chrcnt 1 0
430434 -
430435 - Debug here.
430436 -
430437 -
430438 -
430439 -
430440 -
430442 - ..
430443 - Line 480, ref OF 3 Y45F, -label mm118 in 01 04 035020
430444 -
430445 - -label 8811mm
430446 - savescr 5
430447 - eol
430448 - rel_cur 0 -2
430449 - chrcnt 1 0
430450 - setcnt 262 0
430451 - -if @1 > 32 -goto n2bl
430452 -
430453 -
430455 - ..
430456 - Line 1030, ref OF 3 DC4F, -label fpaclar in 01 04 035020
430457 -
430458 - -label fpaclar
430459 - setcnt 0 0
430460 - setcnt 109 0
430461 - loc_cur 3 1
430462 - errorcnt 0 0
430463 - *%09f
430464 - z 4
430465 - **
430466 - l ^
430468 - ..
430469 - Search for intermediate account levels to set up for locating
430470 - command to find full account string.
430471 -
430472 -
430473 -
430475 - ..
430476 - Line 1100, ref OF 3 IF7F, -label nf1f3op in 01 04 035020
430477 -
430478 - setcnt 0 0
430479 - *%10
430480 - z 4
430481 - ****
430482 - l ^
430483 - -if @0 = 0 -goto acfnD
430484 -
430485 - Search for full account string, and if found, processing to
430486 - find the acount ends, and processing the account begins.
430487 -
430488 -
430490 - ..
430491 - Line 1420, ref OF 3 HN6K, -label tabca4 in 01 04 035020
430492 -
430493 - -label tabca4
430494 - -if @53 = 0 setcnt 58 1
430495 - setcnt 57 1
430496 - errorcnt 0 0
430497 - z 1 1
430498 - l / /
430499 - nb
430500 - linecnt 20 0
430501 - -if @20 > 150 -goto ftlss4...................... ref SDS 0 8S4G
430502 -
430503 - This may be where code is working in original SDS, but failing
430504 - in SDS java, per below. ref SDS 0 LL8G
430505 -
430506 -
430508 - ..
430509 - Line 1460, ref OF 3 9T7N, -label ftlss4 in \01\14\035020
430510 -
430511 - -label ftlss4
430512 - z 1 1
430513 - down
430514 - -label lp150
430515 - l-/ /
430516 - down
430517 - linecnt 20 0
430518 - -if @20 > 150 -goto lp150
430519 - loc_cur 5 40
430520 -
430521 - Code has now found an account that has less than 150 lines in
430522 - the current account segment file.
430524 - ..
430525 - Next step is to move accounts below the current account to the
430526 - next segment to maintain file size.
430527 -
430528 -
430529 -
430531 - ..
430532 - Line 5310, ref OF 3 3S4I, -label os88 in 01 04 035020
430533 -
430534 - -label os88
430535 - loc_cur 4 79
430536 - chrcnt 61 0
430537 - rel_cur 0 1
430538 - chrcnt 62 0
430539 -
430540 -
430542 - ..
430543 - Line 5520, ref OF 3 RI6N, -label 7332b in sd 04 035020 about 60 lines below
430544 -
430545 - debug test here at end of process discovered that up command
430546 - works differently in SDS java from original SDS.
430547 -
430548 - Reported this in the system development punch list in the
430549 - record on 110509 1047. ref SDS 6 668K
430550 -
430551 -
430552 -
430553 -
430554 - **************************************************************
430555 - **************************************************************
430557 - ..
430558 - Test record on 110607 0932. ref SDS 9 0001
430559 -
430561 - ..
430562 - Line 4520, ref OF 4 L39H, -label bHpf081 in \01\14\035010 about 80 lines below
430563 -
430564 - pa4 @c:\sd\33\03501 -gg swtwrd................... ref SDS 10 LL4J
430565 -
430566 - Main profile Subject Index Alt F4 switches order of words on a
430567 - line.
430568 -
430569 -
430571 - ..
430572 - Line 4690, ref OF 4 XP9L, -label swtwrd in \01\14\035010
430573 -
430574 - -label swtwrd
430575 - setcnt 117 1
430576 -
430577 - Called by Alt F4 to switch the order of words on a line in the
430578 - Subject Index.
430579 -
430580 -
430581 -
430582 -
430583 -
430585 - ..
430586 - Line 4820, ref OF 4 VS5F, -label swt2wrd in \01\14\03501
430587 -
430588 - -label swt2wrd
430589 - -gosub bHpf081
430590 - setcnt 117 0
430591 - -goto sw2d
430592 -
430593 - Code for F1 Alt F4 to switch the order of words.
430594 -
430595 -
430596 -
430597 -
430598 -
430600 - ..
430601 - Test SI ops...use the record on 110302 1518. ref SDS 4 0001
430602 -
430604 - ..
430605 - Line 1940, ref OF 5 WI4J, -label anfisR in \02\14\0350120
430606 -
430607 - @c:\sd\33\03501
430608 - -exit
430609 -
430610 - This code is edited to call macro 03502 for automatic
430611 - processing. -exit command was provided during initial SDS java
430612 - development on 110414 0732. ref SDS 5 FL4M
430614 - ..
430615 - Today, try removing -exit to see if normal processing will
430616 - continue as required.
430617 -
430618 -
430619 -
430620 -
430622 - ..
430623 - Line 90, ref OF 6 LJ5F, -label bHstar in \01\14\035020
430624 -
430625 - -label bHstar
430626 - markcur 15
430627 - loc_cur 5 3
430628 - chrcnt 1 0
430629 -
430630 - Debug here.
430631 -
430632 -
430633 -
430635 - ..
430636 - Line 280, ref OF 6 RS4M, -label 3memlv in \01\14\035020
430637 -
430638 - -label 3memlv
430639 - chrcnt 1 0
430640 - -if @1 != 45 -goto ESCj
430641 -
430642 - Looks like save .... command can be eliminated.
430643 -
430644 -
430645 -
430647 - ..
430648 - 1st Pass Setup Transfer File Process Next Account TOF
430649 -
430650 -
430651 - Line 340, ref OF 6 IS4L, -label lp69du in \01\14\035020
430652 -
430653 - -label lp69du
430654 - up
430655 - loc_cur 0 4
430656 - chrcnt 1 0
430657 - -if @1 != 45 -goto ESCj
430658 - loc_cur 0 52
430659 - chrcnt 1 0
430660 - -if @1 > 32 -goto lp69du
430661 - -if @110 = 7330 -if @77 != 5555 top
430662 - dose /c c:\sd\01\03502.bat
430663 - -goto 1pcadt
430664 -
430665 -
430666 -
430668 - ..
430669 - Line 480, ref OF 6 Y45F, -label mm118 in \01\14\035020
430670 -
430671 - -label 8811mm
430672 - savescr 5
430673 - eol
430674 - rel_cur 0 -2
430675 - chrcnt 1 0
430676 - setcnt 262 0
430677 - -if @1 > 32 -goto n2bl
430678 - setcnt 262 1
430679 - immed r
430680 - ic 32
430681 - macro 8
430682 - ic 32
430683 - -label n2bl
430684 - getscr 5
430685 -
430686 - This code was added today for SDS java to conform with changes
430687 - to code in original SDS on 110210, per above. ref SDS 10 8O9N
430688 -
430689 -
430690 -
430692 - ..
430693 - Line 1000, ref OF 6 WB6H, -label fpaclar in \01\14\035020
430694 -
430695 - -label fpaclar
430696 - setcnt 0 0
430697 - setcnt 109 0
430698 - loc_cur 3 1
430699 - errorcnt 0 0
430700 - *%09f
430701 - z 4
430702 - **
430703 - l ^
430705 - ..
430706 - Try debug here.
430707 -
430708 -
430710 - ..
430711 - Line 1060, ref OF 6 SI8V, -label nf1f3op in \01\14\035020
430712 -
430713 - -label nf1f3op
430714 - getgbl 117 117
430715 - -if @119 = 56 -if @117 = 32 -goto acfnD
430716 - down
430717 - setcnt 0 0
430718 - *%10
430719 - z 4
430720 - ****
430721 - l ^
430722 - -if @0 = 0 -goto acfnD
430723 - macro 23
430724 -
430725 - Debug try here after finding target account
430726 -
430727 -
430729 - ..
430730 - Possible Location Code Failure SDS Java
430731 - Move Account Next Segment Over 150 Lines
430732 -
430733 - Line 1420, ref OF 6 MJ6N, -label tabca4 in \01\14\035020
430734 -
430735 - -label tabca4
430736 - -if @53 = 0 setcnt 58 1
430737 - setcnt 57 1
430738 - errorcnt 0 0
430739 - z 1 1
430740 - l / /
430741 - nb
430742 - linecnt 20 0
430743 - -if @20 > 150 -goto ftlss4
430744 -
430745 - This may be where code is failing in SDS java, but working
430746 - correctly in original SDS, per above. ref SDS 0 3O8I
430747 -
430748 -
430749 -
430751 - ..
430752 - Line 1460, ref OF 6 9T7N, -label ftlss4 in \01\14\035020
430753 -
430754 - -label ftlss4
430755 - z 1 1
430756 - down
430757 - -label lp150
430758 - l-/ /
430759 - down
430760 - linecnt 20 0
430761 - -if @20 > 150 -goto lp150
430762 - loc_cur 5 40
430763 -
430764 - Code has now found an account that has less than 150 lines in
430765 - the current account segment file.
430767 - ..
430768 - Next step is to move accounts below the current account to the
430769 - next segment to maintain file size.
430770 -
430771 -
430772 -
430773 -
430774 -
430775 -
430776 -
430778 - ..
430779 - Line 1580, ref OF 6 YX6H, -label ftlss4 in \01\14\035020
430780 -
430781 - savx \sd\td\stufq10
430782 - -label lpup5
430783 - up
430784 - chrcnt 1 0
430785 - -if @1 != 58 -goto lpup5
430786 - immed dd
430787 - linecnt 132 0
430788 -
430789 - This could be where code fails when moving code to prior
430790 - segment, because SDS java saves content to \sd\td, rather than
430791 - to current directory \sd\10.
430792 -
430793 -
430794 -
430796 - ..
430797 - Line 3290, ref OF 6 KG7O, -label cmitp8 in \01\14\035020
430798 -
430799 - -label cmitp8
430800 - up 10
430801 - l-/. Master Index /
430802 - -if @0 = 0 -goto msiop
430803 - setcnt 0 0
430804 - up 10
430805 - l-/$$/
430806 - -if @0 > 0 -goto npsics
430808 - ..
430809 - Had to change l-/...../ commands, because original SDS required
430810 - a space -- l- /....../ --, but this form causes SDS java to
430811 - fail with command syntax error, reported in command listing.
430812 - ref OF 9 QSWW This is the same problem that occurred with
430813 - general search macro 06114, reported on 110530 1737,
430814 - ref SDS 7 8W9H, and more recently on 110603 0542. ref SDS 8
430815 - BG4M Morris changed format for reverse search, reported in the
430816 - record on 090417. ref SDS 2 H95M
430817 -
430818 -
430820 - ..
430821 - Test Debug Ops Modify 03502 Code SDS Java
430822 -
430824 - ..
430825 - Line 510, ref OF 6 E63I, -label n2adl in \01\14\035020
430826 -
430827 - -label n2adl
430828 - e c:\sd\33\03502
430829 - getgbl 110 110
430830 - debug 0
430831 - line 739 && *%5
430832 - loc_cur 4 12
430833 -
430834 - Debug 0 because this part of code seems to be working
430835 - correctly, and so will load the file and construct the account.
430836 -
430837 -
430839 - ..
430840 - Line 1150, ref OF 6 AE6J, -label acfnD in \01\14\035020
430841 -
430842 - -label acfnD
430843 - debug 100
430844 - getgbl 110 110
430845 - -if @110 != 7330 -goto rplctn5
430846 -
430847 - debug 100 here, because Code has found target account and is
430848 - ready to construct new accounts.
430849 -
430851 - ..
430852 - Line 2360, ref OF 6 ZM7L, -label cnsplj2 in \01\14\035020
430853 -
430854 - setcnt 103 2222
430855 - setcnt 0 0
430856 - setcnt 114 2831
430857 -
430858 - Flags in sndx for navigating back a level, need to be reset
430859 - after back navigation occurs, so subsequent accounts will
430860 - process correctly.
430862 - ..
430863 - Actually may be able to disconnect these for 03502, they seem
430864 - like legacy from 03501.
430865 -
430866 -
430868 - ..
430869 - 3rd Memory Level Disconnect SDS Java
430870 -
430871 -
430872 - Line 3040, ref OF 6 9L5I, -label lpsu4d in \01\14\03502
430873 -
430874 - -label lpsu4d
430875 - up
430876 - -if @0 > 0 -goto eop9g
430877 - chrcnt 1 0
430878 - -if @1 > 32 -goto lpsu4d
430879 - of 0
430880 - loc_cur 5 4
430881 - chrcnt 1 0
430882 - -if @77 = 5555 -goto j55j
430883 - down
430884 - -if @1 = 45 -goto lp69du
430885 - -goto eop9g
430886 -
430887 - Try disconnecting code that calls 3rd level memory and
430888 - process all accounts in primary memory.
430889 -
430890 -
430892 - ..
430893 - Line 5080, ref OF 6 MV9M, -label 7333m in \01\14\035020
430894 -
430895 -
430896 -
430898 - ..
430899 - Line 5270, ref OF 6 4E8K, -label 7333b in \01\14\035020
430900 -
430901 -
430903 - ..
430904 - Line 5120, ref OF 6 3S4I, -label os88 in \01\14\035020
430905 -
430906 - -label os88
430907 - loc_cur 4 79
430908 - chrcnt 61 0
430909 - rel_cur 0 1
430910 - chrcnt 62 0
430911 -
430913 - ..
430914 - Line 5320, ref OF 6 RI6N, -label 7332b in \01\14\035020 about 60 lines below
430915 -
430916 - Test debug here compare with original SDS.
430917 -
430918 -
430920 - ..
430921 - Line 5430, ref OF 6 V15L, -label stufqei in \01\14\035020 about 60 lines below
430922 -
430923 - -label stufqei
430924 - e c:\sd\33\03502
430925 - purge sndx
430926 - getgbl 1 77
430927 - -if @1 = 5555 purge c:\sd\10\stufqei
430928 - -if @1 != 5555 macro 229
430929 - @c:\sd\33\035012 #4
430930 - -exit
430931 -
430932 - Since this code executes in primary memory, can disconnect code
430933 - required for secondary memory. Added call to continue
430934 - processing in 035012, similar to main subject index profile
430935 - macro 03501, developed on 110414 0732. ref SDS 5 T65F
430936 -
430937 -
430938 -
430940 - ..
430941 - Line 3500, ref OF 6 O15M, -label npsics in \01\14\035020 about 50 lines below
430942 -
430943 - Why is acronym code in interactive macro 03502?
430944 -
430945 -
430947 - ..
430948 - Line 5590, ref OF 6 N65L, -label ovRx6 in \sd\14\035020
430949 -
430950 - -label ovRx6
430951 - savx \sd\td\stufqei
430952 -
430953 - savx command not needed on each pass constructing revised
430954 -
430955 -
430956 -
430957 -
430958 -
430959 -
430960 -
430961 -
430962 -
430963 -
430964 -
430965 -
430966 -
430967 -
430968 -
430969 -
430970 -
4310 -