Several people have asked for a way to add a flag to each changed line in an edit session. This edit macro runs SuperC against the original data set and adds tags in a user specified column. After the tagging is complete, you are shown the lines to which flags have been added. You'll probably need to change it to meet your needs, but it should be a reasonable starting point.
TAG is available as source code.
To save the source code using Netscape or Internet Explorer, select the link above with the right mouse button and select 'Save Link As...' or Save Target as...'
Add a tag (also referred to as a flag) to changed lines in an edit session..
TAG characters column
Where characters is the tag to add to the lines and column is an optional starting column for the data.
Lines that were changed since the data was last changed on disk are tagged with specified characters.
- Place tag.txt in a library allocated to SYSEXEC or SYSPROC.
- If you want to automate this, you may want to use an initial macro that redefines the SAVE and END commands to invoke a macro that invokes this macro before saving and/or ending the edit session.
This example shows how TAG might be used to flag changes to a file and shows the results of the command
TAG FXC1T42.
File Edit Confirm Menu Utilities Compilers Test Help ------------------------------------------------------------------------------- EDIT NADEL.PRIVATE.ASM(EXIT16) - 01.01 Tagging complete Command ===> Scroll ===> CSR - - - - - - - - - - - - - - - - - - - 52 Line(s) not Displayed 000053 USING @DATD,11 000054 ST 13,4(,11) 000055 ST 11,8(,13) ==CHG> * LM 14,1,16(13) FXC1T42 000057 LM 15,1,16(13) 000058 LR 13,11 000059 MVC INPUTPTRS1(44),0(1) 000060 * IF exitid ¬= 16 THEN 000061 L 10,INPUTPTRS1 ==CHG> CLC 0(4,10),=F'16' FXC1T42 000063 BE LABEL_1 000064 * RETURN code(0); 000065 LR 1,11 - - - - - - - - - - - - - - - - - - 348 Line(s) not Displayed ****** **************************** Bottom of Data **************************** |