I have written a program, which reads records from a program described file and write records to another program describe file. However it seems working but that doesn’t seem an efficient program to me. Could anyone please suggest me what can be done to improve this program.

FEmployee IF F 39 DISK
FEmpoutf O F 39 DISK
Drecemp DS
DEMPID 1 10
DFNAME 11 20
DMNAME 21 21
DLNAME 22 31
DSALARY 32 35P 2
DDEPT 36 39
IEmployee NS
I 1 10 empid
I 11 20 fname
I 21 21 mname
I 22 31 lname
I P 32 35 2Salary
I 36 39 DEPT
/FREE
READ EMPLOYEE;
DOW NOT %EOF;
WRITE EMPOUTF RECEMP;
READ EMPLOYEE;
ENDDO;
EVAL *INLR = *ON;
RETURN;
/END-FREE
Oempoutf D
O EMPID 10
O FNAME 20
O MNAME 21
O LNAME 31
O SALARY 35P
O DEPT 39

Some doubts:

1. I had to define an extra data structure recemp as for program described files it’s necessary to use the data structure name in WRITE operation. Now my doubt is, could i have defined data structure only once and use that data structure in I-specs and O-specs as my both Input and Output file structure is exactly same.

2. I have seen in some programs that after reading the record we dont move it to output record, while in COBOL we explicitly have to populate the output record before writing it to a file. How is this achieved in RPG?

3. Kindly suggest me more ways the program can be improved.

Regards
Shruti