Help with file creation

[Aboukr Sadikh <bsadikh@YAHOO.COM>]

Hi there,In the following procedure, I am trying to writing one line
using two records retrieved from the database. But, when I run the
script, some employees have 2 recds and other 3. Could somebody tell me
what seems to be wrong with this procedure please!!!

TIA

BS



begin-procedure Write-Record
 if substr($benefit,1,1) = 'V'       move $benefit to $vac_enrol
       move $a to $b
      let x = y
      let u = v
      let w = z
 end-if
 if substr($benefit,1,1) = 'S'
   move $benefit to $sick_enrol
   move $a to $b
      let x = y
      let u = v
       let w = z
  end-if
    move '"' to $Q    move ',' to $C
    move &A.EMPLID to  $last_emplid
 if $vac_enroll <> ''
      let $string1 = dddddddddddd
 end-if
 if $sick_enrol <> ''
      let $string2= eeeeeeeeeeeee
 end-if
   let $oneline_record = $string1||$C||$string2
 if   &A.emplid <> $last_emplid
       write 10 from $oneline_record
 end-if
  move '' to $oneline_record
  move '' to $last_emplidend-procedure

_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com