home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b104 / 1.img / ADDR.COD < prev    next >
Encoding:
Text File  |  1993-09-04  |  3.1 KB  |  105 lines
  1.      *
  2.      Key = Concat(Last,@,First,@,Mid)
  3.      If City = Blank Or
  4.      If State = Blank Then
  5.        Link Zip[C:Zip] = Zip
  6.        If Record Linked = Y Then
  7.          City = City[C:Zip]
  8.          State = State[C:Zip]
  9.          Else
  10.          City = 'Not Found'
  11.        Endif
  12.      Endif
  13.        *
  14.      If City <> 'Not Found' Then
  15.        Link Rec[C:Labl] = Write
  16.        Key[C:Labl] = Key
  17.        If Mid = Blank Then
  18.        M1[C:Labl] = Concat(First,@,Last)
  19.        Else
  20.        M1[C:Labl] = Concat(First,@,Mid,@,Last)
  21.        Endif
  22.        M2[C:Labl] = Addr
  23.        State = Upper
  24.        M3[C:Labl] = Concat(City,@,State,@,Zip)
  25.        W1 = M1[C:Labl]
  26.        W2 = M2[C:Labl]
  27.        W3 = M3[C:Labl]
  28.        *
  29.        Link Rec[C:Letr] = Write
  30.        Key[C:Letr] = Key
  31.        @L1[C:Letr] = W1
  32.        Dmil = Sysdmil
  33.        *
  34.        String(@L1[C:Letr],54,3) = String(Dmil,4,3)
  35.        String(@L1[C:Letr],58,2) = String(Dmil,1,2)
  36.        String(@L1[C:Letr],60,1) = ,
  37.        String(@L1[C:Letr],62,4) = String(Dmil,8,4)
  38.        *
  39.        @L2[C:Letr] = W2
  40.        @L3[C:Letr] = W3
  41.        @L4[C:Letr] = Blank
  42.        @L5[C:Letr] = Blank
  43.        *
  44.        W2 = Parse(W1)
  45.        W1 = 'Dear'
  46.        W3 = ,
  47.        @L6[C:Letr] = Concat(W1,@,W2,W3)
  48.        @L7[C:Letr] = Blank
  49.        *
  50.        @L8[C:Letr] = 'This letter was created by A2Z using its relationa'
  51.        String(@L8[C:Letr],51,15) = 'l ability to   '
  52.        @L9[C:Letr] = 'extract and merge data from multiple files under m'
  53.        String(@L9[C:Letr],51,15) = 'acro control   '
  54.        @L10[C:Letr] = 'to create output files such as this custom letter.'
  55.        *
  56.        String(@L10[C:Letr],53,12) = Concat(W2,W3)
  57.        *
  58.        W1 = 'I'm'
  59.        W2 = 'sure you can appreciate the power of A2Z demonstra'
  60.        W3 = 'ted here!'
  61.        *
  62.        If String(@L10[C:Letr],54,1) = , Then
  63.        String(@L10[C:Letr],56,4) = W1
  64.        @L11[C:Letr] = W2
  65.        String(@L11[C:Letr],51,15) =  W3
  66.        Else
  67.        If String(@L10[C:Letr],55,1) = , Then
  68.        String(@L10[C:Letr],57,4) = W1
  69.        @L11[C:Letr] = W2
  70.        String(@L11[C:Letr],51,15) =  W3
  71.        Else
  72.        If String(@L10[C:Letr],56,1) = , Then
  73.        String(@L10[C:Letr],58,4) = W1
  74.        @L11[C:Letr] = W2
  75.        String(@L11[C:Letr],51,15) =  W3
  76.        Else
  77.        If String(@L10[C:Letr],57,1) = , Then
  78.        String(@L10[C:Letr],59,4) = W1
  79.        @L11[C:Letr] = W2
  80.        String(@L11[C:Letr],51,15) =  W3
  81.        Else
  82.        If String(@L10[C:Letr],58,1) = , Then
  83.        String(@L10[C:Letr],60,4) = W1
  84.        @L11[C:Letr] = W2
  85.        String(@L11[C:Letr],51,15) =  W3
  86.        Else
  87.        If String(@L10[C:Letr],59,1) = , Then
  88.        String(@L10[C:Letr],61,4) = W1
  89.        @L11[C:Letr] = W2
  90.        String(@L11[C:Letr],51,15) =  W3
  91.        Else
  92.        If String(@L10[C:Letr],60,1) = , Then
  93.        String(@L10[C:Letr],62,4) = W1
  94.        @L11[C:Letr] = W2
  95.        String(@L11[C:Letr],51,15) =  W3
  96.        Else
  97.        @L11[C:Letr] = 'I'M sure you can appreciate the power of A2Z demon'
  98.        String(@L11[C:Letr],51,15) =  'strated here!  '
  99.        Endif
  100.        *
  101.        @L12[C:Letr] = Blank
  102.        @Include[C:Letr] = C:Form
  103.        *
  104.      Endif
  105.