[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index]
[Date Index]
[Thread Index]
[SQR-USERS Info]
[SQRUG Home Page]
Re: [sqr-users] exists () function not working - Any work around suggestion?
Maybe it is a SQR thing where it needs the existence of the .spf
file that you are going to create/recreate? Maybe it is a timing issue
because your SQR needs access to the .spf file? The SQR checks for this on
its own before it gets to your code that checks for access to this directory
and that the .spf file exists. Not sure??? It is kind of weird that if the
other file you called the ACI file exists it reaches your code. But if the
ACI file does not exist it does not reach your code and generates a SQR
message not from your SQR???? Maybe you should check for the existence of
the .spf first before the existence of the other file???? Maybe some of the
more experienced SQR folk out there can shed some light on this.
From: Kirk Katzbet <kk_413@hotmail.com> on 03/03/2003 10:15 AM
Please respond to sqr-users@sqrug.org@SMTP@Exchange
To: sqr-users@sqrug.org@SMTP@Exchange
cc:
Subject: [sqr-users] exists () function not working - Any
work around suggestion?
Right after my code below in my first email where I check if the ACI
file
exists I do a check to see if the file /tmp/sss2034.spf can be
accessed and
if it exists for processing
SQC is below:
If I do not have the proper permissions to access the
/tmp/sss2034.spf
and the ACI file does not exist. The process monitor says
"Processing" and
there is no update of the message text on the process monitor. And
the
error message in the SQR.log is an SQR generated error message "(SQR
6002)
Can't open the printer file: /tmp/sss2034.spf
13): Permission denied"
If I do not have the proper permissions to access the
/tmp/sss2034.spf file
and the ACI file does exist. The process monitor says "ERROR" and
there is
an update of the message text on the process monitor. And the error
message
in the SQR.log is from my SQC "Cannot open report file:
/tmp/sss2034.spf"
Here is the SQC code:
!----------------------------------------------------------------------!
! Function: Perform-Check
!
!----------------------------------------------------------------------!
begin-procedure Perform-Check
let $sql-statement = 'SSSOUT.SQC,Perform-Check'
begin-select ON-ERROR=SQL-Error
RUN.SRVRDESTFILE,
RUN.CLNTDESTFILE,
RUN.RUNLOCATION
let $run_loc = &run.runlocation
if $run_loc = '2'
let $run_dest = &run.srvrdestfile
else
let $run_dest = &run.clntdestfile
end-if
let $run_dest = rtrim($run_dest, ' ')
#debuge show 'Run location : ' $run_loc
#debuge show 'Run destination : ' $run_dest
from PSPRCSRUNCNTL RUN
where RUN.OPRID = $prcs_oprid
and RUN.RUNCNTLID = $prcs_run_cntl_id
end-select
! Test directory exists and is accessible
let $sys_command = 'cd ' || $run_dest
#debuge show 'System command : ' $sys_command
CALL SYSTEM USING $sys_command #comm_status
let $comm_err = 'N'
if $run_loc = '1'
if #comm_status < 32 ! Windows
let $comm_err = 'Y'
end-if
else
if #comm_status != 0 ! Unix
let $comm_err = 'Y'
end-if
end-if
#debuge show 'Command error : ' $comm_err
if $comm_err = 'Y'
let $filerror = 'Cannot access output directory: ' ||
$run_dest
show $filerror (+1,5) bold
let #prcs_run_status = #prcs_run_status_error
let $prcs_message_parm1 = $run_dest
let #prcs_message_nbr = 17
let #prcs_continuejob = 0
do Update-Prcs-Run-Status
stop
end-if
! Test report file can be opened for writing by this user
close 12
#debuge show 'SQR report : ' $sqr-report
let $programfile = substr($sqr-report, 1, length($sqr-report)-3)
||
'spf' ! change .lis to .spf
open $programfile as 12 for-writing record=80:fixed status =
#programfile_status
#debuge show 'Report file : ' $programfile
#debuge show 'File status : ' #programfile_status
if #programfile_status <> 0
let $filerror = 'Cannot open report file: ' || $programfile
show $filerror (+1,5) bold
let #prcs_run_status = #prcs_run_status_error
let #prcs_message_nbr = 37
let #prcs_continuejob = 0
do Update-Prcs-Run-Status
stop
end-if
end-procedure !Perform-Check
Thanks Kirk
>From: "Lynds,Rick" <rlynds@mwdh2o.com> on 02/28/2003 11:00 AM
>Please respond to sqr-users@sqrug.org@SMTP@Exchange
>To: sqr-users@sqrug.org@SMTP@Exchange
>cc:
>Subject: RE: [sqr-users] exists( ) not working - Any work
around suggestio
>n?
>
>The function is working properly - it does get to the routine
>"Print-error".
>
>Looks to me like your problem is access to the /tmp directory where
the SQR
>is running. Note the message:
>
>(SQR 6002) Can't open the printer file: /tmp/sss2034.spf
>(13): Permission denied
>
>It is trying to print your error message - but it is unable to open
the
>.spf
>file. (That is the file produced prior to reformatting it to
whatever
>output
>format you chose).
>
>Be sure your access to the /tmp directory is set up properly for
the
>account
>that is actually logged in to the server. (VP1?)
>
>HTH
>
>Rick Lynds
>Metropolitan Water District
>
>-----Original Message-----
>From: Kirk Katzbet [mailto:kk_413@hotmail.com]
>Sent: Friday, February 28, 2003 8:43 AM
>To: sqr-users@sqrug.org
>Subject: [sqr-users] exists( ) not working - Any work around
suggestion?
>
>
>Thanks in advance:
>
>Has anybody experienced the exist() function not working. I get a
value
>that is not zero and my sqr does not seem to recognize this. yet
if I show
>the value it is 2.0. Is there any other way to determine if a file
doe not
>exist? Here is my code below (ia m using SQR version 3.0.12.4):
In
>procedure "print-error" it does not display the $filerror in the
log and
>the
>
>process monitor does not get displayed. It does not make into the
>procedure
>
>"Update-App-Error"
>
>
> let #exists = exists($file)
> if #exists <> 0
> let $filerror = 'ACI file not found ' || $file
> if #prcs_process_instance = 0
>
> input $answer '*** ACI file not found'
>
> end-if
> do print-error
> let #Ret_Code = 3
> do Update-App-Error
> stop
> end-if
>
>!--------------------------------------------------------------------!
>! Print Error
!
>!--------------------------------------------------------------------!
>begin-procedure Print-Error
> #debug do debug-msg('Print-Error')
>
> if $filerror <> 'N'
> Use-Report Combined_Clients
> print $filerror (+2,5) bold
> do Check-Current-Line
> display $filerror
> Use-Report Summary
> print $filerror (+2,5) bold
> end-if
>
>end-procedure !Print-Error
>
>
>!--------------------------------------------------------------------!
>! Update Application Error
!
>!--------------------------------------------------------------------!
>Begin-Procedure Update-App-Error
> #debug do debug-msg('Update-App-Error')
>
> if #prcs_process_instance > 0
>
> let #prcs_message_set_nbr = #prcs_msg_set_nbr
> let #prcs_message_nbr = 0
> let #prcs_run_status = #prcs_run_status_error
> let #prcs_rc = #ret_code
> let $prcs_message_parm1 = $filerror
> let #prcs_continuejob = 30 !set to blank
> do Update-Prcs-Run-Status
>
> end-if
>
>End-Procedure ! Update-App-Error
>
>++++++++++++++++++++++++++
>Here is the error log
>
>SQR: Structured Query Report Writer V3.0.12.2
>Copyright (C) MITI, 1994, 1995. All Worldwide Rights Reserved.
>
>
>----------------------------------
>Begin-Report
>
>
>----------------------------------
>Declare-Cycle-Variables
>
>
>----------------------------------
>Init-Report
>
>
>FYAP Clients Combined
>
>Begin Job: 2003-02-25 16.18.06
>
>
>----------------------------------
>Get-Run-Control
>
>Process instance :8325
>Old run status :7.000000
>8324.000000
>Process instance :8325
>New run status :7.000000
>Prcs Instance : 8325.000000
>(SQR 2908) Warning: Cannot CLOSE file 1 -- file not opened.
>
>dbname : FSDEV
>Proc Instance : 8325
>Oprid : VP1
>ACI file : /home/fsdev/fs512/FSDEV/COMBCLI/combcli.txt
>
>ACI file : /home/fsdev/fs512/FSDEV/COMBCLI/combcli.txt
>
>2.000000
>
>----------------------------------
>Print-Error
>
>(SQR 6002) Can't open the printer file: /tmp/sss2034.spf
>(13): Permission denied
>
>SQR: Program Aborting.
>
>
>Thanks Kirk
>
>
>
>
>
>_________________________________________________________________
>Add photos to your messages with MSN 8. Get 2 months FREE*.
>http://join.msn.com/?page=features/featuredemail
>
>_______________________________________________
>sqr-users mailing list
>sqr-users@sqrug.org
>http://www.sqrug.org/mailman/listinfo/sqr-users
>
>_______________________________________________
>sqr-users mailing list
>sqr-users@sqrug.org
>http://www.sqrug.org/mailman/listinfo/sqr-users
>
>
>
>
>
>_________________________________________________________________
>STOP MORE SPAM with the new MSN 8 and get 2 months FREE*
>http://join.msn.com/?page=features/junkmail
>
_________________________________________________________________
STOP MORE SPAM with the new MSN 8 and get 2 months FREE*
http://join.msn.com/?page=features/junkmail
_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users
_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users