IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

File operation


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sakthikumarT

New User


Joined: 09 Apr 2009
Posts: 50
Location: Bangalore

PostPosted: Sun Oct 12, 2014 10:03 pm
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon Oct 13, 2014 1:03 am
Reply with quote

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
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Mon Oct 13, 2014 10:51 am
Reply with quote

Quote:
TASK: 0013137
Quote:
TASK: 0013160
Not same task. Many things can (and did) happen between these...
Is this file shared between CICSes ?
Back to top
View user's profile Send private message
sakthikumarT

New User


Joined: 09 Apr 2009
Posts: 50
Location: Bangalore

PostPosted: Mon Oct 13, 2014 10:39 pm
Reply with quote

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
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Tue Oct 14, 2014 6:12 pm
Reply with quote

  • 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
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3049
Location: NYC,USA

PostPosted: Tue Oct 14, 2014 8:50 pm
Reply with quote

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
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Tue Oct 14, 2014 10:45 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
No new posts Need help for File Aid JCL to extract... Compuware & Other Tools 23
Search our Forums:

Back to Top