*-------------------------------------------------------------------
* SRDELT DELETE THE FILE
*-------------------------------------------------------------------
C SRDELT BEGSR
C IF EMP# <> *ZEROS
C KYEMP DELETE PRPFBIDS DELETE REQUEST
C ENDIF
C ENDSR
After
//-------------------------------------------------------------------
// SRDELT DELETE THE FILE
//-------------------------------------------------------------------
BEGSR SRDELT;
IF EMP# <> *ZEROS;
DELETE PRPFBIDS; //DELETE REQUEST
ENDIF;
ENDSR;
Before
After