home *** CD-ROM | disk | FTP | other *** search
/ Out-Of-The-Net / Out-Of-The-Net.iso / t / poplookup.rx < prev    next >
Text File  |  1996-05-03  |  2KB  |  150 lines
  1. /**
  2.  * $Id$
  3.  *
  4.  *
  5.  * Select PoP 
  6.  * Copyright © 1996 HiSoft. All Rights Reserved.
  7. **/
  8.  
  9. PARSE ARG DATABASE NUMBER ISP
  10.  
  11. IF ISP = "CIX" THEN
  12.  
  13. DO 
  14.  
  15.     CALL CIX
  16.  
  17. END
  18.  
  19. IF ISP = "DEMON" THEN
  20.  
  21. DO 
  22.  
  23.     CALL DEMON
  24.  
  25. END
  26.  
  27. DEMON:
  28.  
  29. Open(dbase,DATABASE,R)
  30.  
  31. DO UNTIL EOF(dbase) = 1
  32.  
  33.     line = Readln(dbase)
  34.     Parse var line CODE ' ' LOCATION
  35.     If NUMBER = CODE THEN
  36.  
  37.     DO 
  38.  
  39.         Parse var LOCATION LOCATION1 '/' LOCATION2 '/' LOCATION3 '/' LOCATION4 '/' LOCATION5
  40.         SAY LOCATION1  LOCATION2  LOCATION3  LOCATION4 LOCATION5
  41.  
  42.     END
  43.  
  44.     IF CODE = "POPNUMBERS" THEN
  45.     
  46.     DO
  47.  
  48.         n = 1
  49.  
  50.  
  51.         DO UNTIL EOF(dbase) = 1
  52.  
  53.             line = Readln(dbase)
  54.  
  55.             Parse var line POPLOCATION POPTYPE CODE NUMBER
  56.  
  57.             IF POPLOCATION = LOCATION1 | POPLOCATION = LOCATION2 | POPLOCATION = LOCATION3 | POPLOCATION = LOCATION4 | POPLOCATION = LOCATION5 THEN
  58.             
  59.             DO
  60.  
  61.             Open(output,'ENV:pop'||n,W)
  62.             Open(output1,'ENV:popnumber'||n,W)
  63.  
  64.             SAY LOCATION POPLOCATION NUMBER 
  65.  
  66.             Writech(output1,COMPRESS(CODE)||' 'COMPRESS(NUMBER))
  67.             writech(output,POPLOCATION) 
  68.  
  69.             close(output)
  70.             close(output1)  
  71.  
  72.             n = n + 1    
  73.  
  74.             END
  75.  
  76.         END
  77.  
  78.     END
  79.     
  80. END
  81.  
  82. close(dbase)
  83.  
  84. CIX:
  85.  
  86. Open(dbase,DATABASE,R)
  87.  
  88. n = 1
  89.  
  90. DO UNTIL EOF(dbase) = 1
  91.  
  92.     line = Readln(dbase)
  93.  
  94.     PARSE VAR line LOC '(' PHONE ')' '0a'x 
  95.  
  96.     PHONE = COMPRESS(PHONE)
  97.  
  98.     IF LENGTH(PHONE) <= 20 & LENGTH(PHONE) >= 9 THEN 
  99.  
  100.     DO
  101.  
  102.         PHONENUMBER = PHONE
  103.  
  104.         LOCATION = LOC
  105.  
  106.     END
  107.  
  108.     PARSE VAR line ASTRING '0a'x 
  109.  
  110.     ASTRING = COMPRESS(ASTRING)
  111.  
  112.     IF ASTRING = "LocalRateCallFrom:" THEN
  113.  
  114.     DO
  115.  
  116.         RATE = "(Local Call)"
  117.  
  118.     END
  119.  
  120.     IF ASTRING = "ARate(Regional)CallFrom:" THEN
  121.  
  122.     DO
  123.  
  124.         RATE = "(A Rate Call)"
  125.  
  126.     END
  127.  
  128.     PARSE VAR line N1 ',' N2 ',' N3 ',' N4 ',' N5 ',' N6 ',' N7 ',' N8 ',' N9 ',' N10 ','
  129.  
  130.     IF N1 = NUMBER | N2 = NUMBER | N3 = NUMBER | N4 = NUMBER | N5 = NUMBER | N6 = NUMBER | N7 = NUMBER | N8 = NUMBER | N9 = NUMBER | N10 = NUMBER THEN
  131.  
  132.     DO
  133.  
  134.         Open(output,'ENV:pop'||n,W)
  135.         Open(output1,'ENV:popnumber'||n,W)
  136.  
  137.         Writech(output1,PHONENUMBER)
  138.         writech(output,RATE' '||LOCATION) 
  139.  
  140.         close(output)
  141.         close(output1)  
  142.  
  143.         n = n + 1
  144.  
  145.     END
  146.  
  147. END
  148.  
  149. close(dbase)
  150.