COPY command and File access issue - Hewlett Packard

This is a discussion on COPY command and File access issue - Hewlett Packard ; 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 ...

+ Reply to Thread
Results 1 to 4 of 4

Thread: COPY command and File access issue

  1. 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 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 *


  2. Re: COPY command and File access issue

    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"
    Sent: Wednesday, November 28, 2007 4:14 PM
    To:
    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 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 *


  3. Re: COPY command and File access issue

    Sorry to say but
    Remove all deleted transaction records.
    is exactly what it is doing...........more later..

    If any process is accessing this file you will not be able to perform this
    process.
    Notice it actually purges the DIVTRAN file.

    This is a KSAM file. When a record is deleted from a KSAM file it does
    not really delete the record. It just steps on some part of the record
    marking it as deleted. (Help me out someone... I think it is the first
    byte.)

    Here is the code with my comments.....
    !# Back up the whole file
    !COPY DIVTRAN.DATA,DIVTRANA.DATA
    !# did the back up work
    :IF CIERROR = 0
    !# Fcopy only the non deleted records
    ! FCOPY FROM=DIVTRAN.DATA;TO=(DIVTRANB.DATA)
    !# Purge the original file
    ! PURGE DIVTRAN.DATA
    !#Rename the new file that has no deleted records as the original file for
    tomorrows processing
    ! RENAME DIVTRANB.DATA,DIVTRAN.DATA
    !#Everything worked OK so lets purge the backup
    ! PURGE DIVTRANA.DATA
    !endif

    I think that KSAM files do not reuse deleted records. If this process
    does not happen periodically the file will fill up even when there are no
    records in the file.

    I do not know anything about AMISYS ... but I would not run this piece of
    code while people are accessing this file.....

    Thanks
    dp





    "Rao, Raghu"
    Sent by: HP-3000 Systems Discussion
    11/28/2007 04:15 PM
    Please respond to
    "Rao, Raghu"


    To
    HP3000-L@RAVEN.UTC.EDU
    cc

    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 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 *


  4. Re: COPY command and File access issue

    Dale Pepoon wrote:

    >
    > This is a KSAM file. When a record is deleted from a KSAM file

    it
    > does not really delete the record. It just steps on some part

    of the
    > record marking it as deleted. (Help me out someone... I think

    it is
    > the first byte.)
    >

    ISTR it's the first word, 2 bytes, set to Hex FFFF.



    --
    Mark Undrill
    Affirm Limited



+ Reply to Thread