<>NME= AU@U3" Search and replace <_search> 3" _search ( 3" 02/23/96230<830 Copyright (c) 1989 - 1998 BASIS International Ltd.F30 All Rights Reserved.P30ZC3"Copyright (c) 1985,1987 BASIS International - All rights reservedd)3DATE: 14 November 1990 Version 3.1n)3DATE: March 1993 Version 4.2x3DATE: 08/10/95)3DATE: June 1998 Version 5.2UU$@UU@U$ U'$Program Search and ReplaceUU UU$x/WINDOW@< Program Search and Replace >BACKGRBLACKREDDEFAULTCSCURSORonYELLOW"U ,& Ө $ 6 3get param's@ _stdinp.pubU JU TU ^ ENDendUhU r _stdinp.pubU |U  U7   /FF3"screen outputU U/POP$  UG/UWINDOW BACKGRBLACKYELLOWDEFAULT $ UU,$     U/RBU3"error in window sizing& 3"do the list0U: UDC$ tN z/SCROLL BOX <  >REDSFSCROLL    CS0/CSNow searching "" . . .X  UUb Ul UvU UU UU+3- Search and replace - get flags and stuffU  $" _outsel.pub( ENDendUUq$ _stdinp.pubSearch only (Y - N - END) : _ubs _utils.hlp search_only: U&+YNEUUUUU$ UU |$ _stdinp.pub$Verify replacements (Y - N - END) : _ubs _utils.hlpverify_replace*: U&+YNEUUUU4U>$HURq$ _stdinp.pub Variables only (Y - N - END) : _ubs _utils.hlpvar_only\: U&+YNEUUUUfUp$zU Um$ _stdinp.pub Text only (Y - N - END) : _ubs _utils.hlp text_only: U&+YNEUU!UUU!$Un$ _stdinp.pubCase sensitive (Y - N - END) : _ubs _utils.hlpcase?: U&+YNEUU"U#UU"$U# U U$|$ _stdinp.pub%Suppress page breaks (Y - N - END) : _ubs _utils.hlp suppress_page: U$&+YNEU$U%U UU%$$ .U 8 U3breakB $ENDLU V8`13- Search and replace - get search / replace textjU t/CSBOX>~$=  $y$ 3get text$U&$:/SCROLL<CSSB Search : . / Replace : U'E _stdinp.pub _-s _utils.hlpsearch U( $@ *$U) U'$ U* $U+F _stdinp.pub _-s _utils.hlpreplace( $2< &$U) U+<U*Fl _stdinp.pub Is the data correct (CR - N) ? _bus _utils.hlp correct_dataP N $U'Z$ d' $ n $x3display in upper window/SCROLL<U, U-"/SBFind : SF $U&U-"/SBFrom : SF $U, $"/SBTo : SF $U&3build the arraysU(" U., 6"  @$JU/T9$ ^O 9$ h $r U/|U.3done)/SCROLL8#3- Search and replace - search onlyU$ < Search ONLY >U0+  $y$U1 U23do the search only-/!SBCurrent line number : CL$"# $ U3U4 %U59 #$-/!YELLOWSF%#0000$#&S$&'(&&Ө &&(%B#0000B&)&*0% $)): $##DU6N *)U7U3X + U8U6bU3l3exit ?vU5 ,-U2U9U23exit .U:U:8'3 - Search and replace - variables onlyU$ < Variable Search >U0U1 U; /U;3build var table  0/ / $0(0(0((0000((Ө(**4 1>$213H$$2R; 0$33222\$%2f; 0$33222p$[]2z; 0$33222" .2$33 4/( 304204U<$516$$5; 0$55566$%5; 0$55566$[]5; 0$55566% .5$66U= YU< $045 $046 U< $*4 .*1 83re-build tables B$78 L 1/ V7$77۩Ө010101 `7$88۩Ө010101 j*1 t 78U> ~3build new pgm k  J/SCROLL99 Now generating new program . . . C  -/!SBVariable replacement: CL U? $# $ U@ U4  %UA B  #$$/!SF%#0000$# $:': L;' $## U@ UA $(8t UB 3exit ? (U> 2 ,-U; < KU; FU9 PU;3exit Z .UC dUC n ;UD xUD 8 !3- Search and replace - text only U $ < Text Search > U0 +  $y$ U1  UE U? $8( -/!SBCurrent line number : CL $# $ UF3"do the search U4  %UG 9 #$-/!YELLOWSF%#0000$# "[$&'(&&Ө &&(%B#0000B&)&*<' ,% $)) 6 $## @UH J *)U7UI T + UJUH ^UI h$'&8UK rUL |UK UM $'< UL $ܨ' 0 ' $8''' $:': 7 '<+$s ssNs L;' UF UG3"finish up $(8 UN UB 3exit ?  ,-UE  KUE U9 &UE3exit 0 .UO :UO D ;UP NUP X8 b3scroll? lU, v) /LD$ 8 #3 check V$ for valid variable name U) 8 = >$>=&ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.  >UQ  => $UR *= UQ 6 ==!=FN $8 = $ =$ $ =% $d =[] $F =$[] $' =%[] $$ UR 8 3set up output U0 #$?@A * US 4A$9?SF@SB-B9!,- >>/BOX BOXB H8 RUS \; #$9$9@ f!$! -B9,B p( $?BB@EBAFF z8 U1 $Unable to open  $.$,.UT H *$Unable to lock '.UT$ $C.UU 6 UV" Not a program fileUW UT  .. 3$D  to skip or to END.UX  EUUW UV $F.F GH(IG JGGKJLGܨ۩G /GMKL 1. UW8 3read program$U4. " UYU483$N"%"B S"NLUYVT` $'"N""Nj8t 3"read more~UY1.UZOUZ$""OO83search the textU7 $+ $)*H *+$+۩**83display found item U8 ,BU[" /,GREEN(3$P+Q+*Q2R QݨP $R&*$R(%B#0000:&QQ<& R$RRFL/@RQ?RQP@RQܨPP /Z $,,d8n 3page headerxU[ U\/9CLYELLOWo$ _stdinp.pub9 to continue or END : _bus _utils.hlpcr_cont. END ;;.U$,-[/9CLSCROLL-B-CSSCROLL9,U]U\   /A S&$SӨݨ /S ST$SDate: ۩ %Ml %Dz, %YlSTime: ۩ %hz:%mz %p /S/-"$S,,U]68@U9J/9CLYELLOWTb$ _stdinp.pub9 to end : _bus _utils.hlpcr_end^) ENDend $QUIT!h8r3output replacement|U= $YU^ YU_, U` YU_ ,BU[$T2Ua/@ T$T5Ua/? --> @T / $,,U_8U?& _path.pubU0 $U:UbD$VUW":NUcXVUdbUclUdv0V$;$,;V L;G8UB$':': ($:(: L;'I$X;GӨXYӨX L;( L;:]$ZӨ;GZGZGYG L;G.; tV t5V 8* 3"verify it4U`>h/WINDOW F< Verify Variable Replacement >BACKGRBLACKREDDEFAULTCSYELLOWH,/SB 2SF --> SB5RUe\i _stdinp.pubDo the replacement (Y - N) ? _brus _utils.hlp do_replacef YNUep/POPz83add $ or [] or %Ua3 3$T $TT$3 3%T $TT%5 3[]T$TT[]83check for dupsU^ /2 5060$NUf*Uf83do the replacement?UJ ,BU[$1$YQ+P+.Ug8 YUhBUiL YUhV" /,GREEN`Z$&&QP&QܨP*QܨP)&ttj% $))tR QݨP $R&*$R(%B#0000:&QQ~& R$RR$[QܨP' [$[ݨP2/@RQ?P@R[2/@RQ?P@R[ / $,,Uh N $*Q8 3"verify itUi 8d/WINDOW F < Verify Text Replacement >BACKGRBLACKREDDEFAULTCSYELLOW $\QN \7ݨP $R&*$R(%B#0000:&\\ R>$RR>(C/SBR\SFPSBR\ܨP2C/SBR\SFPSBR\ܨP<UjFa _stdinp.pubDo the replacement ? _brus _utils.hlp do_replaceP YNUjZ/POPd8n3"see if text or variablexUg 8F$]&QP&QܨP]](UkUlUk $NUmUl, ]] $NUm$]83"fix var tableUN$](S]$]]Ө]"T,$G68@3show linenumber with and errorJUMT ,BU[^" /,GREENhQ/*** ERR ۩(Ө  *** in line number ۩(%00000 - unchangedr /| $,,8 3" (exitutil)UUn " /RM:/RMCS* * * End of Processing * * *G)30 - [initinpgm] initialize input programUU $HC0 H$Not a program file81C UoH H Uo2 H $Program is protected8Y HH5$+Program is not a level 4 or level 5 program8$^HH_^`Hܨ۩H aHb_`&* b1C`bUoI$I01C c:$dD8NUoX%$Program is possibly corruptedb8lUv@/WINDOW RMCSӨ ݨ830 - (getflist) 45200-45230U# _flist.utl 830 - (esctrap) 50000-50025U4$DUser interrupt Do you wish to quit?UX+EYNUUpUqUp$eUUq 830 - (errtrap) 50100-50160 U* $eU4$D An error ۩(Ө occured in program <۩# > at line ۩(Ө" TCB(10) is ۩(Ө"  CR to retry, ESC to quit:>UrHUXR+E UrUsUt\Utf$epUzUs930 - (entering) 50200-50240UUu$e830 - (leaving) 50300-50350Un 8Uv $#  f /POPUv/BE830 - (errmes) 50600-50680UX$/KU. Uu8"$ghiED B SiEL@$hhj EiggjiijVT`0$j gkhjY/CIRBWINDOWjkghCSSCROLLghCHD t 1E~$EE/POP830 - (screeninfo) 50700-50740Uu^$l llmlnlfl    /9Sorry this utility will not work when BBx is in I/O mode. JI/O mode means that BBx thinks you are not on a terminal. If you are on a Kterminal, be certain you have proper ALIAS for this terminal device in your config.bbx file. G8%30 -- (Determine Temporary File Name)Ub($opoq$rZ+$W_{۩(p00000}.tmpr ,qUwW $rUwq( r $pp2[r<8ENTLIST CUR_FLISTZSTATUS SCR_ROWSITEMSDEVICE OUT_CHANFLAGXROWXCOLYROWYCOL SCR_COLS OUT_COLSNPOS FILENAMEANSWERTOP_ROWFINCASESEARCHREPLACETEMP0TEMP1VOLDTYPEVTYPESEARCHREPLACETEMPP0S SCRTITLE DISP_ROWDATA LINE_CNTMAX_CNT LINE_NUMTEXT LINE_DATA VAR_LIST SRCH_TXT SRCH_POSSRCHCUR_ROWMIN_ROWIN_CHANVAR_NUMVARTEMP0OLD_VAR VAR_TYPETEMP1NEW_VAR NEW_TYPE OLD_LIST NEW_LIST OUT_ROWSHASH NEW_CHAN HOLD_DATAVZBOLDUNBOLD FORMFEEDMAX_ROWINPGMERRMESERRTMPFIDHEADERZ0INVARSPGM_LENPGM_LENVAR_ADDVAR_LEN LINE_LENDATA0 TEMP_ITEM TEMP_POS DISP_TXTTRASH TEMP_VARPATH NEW_NAME TPM__TMPFILEOFFSET OFF_BYTEPGMSZ TEMP_POS2V_POSTEMPPGSZEZ0Z1INVARSZ2 INPGMBUF INLINENOABORTCURWINERRCOLSERRROWSERRTMPERRTMP0ERRTMP1SCR_FIN WIN_COLS WIN_ROWS TPM__INFO TPM__INFO TPM__CHAN TPM__DONEDUMMYREPLAESCTRAPERRTRAPSETUP ENTERING NO_ENTER SETUP_WINDTITLE GETFLISTEXIT CHK_FLIST_LF GETPARMS GET_PARAMS GET_TEXT CHK_ITEMS SCR_OUTPUTDO_LIST SIZE_WIND ADJ_WIND SEARCH_ONLY CHECK_LIST VARIABLESTEXT EXITUTILEND_OUT SEARCH_PARAM YES_SEARCHVERIFY_REPLACE CASE_PARAM YES_VERIFYVARIABLE_PARAM YES_VARIABLE TEXT_PARAM DONE_PARAM YES_TEXT YES_CASE CHK_DEVICE PAGE_PARAM YES_SUPPRESS INPT_TEXT SEARCH_TXT BUILD_ARRAYS VALID_VAR VERIFY_TXT REPLACE_TXTSCROLLFROM_TO TEXT_DONE ARRAY_LOOP SETUP_OUTPUT GET_SRCPGM SEARCH_DONE SEARCH_LOOP READ_PGM CHK_SCREEN SRCH_TXTSEARCH_THE_TEXT FOUND_ITEM CHECK_ENDCLOSEINVARIABLE_DONE NEXT_TEMP1 OUT_REPLACE SCREEN_END SETUP_NEWPGMGETLOOPGETDONE FINISH_PGMCLOSE_NEWCHAN VAR_RETURN TXT_DONEDO_LOOP PRE_DONE FINDTEXTCPLTEXT DO_REPLACECPLERRCPLCONTSHOW_LINE_ERR FIX_VAR_TBL CLOSETXT TXT_RETURN CHK_VAR_TYPE VAR_DONE NONSCREEN SRCPGM_ERR INITINPGMCONTINUE_SRCH SRCPGM_DONEERRMES READ_MORE ADD_DATA PAGE_BRKTO_PTR PAGEDONE CHECK_DUPS REPLACE_DONE VER_REPLACE VAR_TYPE GET_FILENAMEERASE_NEWNAMECREATE_NEWNAME ANSW_VERIFY DUP_DONETXT_VARREPLACE_RETURN TXT_REPLACE ANSW_TXTERRCPL CHKLENGTH TXT_VAR_DONELEAVING CORRUPT_PGM YES_ABORT NO_ABORTERRRESP ERR_RETRY ERRABORT SCREENINFO POP_WINS AFTER_OPEN