| 1 | .DATE 23 DEC 99 10:40:56 RID 6I 17 DEC 92 IGOR |
| 2 | .PROSPECTS RUN: DAILYWKA DESC: DAILY ACTION LIST BY: JOE I0400 |
| 3 | *==============================================================================. |
| 4 | @ldv,w V20I3=erid$ |
| 5 | @def,,lin +1 V21A4,V22 |
| 6 | @if V22(1-4) = V20 |
| 7 | @ldv V27A4=V22(5-4) |
| 8 | @gto V27 |
| 9 | 1: |
| 10 | @psh |
| 11 | @clv |
| 12 | @ldv,l V27A4='V22' |
| 13 | @ldv V26I3=V27(2-3) |
| 14 | @pek,V26,1 |
| 15 | @ldv V26I3=10 |
| 16 | @ldv,p V23S80=V22 |
| 17 | @ldv V19H6='' |
| 18 | @ldv,l V27A4='V19',V24I3=V27(2-3),V25I3=V22(V26-3) |
| 19 | @ldv V23(V26-3)=V24 |
| 20 | @pek,V25,1,-1 |
| 21 | @ldv vV24=vV25 |
| 22 | @pok,V24,1 |
| 23 | @inc,4 V26 |
| 24 | @ldv V15A12='' |
| 25 | @ldv,l V27A4='V15',V24I3=V27(2-3),V25I3=V22(V26-3) |
| 26 | @ldv V23(V26-3)=V24 |
| 27 | @pek,V25,1,-1 |
| 28 | @ldv vV24=vV25 |
| 29 | @pok,V24,1 |
| 30 | @inc,4 V26 |
| 31 | @ldv,l V27A4='V23' |
| 32 | @ldv V26I3=V27(2-3) |
| 33 | @pok,V26,1 |
| 34 | @pop |
| 35 | @ldv V30A6=V7(1-6) |
| 36 | @if V19 . . = B,(13) |
| 37 | 2: |
| 38 | @ldv V19H6='',V28I3=1 |
| 39 | @ldv V231A6='' |
| 40 | @lcv T% V231 ' '/'_' |
| 41 | @ldv V232A4='' |
| 42 | @lcv T% V232 ' '/'_' |
| 43 | @ldv V233A5='' |
| 44 | @lcv T% V233 ' '/'_' |
| 45 | @ldv V234A3='' |
| 46 | @lcv T% V234 ' '/'_' |
| 47 | @ldv V227A1='' |
| 48 | @lcv T% V227 ' '/'_' |
| 49 | @ldv V224A2='' |
| 50 | @lcv T% V224 ' '/'_' |
| 51 | @ldv V235A6='' |
| 52 | @lcv T% V235 ' '/'_' |
| 53 | @ldv V222A6='' |
| 54 | @lcv T% V222 ' '/'_' |
| 55 | @ldv V223S20='' |
| 56 | @lcv T% V223 ' '/'_' |
| 57 | @ldv V226A6='' |
| 58 | @lcv T% V226 ' '/'_' |
| 59 | @ldv V48S40='' |
| 60 | @lcv T% V48 ' '/'_' |
| 61 | @brk,0,1 |
| 62 | V7 PGM V20 |
| 63 | 2 Please enter ACTION item selection criteria: |
| 64 | |
| 65 | PRODUCT V231, FEAT V232, VERS V233, TYPE V234, |
| 66 | PRIORITY V227, STATUS V224, |
| 67 | PROJECT V235, |
| 68 | COMPANY V222, |
| 69 | PERSON V223, |
| 70 | REP V226, (use only when X entered below) |
| 71 | TEXT V48, (use & for AND) |
| 72 | |
| 73 | Result: _, (Enter R to create MAPPER result) |
| 74 | |
| 75 | 2 TRANSMIT > _ , (Blank lists items assigned for YOUR action) |
| 76 | (Enter (X) for items where you are the MANAGER) |
| 77 | @chg V31I2 6 +1 |
| 78 | @dec V31 |
| 79 | @if V31 le 0,(lin +3) |
| 80 | |
| 81 | @gto lin -2 |
| 82 | 'PROS MENU' V1 _ , EXIT V1 , |
| 83 | F1-ALL F2-REPAINT F3-HELP F4-MENU F10-EXIT |
| 84 | @brk |
| 85 | @key |
| 86 | @chg invar$ V231A6,V232A4,V233A5,V234A3,V227A1,V224A2,V235A6,V222A6,V223S20,V226A6,V48S40,V29A1,V19 |
| 87 | @if V15 = 'ALL' |
| 88 | @ldv V28I3=12 |
| 89 | @out,-0,2,23,1,V28,y,,,p,y |
| 90 | @if V15 ne 'ALL' |
| 91 | @out,-0,2,23,1,V28,y,,,p |
| 92 | 3: |
| 93 | @ldv V15A12='' |
| 94 | @if fkey$ = 1,(4) |
| 95 | @if fkey$ > 0,(5) |
| 96 | @if soeh$ > 67 |
| 97 | @rel |
| 98 | @if soeh$ > 55 |
| 99 | @ldv V19H6=V231(1-1) |
| 100 | @gto 34 |
| 101 | @if curv$ = 13,(5) |
| 102 | 4: |
| 103 | @ldv V28I3=-3 |
| 104 | @chg invar$ V231A6,V232A4,V233A5,V234A3,V227A1,V224A2,V235A6,V222A6,V223S20,V226A6,V48S40,V29A1,V19 |
| 105 | @out,-0,1,0,24,V28,y,,,p,y |
| 106 | 5: |
| 107 | @ldv V256H12='',V254H12='DAILYWKA',V255I3=1,V75I3=2 |
| 108 | @if FKEY$ = 2,(2),3,(26),4,(34) |
| 109 | @if FKEY$ = 10 |
| 110 | @rel |
| 111 | @lcv '' V231 '_'/' ' |
| 112 | @lcv '' V232 '_'/' ' |
| 113 | @lcv '' V233 '_'/' ' |
| 114 | @lcv '' V234 '_'/' ' |
| 115 | @lcv '' V227 '_'/' ' |
| 116 | @lcv '' V224 '_'/' ' |
| 117 | @lcv '' V235 '_'/' ' |
| 118 | @lcv '' V222 '_'/' ' |
| 119 | @lcv '' V223 '_'/' ' |
| 120 | @lcv '' V226 '_'/' ' |
| 121 | @lcv '' V29 '_'/' ' |
| 122 | @lcv '' V19 '_'/' ' |
| 123 | @lcv '' V48 '_'/' ' |
| 124 | @if fkey$ = 0,(6) |
| 125 | @brk |
| 126 | INVALID FUNCTION KEY |
| 127 | @brk |
| 128 | @key |
| 129 | @chg invar$ V231A6,V232A4,V233A5,V234A3,V227A1,V224A2,V235A6,V222A6,V223S20,V226A6,V48S40,V29A1,V19 |
| 130 | @out,-0,2,1,23,1,Y,,,P . . |
| 131 | @gto 3 |
| 132 | 6: |
| 133 | @if V231(1-1) = ? |
| 134 | @ldv V256H12='ACTPROD' V28I3=1 |
| 135 | @gto 26 |
| 136 | @if V232(1-1) = ? |
| 137 | @ldv V256H12='ACTFEAT' V28I3=1 |
| 138 | @gto 26 |
| 139 | @if V233(1-1) = ? |
| 140 | @ldv V256H12='ACTVERS' V28I3=1 |
| 141 | @gto 26 |
| 142 | @if V234(1-1) = ? |
| 143 | @ldv V256H12='ACTPRTYP' V28I3=1 |
| 144 | @gto 26 |
| 145 | @if V227(1-1) = ? |
| 146 | @ldv V256H12='ACTPTY' V28I3=1 |
| 147 | @gto 26 |
| 148 | @if V224(1-1) = ? |
| 149 | @ldv V256H12='ACTSTAT' V28I3=1 |
| 150 | @gto 26 . . |
| 151 | @if V235(1-1) = ? |
| 152 | @ldv V256H12='ACTPROJ' V28I3=1 |
| 153 | @gto 26 |
| 154 | @if V222(1-1) = ? |
| 155 | @ldv V256H12='ACTCOMP' V28I3=1 |
| 156 | @gto 26 |
| 157 | @if V223(1-1) = ? |
| 158 | @ldv V256H12='ACTNAM' V28I3=1 |
| 159 | @gto 26 |
| 160 | @if V226(1-1) = ? |
| 161 | @ldv V256H12='ACTREP' V28I3=1 |
| 162 | @gto 26 . . |
| 163 | @ldv V30A6=V7(1-6) |
| 164 | @ldv V13S80='2 COMP LAST NAME ''PHONE'' PROD COMPANY' |
| 165 | @ldv V13(65-14)='ST MGR P SUSP' |
| 166 | @ldv V14S80='2 ------ ---------- ------------ ------ -------------------- -- ---- - ------' |
| 167 | @if V11 = P |
| 168 | @if V19 = P |
| 169 | @ldv V30A6='' |
| 170 | @gto 7 |
| 171 | @if V19 ne X,(8) |
| 172 | @ldv V13(68-4)=ASG |
| 173 | 7: |
| 174 | @brk,0,1 |
| 175 | 3 V43 |
| 176 | @brk |
| 177 | @ldv V43S80='' |
| 178 | @out,-0,2,1,23,0,y,y,,p |
| 179 | @srh,V4,G,,,,12 dh@R4-33 8-6,15-20,36-2,46-6,53-1,55-6,72-6,79-4,84-5,90-3,94-6 ,V222,V223,V224,V226,V227,V30,V231,V232,V233,V234,V235 |
| 180 | @rnm -1 |
| 181 | @srh,V4,G,-1,,,12 dhn@ 2-5,46-6 ,@/ ,,V30 |
| 182 | @rnm -1 |
| 183 | @gto 9 |
| 184 | 8: |
| 185 | @brk,0,1 |
| 186 | 3 V43 |
| 187 | @brk |
| 188 | @ldv V43S80='' |
| 189 | @out,-0,2,1,23,0,y,y,,p |
| 190 | @srh,V4,G,V9,,,12 dh@ 8-6,15-20,36-2,46-6,53-1,72-6,79-4,84-5,90-3,94-6 ,V222,V223,V224,V30,V227,V231,V232,V233,V234,V235 |
| 191 | @rnm -1 |
| 192 | @srh,V4,G,-1,,,12 dhn@ 2-5 ,@ |
| 193 | @rnm -1 |
| 194 | 9: |
| 195 | @lcv '' V48 & V67I4 |
| 196 | @if V67 = 1 |
| 197 | @ldv V48(1-1)=' ' |
| 198 | @gto 9 |
| 199 | @if V67 = 40 |
| 200 | @ldv V48(40-1)=' ' |
| 201 | @if V67 = 0 |
| 202 | @ldv V67I4=40 |
| 203 | @gto lin +1 |
| 204 | @dec V67 |
| 205 | @ldv V49S40=V48(1-V67) |
| 206 | @ldv,p V49=V49 |
| 207 | @if V67 < 40 |
| 208 | @inc V67 |
| 209 | @ldv V48(1-V67)=' ' |
| 210 | @loc,-1,,10 afmo 8-70 V49 |
| 211 | @mch,-0,-1 m 2-5 .,1 2-5 ,1 |
| 212 | @rnm -1 |
| 213 | @if V67 < 40,(9) |
| 214 | 10: |
| 215 | @sor,V4,G,-1 '' 8-6,15-20 |
| 216 | @rnm -1 |
| 217 | @if V29 = r |
| 218 | @dsp,V4,G,-1,,,,,,' PLAIN ACTION ITEMS - Resume or F1 to continue.' . -- |
| 219 | @mch,V4,B,2,V4,G,-1 dp 2-6,9-20 ,1,a 8-6,79-20 ,1,a |
| 220 | @rnm -1 |
| 221 | @srh,V4,C dhnl(*.)e8000@R3-V2 . . 2-6 ,@ |
| 222 | @mch,V4,C,-0,V4,G,-1 dp 2-6,9-20,62-3,66-8 ,1,2,a,b 8-6,15-20,100-3,104-8 ,1,2,a,b |
| 223 | @rnm -1 |
| 224 | @sor,V4,G,-1 '' 39-6 |
| 225 | @rnm -1 |
| 226 | @if V29 = r |
| 227 | @dsp,-1,,,2,,,' WITH COMP-PEO INFO - RSM or F1 to cont.' . -- Y2K |
| 228 | @brk,V4,G |
| 229 | |
| 230 | *==V19(1-1) |
| 231 | V13 |
| 232 | V14 |
| 233 | @if V19 = X,(11) |
| 234 | @rdc,V4,G,-1,,, 2-5,8-6,15-20,36-2,39-6,46-6,53-1,55-6,72-6,79-20,100-3,104-8 V221A5,V222A6,V223S20,V224A2,V225A6,V226A6,V227A1,V228A6,V231A6,V243S35,V261A3,V262A8 |
| 235 | V221_ ,V222 V223(1-10) V261 V262 V231 V243(1-20) V224 V228(1-4) V227 V225 V226 |
| 236 | @gto 14 |
| 237 | 11: |
| 238 | @rdc,V4,G,-1,,, 2-5,8-6,15-20,36-2,39-6,46-6,53-1,72-6,79-20,100-3,104-8 V221A5,V222A6,V223S20,V224A2,V225A6,V226A6,V227A1,V231A6,V243S35,V261A3,V262A8 |
| 239 | V221_ ,V222 V223(1-10) V261 V262 V231 V243(1-20) V224 V226(1-4) V227 V225 V226 |
| 240 | @gto 14 |
| 241 | 12: |
| 242 | @ldv V43S80=' NO ACTION ITEMS FOR USER = 'V30' ' |
| 243 | @brk,0,1 |
| 244 | 2V43(1-59) - XMIT to cont. , |
| 245 | @brk |
| 246 | @out,-0,2,1,23,-1,y,,,p |
| 247 | @ldv V43S80='' |
| 248 | @ldv V15A12='',V16A12='' |
| 249 | @gto 2 |
| 250 | 13: |
| 251 | @if V19 ne B |
| 252 | @if V19 ne '',(34) |
| 253 | @ldv V19H6='' |
| 254 | @fdr,V4,G,V10 '' 2-1 *,= ,V34I6 |
| 255 | @rln 6-5,12-3 V32I4,V28I3 |
| 256 | @if V28 < 1 |
| 257 | @ldv V28I3=1 |
| 258 | @rln 1-80 V13S80 |
| 259 | @rln 1-80 V14S80 |
| 260 | @ldv V35I6=V32,V69I8=V28 |
| 261 | @if V15 ne '' |
| 262 | @ldv,p V15=V15 |
| 263 | @loc,V4,G,V10 afm 2-131 V15 ,V32I4 |
| 264 | @ldv V28I3=1,V15A12='' |
| 265 | @if V32 = 0 |
| 266 | @ldv V32I4=V35,V28I3=V69 |
| 267 | @gto 17 |
| 268 | 14: |
| 269 | @brk,V4,G |
| 270 | 15: |
| 271 | @loc,-0,V69,16 afm 7-4 '_ ,1' ,V69I8 |
| 272 | @rdl,-0,V69 1-132 V44S132 |
| 273 | @wrl,-0,V69 2-131 ,V44(2-8)' 'V44(10-5)V44(16-115) |
| 274 | @gto 15 |
| 275 | 16: |
| 276 | @rep,V4,G,-0,V4,G,V10 |
| 277 | @fnd,V4,G,V10 '' 2-1 *,= ,V34I6 |
| 278 | @chg V32I4 V34 +3 |
| 279 | @ldv V28I3=1 |
| 280 | 17: |
| 281 | @lln,V4,G,V10 V69I8 |
| 282 | @chg V70I8 V34 +2 |
| 283 | @if V69 = V70,(12) |
| 284 | @chg V70I8 V69 - V34 -2 |
| 285 | @brk,0,1 |
| 286 | V7 OPEN ACTION ITEMS PGM V20 |
| 287 | V13 |
| 288 | V14 |
| 289 | @rdc,V4,G,V10,V32,18,,18 1-80 V44S132 |
| 290 | V1 V44(7-78) |
| 291 | 18: |
| 292 | @chg V72I8 . . 17 - V69 +V32 +1 |
| 293 | @dec V72 |
| 294 | @if V72 le 0,(lin +3) |
| 295 | |
| 296 | @gto lin -2 |
| 297 | @chg V72I8 V32 - V34 -2 |
| 298 | @chg V71I8 V72 + 17 |
| 299 | @if V71 > V70 |
| 300 | @ldv V71I8=V70 |
| 301 | V14 |
| 302 | @ldv,l V67I4=V72(5-4) |
| 303 | @ldv V46S80='2ITEM'V1' 'V67',2('V70(5-4)') ROLL'V1,V46(26-44)=' ___ ,2 PRINT'V1' ,2RESULT'V1' ,2PROSMENU'V1,V46(64-15)=' _ ,2EXIT'V1' ,' |
| 304 | V46 |
| 305 | F5 - ROLL F6 - ROLL BACK F3 - HELP Line options: XMIT(edit),G,M,N,P,T,U |
| 306 | @fnd,V4,G,V10 '' 2-1 *,= ,V34I6 |
| 307 | @lok,V4,G,V10 |
| 308 | @wrl,V4,G,V10,V34 6-5,12-3 *,V32,V28 |
| 309 | @ulk |
| 310 | @brk |
| 311 | @key |
| 312 | @chg invar$ V59A4 |
| 313 | @out,-0,2,24,0,V28,y,,,p |
| 314 | 19: |
| 315 | @ldv V255I3=2,V256H12=' ' |
| 316 | @if fkey$ = 5 |
| 317 | @ldv V59A4='+' |
| 318 | @gto 22 |
| 319 | @if fkey$ = 6 |
| 320 | @ldv V59A4='-' |
| 321 | @gto 22 |
| 322 | @if fkey$ = 2,(17),3,(27),4,(2) |
| 323 | @if fkey$ = 10 |
| 324 | @rel |
| 325 | @if fkey$ = 0,(20) |
| 326 | @brk . . |
| 327 | INVALID FUNCTION KEY |
| 328 | @brk |
| 329 | @key |
| 330 | @chg invar$ V59A4 |
| 331 | @out,-0,2,1,23,1,y,,,p |
| 332 | @gto 19 |
| 333 | 20: |
| 334 | @if curv$ < 2,(13) |
| 335 | @if curv$ < 22 |
| 336 | @chg V34I6 V32 + curv$ -3 |
| 337 | @chg V28I3 curv$ -2 |
| 338 | @gto 25 |
| 339 | @if soeh$ > 71 |
| 340 | @rel |
| 341 | @if soeh$ > 62 |
| 342 | @ldv V19H6=V59(1-1),V15A12='' |
| 343 | @gto 34 |
| 344 | @if soeh$ > 48,(24) |
| 345 | @if soeh$ < 38,(21) |
| 346 | @rsl,V4,G,V10 |
| 347 | @rnm -4 |
| 348 | @ldv V69I8=4 |
| 349 | @ldv V26I3=1,V22S80='' |
| 350 | @ldv,l V27A4='70' |
| 351 | @ldv V22(V26-4)=V27 |
| 352 | @inc,4 V26 |
| 353 | @ldv,l V27A4='13' |
| 354 | @ldv V22(V26-4)=V27 |
| 355 | @inc,4 V26 |
| 356 | @ldv,l V27A4='V69' |
| 357 | @ldv V22(V26-4)=V27 |
| 358 | @inc,4 V26 |
| 359 | @ldv,w V22(1-4)=erid$ |
| 360 | @ldv V22(V26-1)='.' |
| 361 | @ldv,p V22=V22 |
| 362 | @psh |
| 363 | @clv |
| 364 | @pek,1,28 |
| 365 | @gto rpx 70 |
| 366 | 21: |
| 367 | @ldv V28I3=-5 |
| 368 | @if soeh$ < 12 |
| 369 | @if V67 = 1 |
| 370 | @if V59 = 1 |
| 371 | @ldv V59A4=19 |
| 372 | @if soeh$ < 12 |
| 373 | @juv,r V59 |
| 374 | @fnd,V4,G,V10 '' 2-1 *,= ,V34I6 |
| 375 | @chg V32I4 V59 + V34 +2 |
| 376 | @gto 23 |
| 377 | 22: |
| 378 | @lcv '' V59 '_'/' ' |
| 379 | @if V59 = '+ ',' ' |
| 380 | @ldv V59A4=18 |
| 381 | @if V59 = '- ' |
| 382 | @ldv V59A4='-18' |
| 383 | @def V31I2,V59 |
| 384 | @if V31 ne 1 |
| 385 | @ldv V59A4=0 |
| 386 | @inc,V59 V32 |
| 387 | @fnd,V4,G,V10 '' 2-1 *,= ,V34I6 |
| 388 | 23: |
| 389 | @chg V72I8 V34 +3 |
| 390 | @if V32 < V72 |
| 391 | @chg V32 V72 |
| 392 | @if V32 > V69 |
| 393 | @chg V32 V69 -17 |
| 394 | @if V32 < V72 |
| 395 | @chg V32 V72 |
| 396 | @gto 17 |
| 397 | 24: |
| 398 | @rsl,V4,G,V10 |
| 399 | @dsp,V4,G,-0,V32 |
| 400 | @gto 13 |
| 401 | 25: |
| 402 | @rdl,V4,G,V10,V34 2-5,10-6,17-10,86-6 V221A5,V222A6,V223S20,V226A6 |
| 403 | @fnd,V4,G,V10 '' 2-1 *,= ,V34I6 |
| 404 | @lok,V4,G,V10 |
| 405 | @wrl,V4,G,V10,V34 6-5,12-3 *,V32,V28 |
| 406 | @ulk |
| 407 | @ldv V256H12='LISTITEM' |
| 408 | @if V59(1-1) = G,(28),M,(29),N,(30),P,(31),T,U,(32),?,(27) |
| 409 | @ldv V26I3=1,V22S80='' |
| 410 | @ldv,l V27A4='8' |
| 411 | @ldv V22(V26-4)=V27 |
| 412 | @inc,4 V26 |
| 413 | @ldv,l V27A4='13' |
| 414 | @ldv V22(V26-4)=V27 |
| 415 | @inc,4 V26 |
| 416 | @ldv,l V27A4='V19' |
| 417 | @ldv V22(V26-4)=V27 |
| 418 | @inc,4 V26 |
| 419 | @ldv,l V27A4='V226' |
| 420 | @ldv V22(V26-4)=V27 |
| 421 | @inc,4 V26 |
| 422 | @ldv,l V27A4='V221' |
| 423 | @ldv V22(V26-4)=V27 |
| 424 | @inc,4 V26 |
| 425 | @ldv,w V22(1-4)=erid$ |
| 426 | @ldv V22(V26-1)='.' |
| 427 | @ldv,p V22=V22 |
| 428 | @psh |
| 429 | @clv |
| 430 | @pek,1,28 |
| 431 | @gto rpx 8 |
| 432 | 26: |
| 433 | @ldv V26I3=1,V22S80='' |
| 434 | @ldv,l V27A4='90' |
| 435 | @ldv V22(V26-4)=V27 |
| 436 | @inc,4 V26 |
| 437 | @ldv,l V27A4='2' |
| 438 | @ldv V22(V26-4)=V27 |
| 439 | @inc,4 V26 |
| 440 | @ldv,l V27A4='V254' |
| 441 | @ldv V22(V26-4)=V27 |
| 442 | @inc,4 V26 |
| 443 | @ldv,l V27A4='V255' |
| 444 | @ldv V22(V26-4)=V27 |
| 445 | @inc,4 V26 |
| 446 | @ldv,l V27A4='V256' |
| 447 | @ldv V22(V26-4)=V27 |
| 448 | @inc,4 V26 |
| 449 | @ldv,w V22(1-4)=erid$ |
| 450 | @ldv V22(V26-1)='.' |
| 451 | @ldv,p V22=V22 |
| 452 | @psh |
| 453 | @clv |
| 454 | @pek,1,28 |
| 455 | @gto rpx 90 |
| 456 | 27: |
| 457 | @ldv V26I3=1,V22S80='' |
| 458 | @ldv,l V27A4='90' |
| 459 | @ldv V22(V26-4)=V27 |
| 460 | @inc,4 V26 |
| 461 | @ldv,l V27A4='13' |
| 462 | @ldv V22(V26-4)=V27 |
| 463 | @inc,4 V26 |
| 464 | @ldv,l V27A4='V254' |
| 465 | @ldv V22(V26-4)=V27 |
| 466 | @inc,4 V26 |
| 467 | @ldv,l V27A4='V255' |
| 468 | @ldv V22(V26-4)=V27 |
| 469 | @inc,4 V26 |
| 470 | @ldv,l V27A4='V256' |
| 471 | @ldv V22(V26-4)=V27 |
| 472 | @inc,4 V26 |
| 473 | @ldv,w V22(1-4)=erid$ |
| 474 | @ldv V22(V26-1)='.' |
| 475 | @ldv,p V22=V22 |
| 476 | @psh |
| 477 | @clv |
| 478 | @pek,1,28 |
| 479 | @gto rpx 90 |
| 480 | 28: |
| 481 | @ldv V26I3=1,V22S80='' |
| 482 | @ldv,l V27A4='26' |
| 483 | @ldv V22(V26-4)=V27 |
| 484 | @inc,4 V26 |
| 485 | @ldv,l V27A4='13' |
| 486 | @ldv V22(V26-4)=V27 |
| 487 | @inc,4 V26 |
| 488 | @ldv,l V27A4='V19' |
| 489 | @ldv V22(V26-4)=V27 |
| 490 | @inc,4 V26 |
| 491 | @ldv,l V27A4='V222' |
| 492 | @ldv V22(V26-4)=V27 |
| 493 | @inc,4 V26 |
| 494 | @ldv,w V22(1-4)=erid$ |
| 495 | @ldv V22(V26-1)='.' |
| 496 | @ldv,p V22=V22 |
| 497 | @psh |
| 498 | @clv |
| 499 | @pek,1,28 |
| 500 | @gto rpx 26 |
| 501 | 29: |
| 502 | @ldv V16A12='' |
| 503 | @ldv V26I3=1,V22S80='' |
| 504 | @ldv,l V27A4='42' |
| 505 | @ldv V22(V26-4)=V27 |
| 506 | @inc,4 V26 |
| 507 | @ldv,l V27A4='13' |
| 508 | @ldv V22(V26-4)=V27 |
| 509 | @inc,4 V26 |
| 510 | @ldv,l V27A4='V19' |
| 511 | @ldv V22(V26-4)=V27 |
| 512 | @inc,4 V26 |
| 513 | @ldv,l V27A4='V222' |
| 514 | @ldv V22(V26-4)=V27 |
| 515 | @inc,4 V26 |
| 516 | @ldv,l V27A4='V16' |
| 517 | @ldv V22(V26-4)=V27 |
| 518 | @inc,4 V26 |
| 519 | @ldv,w V22(1-4)=erid$ |
| 520 | @ldv V22(V26-1)='.' |
| 521 | @ldv,p V22=V22 |
| 522 | @psh |
| 523 | @clv |
| 524 | @pek,1,28 |
| 525 | @gto rpx 42 |
| 526 | 30: |
| 527 | @fnd,V4,I,1,6,36 '' 2-11 ,V226 ,V34I6 |
| 528 | @rdl,V4,I,1,V34 14-4,19-4,24-1,26-4 V250I4,V251I4,V252A1,V253I4 |
| 529 | @chg V33I4 V250 |
| 530 | @bfn,V4,G,V33,,35 '' . . 2-5 ,V221 ,V34I6 |
| 531 | @rdl,V4,G,V33,V34 2-5,8-6,15-20,36-2,39-6,46-6,53-1,55-6,62-5,68-3,72-6,79-4,84-5,90-3,94-6,101-3,105-1,107-6,114-6 V221,V222A6,V223S20,V224A2,V225A6,V226A6,V227A1,V228A6,V229A5,V230A3,V231A6,V232A4,V233A5,V234A3,V235A6,V236A3,V237A1,V238A6,V239A6 |
| 532 | @rdl,V4,G,V33,V34 121-4,126-6 V240A4,V241A6 |
| 533 | @ldv V26I3=1,V22S80='' |
| 534 | @ldv,l V27A4='46' |
| 535 | @ldv V22(V26-4)=V27 |
| 536 | @inc,4 V26 |
| 537 | @ldv,l V27A4='13' |
| 538 | @ldv V22(V26-4)=V27 |
| 539 | @inc,4 V26 |
| 540 | @ldv,l V27A4='V19' |
| 541 | @ldv V22(V26-4)=V27 |
| 542 | @inc,4 V26 |
| 543 | @ldv,l V27A4='V222' |
| 544 | @ldv V22(V26-4)=V27 |
| 545 | @inc,4 V26 |
| 546 | @ldv,l V27A4='V223' |
| 547 | @ldv V22(V26-4)=V27 |
| 548 | @inc,4 V26 |
| 549 | @ldv,l V27A4='V15' |
| 550 | @ldv V22(V26-4)=V27 |
| 551 | @inc,4 V26 |
| 552 | @ldv,w V22(1-4)=erid$ |
| 553 | @ldv V22(V26-1)='.' |
| 554 | @ldv,p V22=V22 |
| 555 | @psh |
| 556 | @clv |
| 557 | @pek,1,28 |
| 558 | @gto rpx 46 |
| 559 | 31: |
| 560 | @fnd,V4,I,1,6,36 '' 2-11 ,V226 ,V34I6 |
| 561 | @rdl,V4,I,1,V34 14-4,19-4,24-1,26-4 V250I4,V251I4,V252A1,V253I4 |
| 562 | @chg V33I4 V250 |
| 563 | @bfn,V4,G,V33,,35 '' . . 2-5 ,V221 ,V34I6 |
| 564 | @rdl,V4,G,V33,V34 2-5,8-6,15-20,36-2,39-6,46-6,53-1,55-6,62-5,68-3,72-6,79-4,84-5,90-3,94-6,101-3,105-1,107-6,114-6 V221,V222A6,V223S20,V224A2,V225A6,V226A6,V227A1,V228A6,V229A5,V230A3,V231A6,V232A4,V233A5,V234A3,V235A6,V236A3,V237A1,V238A6,V239A6 |
| 565 | @rdl,V4,G,V33,V34 121-4,126-6 V240A4,V241A6 |
| 566 | @bfn,V4,C,,,37 i 2-6,9-20 ,V222,V223 V33I4,V34I6 |
| 567 | @rdl,V4,C,V33,V34,37 2-6,9-20,30-31,62-3,66-8,75-5 V258A6,V259S20,V260S31,V261A3,V262A8,V263A5 |
| 568 | @rln 9-20,30-31,66-8 V264S20,V265S31,V266A8 |
| 569 | @rln 2-75 V267S75 |
| 570 | @ldv V26I3=1,V22S80='' |
| 571 | @ldv,l V27A4='52' |
| 572 | @ldv V22(V26-4)=V27 |
| 573 | @inc,4 V26 |
| 574 | @ldv,l V27A4='13' |
| 575 | @ldv V22(V26-4)=V27 |
| 576 | @inc,4 V26 |
| 577 | @ldv,l V27A4='V19' |
| 578 | @ldv V22(V26-4)=V27 |
| 579 | @inc,4 V26 |
| 580 | @ldv,l V27A4='V222' |
| 581 | @ldv V22(V26-4)=V27 |
| 582 | @inc,4 V26 |
| 583 | @ldv,l V27A4='V222' |
| 584 | @ldv V22(V26-4)=V27 |
| 585 | @inc,4 V26 |
| 586 | @ldv,l V27A4='V261V262' |
| 587 | @ldv V22(V26-4)=V27 |
| 588 | @inc,4 V26 |
| 589 | @ldv,w V22(1-4)=erid$ |
| 590 | @ldv V22(V26-1)='.' |
| 591 | @ldv,p V22=V22 |
| 592 | @psh |
| 593 | @clv |
| 594 | @pek,1,28 |
| 595 | @gto rpx 52 |
| 596 | 32: |
| 597 | @fnd,V4,I,1,6,36 '' 2-11 ,V226 ,V34I6 |
| 598 | @rdl,V4,I,1,V34 14-4,19-4,24-1,26-4 V250I4,V251I4,V252A1,V253I4 |
| 599 | @chg V33I4 V250 |
| 600 | @bfn,V4,G,V33,,35 '' . . 2-5 ,V221 ,V34I6 |
| 601 | @rdl,V4,G,V33,V34 2-5,8-6,15-20,36-2,39-6,46-6,53-1,55-6,62-5,68-3,72-6,79-4,84-5,90-3,94-6,101-3,105-1,107-6,114-6 V221,V222A6,V223S20,V224A2,V225A6,V226A6,V227A1,V228A6,V229A5,V230A3,V231A6,V232A4,V233A5,V234A3,V235A6,V236A3,V237A1,V238A6,V239A6 |
| 602 | @rdl,V4,G,V33,V34 121-4,126-6 V240A4,V241A6 |
| 603 | @bfn,V4,C,,,37 i 2-6,9-20 ,V222,V223 V33I4,V34I6 |
| 604 | @rdl,V4,C,V33,V34,37 2-6,9-20,30-31,62-3,66-8,75-5 V258A6,V259S20,V260S31,V261A3,V262A8,V263A5 |
| 605 | @rln 9-20,30-31,66-8 V264S20,V265S31,V266A8 |
| 606 | @rln 2-75 V267S75 |
| 607 | @if V59(1-1) ne t,(33) |
| 608 | @ldv V26I3=1,V22S80='' |
| 609 | @ldv,l V27A4='62' |
| 610 | @ldv V22(V26-4)=V27 |
| 611 | @inc,4 V26 |
| 612 | @ldv,l V27A4='13' |
| 613 | @ldv V22(V26-4)=V27 |
| 614 | @inc,4 V26 |
| 615 | @ldv,l V27A4='V19' |
| 616 | @ldv V22(V26-4)=V27 |
| 617 | @inc,4 V26 |
| 618 | @ldv,l V27A4='V222' |
| 619 | @ldv V22(V26-4)=V27 |
| 620 | @inc,4 V26 |
| 621 | @ldv,l V27A4='V223' |
| 622 | @ldv V22(V26-4)=V27 |
| 623 | @inc,4 V26 |
| 624 | @ldv,w V22(1-4)=erid$ |
| 625 | @ldv V22(V26-1)='.' |
| 626 | @ldv,p V22=V22 |
| 627 | @psh |
| 628 | @clv |
| 629 | @pek,1,28 |
| 630 | @gto rpx 62 |
| 631 | 33: |
| 632 | @if V59(1-1) ne u,(13) |
| 633 | @ldv V26I3=1,V22S80='' |
| 634 | @ldv,l V27A4='64' |
| 635 | @ldv V22(V26-4)=V27 |
| 636 | @inc,4 V26 |
| 637 | @ldv,l V27A4='13' |
| 638 | @ldv V22(V26-4)=V27 |
| 639 | @inc,4 V26 |
| 640 | @ldv,l V27A4='V19' |
| 641 | @ldv V22(V26-4)=V27 |
| 642 | @inc,4 V26 |
| 643 | @ldv,l V27A4='V222' |
| 644 | @ldv V22(V26-4)=V27 |
| 645 | @inc,4 V26 |
| 646 | @ldv,l V27A4='V223' |
| 647 | @ldv V22(V26-4)=V27 |
| 648 | @inc,4 V26 |
| 649 | @ldv,w V22(1-4)=erid$ |
| 650 | @ldv V22(V26-1)='.' |
| 651 | @ldv,p V22=V22 |
| 652 | @psh |
| 653 | @clv |
| 654 | @pek,1,28 |
| 655 | @gto rpx 64 |
| 656 | 34: |
| 657 | @ldv V27A4='V22' |
| 658 | @ldv V26I3=V27(2-3) |
| 659 | @pek,V26,1 |
| 660 | @psh |
| 661 | @clv |
| 662 | @pek,1,28 |
| 663 | @def,p V27A4,V22 |
| 664 | @ldv V26I3=10 |
| 665 | @if V26 > V27,(lin +1) |
| 666 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 667 | @pek,V25,1,-1 |
| 668 | @pek,V24,1 |
| 669 | @ldv vV25=vV24 |
| 670 | @pok,V25,1,-1 |
| 671 | @inc,4 V26 |
| 672 | @if V26 > V27,(lin +1) |
| 673 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 674 | @pek,V25,1,-1 |
| 675 | @pek,V24,1 |
| 676 | @ldv vV25=vV24 |
| 677 | @pok,V25,1,-1 |
| 678 | @inc,4 V26 |
| 679 | @if V26 > V27,(lin +1) |
| 680 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 681 | @pek,V25,1,-1 |
| 682 | @pek,V24,1 |
| 683 | @ldv vV25=vV24 |
| 684 | @pok,V25,1,-1 |
| 685 | @inc,4 V26 |
| 686 | @if V26 > V27,(lin +1) |
| 687 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 688 | @pek,V25,1,-1 |
| 689 | @pek,V24,1 |
| 690 | @ldv vV25=vV24 |
| 691 | @pok,V25,1,-1 |
| 692 | @inc,4 V26 |
| 693 | @if V26 > V27,(lin +1) |
| 694 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 695 | @pek,V25,1,-1 |
| 696 | @pek,V24,1 |
| 697 | @ldv vV25=vV24 |
| 698 | @pok,V25,1,-1 |
| 699 | @inc,4 V26 |
| 700 | @if V26 > V27,(lin +1) |
| 701 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 702 | @pek,V25,1,-1 |
| 703 | @pek,V24,1 |
| 704 | @ldv vV25=vV24 |
| 705 | @pok,V25,1,-1 |
| 706 | @inc,4 V26 |
| 707 | @if V26 > V27,(lin +1) |
| 708 | @ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3) |
| 709 | @pek,V25,1,-1 |
| 710 | @pek,V24,1 |
| 711 | @ldv vV25=vV24 |
| 712 | @pok,V25,1,-1 |
| 713 | @inc,4 V26 |
| 714 | @pop |
| 715 | @pop |
| 716 | @ldv V27A4=V22(1-4) |
| 717 | @gto rpx V27 |
| 718 | 35: |
| 719 | @ldv V43S80=' ACTION ITEM: 'V221' HAS BEEN LOST.' |
| 720 | @brk,0,1 |
| 721 | 2V43(1-59) - XMIT to cont. , |
| 722 | @brk |
| 723 | @out,-0,2,1,23,-1,y,,,p |
| 724 | @ldv V43S80='' |
| 725 | @gto 13 |
| 726 | 36: |
| 727 | @ldv V43S80=' V7: 'V226' IS INVALID.' |
| 728 | @brk,0,1 |
| 729 | 2V43(1-59) - XMIT to cont. , |
| 730 | @brk |
| 731 | @out,-0,2,1,23,-1,y,,,p |
| 732 | @ldv V43S80='' |
| 733 | @gto 13 |
| 734 | 37: |
| 735 | @ldv V43S80=' COMP/PERSON: 'V222/V223' HAS BEEN LOST.' |
| 736 | @brk,0,1 |
| 737 | 2V43(1-59) - XMIT to cont. , |
| 738 | @brk |
| 739 | @out,-0,2,1,23,-1,y,,,p |
| 740 | @ldv V43S80='' |
| 741 | @gto 13 |
| 742 | |
| 743 | @end |