.define HUH = @if(not yn,"G","E")
.define HUHnot = @if(not yn,"E","G")
.define GO = HUH&":\SWUPDA~1\"&@if(not yn,"G")&"files"
.define GO2 = @if(not yn,"G")&"files"
.define GOCOPY="copy"&+@char(34)&"E:\SW Updates\"&@trim(NAMEFILE)&@char(34)&+"G:\SWUPDA~1"
.define chekem as logical
.define Gcount as integer
.intro
.maxscreen
The remote MATCH file will be [go]
.reformat off
.read [GO] first deleted or not deleted
.input "Run Through The File >>" chekem
.if chekem
.gosub checkdrive
.let sys:screen = 4
.while gcount < @if(not yn,Files.sys:numrec,Gfiles.sys:numrec)
.let gcount = gcount + 1
.if @mod(gcount,18) = 0
.clrscreen (4,1,21,78)
.let sys:screen = 4
.endif
Sys:Record [[GO2].sys:record{3>}] [[GO2].namefile&" is"{15}] [@if(DELETED,"DELETED","Not Deleted")]
.read [GO] next deleted or not deleted
.getchar
.endwhile
.endif
.clrscreen
.gosub comment
.body
.read [GO] index sys:record = sys:record
.if [GO2].sys:record = 0
.reformat on
E:files record No. [sys:record{<}] [namefile ] has no match on the thumbie
drive.
.input "Copy this record to the thumbie > " chekem
.reformat off
_ .if chekem
_ .gosub ADDfile
_ .endif
.elseif files.namefile = namefile
_ .if @mod(sys:screen,21) = 0
_ .clrscreen (7,1,21,78)
_ .let sys:screen = 7
_ .endif
*[sys:record{^,4}]* *[namefile{13^}]*MATCHED*[[GO2].namefile{14^}]*
*[[GO2].sys:record{^,4}]*
.input
.else
*[sys:record{^,4}]* *[namefile{14>}]N0T MATCHED*[[GO2].namefile{15<}]* *[[GO2].sys:record{^,4}]*
This record needs to be copied and its companion file copied via a batch
file.
.input
.endif
.conclusion
.CLRSCREEN
.let Gcount = 1
.while Gcount < 23
.screenpos (Gcount,Gcount+4)
* * HI HO ENABLE......OA * *
.let Gcount = Gcount +1
.endwhile
.status STATUS LINE ECHO-o-o-oo: *__*___HI HO ENABLE......OA__*___* OA = AWAY, Bye
.getchar
.macro {!F10}
.exit
.subroutines
.label ADDfile
.let [GO].namefile = namefile
.let [GO].date = date
.let [GO].nn = nn
.let [GO].fullsite = fullsite
.let [GO].reporting = reporting
.let [GO].skipdate = skipdate
.add [GO]
.exec_dos [GOCOPY]
.return
.label checkdrive
.screenpos (3,1)
["Checking the"&+@if(not yn,"G:Thumbie Drive","Desktop E: Files")]
.return
.label comment
.let sys:screen = 1
Comment----------------------------------------------------------------
Number of E:FILES: [files.sys:numrec{7<}] Number of G:FILES:[Gfiles.sys:numrec{<}]
*[HUHnot&":SYSREC:"{9}]* * [HUHnot&":NAMEFILE"{11^}]*H U H ?* [HUH&":NAMEFILE"{12^}] * *[HUH&":SYSREC:"{8}]* *
-----------------------------------------------------------------------
.return