It looks, at first glance, like the job was designed to avoid
even trying to do the copy when the file is busy...like it did.
Are there some other symptoms that there is a problem?
If not, perhaps it is not broken.
TomH
--------------------------------------------------
From: "Rao, Raghu" <[log in to unmask]>
Sent: Wednesday, November 28, 2007 4:14 PM
To: <[log in to unmask]>
Subject: [HP3000-L] COPY command and File access issue
> Hi all,
>
> We have a job that runs twice daily, once at 12 noon and the other at
> 8:30 nightly. The job runs fine on the nightly schedule without any
> issues, but the same job throws up a CIERROR 9135 on a COPY statement
> because the particular file is being accessed during day time. I have
> the following questions :
>
> 1) If the file was not being accessed, then what are the series of
> statements inside the IF - ENDIF trying to do ? Please do not reply back
> stating "Remove all deleted transaction records"
>
> 2) Is there a way to issue a COPY or FCOPY statement even if the file is
> being accessed ?
>
> 3) This job is a standard Amisys job MEP0300. Does any other Amisys
> customers out there think this job should not be running during the day
> time ?
>
>
> NIGHTLY JOB RUN STDLIST :
>
> 218 :COMMENT
> *************************************************************
> 219 :COMMENT ** Remove all deleted transaction records.
> **
> 220 :COMMENT
> *************************************************************
> 221 :
> 222 :SETJCW CIERROR,0
> 223 :CONTINUE
> 224 :COPY DIVTRAN.DATA,DIVTRANA.DATA
> 225 :IF CIERROR = 0
> 226 *** EXPRESSION TRUE
> 227 : FCOPY FROM=DIVTRAN.DATA;TO=(DIVTRANB.DATA)
> 228
> 229 HEWLETT-PACKARD 31900A.05.04 FILE COPIER TUE, NOV 27, 2007,
> 8:32 PM
> 230 (C) HEWLETT-PACKARD CO. 1999
> 231 *143*
> 232 WARNING: FROMFILE IS EMPTY
> 233 0 RECORDS PROCESSED *** 0 ERRORS
> 234
> 235 END OF SUBSYSTEM
> 236 : PURGE DIVTRAN.DATA
> 237 : RENAME DIVTRANB.DATA,DIVTRAN.DATA
> 238 : PURGE DIVTRANA.DATA
> 239 :ENDIF
> 240 :LISTF [log in to unmask],2
> 241
> 242 TUE, NOV 27, 2007, 8:32 PM
> 243 ACCOUNT= AMISYS GROUP= DATA
> 244
> 245 FILENAME CODE ------------LOGICAL RECORD-----------
> ----SPACE----
> 246 SIZE TYP EOF LIMIT R/B SECTORS
> #X MX
> 247
> 248 DIVTRAN 84B FAK 0 1000 46 320
> 2 *
> 249
> 250
>
> DAYTIME JOB RUN STDLIST :
>
> 218 :COMMENT
> *************************************************************
> 219 :COMMENT ** Remove all deleted transaction records.
> **
> 220 :COMMENT
> *************************************************************
> 221 :
> 222 :SETJCW CIERROR,0
> 223 :CONTINUE
> 224 :COPY DIVTRAN.DATA,DIVTRANA.DATA
> 225 ^
> 226 COPY command cannot open the source file. (CIERR 9135)
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> 227 :IF CIERROR = 0
> 228 *** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING
> ELSEIF/ELSE
> 229 /ENDIF
> 230 : FCOPY FROM=DIVTRAN.DATA;TO=(DIVTRANB.DATA)
> 231 : PURGE DIVTRAN.DATA
> 232 : RENAME DIVTRANB.DATA,DIVTRAN.DATA
> 233 : PURGE DIVTRANA.DATA
> 234 :ENDIF
> 235 *** RESUME EXECUTION OF COMMANDS
> 236 :LISTF [log in to unmask],2
> 237
> 238 WED, NOV 28, 2007, 12:01 PM
> 239 ACCOUNT= AMISYS GROUP= DATA
> 240
> 241 FILENAME CODE ------------LOGICAL RECORD-----------
> ----SPACE----
> 242 SIZE TYP EOF LIMIT R/B SECTORS
> #X MX
> 243
> 244 DIVTRAN * 84B FAK 3 1000 46 320
> 2 *
> 245
> 246
>
> Thanks in advance for your kind replies.
>
> With Best Regards from
> Raghu Rao
>
>
> Confidentiality Notice:
> The information contained in this electronic message is intended for the
> exclusive use of the individual or entity named above and may contain
> privileged or confidential information. If the reader of this message is
> not the intended recipient or the employee or agent responsible to deliver
> it to the intended recipient, you are hereby notified that dissemination,
> distribution or copying of this information is prohibited. If you have
> received this communication in error, please notify the sender immediately
> by telephone and destroy the copies you received.
>
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
