View previous topic :: View next topic
|
Author |
Message |
sakthikumarT
New User
Joined: 09 Apr 2009 Posts: 50 Location: Bangalore
|
|
|
|
Dear All,
I am writing a Record from CICS BMS to KSDS.
File open status
SET FILE(LF85003) OPEN ENABLED
STATUS: RESULTS - OVERTYPE TO MODIFY
Fil(LF85003 ) Vsa Ope Ena Rea Upd Add Bro Del Sha NORMAL
Dsn( KC03P85.SAMPLE.KSDS2 )
SYSID=C001 APPLID=A06C001
RESPONSE: NORMAL TIME: 12.19.49 DATE: 10.12.14
PF 1 HELP 3 END 5 VAR 7 SBH 8 SFH 9 MSG 10 SB 11 SF
-------------------------------------------------------------------------------------
File Write Status
--------------------
TRANSACTION: P85C PROGRAM: PP85003 TASK: 0013137 APPLID: A06C001 DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE
EXEC CICS WRITE FILE
FILE ('LF85003 ')
FROM ('11111 SAKTHI BarBANGALORE .i Smith1111111J'...)
LENGTH (80)
RIDFLD ('11111 SAKTHI BarBANGALORE .i Smith111111'...)
NOHANDLE
OFFSET:X'000B48' LINE:00106 EIBFN=X'0604'
RESPONSE: NORMAL EIBRESP=0
ENTER: CONTINUE
PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : END EDF SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY
PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER TASK
-------------------------------------------------------------------------------------
while writing the consecutive records on the same transaction i am getting this Error . File not Open
TRANSACTION: P85C PROGRAM: PP85003 TASK: 0013160 APPLID: A06C001 DISPLAY: 00
STATUS: COMMAND EXECUTION COMPLETE
EXEC CICS WRITE FILE
FILE ('LF85003 ')
FROM ('22222 KUSHI BarBANGALORE .i Smith1111111J'...)
LENGTH (80)
RIDFLD ('22222 KUSHI BarBANGALORE .i Smith111111'...)
NOHANDLE
OFFSET:X'000B48' LINE:00106 EIBFN=X'0604'
RESPONSE: NOTOPEN EIBRESP=19
ENTER: CONTINUE
PF1 : UNDEFINED PF2 : SWITCH HEX/CHAR PF3 : END EDF SESSION
PF4 : SUPPRESS DISPLAYS PF5 : WORKING STORAGE PF6 : USER DISPLAY
PF7 : SCROLL BACK PF8 : SCROLL FORWARD PF9 : STOP CONDITIONS
PF10: PREVIOUS DISPLAY PF11: EIB DISPLAY PF12: ABEND USER TASK
-------------------------------------------------------------------------------------
Please Guide me what went Wrong.? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
If your site runs MRO, the File Owning Region (FOR) may be completely different from where your application is running -- and hence your SET command may be doing nothing you expect it to do.
Contact your site support group and work with them to find out which region actually has the file you are attempting to use, and find out why it is not set to open on first reference. |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
Not same task. Many things can (and did) happen between these...
Is this file shared between CICSes ? |
|
Back to top |
|
|
sakthikumarT
New User
Joined: 09 Apr 2009 Posts: 50 Location: Bangalore
|
|
|
|
Hi Robert,
Actually i am not getting Proper support
from my Support team the Reason Might be one of our
Very Senior Support Guy was Retired.The New Guy not able to Help me out, but i Got an User id with all
admin Rights.
Is there any Command to find out the File the One i am accessing
is Residing in which Region ?
I think It is set to open on the First Reference,
Because i have Tested the Same Program with
Many Empty Ksds, In one of the Instances
I have not explicitly Open the File and it works
Fine for the First record, but for the Next Consecutive Record
It is Not Throwing File not Open Error.
------------------------------------
TO Marso,
I am Running A Pseudo COnversation transaction.
So The TAsk ID Will Always Differ.
Is it Possible to Find Whether the File is
shared Between the cics or not ? |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
- Why are you using CEDF ? Aren't there other tools ?
- Does this happen every time ?
- Do you ever get a DUPKEY when you reenter the same data ?
- Are there other file accesses between these two WRITE ?
- Can you open another CICS session and check the file status at different steps.
- Use CEDA to check the file definition.
- Check the console and the log for file related messages.
After rereading your last post:- There is a difference between an empty file and a new file. What is the file state ?.
sakthikumarT wrote: |
It is Not Throwing File not Open Error. |
So, it is or it is not ? |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3049 Location: NYC,USA
|
|
|
|
Until you get dignosed properly, you may refer to have below work around to the situation.
www-01.ibm.com/support/docview.wss?uid=swg21461233
Quote: |
I think It is set to open on the First Reference,
Because i have Tested the Same Program with
Many Empty Ksds, In one of the Instances
I have not explicitly Open the File and it works
Fine for the First record, but for the Next Consecutive Record
It is Not Throwing File not Open Error. |
Why have you not got this error here and why for the other file so you compare FCT parameters for files with no error and the file with error? |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
One other fact that needs mentioning,. In the remote region FCT entry, the KEYLENGTH value needs to be defined. This is because FUNCTION SHIPPed File API's do not automatically transmit the keylength cross regions. Sometimes, the KEYLENGTH is defined to the API, which overrides the need for the FCT keylength value.
Without a KEYLENGTH specified, the INVREQ conation is raised (EIBRESP=16) along withe an associated EIBRESP2.
HTH.... |
|
Back to top |
|
|
|