Welch Company
San Francisco, CA
S U M M A R Y
DIARY: June 18, 2011 06:22 AM Saturday;
Rod Welch
SDS subject index automate create binary levels enter to Control Fields.
1...Summary/Objective
2...03502 Modify Code Subject Index Control Field Ops SDS Records
..............
Click here to comment!
CONTACTS
SUBJECTS
Subject Index Automatic Construct Account Codes 2nd Level Binary Org
1903 -
1903 - ..
1904 - Summary/Objective
1905 -
190501 - Follow up ref SDS 1 0000.
190502 -
190503 -
190504 -
190505 -
190507 - ..
1906 -
1907 -
1908 - Progress
1909 -
190901 - 03502 Modify Code Subject Index Control Field Ops SDS Records
190902 -
190903 - Have to add code for binary subject account assignements added on
190904 - 110210 0746. ref SDS 1 DP5G to original SDS macro file 03502 to the
190905 - code for SDS java in 03502.
190907 - ..
190908 - Compare SDS java verify Control Field account assignemnts to Subject
190909 - Index, with original SDS...
190910 -
190912 - ..
190913 - Line 1900, ref OF 1 S35M, -label anfisR in 01 04 0350120
190914 -
190915 - -label anfisR
190916 - dose /c c:\sd\01\03501.bat
190917 -
190918 -
190919 -
190920 -
190921 -
190923 - ..
190924 - Line 90, ref OF 2 LJ5F, -label bHstar in 01 04 035020
190925 -
190926 - -label bHstar
190927 - markcur 15
190928 - loc_cur 5 3
190929 - chrcnt 1 0
190930 -
190931 - Debug here.
190932 -
190933 -
190935 - ..
190936 - Line 480, ref OF 2 Y45F, -label mm118 in 01 04 035020
190937 -
190938 - -label 8811mm
190939 - savescr 5
190940 - eol
190941 - rel_cur 0 -2
190942 - chrcnt 1 0
190943 - setcnt 262 0
190944 - -if @1 > 32 -goto n2bl
190945 -
190946 -
190948 - ..
190949 - Line 1030, ref OF 2 DC4F, -label fpaclar in 01 04 035020
190950 -
190951 - -label fpaclar
190952 - setcnt 0 0
190953 - setcnt 109 0
190954 - loc_cur 3 1
190955 - errorcnt 0 0
190956 - *%09f
190957 - z 4
190958 - **
190959 - l ^
190961 - ..
190962 - Search for intermediate account levels to set up for locating
190963 - command to find full account string.
190964 -
190965 -
190966 -
190968 - ..
190969 - Line 1100, ref OF 2 IF7F, -label nf1f3op in 01 04 035020
190970 -
190971 - setcnt 0 0
190972 - *%10
190973 - z 4
190974 - ****
190975 - l ^
190976 - -if @0 = 0 -goto acfnD
190977 -
190978 - Search for full account string, and if found, processing to
190979 - find the acount ends, and processing the account begins.
190980 -
190981 -
190983 - ..
190984 - Line 5310, ref OF 2 3S4I, -label os88 in 01 04 035020
190985 -
190986 - -label os88
190987 - loc_cur 4 79
190988 - chrcnt 61 0
190989 - rel_cur 0 1
190990 - chrcnt 62 0
190991 -
190992 -
190994 - ..
190995 - Line 5520, ref OF 2 RI6N, -label 7332b in sd 04 035020 about 60 lines below
190996 -
190997 -
190998 - debug test here at end of process discovered that up command
190999 - works differently in SDS java from original SDS.
191000 -
191001 - Reported this in the system development punch list in the
191002 - record on 110509 1047. ref SDS 4 668K
191003 -
191004 - [On 110621 1240 Morris fixed up command; testing shows this
191005 - solved problem causing subject index ops to fail.
191006 - ref SDS 7 668K
191007 -
191008 -
191009 -
191010 - **************************************************************
191011 - **************************************************************
191013 - ..
191014 - Test SI ops...use the record on 110302 1518. ref SDS 2 0001
191015 -
191017 - ..
191018 - Line 1940, ref OF 4 WI4J, -label anfisR in \02\14\0350120
191019 -
191020 - @c:\sd\33\03501
191021 - -exit
191022 -
191023 - This code is edited to call macro 03502 for automatic
191024 - processing. -exit command was provided during initial SDS java
191025 - development on 110414 0732. ref SDS 3 FL4M
191027 - ..
191028 - Today, try removing -exit to see if normal processing will
191029 - continue as required.
191030 -
191031 -
191033 - ..
191034 - Line 90, ref OF 5 LJ5F, -label bHstar in \01\14\035020
191035 -
191036 - -label bHstar
191037 - markcur 15
191038 - loc_cur 5 3
191039 - chrcnt 1 0
191040 -
191041 - Debug here.
191042 -
191043 -
191045 - ..
191046 - Line 480, ref OF 5 Y45F, -label mm118 in \01\14\035020
191047 -
191048 - -label 8811mm
191049 - savescr 5
191050 - eol
191051 - rel_cur 0 -2
191052 - chrcnt 1 0
191053 - setcnt 262 0
191054 - -if @1 > 32 -goto n2bl
191055 - setcnt 262 1
191056 - immed r
191057 - ic 32
191058 - macro 8
191059 - ic 32
191060 - -label n2bl
191061 - getscr 5
191062 -
191063 - This code was added today for SDS java to conform with changes
191064 - to code in original SDS on 110210, per above. ref SDS 0 8O9N
191065 -
191066 -
191067 -
191069 - ..
191070 - Line 1000, ref OF 5 WB6H, -label fpaclar in \01\14\035020
191071 -
191072 - -label fpaclar
191073 - setcnt 0 0
191074 - setcnt 109 0
191075 - loc_cur 3 1
191076 - errorcnt 0 0
191077 - *%09f
191078 - z 4
191079 - **
191080 - l ^
191082 - ..
191083 - Try debug here.
191084 -
191085 -
191087 - ..
191088 - Line 1060, ref OF 5 SI8V, -label nf1f3op in \01\14\035020
191089 -
191090 - -label nf1f3op
191091 - getgbl 117 117
191092 - -if @119 = 56 -if @117 = 32 -goto acfnD
191093 - down
191094 - setcnt 0 0
191095 - *%10
191096 - z 4
191097 - ****
191098 - l ^
191099 - -if @0 = 0 -goto acfnD
191100 - macro 23
191101 -
191102 - Debug try here after finding target account
191103 -
191104 -
191105 -
191107 - ..
191108 - Line 3290, ref OF 5 KG7O, -label cmitp8 in \01\14\035020
191109 -
191110 - -label cmitp8
191111 - up 10
191112 - l-/. Master Index /
191113 - -if @0 = 0 -goto msiop
191114 - setcnt 0 0
191115 - up 10
191116 - l-/$$/
191117 - -if @0 > 0 -goto npsics
191118 -
191119 - Had to change l-/...../ commands, because original SDS required
191120 - a space -- l- /....../ --, but this form causes SDS java to
191121 - fail with command syntax error. This is the same problem that
191122 - occurred with general search macro 06114, reported on 110530
191123 - 1737, ref SDS 5 8W9H, and more recently on 110603 0542.
191124 - ref SDS 6 BG4M
191125 -
191126 -
191127 -
191129 - ..
191130 - Line 5080, ref OF 5 MV9M, -label 7333m in \01\14\035020
191131 -
191132 -
191133 -
191135 - ..
191136 - Line 5270, ref OF 5 4E8K, -label 7333b in \01\14\035020
191137 -
191138 -
191140 - ..
191141 - Line 5120, ref OF 5 3S4I, -label os88 in \01\14\035020
191142 -
191143 - -label os88
191144 - loc_cur 4 79
191145 - chrcnt 61 0
191146 - rel_cur 0 1
191147 - chrcnt 62 0
191148 -
191150 - ..
191151 - Line 5320, ref OF 5 RI6N, -label 7332b in \01\14\035020 about 60 lines below
191152 -
191153 - Test debug here compare with original SDS.
191154 -
191155 -
191157 - ..
191158 - Line 5430, ref OF 5 V15L, -label stufqei in \01\14\035020 about 60 lines below
191159 -
191160 - -label stufqei
191161 - e c:\sd\33\03502
191162 - purge sndx
191163 - getgbl 1 77
191164 - -if @1 = 5555 purge c:\sd\10\stufqei
191165 - -if @1 != 5555 macro 229
191166 - @c:\sd\33\035012 #4
191167 - -exit
191168 -
191169 - Since this code executes in primary memory, can disconnect code
191170 - required for secondary memory. Added call to continue
191171 - processing in 035012, similar to main subject index profile
191172 - macro 03501, developed on 110414 0732. ref SDS 3 T65F
191173 -
191174 -
191175 -
191176 -
191177 -
191178 -
191179 -
191180 -
191181 -
191182 -
1912 -