Why is this so diffcult to space so it is readable?
FILE01 has some records that need to be copied to FILE02 and deleted from FILE01. This is my error: *RNF7260 30 3 The Factor 2 operand is not valid for the specified operation. What do I need to fix? FFILE01 UF F 2300 DISK FFILE02 O A 2300 DISK IFILE01 NS I 1 1 RECTYP I 2 1025 UNUSE1 I 1026 2049 UNUSE2 I 2050 2300 UNUSE3 C READ FILE01 LR C *INLR DOWNE *ON C RECTYP IFEQ 'H' C EXSR MOVREC C EXCEPT FILE02 C ENDIF C RECTYP IFEQ 'N' C MOVE'M' RECTYP C EXSR MOVREC C EXCEPT FILE02 C DELETE FILE01 C ENDIF OFILE02 E ADD O RECTYP 1 O UNUSED1 1025 O UNUSED2 2049 O UNUSED3 2300