interesting problem

[Richard Kreiss]

> -----Original Message-----
> From: Kenneth Brody [mailto:kenbrody at spamcop.net]
> Sent: Thursday, June 17, 2010 12:10 PM
> To: Richard Kreiss
> Cc: filepro-list at lists.celestial.com
> Subject: Re: interesting problem
> 
> On 6/17/2010 10:59 AM, Richard Kreiss wrote:
> > Declare run_date(8,yymd),filename
> 
> So far, so good.
> 
> > d_code(4,#)(real field)
> 
> That's not valid filePro code.
> 
> > Run_date=@td
> 
> I would suggest @T4, though @TD is fine with a valid PFCMARK setting. - done
> 
> > Filename="f:\foobar\d_code{run_date{".txt"{""

OK: here is the code: 

13  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: bs=chr("92")
14  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: drive=getenv("pfdata"){getenv("pfdir")
15  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: where=drive{bs{"web_txt"{""
16  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:'not used - remove
      Then:' doc_folder=drive{bs{"web_files"{bs{doc_code{""
17  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: 'check to see if director exists
      Then: GOSUB ck_fold
18  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: 'reverse date format and append to file name
      Then: run_date=@t4
19  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: fname=where{bs{doc_code{"_"{run_date{".txt"
 20  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: rn ne @rn
       Then: rn(8,.0,g)=@rn
 21  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
printit◄ If:
       Then: CLS("1","4")
22  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If: zz = ""
       Then: zz(4,.0)=numrecs(-)+"1"
23  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:                                                                   
       Then: what="-v sel_drweekly -a -u -iF"<"-rw"<doc_code<"-rz"<zz<"-p"<fname
 24  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:                                                                  
       Then: doit=drive{"/fp56/fp/rreport l_patient_market -f members_weekly"<what
 25  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:                                                                   
       Then: system doit                                                
 
> 
> That's not a valid line.  Please give the actual line.
> 
> > System run rreport members -f weekly_report -v sel_members -rw d_code -p
> > filename
> 
> Again, that's not valid code.  Please give the actual line.
> 
> > Filename should resolve into NNNN_20100617.txt for this report.
> 
> "Should", or "did"?
In 124 cases it resolved properly.  6 case had the added 0001.  This report has been run since April 24th each day and this is the first time this has happened.

> 
> > These txt file are being converted to pdf file through Printwiz service.
> 
> Via what command?
Printwiz is running as a service looking for TXT file in the e:\company\filepro\web_txt directory.  The service work properly in creating the pdf in e:\company\filpro\web_files.  (UNC path would be \\ccpdbsrv\filpro\web_txt or \\ccpdbsvr\web_files).  All pdf's are created and the txt file deleted.

> 
> > There are 130 separate d_codes to select with varying number of member
> > associated with that code.
> >
> > Of these, about 6 files had the name NNNN_201006170001.pdf.
> >
> > Can anyone suggest where the 00001 after the run_date may have come from?
> 
> Give us the actual code to generate the SYSTEM dreport command and all of
> its components, as well as the command to convert the txt to pdf.  Plus,
> what was the corresponding txt filename?
> 
> --
> Kenneth Brody