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?
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?




Comment