fIle divran is a ksam file in needs a SHR;LOCK
FILE DIVTRAN=DIVTRAN.DATA;SHR;LOCK
FCOPY FROM=*DIVTRAN;TO=....
If that doesn't help, MPEX will copy opened files.

>>> "Rao, Raghu" 11/28/2007 4:14 PM >>>

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 DIVTRAN@.DATA,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 DIVTRAN@.DATA,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 *