INSERT FIELDS(£XXXX) TO_FILE(YYYY00F) IO_ERROR(*NEXT) VAL_ERROR(*NEXT)
IF_STATUS IS_NOT(*OKAY)
ABORT
ENDIF