ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

Level check error while overriding in RPGLE

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Level check error while overriding in RPGLE

    In below program I am trying to override the file B1 to B2. But I am getting level check error

    Level check on file B2 in library BANDARU901 with member B2.
    Error message CPF4131 appeared during OPEN.




    FB1 IF E K DISK EXTFILE(FILENAME)
    F EXTMBR(MBRNAME)
    F usropn
    *
    Dfilename S 20A
    DMBRNAME S 10A
    /FREE
    Open b1;
    Read b1;
    dow not %eof(b1);
    dsply ID;
    read b1;
    enddo;
    Close b1;
    *inlr=*on;
    /end-free
    C *INZSR begsr
    c *entry plist
    c parm filename
    c parm MBRNAME
    C endsr


    Can you please help me in this?

  • #2
    HI Reddi,

    but the b2 file is the same as b1, with the same level?
    Because if no you can't override b1 on b2.
    Bye

    Comment


    • #3
      Without the definitions of the files we can't really help much - except to say you could avoid it if you used SQL.

      Comment

      Working...
      X