############################################################### # cobrenum - renumber cobol programs # J. David Schronce - 20 Feb 2007 ############################################################### STARTNUM=100 INCREMENT=100 EXTENSION=".renum" USAGE="\nUSAGE: cobrenum \n" if [[ $# -eq 0 ]]; then echo $USAGE exit fi objname=$1 # strip current line numbers sed 's/^....../X/g' $objname > $objname.$$ # renumber lines cat $objname.$$ | while read line do if [[ "X$NEWNUM" = "X" ]]; then NEWNUM=$STARTNUM fi #Left pad with zeros case $NEWNUM in ?) PADNUM="00000$NEWNUM";; ??) PADNUM="0000$NEWNUM";; ???) PADNUM="000$NEWNUM";; ????) PADNUM="00$NEWNUM";; ?????) PADNUM="0$NEWNUM";; ??????) PADNUM="$NEWNUM";; esac # echo $PADNUM # Write the line echo "$PADNUM\c" >> $objname$EXTENSION echo "$line" | sed 's/^.//g' >> $objname$EXTENSION NEWNUM=`echo "$NEWNUM + $INCREMENT" | bc` done # Cleanup rm $objname.$$