Modification - Attempt 2

Requirements are

Before Code

0330 MOVE *PROGRAM TO #PROGRAMA
0340 CALL ‘C283MU’ #PROGRAMA
0350 IF #PROGRAMA = ‘ERRORCON’
0360 TERMINATE
0370 END-IF
0380 *
0390 ON ERROR
0400 INCLUDE N90ERROR
0410 END-ERROR

After Code

0330 * MOVE PROGRAM TO #PROGRAMA
0340 * CALL ‘C283MU’ #PROGRAMA
0350 * IF #PROGRAMA = ‘ERRORCON’
0360 * TERMINATE
0370
END-IF
0380 *
0390 ON ERROR
0400 * INCLUDE N90ERROR
0405 INCLUDE M91ERROR
0410 END-ERROR

I other words remove code 330 - 370 by commenting out

and replacing the INCLUDE object name at 400

Have been able to produce the following

0480 /* MOVE PROGRAM TO #PROGRAMA / NEE OLD CODE
0490 /* Code Above Deleted TLMDELET
0500 /* CALL ‘C283MU’ #PROGRAMA /* NEE OLD CODE
0510 /* Code Above Deleted TLMDELET
0520 /* IF #PROGRAMA = ‘ERRORCON’ /* NEE OLD CODE
0530 /* Code Above Deleted TLMDELET
0540 /* TERMINATE /* NEE OLD CODE
0550 /* Code Above Deleted TLMDELET
0560 END-IF
0570 *
0580 ON ERROR
0590 /* INCLUDE N90ERROR /* NEE OLD CODE
0600 INCLUDE M19ERROR /* NEE MODIFIED AUTO
0610 END-ERROR

This is the code in TMLDELET

0010 /* Code Above Deleted TLMDELET

Search Criteria:
Searching All Objects for MOVE with value ‘*PROGRAM’ ,
replace with TLM TLMDELET

Searching All Objects for CALL C283MU , replace with TLM
TLMDELET

Searching All Objects for LITERAL with value ‘ERRORCON’ ,
replace with TLM TLMDELET

Searching All Objects for TERMINATE , replace with TLM
TLMDELET

Searching All Objects for INCLUDE N90ERROR , replace with
‘M19ERROR’

However this leaves an END-IF @ 560 without the preceding IF so will not STOW,

Can anyone come up with a way to comment out that 1 and Only END-IF

I tried key word of END-IF and TLMDELET with REPLACE and that commented out ALL END-IF statements.

I also tried using edit line commands .d(3) in the TLM to try to delete 3 lines , but of course it applied that to the TLM itself.

All suggestions greatly appreciated.