Re: Filling a Subfile with an SQL statement / Writing a CSV

First of all.  One of the cardinal rules of list etiquette is to NEVER put 
two unlike topics in one email.  Send out two.


/free 
 dow FetchCursorb(); 
     wrkdte = 00000000;
     exsr chkorgdt; 
     ssdate = wrkdte; 
     write sumpor; 
 EndDo; 
/end-free 

...

P FetchCursorb    B 
D FetchCursorb    PI                  like(ReturnVar) 
D ReturnVar       s               n 
C/Exec SQL 
C+  Fetch Next 
c+    From So1c 
c+    Into :ssinvn, :sscust,:ssiord,:sspo,:sspart,:ssqty,:sldate
c/End-exec 
 /free 
  If sqlstt=*zeros;  // fetch was good 
    ReturnVar=*on; 
  Else; 
    ReturnVar=*off; 
  ENDIF; 
  return ReturnVar; 
 /end-free 
P FetchCursorb    E 


Rob Berendt