Re: [sqr-users] Data truncated during update from flat file

[Amber S <amber_sqr@yahoo.co.uk>]

I have attached a sample copy of the csv file.
And here I am pasting my unstring code....

begin-procedure read-data-file

while not #end-file

  Read 1 into $Input_Record:3000

  Unstring $Input_Record By ',' Into

  $DV_Emplid
  $DV_First_Name
  $DV_Last_Name
  $DV_Payroll_No
  $DV_Deptid
  $DV_Position_Nbr
  $DV_Job_Title
  $DV_Reports_To_Nbr

        let $DV_Emplid = rtrim($Dv_Emplid, ' ')
        let $Dv_Position_Nbr = lpad($Dv_Position_Nbr, 8, '0')
        let $Dv_Job_Title = substr($Dv_Job_Title,1,30)

  let #DV_count = #DV_count +1
  do job-title

  if #end-file
    break
  end-if

end-while

Close 1

end-procedure

Also the $Job_Effdt varible holds the value of the
current EFFDT of an employees record


 --- PSFTPROGRAMMER@aol.com wrote: 
> What are the values for  $Dv_Position_Nbr,
> $Job_Effdt,  & $DV_Job_Title?
> 
> _______________________________________________
> sqr-users mailing list
> sqr-users@sqrug.org
> http://www.sqrug.org/mailman/listinfo/sqr-users
>  


        
        
                
___________________________________________________________ALL-NEW Yahoo! 
Messenger - all new features - even more fun!  http://uk.messenger.yahoo.com
Here was a non admissible message part of 'application/octet-stream'
MIME type. It has been automatically discarded before sending the
message to the list. 
_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users