#!/usr/local/bin/rexx

'/bin/cat ./baza.csv >FIFO'


max=QUEUED()

SAY 'Linija: 'max

DO i=1 TO max
   PARSE PULL surname','name','dept','company','w_street','w_city','w_zip','w_phone','h_street','h_city','h_zip','h_phone','visak
   country=""
   fax=''

red=i","name","surname",,,"company",,"h_street","h_city","h_zip","country","h_phone","w_street","w_city","w_zip","country","w_phone","fax",0,,,,,,0"
   SAY red
END 






