Hi
I am trying to execute OVRDBF in RPGLE using the command QCMDEXC. I didn't get any error message but it is not working as expected.
Please find my below code
FFILEIN IF E DISK RENAME(FILEIN:FILEA)
F PREFIX(F_)
D@cmd s 300a
D@cmd1 s 15a
D@cmdlen s 15p 5
Dcmdex pr extpgm('QCMDEXC')
d 300a
d 15P 5
/free
@cmd='OVRDBF FILE(FILEIN) TOFILE(LIBRARY1/FILE1)' +
' MBR(*FIRST) OVRSCOPE(*JOB)';
@cmdlen=%len(%trim(@cmd));
cmdex(@cmd:@cmdlen);
Read filein;
@cmd1=%subst(F_Filein:1:15);
dsply @cmd1;
*inlr=*on;
/end-free
I am trying to execute OVRDBF in RPGLE using the command QCMDEXC. I didn't get any error message but it is not working as expected.
Please find my below code
FFILEIN IF E DISK RENAME(FILEIN:FILEA)
F PREFIX(F_)
D@cmd s 300a
D@cmd1 s 15a
D@cmdlen s 15p 5
Dcmdex pr extpgm('QCMDEXC')
d 300a
d 15P 5
/free
@cmd='OVRDBF FILE(FILEIN) TOFILE(LIBRARY1/FILE1)' +
' MBR(*FIRST) OVRSCOPE(*JOB)';
@cmdlen=%len(%trim(@cmd));
cmdex(@cmd:@cmdlen);
Read filein;
@cmd1=%subst(F_Filein:1:15);
dsply @cmd1;
*inlr=*on;
/end-free
Comment