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.