Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

File operation

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
sakthikumarT

New User


Joined: 09 Apr 2009
Posts: 42
Location: Bangalore

PostPosted: Sun Oct 12, 2014 10:03 pm    Post subject: File operation
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: 7913
Location: Bellevue, IA

PostPosted: Mon Oct 13, 2014 1:03 am    Post subject:
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: 1219
Location: Israel

PostPosted: Mon Oct 13, 2014 10:51 am    Post subject:
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: 42
Location: Bangalore

PostPosted: Mon Oct 13, 2014 10:39 pm    Post subject:
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: 1219
Location: Israel

PostPosted: Tue Oct 14, 2014 6:12 pm    Post subject:
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

Senior Member


Joined: 21 Sep 2010
Posts: 1610
Location: NY,USA

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

Until you get dignosed properly, you may refer to have below work around to the situation.

http://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: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue Oct 14, 2014 10:45 pm    Post subject: Reply to: File operation
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us