View previous topic :: View next topic
|
Author |
Message |
nitika malhotra
New User
Joined: 07 Apr 2015 Posts: 3 Location: India
|
|
|
|
Hi,
I am coding a tool in which we can add edit or delete from a file but when i read the file and try to write one record at the end of file, m getting an error.
My code is:
Code: |
"ALLOC SHR REU FILE(HI) DATASET('S2.REXX.FILE.BKUP')"
'EXECIO * DISKR HI1 (STEM LINES. FINIS'
NUM = LINES.0 + 1
FREE FILE(HI)"
LINES.NUM = OVERLAY('ABC',LINES.NUM)
"ALLOC SHR REU FILE(HI1) DATASET('S2.REXX.FILE.BKUP')"
'EXECIO * DISKW HI1 (STEM LINES. FINIS'
FREE FILE(HI1)" |
Error:
Code: |
ICH408I USER(userid) GROUP(S2) NAME(,)
GFST.REXX.LOGFILE CL(DATASET ) VOL(MI3D14)
INSUFFICIENT ACCESS AUTHORITY
FROM GFST.* (G)
ACCESS INTENT(UPDATE ) ACCESS ALLOWED(READ )
IEC150I 913-38,IFG0194E,userid,$BSDUSER,LOGFIL,A1B0,MI3D14,GFST.REXX.LOGFILE
System abend code 913, reason code 00000056.
Abend in host command EXECIO or address environment routine TSO.
EXECIO error while trying to GET or PUT a record.
|
But when i try to write in the file (just the above code and no other functionality like panel display etc.) in a separate member of pds, it works. I can even edit the file by tso/ispf. Could you please advise what can be the issue here. What is the file GFST.REXX.LOGFILE |
|
Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hello,
ICH* messages are RACF messages and it clearly says that you don't have edit/update access to the dataset.
Code: |
ACCESS INTENT(UPDATE ) ACCESS ALLOWED(READ ) |
It says that the ID is intending to UPDATE/EDIT the dataset, but the ID has only READ access. |
|
Back to top |
|
|
RahulG31
Active User
Joined: 20 Dec 2014 Posts: 446 Location: USA
|
|
|
|
I think the question is about the GFST.REXX.LOGFILE
The ID doesn't have access to write to 'this' rexx logfile but Nitika doesn't know why there is a write to this file.
As far as I understand it, Nitika is able to write in the file 'S2.REXX.FILE.BKUP' using ISPF 3.4 |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
I suspect you are not showing the entire rexx program and the problem is in another section of the program.
Add a TRACE('R') to the beginning of the program. |
|
Back to top |
|
|
RahulG31
Active User
Joined: 20 Dec 2014 Posts: 446 Location: USA
|
|
|
|
I believe the problem is Not with this part of the rexx code (apart from having " before FREE and using HI instead of HI1 at line 2)
This seems to be a part of the process and the error may be coming from a different part of code. You may need to check what is the high level qualifier GFST with your colleagues.
Please analyze/let us know the whole process to see where it is going to write that log file.
*Pedro submitted the post before I did But we are trying to say the same thing. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
Now that I have coded it I can read your code better. Please code it yourself in future.
I see that with the first ALLOC you allocate to FILE(HI) but your DISKR references HI1. |
|
Back to top |
|
|
|