1. Forum
  2. USENET
  3. comp.sys.ibm.as400.misc

  • Re: IFS Read error message CPF5129

    From agus hy@heriyunialagus@gmail.com to comp.sys.ibm.as400.misc on Tue Mar 7 23:02:11 2023
    From Newsgroup: comp.sys.ibm.as400.misc

    On Saturday, 30 September 2006 at 21:20:59 UTC+7, Iknir wrote:
    I have uploaded a Flat file into QDLS folder and when try to read via
    RPG I get this error message:
    Message ID . . . . . . : CPF5129 Severity . . . . . . . : 50
    Message type . . . . . : Escape
    Date sent . . . . . . : 09/30/06 Time sent . . . . . . :
    09:09:32
    Message . . . . : I/O is not allowed because the program device or
    member
    QAOKL02A file QAOKL02A in library QUSRSYS is in error.
    RPG IV Code:
    file = open('/QDLS/PCFILES/DOCUMENT.DAT' : O_RDONLY);
    if file < 0;
    die('open(): ' + %str(strerror(errno)));
    endif;
    FYI, It worked yesterday and today I can't access it. I am on V5R3.
    Please help.

    how to solve the problem above?
    --- Synchronet 3.21d-Linux NewsLink 1.2
  • From Buck@kc2hiz@gmail.com to comp.sys.ibm.as400.misc on Wed Mar 8 10:25:44 2023
    From Newsgroup: comp.sys.ibm.as400.misc

    On Wednesday, March 8, 2023 at 2:02:13rC>AM UTC-5, agus hy wrote:
    On Saturday, 30 September 2006 at 21:20:59 UTC+7, Iknir wrote:
    I have uploaded a Flat file into QDLS folder and when try to read via
    RPG I get this error message:
    Message ID . . . . . . : CPF5129 Severity . . . . . . . : 50
    Message type . . . . . : Escape
    Date sent . . . . . . : 09/30/06 Time sent . . . . . . :
    09:09:32
    Message . . . . : I/O is not allowed because the program device or
    member
    QAOKL02A file QAOKL02A in library QUSRSYS is in error.
    RPG IV Code:
    file = open('/QDLS/PCFILES/DOCUMENT.DAT' : O_RDONLY);
    if file < 0;
    die('open(): ' + %str(strerror(errno)));
    endif;
    FYI, It worked yesterday and today I can't access it. I am on V5R3.
    Please help.
    how to solve the problem above?
    Some places to start:
    1) Check for diagnostic messages in the joblog
    2) Check that the file name in the open() statement is EXACTLY the same name as the one in QDLS. No extra/trailing spaces in the RPG or the QDLS file.
    3) Check that the user profile has the appropriate authority
    4) Check that the QDLS file is not already open/in use/locked by another process
    I would strongly advise that QDLS not be used these days; it has restrictions the full IFS does not.
    --buck
    --- Synchronet 3.21d-Linux NewsLink 1.2
  • From poc@poc@pocnet.net to comp.sys.ibm.as400.misc on Wed Mar 8 22:16:03 2023
    From Newsgroup: comp.sys.ibm.as400.misc

    agus hy <heriyunialagus@gmail.com> wrote:

    On Saturday, 30 September 2006 at 21:20:59 UTC+7, Iknir wrote:
    Message ID . . . . . . : CPF5129 Severity . . . . . . . : 50
    Message type . . . . . : Escape
    Date sent . . . . . . : 09/30/06 Time sent . . . . . . :
    09:09:32
    Message . . . . : I/O is not allowed because the program device or
    member
    QAOKL02A file QAOKL02A in library QUSRSYS is in error.

    how to solve the problem above?

    What has been changed meanwhile?

    Can you access the file with strdfu?

    Try an IPL. Maybe the object is damaged?

    :wq! PoC

    --- Synchronet 3.21d-Linux NewsLink 1.2