Dropped Fields in Export

[Stanley - stanlyn.com]

Hi,

 

Using ScO Unix and filepro 5.0.14.

 

FilePro's export is dropping fields when the field(s) is empty for all
records.  Is this normal?  What would cause this behavior?  What should I
do?

 

Thanks, Stanley

 

The code below creates a file with 64 delimited fields instead of 73.  It
starts dropping then at about field 103: 

Note the code below is truncated on the right side, but this gives the idea
on what I'm doing:

 

  1  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: '
│

       Then: '
│

  2  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: 1 eq "" or 5 eq ""
│

       Then: end
│

  3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: pp="SDTSI"
│

  4  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: @qu eq "_sla"
│

       Then: pp="SLA"
│

  5  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' Invoice memo field
│

       Then: mm(2795,*)=212
│

  6  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: my=xlate(mm, chr("13"), " ")
│

  7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: my=xlate(my, chr("10"), " ")
│

  8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: my=xlate(my, chr("9"), " ")
│

  9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: mm=my
│

10  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: yy(254,*)="" ; qq(254,*)="" ; mr(254,*)="" ; mz(254,*)="" ;
mh(254>

11  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: mw(254,*)="" ; mt(254,*)="" ; ma(254,*)="" ; mb(254,*)=""
│

12  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: 212 ne ""
│

       Then: yy=mid(mm,"1","254"){"" ; qq=mid(mm,"255","254"){"" ;
mr=mid(mm,"5>

13  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: 212 ne ""
│

       Then: mz=mid(mm,"763","254"){"" ; mh=mid(mm,"1017","254"){"" ;
me=mid(mm>

14  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: 212 ne ""
│

       Then: mp=mid(mm,"1525","254"){"" ; mw=mid(mm,"1779","254"){"" ;
mt=mid(m>

15  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: 212 ne ""
│

       Then: ma=mid(mm,"2286","254"){"" ; mb=mid(mm,"2541","254"){""


16  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: 212 eq ""
│

       Then: yy="" ; qq="" ; mr="" ; mz="" ; mh="" ; me="" ; mp="" ; mw="" ;
mt>

17  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: dim array(14):1 ; ct="1" ; f=""
│

18  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

loop   │ If: ct le "14"
│

       Then: f=f&array(ct)&"^" ; ct=ct+"1" ; goto loop
│

19  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: rr = "AR_Invoice-"{ pp {""
│

20  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: export ascii data=(rr) r=\n
│

21  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' 14 fields plus 14 fields above this
│

       Then:
gg=40&"^"&41&"^"&42&"^"&43&"^"&44&"^"&45&"^"&58&"^"&59&"^"&60&"^"&

22  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' 13 fields
│

       Then:
hh=67&"^"&68&"^"&82&"^"&83&"^"&84&"^"&85&"^"&86&"^"&87&"^"&88&"^"&>

23  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' 11 fields
│

       Then:
ii=106&"^"&107&"^"&108&"^"&109&"^"&110&"^"&112&"^"&113&"^"&114&"^">

24  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' 9 fields
│

       Then:
jj=120&"^"&121&"^"&122&"^"&137&"^"&138&"^"&214&"^"&215&"^"&216&"^">

25  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' 11 fields
│

       Then:
kk=yy&"^"&qq&"^"&mr&"^"&mz&"^"&mh&"^"&me&"^"&mp&"^"&mw&"^"&mt&"^"&>

26  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If: ' 1 field
│

       Then: data(1)=f&gg&"^"&hh&"^"&ii&"^"&jj&"^"&kk&"^"&pp
│

27  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -

       │ If:
│

       Then: write data


 

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.celestial.com/pipermail/filepro-list/attachments/20150412/403867de/attachment.html>