Export problem

Bruce Easton bruce at stn.com
Tue Jun 12 13:21:23 PDT 2007


Don Coleman wrote Tuesday, June 12, 2007 3:41 PM:
>
> I have the following export table.  In this sample I process 3
> records which
> I get, each containing 25 fields.  But in between each desired
> record I get
> a records with 25 blank fields (file attached).  Anyone see the error?
> As I said only 3 records are selected in this sample, yet I get 6 lines of
> data.
>
>
> Process table attached as well to retain formatting.
>
>
>
> Jun 12, 2007  15:28           File Name: QS1DET
>  Page   1
>                              Processing: SQL_Export
>
>    1 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: qu eq "1"
>        Then: goto start
>    2 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: qu(1,.0,g)="1"
>    3 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: PUTENV "PFADDWP","OFF"
>    4 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: QA(36,ALLUP,g)="E:\QS1\TODO\SQLImport\SQL_QS1DET.TXT"
>    5 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> start    If: AB eq 10
>        Then: goto begin
>    6 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: lookup req = labelreq  k=10    i=A -nx
>    7 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: not req
>        Then: AA="";goto begin
>    8 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: AA(30,ALLUP,g)=req(2);AB(4,ALLUP,g)=10
>    9 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> begin    If:
>        Then: export ascii reads=(QA) r=\n f=~ o=" c=" -x
>   10 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(1)=10;reads(2)=3;reads(3)=1;reads(4)=6
>   11 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: lookup qs1  k=1    i=A -nx
>   12 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: not qs1
>        Then: end
>   13 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then:
> reads(6)=qs1(11);reads(7)=qs1(12);reads(8)=qs1(13);reads(9)=qs1(14)
>
>   14 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then:
> reads(10)=qs1(15);reads(11)=qs1(24);reads(12)=qs1(22);reads(13)=qs1
>              (38)
>   15 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then:
> RA(1,ALLUP)=mid(qs1(40),"7","1");RB(8,MDY/)=mid(qs1(40),"1","6")
>   16 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: RB ne qs1(37)
>        Then: reads(14)="";goto count
>   17 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: lookup exc = exclude  k=RA   i=A -nx
>   18 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: not exc
>        Then: reads(14)="";goto count
>
>
>
>
>
>
>
> Jun 12, 2007  15:28           File Name: QS1DET
>  Page   2
>                              Processing: SQL_Export
>
>   19 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(14)=RA
>   20 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> count    If: 10 eq "MTSP" and 4 eq "JBP"
>        Then: goto montana
>   21 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: QM(9,*)=1{"5"
>   22 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: lookup det = qs1det  k=QM   i=A -nx
>   23 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> more     If: not det
>        Then: goto skdet
>   24 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: 1 ne det(1)
>        Then: goto skdet
>   25 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: det(2) eq "5" and (det(3) eq @TD) and det(8) ne "Y"
> and det(7)
> eq "
>              "
>        Then: QQ(10,.4)=(QQ+det(6));'Quantity shipped today
>   26 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: getnext det;goto more
>   27 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> skdet    If:
>        Then: reads(5)=QQ;'Quantity Shipped Today
>   28 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(15)="0"
>   29 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(16)="0"
>   30 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: 'reads(16)=((25-(25-68))-QQ); 'Qty previously
> sent;'changed to
> "0"
>              05/18/2007
>   31 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: mid(qs1(50),"1","1") ne "U"
>        Then: reads(17)=(qs1(25)-qs1(68));goto notupd; 'Quantity owed for
> non-upd
>              ate only's
>   32 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: mid(qs1(50),"1","1") eq "U"
>        Then: reads(17)="0"; 'Quantity owed for update only's
>   33 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> notupd   If:
>        Then:
> reads(18)=qs1(37);reads(19)=AA;reads(20)=qs1(27);reads(21)=qs1(43);
>              reads(22)=9;reads(23)=""
>   34 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: 7 eq "V" or 7 eq "S" or 7 eq "C" or 7 eq "2"
>        Then: reads(24)="N";reads(25)=7;11="Y";write;write reads;end
>   35 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(24)="Y";reads(25)=7;11="Y";write;write reads;end
>   36 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
> montana  If:
>        Then:
> reads(5)=qs1(68);reads(15)="0";reads(16)=(qs1(25)-qs1(68));reads(18
>              )=qs1(37);reads(19)=AA
>
>
>
>
> Jun 12, 2007  15:28           File Name: QS1DET
>  Page   3
>                              Processing: SQL_Export
>
>   37 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(20)=qs1(27);reads(21)=qs1(43);reads(22)="";reads(23)=""
>   38 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If: 7 eq "V" or 7 eq "S" or 7 eq "2" or 7 eq "C"
>        Then: reads(24)="N";reads(25)=7;11="Y";write;write reads;end
>   39 -------   -   -   -   -   -   -   -   -   -   -   -   -   -
>  -   -   -
>          If:
>        Then: reads(24)="Y";reads(25)=7;11="Y";write;write reads;end
>

Don - remove the "write reads" where ever it appears - that should be
causing your extra line of output.

Bruce


Bruce Easton
STN, Inc.





More information about the Filepro-list mailing list