' SRCDATEL.pf3
' creates txt files of lines in a PF3 file which include DATA-ENTER-LOCK. CAn be used for other tnd other text strings

external	remove() progress() progtag() fgi bgi

global	x y z i r $file $cntrA $cntrB $file2 $findtxt $prog $progPF3 $progCHK $hdr
global	#lprog1 #lprog2 $exctxt #lenfile $progdesc #lfile2


MAIN
single-step off
' 	$findtxt="in-memory"
	$exctxt="pm_menu"
 	$findtxt="data enter lock"
	$hdr="Search for"&upper($findtxt)
' message "$hdr is:"&str($hdr)
  	fopen "revdlist.txt" as 6
  	fopen "alldatel.txt" as 5
  	while eof(6) = 0
 		fread 6 into $prog							'message "$prog is:"&str($prog)
' 		#lprog1=len($prog)							'message "#lprog1 is:"&str(#lprog1)
' 		#lprog2=#lprog1-4							'message "#lprog2 is:"&str(#lprog2)
' 		$prog=left($prog,#lprog2)					'message "$prog is:"&str($prog)
		$progPF3=$prog|".pf3"						'message "$progPF3 is:"&str($progPF3)
		$progCHK=$prog|".chk"						'message "$progCHK is:"&str($progCHK)
 		$cntrA=1
' 	  	X=remove("ent_reqn.chk")			'message "x is:"&str(x)
		fopen $progPF3 as 4
		fopen $progCHK as 2
 		fwrite 2 from $hdr
		while eof(4) = 0
    			fread 4 into $file
			if $file!$exctxt						'message "Contains"&$exctxt
				$cntrA=$cntrA+1
		  		continue while
			else
				if $file!$findtxt 					'if 1st character of $file is ' then ignore
					if left($file,1)="'"			'message "REM'd out"
						$cntrA=$cntrA+1
				  		continue while
					end if
' message "$file is:"&str($file)
					#lenfile=len($file)							'message "#lenfile is:"&str(#lenfile)
' 					#lfile2=#lenfile-10							'message "#lfile2 is:"&str(#lfile2)
					#lfile2=#lenfile-15							'message "#lfile2 is:"&str(#lfile2)
 					$progdesc=left($file,#lfile2)					'message "$progdesc is:"&str($progdesc)
					$progdesc=right($progdesc,10)					'message "$progdesc is:"&str($progdesc)
					$file2="Line"&str($cntrA)&$progdesc			'message "$file2 is:"&str($file2)
					fwrite 2 from $file2						'
					fwrite 5 from $progdesc						'
				end if		
			end if		
			$cntrA=$cntrA+1
	  	end while
  		fclose 4
	  	fclose 2
  	end while
	fclose 5
	fclose 6
END MAIN