feat(valleywide): recover VWP Orders VB6 source from D: backup drive

Recovered Darv's VB6 source for the Valley Wide Plastering Orders
application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used).
This is the first time we've had the actual source — prior session only
had a single frmPayroll.frm from the AD server.

Three project variants identified across two snapshots:
- Full-Project/   (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\
- Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\
- Source/         (170 files, 559 MB)   — D:\Office-Estimates\Darv\Source\ wholesale
- SOURCE-HOLD/    (3 files, 1 MB)       — D:\Office-Estimates\Darv\SOURCE HOLD\

Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production
Orders_10A.exe was live as of April 2024 — open question whether newer
source exists on other backup drives Mike will scan next.

Also includes per-category and per-keyword analysis CSVs from a WizTree
file-list export, plus the analyzer script that produced them
(re-runnable for the next drive's CSV).

VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live
VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

clients/valleywide/app-modernization/source-code/Source/History/ADO2.bas

@@ -0,0 +1,657 @@
+Attribute VB_Name = "modADO"
+Option Explicit
+
+Global cb As Long          'Used to store CODE4 pointer
+Global db As Long          'Used to store DATA4 pointer
+Global db2 As Long          'Used to store DATA4 pointer
+Global rc As Integer       'Used as general return code
+Global rc2 As Integer       'Used as general return code
+Global ind As Integer
+
+Global lf As String        'Line Feed
+Global fPath As String     'Full path name to data files
+Global configCode As Long  'What type of DLL being used?
+
+'loop counters
+Global i As Integer, j As Integer
+
+Public goConn As New Connection
+Public goConn2 As New ADODB.Connection
+Public gstrCOMPANY As String
+Public gstrARCODE As String
+Public gstrBEGDATE As String, gstrENDDATE As String
+Public gintDEST As Integer, gintCOPY As Integer
+Public gintLOTID As Integer, gintPERCENT As Integer
+Public gintPROJID As Integer, glngORDERID As Long
+Public gintOPTID As Integer, gboolMAS90 As Boolean
+Public gintREPAIRID As Integer, gintORDER As Integer
+Public gintESTID As Integer, gstrPO As String
+Public gstrLOGIN As String, gbytSECURITY As Byte
+Public gintCREWID As Integer, gstrCREW As String
+Public gstrFLAG As String, gstrPONUM As String, gstrTYPE As String
+Public gboolPRINT As Boolean, gboolLOGIN As Boolean, gstrMODULE As String
+Public gboolTYPE As Boolean
+
+Public gconACTION As Byte ' 1 = Add, 2 = Change, 3 = Delete, 5 = Copy
+
+Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
+
+Public Const LB_SETTABSTOPS = &H192
+
+Public Sub Main()
+Dim boolPerform As Boolean
+Dim boolPerform2 As Boolean
+   
+   On Error GoTo Error_EH
+   
+'   Screen.MousePointer = vbHourglass
+   
+'   boolPerform = DataOpen(goConn)
+   
+'   If boolPerform Then
+   
+   cb = code4init()                 'Initialize CodeBasic
+   If cb = 0 Then
+      MsgBox "CMS Database Open Failure - Closing Program", vbCritical + vbOKOnly, "File Open Error"
+      Exit Sub
+   Else
+   '         configCode = u4switch() 'Determine what type of DLL being used
+      frmMain.Show
+   '   '      Form1.Show (1)          'Show Form1 modally
+   End If
+   
+'      rc = code4initUndo(cb)     'Close everything and free resources
+   
+'   End If
+   
+'    Set goConn2 = New ADODB.Connection
+
+    'Assuming default provider name
+  '  goConn2.ConnectionString = "Provider=CodeBase;Location="
+
+    'Open connection
+  '  goConn2.Open
+
+  ' If goConn2.Errors.count = 0 Then
+  '    frmMain.Show
+  ' Else
+  '    MsgBox "CMS Files Were Not Opened", vbInformation, "File Error"
+  '    Exit Sub
+  ' End If
+
+    'Data manipulation code...
+
+    'Cleanup
+'    cnn.Close
+'    Set cnn = Nothing
+'   boolPerform2 = DataOpen2(goConn2)
+   
+'   If boolPerform2 Then
+   
+'      cb = code4init()                 'Initialize CodeBasic
+'      If cb = 0 Then
+'      configCode = u4switch() 'Determine what type of DLL being used
+'      frmMain.Show
+'      Form1.Show (1)          'Show Form1 modally
+'   Else
+'      MsgBox "CMS Database Open Failed"
+'      Set goConn2 = Nothing
+'      Exit Sub
+'      End If
+   
+'   goConn2.Close
+'   Set goConn2 = Nothing
+   
+'   End If
+'   Screen.MousePointer = vbDefault
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Module ADO2.BAS - Sub Main"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+'Public Function DataOpen(oConn As Connection) As Boolean
+'   On Error GoTo Open_EH
+'
+'   oConn.CursorLocation = adUseClient
+   
+   ' Set the connection string by calling
+   ' a function.
+'   oConn.ConnectionString = ConnectString()
+      
+   ' Set the mode of the connection
+'   oConn.Mode = adModeReadWrite
+      
+   ' Open the Connection
+'   oConn.Open
+   
+'   DataOpen = True
+   
+'   Exit Function
+   
+'Open_EH:
+'   Call ErrorHandler(goConn)
+'   DataOpen = False
+'   Exit Function
+'End Function
+
+'Public Function DataOpen2(oConn2 As ADODB.Connection) As Boolean
+'Public Function DataOpen2(oConn2 As Connection) As Boolean
+'   On Error GoTo Open_EH
+   
+'   oConn2.CursorLocation = adUseClient
+   
+   ' Set the connection string by calling
+   ' a function.
+'   oConn2.ConnectionString = ConnectString2()
+'   oConn2.ConnectionString = "Provider=CODEBASE;Location="
+      
+   ' Set the mode of the connection
+'   oConn2.Mode = adModeRead ' = adModeReadWrite
+      
+   ' Open the Connection
+'   oConn2.Open
+   
+'   If oConn2.Errors.Count = 0 Then
+'      DataOpen2 = True
+'   End If
+
+    'Data manipulation code...
+
+    'Cleanup
+   
+'   Exit Function
+   
+'Open_EH:
+'   Call ErrorHandler(goConn2)
+'   DataOpen2 = False
+'   Exit Function
+'End Function
+
+Public Function ConnectString() As String
+Dim strDB As String
+   ' SQL Server using an ODBC Data Source
+   'Provider=MSDASQL.1;Password="";Persist Security Info=True;User ID=DWW;Data Source=SOTAMAS90
+'   ConnectString = "DSN=VWPMAS90"
+   
+   '                "UID=DWW;PWD=;" & _
+   '                "DATABASE=Employees"
+   
+'   ConnectString = "DSN=SOTAMAS90;" & _
+'                   "UID=DWW;PWD=;" ' & _
+                    '"DATABASE="
+   
+   
+   ' SQL Server using OLE DB Provider
+   'ConnectString = "Provider        = sqloledb;" & _
+   '                "Data Source     = (local);" & _
+   '                "Initial Catalog = Employees;" & _
+   '                "User Id         = sa;" & _
+   '                "Password        = ; "
+   
+   ' Jet MDB
+   strDB = App.Path & "\History.mdb"
+   ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
+                   ";Data Source=" & strDB
+'                   ";Data Source=vwp\vwp.mdb"
+'  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=vwp\vwp.mdb"
+'                   ";Data Source=vwp\vwp.mdb"
+End Function
+
+Public Function ConnectString2() As String
+Dim strDB As String
+   ' SQL Server using an ODBC Data Source
+   
+   
+   'Provider=MSDASQL.1;Persist Security Info=False;User ID=Admin;Data Source=CMS2;Initial Catalog=c:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VB98\JIMMY
+
+'   ConnectString2 = "Provider=MSDASQL.1;Persist Security Info=False;User ID=Admin;Data Source=CMS2;Initial Catalog=c:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VB98\JIMMY"
+                    '";User ID=Admin" & _
+                    '";Data Source=CMS2" _
+                    '";Initial Catalog=c:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VB98\JIMMY"
+   
+'                    ";User ID=SUP" & _
+
+'   strDB = App.Path
+   ConnectString2 = "Provider=CODEBASE;Location="
+   '& _
+   '                 ";Data Source=CMS2" & _
+   '                 ";Persist Security Info=False" & _
+   '                 ";Initial Catalog= " & strDB 'c:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VB98\JIMMY"
+
+End Function
+
+'Public Sub ErrorHandler(oConn As Connection)
+'   Dim oErr As Error
+'   Dim strMSG As String
+   
+'   For Each oErr In oConn.Errors
+'      strMSG = strMSG & _
+'               "Error #: " & _
+'               oErr.Number & vbCrLf
+'      strMSG = strMSG & _
+'               "Description: " & _
+'               oErr.Description & vbCrLf
+'      strMSG = strMSG & _
+'               "Source: " & _
+'               oErr.source & vbCrLf
+'      strMSG = strMSG & _
+'               "SQL State: " & _
+'               oErr.SQLState & vbCrLf
+'      strMSG = strMSG & _
+'               "Native Error: " & _
+'               oErr.NativeError & vbCrLf
+'      strMSG = strMSG & vbCrLf
+'   Next
+'
+'   MsgBox strMSG
+'End Sub
+
+Public Sub ErrorHandler3(oConn2 As Connection)
+   Dim oErr As Error
+   Dim strMSG As String
+   
+   For Each oErr In oConn2.Errors
+      strMSG = strMSG & _
+               "Error #: " & _
+               oErr.Number & vbCrLf
+      strMSG = strMSG & _
+               "Description: " & _
+               oErr.Description & vbCrLf
+      strMSG = strMSG & _
+               "Source: " & _
+               oErr.source & vbCrLf
+      strMSG = strMSG & _
+               "SQL State: " & _
+               oErr.SQLState & vbCrLf
+      strMSG = strMSG & _
+               "Native Error: " & _
+               oErr.NativeError & vbCrLf
+      strMSG = strMSG & vbCrLf
+   Next
+   
+   MsgBox strMSG
+End Sub
+
+Public Sub AppQuit()
+   On Error Resume Next
+
+   If goConn.State = adStateOpen Then
+      goConn.Close
+      Set goConn = Nothing
+   End If
+   If goConn2.State = adStateOpen Then
+      goConn2.Close
+      Set goConn2 = Nothing
+   End If
+   
+   
+   End
+End Sub
+
+Public Function Str2Field(strValue As String) As Variant
+   If IsNull(strValue) Then
+      strValue = ""
+      If Trim$(strValue) = "" Then
+         Str2Field = Null
+      Else
+         Str2Field = strValue
+      End If
+   Else
+      If Trim$(strValue) = "" Then
+         Str2Field = Null
+      Else
+         Str2Field = strValue
+      End If
+   End If
+End Function
+Public Function Integer2Field(strValue As Variant) As Integer
+'   If strValue = "" Or strValue = " " Then
+'   If Trim$(strValue) = "" Then
+'      Integer2Field = 0
+'   Else
+      If IsNull(strValue) Then
+         Integer2Field = 0
+      ElseIf Trim$(strValue) = "" Then
+         Integer2Field = 0
+      Else
+         Integer2Field = CInt(strValue)
+      End If
+'   End If
+
+End Function
+
+Public Function Long2Field(strValue As Variant) As Integer
+'   If Trim$(strValue) = "" Then
+'      Long2Field = 0
+'   Else
+      If IsNull(strValue) Then
+         Long2Field = 0
+      ElseIf Trim$(strValue) = "" Then
+         Long2Field = 0
+      Else
+         Long2Field = CLng(strValue)
+      End If
+'   End If
+
+End Function
+
+Public Function Single2Field(strValue As Variant) As Single
+'   If Trim$(strValue) = "" Then
+'      Single2Field = 0
+'   Else
+      If IsNull(strValue) Then
+         Single2Field = 0
+      ElseIf Trim$(strValue) = "" Then
+         Single2Field = 0
+      Else
+         Single2Field = CSng(strValue)
+      End If
+'   End If
+
+End Function
+
+Public Function Date2Field(strValue As String) As Variant
+   If strValue = "" Then
+      Date2Field = Null
+   Else
+      If IsDate(strValue) Then
+         Date2Field = CDate(strValue)
+      Else
+         Date2Field = Null
+      End If
+   End If
+End Function
+
+Public Function Double2Field(strValue As String) As Variant
+   If IsNull(strValue) Then
+      Double2Field = 0
+   ElseIf Trim$(strValue) = "" Then
+      Double2Field = 0
+   Else
+      Double2Field = CDbl(strValue)
+   End If
+'   If strValue = "" Then
+'      Double2Field = Null
+'   Else
+'      If IsNumeric(strValue) Then
+'         Double2Field = CDbl(strValue)
+'      Else
+'         Double2Field = Null
+'      End If
+'   End If
+End Function
+
+Public Function Field2Str(vntField As Variant) As String
+   If IsNull(vntField) Then
+      Field2Str = ""
+   Else
+      Field2Str = Trim$(CStr(vntField))
+   End If
+End Function
+Public Function Field2Str2(vntField As Variant) As String
+'   If vntField = "" Then
+'      Field2Str2 = 0
+'   Else
+      If IsNull(vntField) Then
+         Field2Str2 = 0
+      ElseIf Trim$(vntField) = "" Then
+         Field2Str2 = 0
+      Else
+         Field2Str2 = Trim$(CStr(vntField))
+      End If
+'   End If
+End Function
+
+Public Function Field2Long(vntField As Variant) As Long
+   If IsNull(vntField) Then
+      Field2Long = -1
+   Else
+      Field2Long = CLng(vntField)
+   End If
+End Function
+
+Public Function Field2Double(vntField As Variant) As Long
+'   If Trim$(vntField) = "" Then
+'      Field2Double = 0
+'   Else
+      If IsNull(vntField) Then
+         Field2Double = 0
+      ElseIf Trim$(vntField) = "" Then
+         Field2Double = 0
+      Else
+         Field2Double = CDbl(vntField)
+      End If
+'   End If
+End Function
+
+Public Function Field2Decimal(vntField As Variant) As Long
+'   If Trim$(vntField) = "" Then
+'      Field2Decimal = 0
+'   Else
+      If IsNull(vntField) Then
+         Field2Decimal = 0
+      ElseIf Trim$(vntField) = "" Then
+         Field2Decimal = 0
+      Else
+         Field2Decimal = CDec(vntField)
+      End If
+'   End If
+End Function
+
+Public Function Field2Integer(vntField As Variant) As Long
+'   If Trim$(vntField) = "" Then
+      
+'   Else
+      If IsNull(vntField) Then
+         Field2Integer = 0
+      ElseIf Trim$(vntField) = "" Then
+         Field2Integer = 0
+      Else
+         Field2Integer = CInt(vntField)
+      End If
+'   End If
+End Function
+
+Public Function Field2CheckBox(vntField As Variant) As Integer
+   If IsNull(vntField) Then
+      Field2CheckBox = vbUnchecked
+   Else
+      Field2CheckBox = IIf(vntField, vbChecked, vbUnchecked)
+   End If
+End Function
+
+Public Sub ListFindItem(ctlAny As Control, lngValue As Long)
+   Dim intLoop As Integer
+   Dim boolFound As Boolean
+   
+   For intLoop = 0 To ctlAny.ListCount - 1
+      If ctlAny.ItemData(intLoop) = lngValue Then
+         ctlAny.ListIndex = intLoop
+         boolFound = True
+         intLoop = ctlAny.ListCount
+      End If
+   Next
+   
+   If Not boolFound Then
+      ctlAny.ListIndex = -1
+   End If
+End Sub
+
+Public Sub ListFindItem3(ctlAny As Control, lngValue As Long)
+   Dim intLoop As Integer
+   Dim boolFound As Boolean
+   
+   For intLoop = 0 To ctlAny.ListCount - 1
+      If Field2Long(Left(ctlAny.ItemData(intLoop), 3)) = lngValue Then
+         ctlAny.ListIndex = intLoop
+         boolFound = True
+         intLoop = ctlAny.ListCount
+      End If
+   Next
+   
+   If Not boolFound Then
+      ctlAny.ListIndex = -1
+   End If
+End Sub
+
+Public Sub ListFindItem2(ctlAny As Control, lngValue As Long)
+   Dim intLoop As Integer
+   Dim boolFound As Boolean
+   
+   For intLoop = 0 To ctlAny.ListCount - 1
+      If ctlAny.ItemData(intLoop) > lngValue Then
+         ctlAny.ListIndex = intLoop - 1
+         boolFound = True
+         intLoop = ctlAny.ListCount
+      End If
+   Next
+   
+   If Not boolFound Then
+      ctlAny.ListIndex = -1
+   End If
+End Sub
+
+Public Function ListReposition(lstCtrl As Control, _
+                               intINDEX As Integer) As Integer
+   If lstCtrl.ListCount = 0 Then
+      ListReposition = -1
+   Else
+      intINDEX = intINDEX + 1
+      
+      If intINDEX >= lstCtrl.ListCount - 1 Then
+         ListReposition = lstCtrl.ListCount - 1
+      Else
+         intINDEX = intINDEX - 1
+         If intINDEX <= 0 Then
+            ListReposition = 0
+         Else
+            ListReposition = intINDEX
+         End If
+      End If
+   End If
+End Function
+Public Sub CBFindString(ctrControlName As Control, strFindStr As String)
+
+Dim intLoop As Integer, strStr As String
+
+For intLoop = 0 To ctrControlName.ListCount - 1
+'   strStr = ctrControlName.ItemData(intLoop)
+   strStr = ctrControlName.List(intLoop)
+   If Trim$(UCase$(strStr)) = Trim(UCase$(strFindStr)) Then
+      ctrControlName.ListIndex = intLoop
+      intLoop = ctrControlName.ListCount
+'      ctrControlName.SetFocus
+   Else
+      ctrControlName.ListIndex = -1
+   End If
+Next intLoop
+
+End Sub
+
+Public Sub CBFindString3(ctrControlName As Control, strFindStr As String)
+
+Dim intLoop As Integer, strStr As String
+
+For intLoop = 0 To ctrControlName.ListCount - 1
+'   strStr = ctrControlName.ItemData(intLoop)
+   strStr = ctrControlName.List(intLoop)
+   If Left$(UCase$(strStr), 2) = Trim(UCase$(strFindStr)) Then
+      ctrControlName.ListIndex = intLoop
+      intLoop = ctrControlName.ListCount
+'      ctrControlName.SetFocus
+   Else
+      ctrControlName.ListIndex = -1
+   End If
+Next intLoop
+
+End Sub
+
+Public Sub CBFindString1(ctrControlName As Control, strFindStr As String)
+
+Dim intLoop As Integer, strStr As String
+
+For intLoop = 0 To ctrControlName.ListCount - 1
+'   strStr = ctrControlName.ItemData(intLoop)
+   strStr = ctrControlName.List(intLoop)
+   If Left$(UCase$(strStr), 1) = Trim(UCase$(strFindStr)) Then
+      ctrControlName.ListIndex = intLoop
+      intLoop = ctrControlName.ListCount
+'      ctrControlName.SetFocus
+   Else
+      ctrControlName.ListIndex = -1
+   End If
+Next intLoop
+
+End Sub
+
+Public Sub CBFindString4(ctrControlName As Control, strFindStr As String)
+'This Routine will find something in the Item Data are of a control.
+'This works best when looking for an amount that not just the list index number.
+
+Dim intLoop As Integer, strStr As String
+
+For intLoop = 0 To ctrControlName.ListCount - 1
+   strStr = ctrControlName.ItemData(intLoop)
+   If Left$(UCase$(strStr), 4) = Trim(UCase$(strFindStr)) Then
+      ctrControlName.ListIndex = intLoop
+      intLoop = ctrControlName.ListCount
+      ctrControlName.SetFocus
+   Else
+      ctrControlName.ListIndex = -1
+   End If
+Next intLoop
+
+End Sub
+
+Public Sub CBFindString2(ctrControlName As Control, strFindStr As String)
+
+Dim intLoop As Integer, strStr As String, strID As String
+
+For intLoop = 0 To ctrControlName.ListCount - 1
+'   strStr = ctrControlName.ItemData(intLoop)
+   strStr = ctrControlName.List(intLoop)
+   strID = Left(Trim$(UCase$(strStr)), 3)
+   If Field2Str2(strID) = Trim(UCase$(strFindStr)) Then
+'   If Left(Trim$(UCase$(strStr)), 3) = Trim(UCase$(strFindStr)) Then
+      ctrControlName.ListIndex = intLoop
+      intLoop = ctrControlName.ListCount
+      ctrControlName.SetFocus
+      Exit Sub
+   Else
+      ctrControlName.ListIndex = -1
+   End If
+Next intLoop
+
+End Sub
+
+Public Function FieldSelect(lstCtrl As Control)
+   lstCtrl.SelStart = 0
+   If lstCtrl.MaxLength > 0 Then
+      lstCtrl.SelLength = lstCtrl.MaxLength
+   Else
+      lstCtrl.SelLength = 1000
+   End If
+End Function
+
+Public Sub ErrorHandler2()
+   Set frmError.ErrorObj = Err
+   frmError.Show vbModal
+End Sub
+
+
+Public Function FindMax(ByVal strFILE As String, ByVal strField As String)
+Dim strSQL As String, oRSMAX As Recordset
+'Dim strField As String, strFile As String
+
+   strSQL = "SELECT Max(" & strField & ") as MAXField from " & strFILE 'tblOption"
+   Set oRSMAX = New Recordset
+   oRSMAX.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+
+   FindMax = oRSMAX!maxfield
+   oRSMAX.Close
+
+End Function

clients/valleywide/app-modernization/source-code/Source/History/APExt.tss

@@ -0,0 +1,13 @@
+HCEN500              1554208                                           Central Pet West                                                                                                                                                                                                                                     
+D5 785184504406                                                                                                         08/04/2007100           0.56                                                             
+D5 785184404003                                                                                                         08/04/200720            1.5                                                              
+D5 785184450017                                                                                                         08/04/20070             0                                                                
+D5 071859005324                                                                                                         08/04/20074             3.122                                                            
+D5 070230119254                                                                                                         08/04/20073             6                                                                
+D5 045125602296                                                                                                         08/04/20073             18.5                                                             
+D5 062177832006                                                                                                         08/04/20074             5.733                                                            
+D5 674555997278                                                                                                         08/04/20072             46.753                                                           
+D5 674555993201                                                                                                         08/04/20073             17.078                                                           
+D5 674555992402                                                                                                         08/04/20072             30.51                                                            
+D5 048081018187                                                                                                         08/04/20074             21.33                                                            
+D5 030157701215                                                                                                         08/04/20076             6.42                                                             

clients/valleywide/app-modernization/source-code/Source/History/History.PDM

@@ -0,0 +1,212 @@
+[Root]
+Most Recent Package=History
+
+
+[Package|History|Root]
+SubWizProgID=PDWizard.SetupPkgSubWiz
+BuildFolder=C:\Projects\History\Package2
+
+[Package|History|Configure DAO ISAMs]
+Applicable=No
+
+[Package|History|Configure DAO ODBC]
+JetWorkspace=
+ODBCDirect=
+
+[Package|History|Files Found]
+p2bbnd.dll=C:\AMD350\D_Drive\aceprpg\Support\p2bbnd.dll
+
+[Package|History|Files Released]
+SSCSDK80.DLL=
+Crystal=
+p2soledb.dll=
+p2SSYB10.DLL=
+p2SSQL.DLL=
+p2SORA7.DLL=
+p2SMON.DLL=
+p2SIFMX.DLL=
+sscsdk32.dll=
+
+[Package|History|Missing Dependency Information]
+C:\AMD350\D_Drive\aceprpg\Support\SSCSDK32.DLL=
+C:\WINDOWS\SYSTEM\rrw32.ocx=
+C:\WINDOWS\SYSTEM\rrrpt32.dll=
+C:\WINDOWS\system32\rrw32.ocx=
+C:\WINDOWS\system32\Crpe32.dll=
+C:\WINDOWS\system32\msadox.dll=
+C:\Program Files\Common Files\System\ado\msado26.tlb=
+C:\WINDOWS\system32\rrrpt32.dll=
+C:\WINDOWS\system32\C4dll.dll=
+
+[Package|History|Out-of-Date Dependency Information]
+C:\WINDOWS\SYSTEM\crpe32.dll=
+
+[Package|History|Files Added]
+sscsdk32.dll=
+
+[Package|History|Files Removed]
+c:\cmswin70\swjdata\history2psi.exe=
+
+[Package|History|Files In Project]
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
+C:\Projects\History\History2ST4.exe=Yes
+C:\WINDOWS\system32\msvbvm60.dll=Yes
+C:\WINDOWS\system32\C4dll.dll=Yes
+C:\WINDOWS\system32\rrrpt32.dll=Yes
+C:\Program Files\Common Files\System\ado\msado26.tlb=Yes
+C:\WINDOWS\system32\msadox.dll=Yes
+C:\WINDOWS\system32\crystl32.ocx=Yes
+C:\WINDOWS\system32\Crpe32.dll=Yes
+C:\WINDOWS\system32\MSADODC.OCX=Yes
+C:\WINDOWS\system32\MSSTDFMT.DLL=Yes
+C:\WINDOWS\system32\MSDATGRD.OCX=Yes
+C:\WINDOWS\system32\MSHFLXGD.OCX=Yes
+C:\WINDOWS\system32\rrw32.ocx=Yes
+C:\WINDOWS\system32\VB6STKIT.DLL=Yes
+
+[Package|History|Configure Registry Files]
+Applicable=No
+
+[Package|History|Configure Remote Servers]
+Applicable=No
+
+[Package|History|Install Locations]
+C:\Projects\DMODATA\History.exe=$(AppPath)
+C:\WINDOWS\SYSTEM\msvbvm60.dll=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEAUT32.DLL=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\OLEPRO32.DLL=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\ASYCFILT.DLL=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\STDOLE2.TLB=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
+C:\WINDOWS\SYSTEM\crystl32.ocx=$(WinSysPath)
+C:\WINDOWS\SYSTEM\crpe32.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\implode.dll=$(AppPath)
+C:\WINDOWS\SYSTEM\Crpaig80.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\MSVCRT.DLL=$(WinSysPath)
+C:\WINDOWS\SYSTEM\MFC42.DLL=$(WinSysPath)
+C:\WINDOWS\Crystal\crxlat32.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2bbde.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2bbnd.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\p2bdao.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2bxbse.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\p2ctdao.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\p2irdao.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2sifmx.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2smon.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\p2sodbc.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2sora7.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2ssql.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2ssyb10.dll=$(WinSysPath)
+C:\AMD350\D_Drive\aceprpg\Support\p2soledb.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2ddisk.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2dmapi.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2dnotes.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2dpost.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2dvim.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2dapp.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2fcr.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2fhtml.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\U2FODBC.DLL=$(WinSysPath)
+C:\WINDOWS\Crystal\u2frec.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2frtf.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2fsepv.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2ftext.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2fwks.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2fwordw.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2fxls.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u25dts.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\U25STORE.DLL=$(AppPath)
+C:\WINDOWS\Crystal\u25total.dll=$(AppPath)
+C:\WINDOWS\Crystal\u2l2000.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2lbar.dll=$(AppPath)
+C:\WINDOWS\Crystal\u2lcom.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2ldts.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u2lsamp1.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\u252000.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\MSADODC.OCX=$(WinSysPath)
+C:\WINDOWS\SYSTEM\MSSTDFMT.DLL=$(WinSysPath)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=$(AppPath)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath)
+C:\WINDOWS\SYSTEM\VB6STKIT.DLL=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath)
+C:\AMD350\D_Drive\aceprpg\Support\SSCSDK32.DLL=$(WinSysPath)
+C:\WINDOWS\SYSTEM\C4dll.dll=$(WinSysPath)
+C:\Program Files\Common Files\SYSTEM\ADO\msadox.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\MSDATGRD.OCX=$(WinSysPath)
+C:\WINDOWS\SYSTEM\MSHFLXGD.OCX=$(WinSysPath)
+C:\CMSWIN70\SWJData\History2202.exe=$(AppPath)
+C:\CMSWIN70\SWJData\History2LVT.exe=$(AppPath)
+C:\WINDOWS\SYSTEM\rrrpt32.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\rrw32.ocx=$(WinSysPath)
+C:\WINDOWS\SYSTEM\crpaig32.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\p2bbnd.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2sifmx.dll=$(WinSysPath)
+C:\WINDOWS\SYSTEM\p2smon.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2sora7.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2ssql.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2ssyb10.dll=$(WinSysPath)
+C:\WINDOWS\Crystal\p2soledb.dll=$(WinSysPath)
+\program files\seagate software\sschart\SSCSDK32.DLL=$(WinSysPath)
+C:\CMSWIN70\SWJData\History2RMX.exe=$(AppPath)
+C:\Projects\History\History2ST4.exe=$(AppPath)
+C:\WINDOWS\system32\msvbvm60.dll=$(WinSysPathSysFile)
+C:\WINDOWS\system32\C4dll.dll=$(WinSysPath)
+C:\WINDOWS\system32\rrrpt32.dll=$(WinSysPath)
+C:\Program Files\Common Files\System\ado\msado26.tlb=$(WinSysPath)
+C:\WINDOWS\system32\msadox.dll=$(WinSysPath)
+C:\WINDOWS\system32\crystl32.ocx=$(WinSysPath)
+C:\WINDOWS\system32\Crpe32.dll=$(AppPath)
+C:\WINDOWS\system32\MSADODC.OCX=$(WinSysPath)
+C:\WINDOWS\system32\MSSTDFMT.DLL=$(WinSysPath)
+C:\WINDOWS\system32\MSDATGRD.OCX=$(WinSysPath)
+C:\WINDOWS\system32\MSHFLXGD.OCX=$(WinSysPath)
+C:\WINDOWS\system32\rrw32.ocx=$(WinSysPath)
+C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile)
+
+[Package|History|Configure Shared Files]
+Applicable=Yes
+C:\Projects\DMODATA\History.exe=No
+C:\WINDOWS\SYSTEM\implode.dll=No
+C:\WINDOWS\Crystal\U25STORE.DLL=No
+C:\WINDOWS\Crystal\u25total.dll=No
+C:\WINDOWS\Crystal\u2lbar.dll=No
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\MDAC_TYP.EXE=No
+C:\CMSWIN70\SWJData\History2202.exe=No
+C:\CMSWIN70\SWJData\History2LVT.exe=No
+C:\CMSWIN70\SWJData\History2RMX.exe=No
+C:\Projects\History\History2ST4.exe=No
+C:\WINDOWS\system32\Crpe32.dll=No
+
+[Package|History|Distribution]
+Type=single
+Size=2.88 MB
+Title=History
+
+[Package|History|IconGroups]
+Group0=History
+PrivateGroup0=-1
+Parent0=$(Programs)
+
+[Package|History|History]
+Icon1=History.EXE
+Title1=History
+StartIn1=$(AppPath)
+Key1=Icon1
+
+[Package|History|Package]
+PackageFolder=C:\Projects\History\Package2
+ProjectFolder=C:\Projects\History
+ServerSideCab=
+File1=C:\Projects\History\Package2\setup.exe
+File2=C:\Projects\History\Package2\Setup.Lst
+File3=C:\Projects\History\Package2\History2ST4.CAB
+Handler1=PDWizard.FolderDplySubWiz
+Handler2=PDWizard.WebPostDplySubWiz

clients/valleywide/app-modernization/source-code/Source/History/History.vbp

@@ -0,0 +1,47 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
+Reference=*\G{00000206-0000-0010-8000-00AA006D2EA4}#2.6#0#..\..\Program Files\Common Files\system\ado\msado26.tlb#Microsoft ActiveX Data Objects 2.6 Library
+Reference=*\G{00000600-0000-0010-8000-00AA006D2EA4}#2.6#0#..\..\WINDOWS\system32\msadox.dll#Microsoft ADO Ext. 2.6 for DDL and Security
+Object={00025600-0000-0000-C000-000000000046}#5.2#0; Crystl32.OCX
+Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
+Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
+Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
+Form=frmMain.frm
+Module=modADO; ADO2.bas
+Form=frmError.frm
+Module=CodeBase; Codebase.bas
+Object={09E60688-07A2-11CF-BD27-10005AE6AFFA}#1.0#0; rrw32.ocx
+Module=Module2; rrdecl32.bas
+IconForm="frmMain"
+Startup="Sub Main"
+HelpFile=""
+Title="History"
+ExeName32="History2JHD.exe"
+Command32=""
+Name="History"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=5
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="Wynn Business Services"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+
+[MS Transaction Server]
+AutoRefresh=1

clients/valleywide/app-modernization/source-code/Source/History/History.vbw

@@ -0,0 +1,5 @@
+frmMain = 48, 3, 781, 479, C, 22, 22, 755, 498, C
+modADO = 49, 5, 782, 481, 
+frmError = 88, 88, 821, 564, , 88, 88, 821, 564, C
+CodeBase = 88, 88, 910, 499, 
+Module2 = 0, 0, 0, 0, C

clients/valleywide/app-modernization/source-code/Source/History/MSSCCPRJ.SCC

@@ -0,0 +1,6 @@
+[SCC]
+SCC=This is a source code control file
+
+[History.vbp]
+SCC_Project_Name=this project is not under source code control
+SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>

clients/valleywide/app-modernization/source-code/Source/History/Package/SETUP.LST

@@ -0,0 +1,124 @@
+[Bootstrap]
+SetupTitle=Install
+SetupText=Copying Files, please stand by.
+CabFile=History.CAB
+Spawn=Setup1.exe
+Uninstal=st6unst.exe
+TmpDir=msftqws.pdw
+Cabs=1
+
+[Bootstrap Files]
+File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 12:00:00 AM,101888,6.0.84.50
+File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1
+File3=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00 AM,164112,5.0.4275.1
+File4=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1
+File5=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00 AM,147728,2.40.4275.1
+File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 12:00:00 AM,598288,2.40.4275.1
+File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/20/00 11:00:00 PM,1388544,6.0.89.64
+
+[IconGroups]
+Group0=History
+PrivateGroup0=-1
+Parent0=$(Programs)
+
+[History]
+Icon1="History.EXE"
+Title1=History
+StartIn1=$(AppPath)
+
+[Setup]
+Title=History
+DefaultDir=$(ProgramFiles)\History
+AppExe=History.EXE
+AppToUninstall=History.EXE
+
+[Setup1 Files]
+File1=@SSCSDK32.DLL,$(WinSysPath),,$(Shared),10/29/98 4:02:34 PM,901120,1.0.3.7
+File2=@MDAC_TYP.EXE,$(AppPath),,,1/20/00 12:00:00 AM,7856352,25.0.4403.12
+File3=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4
+File4=@MSADODC.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,118976,6.0.88.4
+File5=@u252000.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File6=@u2lsamp1.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.1
+File7=@u2ldts.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File8=@u2lcom.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,45056,8.0.0.0
+File9=@u2lbar.dll,$(AppPath),,,12/14/98 5:00:00 PM,40960,0.0.0.0
+File10=@u2l2000.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File11=@u25total.dll,$(AppPath),,,6/25/98 5:00:00 PM,59904,0.0.0.0
+File12=@U25STORE.DLL,$(AppPath),,,3/9/97 2:00:00 PM,61440,0.0.0.0
+File13=@u25dts.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File14=@u2fxls.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,208896,8.0.0.25
+File15=@u2fwordw.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,106496,8.0.100.4
+File16=@u2fwks.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,40960,8.0.0.4
+File17=@u2ftext.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,81920,8.0.0.1
+File18=@u2fsepv.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,36864,8.0.0.8
+File19=@u2frtf.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,122880,8.0.0.33
+File20=@u2frec.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,36864,8.0.0.0
+File21=@U2FODBC.DLL,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,49152,8.0.0.2
+File22=@u2fhtml.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,32768,8.0.0.13
+File23=@u2fcr.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,28672,8.0.0.1
+File24=@u2dapp.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,28672,8.0.0.0
+File25=@u2dvim.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,57344,8.0.0.0
+File26=@u2dpost.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,49152,8.0.0.0
+File27=@u2dnotes.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,53248,8.0.0.8
+File28=@u2dmapi.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,40960,8.0.0.0
+File29=@u2ddisk.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,28672,8.0.0.0
+File30=@p2soledb.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,138240,7.0.0.26
+File31=@p2ssyb10.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,160768,7.0.0.49
+File32=@p2ssql.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,201728,7.0.0.44
+File33=@p2sora7.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,216064,7.0.0.45
+File34=@p2sodbc.dll,$(WinSysPath),,$(Shared),4/4/01 7:47:38 PM,286720,8.6.0.3
+File35=@p2smon.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,189952,7.0.0.61
+File36=@p2sifmx.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,173568,7.0.0.15
+File37=@p2irdao.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,112640,7.0.0.39
+File38=@p2ctdao.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,81408,7.0.0.29
+File39=@p2bxbse.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,268288,7.0.0.14
+File40=@p2bdao.dll,$(WinSysPath),,$(Shared),3/1/00 3:34:24 AM,94208,8.0.0.4
+File41=@p2bbnd.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,59392,7.0.0.3
+File42=@p2bbde.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,208127,7.0.0.25
+File43=@crxlat32.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,24576,8.0.0.0
+File44=@MFC42.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/7/99 4:00:00 AM,995383,6.0.8665.0
+File45=@MSVCRT.DLL,$(WinSysPath),,$(Shared),5/4/01 12:05:02 PM,290869,6.1.8924.0
+File46=@Crpaig80.dll,$(WinSysPath),,$(Shared),2/14/00 10:20:40 AM,618496,8.0.1.1
+File47=@implode.dll,$(AppPath),,,4/26/00 11:28:26 PM,17920,0.0.0.0
+File48=@crpe32.dll,$(WinSysPath),,$(Shared),6/4/00 6:50:50 PM,5341184,8.0.0.441
+File49=@crystl32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/15/98 4:00:00 PM,993996,6.1.0.609
+File50=@History.exe,$(AppPath),,,12/2/02 11:44:56 PM,49152,1.0.0.0
+
+; The following lines may be deleted in order to obtain extra 
+; space for customizing this file on a full installation diskette.
+; 
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

clients/valleywide/app-modernization/source-code/Source/History/Package/Support/History.BAT

@@ -0,0 +1,4 @@
+@echo off
+ECHO Use this batch file to make a new cab file. Press CTRL-C to cancel, or
+pause
+"C:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\VB98\WIZARDS\PDWIZARD\MAKECAB.EXE" /f "History.DDF"

clients/valleywide/app-modernization/source-code/Source/History/Package/Support/History.DDF

@@ -0,0 +1,73 @@
+.OPTION EXPLICIT
+.Set Cabinet=off
+.Set Compress=off
+.Set MaxDiskSize=CDROM
+.Set ReservePerCabinetSize=6144
+.Set DiskDirectoryTemplate=".."
+.Set CompressionType=MSZIP
+.Set CompressionLevel=7
+.Set CompressionMemory=21
+.Set CabinetNameTemplate="History.CAB"
+"Setup.Lst"
+"setup.exe"
+.Set Cabinet=on
+.Set Compress=on
+"History.exe"
+"msvbvm60.dll"
+"OLEAUT32.DLL"
+"OLEPRO32.DLL"
+"ASYCFILT.DLL"
+"STDOLE2.TLB"
+"COMCAT.DLL"
+"crystl32.ocx"
+"crpe32.dll"
+"implode.dll"
+"Crpaig80.dll"
+"MSVCRT.DLL"
+"MFC42.DLL"
+"crxlat32.dll"
+"p2bbde.dll"
+"p2bbnd.dll"
+"p2bdao.dll"
+"p2bxbse.dll"
+"p2ctdao.dll"
+"p2irdao.dll"
+"p2sifmx.dll"
+"p2smon.dll"
+"p2sodbc.dll"
+"p2sora7.dll"
+"p2ssql.dll"
+"p2ssyb10.dll"
+"p2soledb.dll"
+"u2ddisk.dll"
+"u2dmapi.dll"
+"u2dnotes.dll"
+"u2dpost.dll"
+"u2dvim.dll"
+"u2dapp.dll"
+"u2fcr.dll"
+"u2fhtml.dll"
+"U2FODBC.DLL"
+"u2frec.dll"
+"u2frtf.dll"
+"u2fsepv.dll"
+"u2ftext.dll"
+"u2fwks.dll"
+"u2fwordw.dll"
+"u2fxls.dll"
+"u25dts.dll"
+"U25STORE.DLL"
+"u25total.dll"
+"u2l2000.dll"
+"u2lbar.dll"
+"u2lcom.dll"
+"u2ldts.dll"
+"u2lsamp1.dll"
+"u252000.dll"
+"MSADODC.OCX"
+"MSSTDFMT.DLL"
+"MDAC_TYP.EXE"
+"SETUP1.EXE"
+"VB6STKIT.DLL"
+"ST6UNST.EXE"
+"SSCSDK32.DLL"

clients/valleywide/app-modernization/source-code/Source/History/Package/Support/Setup.Lst

@@ -0,0 +1,124 @@
+[Bootstrap]
+SetupTitle=Install
+SetupText=Copying Files, please stand by.
+CabFile=History.CAB
+Spawn=Setup1.exe
+Uninstal=st6unst.exe
+TmpDir=msftqws.pdw
+Cabs=1
+
+[Bootstrap Files]
+File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 12:00:00 AM,101888,6.0.84.50
+File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1
+File3=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00 AM,164112,5.0.4275.1
+File4=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1
+File5=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00 AM,147728,2.40.4275.1
+File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 12:00:00 AM,598288,2.40.4275.1
+File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/20/00 11:00:00 PM,1388544,6.0.89.64
+
+[IconGroups]
+Group0=History
+PrivateGroup0=-1
+Parent0=$(Programs)
+
+[History]
+Icon1="History.EXE"
+Title1=History
+StartIn1=$(AppPath)
+
+[Setup]
+Title=History
+DefaultDir=$(ProgramFiles)\History
+AppExe=History.EXE
+AppToUninstall=History.EXE
+
+[Setup1 Files]
+File1=@SSCSDK32.DLL,$(WinSysPath),,$(Shared),10/29/98 4:02:34 PM,901120,1.0.3.7
+File2=@MDAC_TYP.EXE,$(AppPath),,,1/20/00 12:00:00 AM,7856352,25.0.4403.12
+File3=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4
+File4=@MSADODC.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,118976,6.0.88.4
+File5=@u252000.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File6=@u2lsamp1.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.1
+File7=@u2ldts.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File8=@u2lcom.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,45056,8.0.0.0
+File9=@u2lbar.dll,$(AppPath),,,12/14/98 5:00:00 PM,40960,0.0.0.0
+File10=@u2l2000.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File11=@u25total.dll,$(AppPath),,,6/25/98 5:00:00 PM,59904,0.0.0.0
+File12=@U25STORE.DLL,$(AppPath),,,3/9/97 2:00:00 PM,61440,0.0.0.0
+File13=@u25dts.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,24576,8.0.0.0
+File14=@u2fxls.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:28 PM,208896,8.0.0.25
+File15=@u2fwordw.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,106496,8.0.100.4
+File16=@u2fwks.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,40960,8.0.0.4
+File17=@u2ftext.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,81920,8.0.0.1
+File18=@u2fsepv.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,36864,8.0.0.8
+File19=@u2frtf.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,122880,8.0.0.33
+File20=@u2frec.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,36864,8.0.0.0
+File21=@U2FODBC.DLL,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,49152,8.0.0.2
+File22=@u2fhtml.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,32768,8.0.0.13
+File23=@u2fcr.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,28672,8.0.0.1
+File24=@u2dapp.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,28672,8.0.0.0
+File25=@u2dvim.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,57344,8.0.0.0
+File26=@u2dpost.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,49152,8.0.0.0
+File27=@u2dnotes.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,53248,8.0.0.8
+File28=@u2dmapi.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,40960,8.0.0.0
+File29=@u2ddisk.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,28672,8.0.0.0
+File30=@p2soledb.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,138240,7.0.0.26
+File31=@p2ssyb10.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,160768,7.0.0.49
+File32=@p2ssql.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,201728,7.0.0.44
+File33=@p2sora7.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,216064,7.0.0.45
+File34=@p2sodbc.dll,$(WinSysPath),,$(Shared),4/4/01 7:47:38 PM,286720,8.6.0.3
+File35=@p2smon.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,189952,7.0.0.61
+File36=@p2sifmx.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,173568,7.0.0.15
+File37=@p2irdao.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,112640,7.0.0.39
+File38=@p2ctdao.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,81408,7.0.0.29
+File39=@p2bxbse.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,268288,7.0.0.14
+File40=@p2bdao.dll,$(WinSysPath),,$(Shared),3/1/00 3:34:24 AM,94208,8.0.0.4
+File41=@p2bbnd.dll,$(WinSysPath),,$(Shared),11/8/98 4:00:00 PM,59392,7.0.0.3
+File42=@p2bbde.dll,$(WinSysPath),,$(Shared),11/15/98 4:00:00 PM,208127,7.0.0.25
+File43=@crxlat32.dll,$(WinSysPath),,$(Shared),4/26/00 11:28:26 PM,24576,8.0.0.0
+File44=@MFC42.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/7/99 4:00:00 AM,995383,6.0.8665.0
+File45=@MSVCRT.DLL,$(WinSysPath),,$(Shared),5/4/01 12:05:02 PM,290869,6.1.8924.0
+File46=@Crpaig80.dll,$(WinSysPath),,$(Shared),2/14/00 10:20:40 AM,618496,8.0.1.1
+File47=@implode.dll,$(AppPath),,,4/26/00 11:28:26 PM,17920,0.0.0.0
+File48=@crpe32.dll,$(WinSysPath),,$(Shared),6/4/00 6:50:50 PM,5341184,8.0.0.441
+File49=@crystl32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/15/98 4:00:00 PM,993996,6.1.0.609
+File50=@History.exe,$(AppPath),,,12/2/02 11:44:56 PM,49152,1.0.0.0
+
+; The following lines may be deleted in order to obtain extra 
+; space for customizing this file on a full installation diskette.
+; 
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

clients/valleywide/app-modernization/source-code/Source/History/Package2/SETUP.LST

@@ -0,0 +1,94 @@
+[Bootstrap]
+SetupTitle=Install
+SetupText=Copying Files, please stand by.
+CabFile=History2TSS.CAB
+Spawn=Setup1.exe
+Uninstal=st6unst.exe
+TmpDir=msftqws.pdw
+Cabs=1
+
+[Bootstrap Files]
+File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 12:00:00 AM,101888,6.0.84.50
+File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1
+File3=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00 AM,164112,5.0.4275.1
+File4=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1
+File5=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00 AM,147728,2.40.4275.1
+File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 12:00:00 AM,598288,2.40.4275.1
+File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/18/01 1:00:00 AM,1388544,6.0.92.37
+
+[IconGroups]
+Group0=History
+PrivateGroup0=-1
+Parent0=$(Programs)
+
+[History]
+Icon1="History.EXE"
+Title1=History
+StartIn1=$(AppPath)
+
+[Setup]
+Title=History
+DefaultDir=$(ProgramFiles)\History
+AppExe=History2TSS.exe
+AppToUninstall=History2TSS.exe
+
+[Setup1 Files]
+File1=@comdlg32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/6/99 11:00:00 PM,140288,6.0.84.18
+File2=@RICHED32.DLL,$(WinSysPathSysFile),,,5/7/98 12:00:00 AM,174352,4.0.993.4
+File3=@richtx32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,203976,6.0.88.4
+File4=@TABCTL32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 1:02:36 PM,209608,6.0.90.43
+File5=@msvcrt.dll,$(WinSysPathSysFile),,,8/29/02 3:41:08 AM,323072,7.0.2600.1106
+File6=@atl.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02 3:40:50 AM,74810,3.0.9435.0
+File7=@fpFlp30.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/1/00 3:30:00 PM,701352,3.0.0.7
+File8=@rrw32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/28/03 1:57:02 PM,151552,9.0.6.0
+File9=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4
+File10=@MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,438976,6.0.88.4
+File11=@MSDATGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 12:00:00 AM,262328,6.0.89.88
+File12=@MSADODC.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,118976,6.0.88.4
+File13=@Crpe32.dll,$(AppPath),,,2/9/01 10:43:52 AM,4587577,8.5.0.217
+File14=@crystl32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/8/98 9:00:00 AM,993996,6.1.0.609
+File15=@msadox.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/15/02 6:20:48 AM,192784,2.62.7400.0
+File16=@msado26.tlb,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/11/02 8:47:58 PM,81920,2.71.9030.0
+File17=@Flp32a30.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/1/00 3:30:00 PM,652184,3.0.0.7
+File18=@rrrpt32.dll,$(WinSysPath),,$(Shared),4/28/03 1:46:34 PM,348160,10.1.1.0
+File19=@C4dll.dll,$(WinSysPath),,$(Shared),3/12/02 2:23:48 PM,421888,1.0.0.1
+File20=@History2TSS.exe,$(AppPath),,,2/15/06 8:05:26 AM,249856,1.5.0.0
+
+; The following lines may be deleted in order to obtain extra 
+; space for customizing this file on a full installation diskette.
+; 
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

clients/valleywide/app-modernization/source-code/Source/History/Package2/Support/History.DDF

@@ -0,0 +1,43 @@
+.OPTION EXPLICIT
+.Set Cabinet=off
+.Set Compress=off
+.Set MaxDiskSize=CDROM
+.Set ReservePerCabinetSize=6144
+.Set DiskDirectoryTemplate=".."
+.Set CompressionType=MSZIP
+.Set CompressionLevel=7
+.Set CompressionMemory=21
+.Set CabinetNameTemplate="History2TSS.CAB"
+"Setup.Lst"
+"setup.exe"
+.Set Cabinet=on
+.Set Compress=on
+"History2TSS.exe"
+"msvbvm60.dll"
+"OLEAUT32.DLL"
+"OLEPRO32.DLL"
+"ASYCFILT.DLL"
+"STDOLE2.TLB"
+"COMCAT.DLL"
+"C4dll.dll"
+"rrrpt32.dll"
+"Flp32a30.ocx"
+"msado26.tlb"
+"msadox.dll"
+"crystl32.ocx"
+"Crpe32.dll"
+"MSADODC.OCX"
+"MSSTDFMT.DLL"
+"MSDATGRD.OCX"
+"MSHFLXGD.OCX"
+"rrw32.ocx"
+"fpFlp30.ocx"
+"atl.dll"
+"msvcrt.dll"
+"TABCTL32.OCX"
+"richtx32.ocx"
+"RICHED32.DLL"
+"comdlg32.ocx"
+"SETUP1.EXE"
+"VB6STKIT.DLL"
+"ST6UNST.EXE"

clients/valleywide/app-modernization/source-code/Source/History/Package2/Support/History2ST4.BAT

@@ -0,0 +1,4 @@
+@echo off
+ECHO Use this batch file to make a new cab file. Press CTRL-C to cancel, or
+pause
+"C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\MAKECAB.EXE" /f "History.DDF"

clients/valleywide/app-modernization/source-code/Source/History/Package2/Support/History2TSS.BAT

@@ -0,0 +1,4 @@
+@echo off
+ECHO Use this batch file to make a new cab file. Press CTRL-C to cancel, or
+pause
+"C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\MAKECAB.EXE" /f "History.DDF"

clients/valleywide/app-modernization/source-code/Source/History/Package2/Support/Setup.Lst

@@ -0,0 +1,94 @@
+[Bootstrap]
+SetupTitle=Install
+SetupText=Copying Files, please stand by.
+CabFile=History2TSS.CAB
+Spawn=Setup1.exe
+Uninstal=st6unst.exe
+TmpDir=msftqws.pdw
+Cabs=1
+
+[Bootstrap Files]
+File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 12:00:00 AM,101888,6.0.84.50
+File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1
+File3=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00 AM,164112,5.0.4275.1
+File4=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00 AM,17920,2.40.4275.1
+File5=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00 AM,147728,2.40.4275.1
+File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00 12:00:00 AM,598288,2.40.4275.1
+File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/18/01 1:00:00 AM,1388544,6.0.92.37
+
+[IconGroups]
+Group0=History
+PrivateGroup0=-1
+Parent0=$(Programs)
+
+[History]
+Icon1="History.EXE"
+Title1=History
+StartIn1=$(AppPath)
+
+[Setup]
+Title=History
+DefaultDir=$(ProgramFiles)\History
+AppExe=History2TSS.exe
+AppToUninstall=History2TSS.exe
+
+[Setup1 Files]
+File1=@comdlg32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/6/99 11:00:00 PM,140288,6.0.84.18
+File2=@RICHED32.DLL,$(WinSysPathSysFile),,,5/7/98 12:00:00 AM,174352,4.0.993.4
+File3=@richtx32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,203976,6.0.88.4
+File4=@TABCTL32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 1:02:36 PM,209608,6.0.90.43
+File5=@msvcrt.dll,$(WinSysPathSysFile),,,8/29/02 3:41:08 AM,323072,7.0.2600.1106
+File6=@atl.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02 3:40:50 AM,74810,3.0.9435.0
+File7=@fpFlp30.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/1/00 3:30:00 PM,701352,3.0.0.7
+File8=@rrw32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/28/03 1:57:02 PM,151552,9.0.6.0
+File9=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00 12:00:00 AM,118784,6.0.88.4
+File10=@MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,438976,6.0.88.4
+File11=@MSDATGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 12:00:00 AM,262328,6.0.89.88
+File12=@MSADODC.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 12:00:00 AM,118976,6.0.88.4
+File13=@Crpe32.dll,$(AppPath),,,2/9/01 10:43:52 AM,4587577,8.5.0.217
+File14=@crystl32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/8/98 9:00:00 AM,993996,6.1.0.609
+File15=@msadox.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/15/02 6:20:48 AM,192784,2.62.7400.0
+File16=@msado26.tlb,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/11/02 8:47:58 PM,81920,2.71.9030.0
+File17=@Flp32a30.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/1/00 3:30:00 PM,652184,3.0.0.7
+File18=@rrrpt32.dll,$(WinSysPath),,$(Shared),4/28/03 1:46:34 PM,348160,10.1.1.0
+File19=@C4dll.dll,$(WinSysPath),,$(Shared),3/12/02 2:23:48 PM,421888,1.0.0.1
+File20=@History2TSS.exe,$(AppPath),,,2/15/06 8:05:26 AM,249856,1.5.0.0
+
+; The following lines may be deleted in order to obtain extra 
+; space for customizing this file on a full installation diskette.
+; 
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

clients/valleywide/app-modernization/source-code/Source/History/SWJARMSD.INF

@@ -0,0 +1,4 @@
+[dBase IV]
+MDX1=C:\CMSWIN\SWJData\SWJARMSD.MDX
+[UIDX1 AR_CUST]
+MDX1=C:\CMSWIN\SWJData\SWJARMSD.MDX

clients/valleywide/app-modernization/source-code/Source/History/SWJPSHIS.INF

@@ -0,0 +1,4 @@
+[dBase IV]
+MDX1=C:\CMSWIN\SWJData\swjpshis.mdx
+[UIDX1 PSHINUM]
+MDX1=C:\CMSWIN\SWJData\swjpshis.mdx

clients/valleywide/app-modernization/source-code/Source/History/TEXT.INI

@@ -0,0 +1,86 @@
+[inaltvnd.txt]
+ColNameHeader=False
+Format=COMMADELIMITED
+SurroundChar="
+ImpliedDecimals=
+Col1="IN_STOCK" Char Width 30 Start 1
+Col2="IN_VENDOR" Char Width 30 Start 31
+Col3="IN_PRICING" Char Width 30 Start 61
+Col4="IN_SERIAL" Char Width 30 Start 91
+Col5="IN_STATUS" Char Width 30 Start 121
+Col6="IN_MATRIX" Char Width 30 Start 151
+Col7="IN_SITE" Char Width 30 Start 181
+Col8="IN_SHARE" Char Width 30 Start 211
+Col9="IN_MONTH" Char Width 30 Start 241
+
+[inprice.txt]
+ColNameHeader=True
+Format=COMMADELIMITED
+SurroundChar="
+Col1="IN_STOCK" Char Width 20 Start 1
+Col2="IN_DES" Char Width 45 Start 21
+Col3="IN_VENDOR" Char Width 20 Start 66
+Col4="IN_STKLOC" Char Width 20 Start 86
+Col5="IN_TYPE" Char Width 15 Start 106
+Col6="IN_UNITPK" Char Width 10 Start 121
+Col7="IN_CODE" Char Width 2 Start 131
+Col8="IN_GLKEY" Char Width 2 Start 133
+Col9="IN_DISC" Char Width 2 Start 135
+Col10="IN_PRICING" Numeric Width 1.2 Start 137
+Col11="IN_LSORDR" Date(yyyy-mm-dd) width 10 Start 138
+Col12="IN_LSPRCH" Date(yyyy-mm-dd) width 10 Start 146
+Col13="IN_LSSALE" Date(yyyy-mm-dd) width 10 Start 154
+Col14="IN_LSINVC" Char Width 15 Start 162
+Col15="IN_BREAK2" Numeric Width 8.2 Start 177
+Col16="IN_BREAK3" Numeric Width 8.2 Start 185
+Col17="IN_BREAK4" Numeric Width 8.2 Start 193
+Col18="IN_BREAK5" Numeric Width 8.2 Start 201
+Col19="IN_PRICE1" Numeric Width 14.2 Start 209
+Col20="IN_PRICE2" Numeric Width 14.2 Start 223
+Col21="IN_PRICE3" Numeric Width 14.2 Start 237
+Col22="IN_PRICE4" Numeric Width 14.2 Start 251
+Col23="IN_PRICE5" Numeric Width 14.2 Start 265
+Col24="IN_STDCST" Numeric Width 14.2 Start 279
+Col25="IN_ALTRN1" Numeric Width 14.2 Start 293
+Col26="IN_ALTRN2" Numeric Width 14.2 Start 307
+Col27="IN_MISC" Numeric Width 14.2 Start 321
+Col28="IN_SERIAL" Numeric Width 1 Start 335
+Col29="IN_LSCOST" Numeric Width 14.2 Start 336
+Col30="IN_BUYCON" Numeric Width 15.2 Start 350
+Col31="IN_SELLCON" Numeric Width 15.2 Start 365
+Col32="IN_MINQTY" Numeric Width 13.2 Start 380
+Col33="IN_MAXQTY" Numeric Width 13.2 Start 393
+Col34="IN_ONHAND" Numeric Width 14.2 Start 406
+Col35="IN_ORDERTE" Numeric Width 14.2 Start 420
+Col36="IN_BKORDER" Numeric Width 14.2 Start 434
+Col37="IN_RESERVE" Numeric Width 14.2 Start 448
+Col38="IN_COMMIT" Numeric Width 14.2 Start 462
+Col39="IN_STATUS" Numeric Width 1.2 Start 476
+Col40="IN_SUPER" Char Width 20 Start 477
+Col41="IN_ALT" Char Width 20 Start 497
+Col42="IN_INTER" Char Width 20 Start 517
+Col43="IN_CREATED" Date(yyyy-mm-dd) width 10 Start 537
+Col44="IN_MEMO" Char Width 10 Start 545
+Col45="IN_WACOST" Numeric Width 14.2 Start 555
+Col46="IN_ACCT" Char Width 30 Start 569
+Col47="IN_CATNBR" Char Width 20 Start 599
+Col48="IN_DIM1CAP" Char Width 15 Start 619
+Col49="IN_DIM2CAP" Char Width 15 Start 634
+Col50="IN_DIM3CAP" Char Width 15 Start 649
+Col51="IN_MATRIX" Numeric Width 1.2 Start 664
+Col52="IN_PRCHSZE" Char Width 10 Start 665
+Col53="IN_STORSZE" Char Width 10 Start 675
+Col54="IN_FIELD01" Char Width 2 Start 685
+Col55="IN_FIELD02" Char Width 2 Start 687
+Col56="IN_FIELD03" Char Width 10 Start 689
+Col57="IN_FIELD04" Char Width 10 Start 699
+Col58="IN_FIELD05" Date(yyyy-mm-dd) width 10 Start 709
+Col59="IN_FIELD06" Date(yyyy-mm-dd) width 10 Start 717
+Col60="IN_FIELD07" Numeric Width 15.2 Start 725
+Col61="IN_FIELD08" Numeric Width 15.2 Start 740
+Col62="IN_FIELD09" Char Width 30 Start 755
+Col63="IN_FIELD10" Char Width 30 Start 785
+Col64="IN_SITE" Numeric Width 1.2 Start 815
+Col65="IN_SHARE" Numeric Width 1.2 Start 816
+Col66="IN_MONTH" Numeric Width 1.2 Start 817
+

clients/valleywide/app-modernization/source-code/Source/History/User.frm

@@ -0,0 +1,923 @@
+VERSION 5.00
+Begin VB.Form frmUser 
+   Appearance      =   0  'Flat
+   BackColor       =   &H80000005&
+   Caption         =   "CodeBase 6.0 Basic User's Guide Examples"
+   ClientHeight    =   6210
+   ClientLeft      =   1650
+   ClientTop       =   1440
+   ClientWidth     =   6420
+   BeginProperty Font 
+      Name            =   "MS Sans Serif"
+      Size            =   8.25
+      Charset         =   0
+      Weight          =   700
+      Underline       =   0   'False
+      Italic          =   0   'False
+      Strikethrough   =   0   'False
+   EndProperty
+   ForeColor       =   &H80000008&
+   LinkTopic       =   "Form1"
+   PaletteMode     =   1  'UseZOrder
+   ScaleHeight     =   6210
+   ScaleWidth      =   6420
+   Begin VB.ListBox List2 
+      Appearance      =   0  'Flat
+      Height          =   225
+      Left            =   5580
+      TabIndex        =   1
+      Top             =   5712
+      Visible         =   0   'False
+      Width           =   735
+   End
+   Begin VB.ListBox List1 
+      Appearance      =   0  'Flat
+      Height          =   225
+      Left            =   5580
+      TabIndex        =   0
+      Top             =   5520
+      Width           =   735
+   End
+End
+Attribute VB_Name = "frmUser"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Dim bStandAlone, bClientServer As Integer
+
+Private Sub Form_Load()
+   
+   Dim rc As Integer
+   lf = Chr$(10) + Chr$(13)
+
+   configCode = u4switch()
+
+   'By default, look for data files in the EXAMPLES
+   'directory under stand-alone, and the server's
+   'executing directory under client/server
+   
+   If configCode And &H80 Then
+      bStandAlone = True      'stand-alone
+      fPath = App.Path + "\"
+   Else
+      bClientServer = True
+      fPath = ""                 'client/server
+   End If
+
+   'Attempt a connection under client/server using all
+   'default values. Change these settings as needed
+   If bClientServer Then
+      rc = code4connect(cb, "", "", "", "", "")
+      If rc < 0 Then
+         MsgBox "Cannot continue without Server connection." + lf + "Check the 'code4connect()' function in the" + lf + "Form Load event of USER.FRM", MB_OK + MB_ICONSTOP
+         Exit Sub
+      End If
+   End If
+
+   List1.AddItem "Append"
+   List1.AddItem "CopyData"
+   List1.AddItem "CopyData2"
+   List1.AddItem "CustList"
+   List1.AddItem "DataInfo"
+   List1.AddItem "Date"
+   List1.AddItem "Deletion"
+   List1.AddItem "Descend"
+   List1.AddItem "Multi"
+   List1.AddItem "NewList"
+   List1.AddItem "NewList2"
+   List1.AddItem "NoGroup"
+   List1.AddItem "NoGroup2"
+   List1.AddItem "Relate1"
+   List1.AddItem "Relate2"
+   List1.AddItem "Relate3"
+   List1.AddItem "Relate4"
+   List1.AddItem "Seeker"
+   List1.AddItem "ShowData"
+   List1.AddItem "ShowData2"
+   List1.AddItem "ShowData3"
+   List1.AddItem "Transfer"
+
+End Sub
+
+Private Sub Form_Resize()
+
+   Dim listHt As Integer, listWd As Integer
+   Dim listTp As Integer, list1Lft As Integer, list2Lft As Integer
+
+   listHt = Form1.Height * 0.7
+   listWd = Form1.Width * 0.32
+   listTp = Form1.ScaleHeight * 0.95 - listHt
+   list1Lft = Form1.Width * 0.95 - listWd
+   list2Lft = Form1.ScaleWidth * 0.05
+   
+
+   List1.Height = listHt
+   List1.Width = listWd
+   List1.Top = listTp
+   List1.Left = list1Lft
+
+   List2.Height = listHt
+   List2.Width = listWd
+   List2.Top = listTp
+   List2.Left = list2Lft
+
+
+End Sub
+
+Private Sub List1_DblClick()
+
+   'FIELD4 pointers
+   Dim fName As Long, lname As Long, address As Long
+   Dim age As Long, birthdate As Long, married As Long
+   Dim amount As Long, comment As Long
+
+   'TAG4 pointers
+   Dim nameTag As Long, ageTag As Long, amtTag As Long, birthTag As Long
+   Dim addrTag As Long
+
+   'INDEX4 pointers
+   Dim ind1 As Long
+
+   'Field value holders
+   Dim ageVal As Integer, amtVal As Double
+   Dim fnameStr As String, lnameStr As String
+   Dim addressStr As String, marriedStr As String
+   Dim birthdateStr As String, commentStr As String
+
+   'Others
+   Dim fldArray As Long, tagArray As Long
+   Dim fileName As String, db2 As Long
+
+   Dim save1 As Integer, save2 As Integer, save3 As Integer, save4 As Integer, save5 As Integer
+   Dim rc1 As Integer, rc2 As Integer
+
+Cls
+List2.Visible = False
+
+Select Case List1.Text
+
+Case "Append"
+   'Append sample code
+
+   Dim dbTo As Long, dbFrom As Long
+   Dim infoTo As Long, infoFrom As Long
+
+   Dim rcl As Long
+
+   rc = code4optimize(cb, 1)
+   rc = code4optimizeWrite(cb, 1)
+   rcl = code4memStartMax(cb, 262140)
+
+   dbTo = d4open(cb, fPath + "TO_DBF")
+   dbFrom = d4open(cb, fPath + "FROM_DBF")
+
+   Print "Record count TO_DBF: "; d4recCount(dbTo)
+
+   If cbError() Then Exit Sub
+
+   rc = code4optStart(cb)
+
+   infoTo = d4field(dbTo, "INFO")
+   infoFrom = d4field(dbFrom, "INFO")
+
+   rc = code4lockAttempts(cb, 1)
+   rc1 = d4lockFile(dbTo)
+   rc2 = d4lockFile(dbFrom)
+
+   If rc1 Or rc2 Then
+      MsgBox "Locking Failed"
+      Exit Sub
+   End If
+
+   rc = d4top(dbFrom)
+
+   Do While rc = r4success
+      rc = d4appendStart(dbTo, 0)
+      Call f4assignField(infoTo, infoFrom)
+      rc = d4append(dbTo)
+      rc = d4skip(dbFrom, 1)
+   Loop
+
+   rc = d4unlock(dbTo)
+   rc = d4unlock(dbFrom)
+
+   Print "Record count TO_DBF: "; d4recCount(dbTo)
+   
+   rc = code4close(cb)
+
+
+Case "CopyData"
+   'CopyData sample code
+
+   fileName = InputBox$("Enter file name to copy", "CopyData", "DATA1")
+
+   If fileName = "" Then Exit Sub
+
+   db = d4open(cb, fPath + fileName)      'Open original
+
+   If cbError() Then Exit Sub             'Check for error
+
+   save1 = code4safety(cb, 0)             'Overwrite existing file
+
+   fldArray = d4fieldInfo(db)             'Get 'C' field info
+
+   db2 = d4createCB(cb, fPath + "DATA2", ByVal fldArray, ByVal 0&)
+
+   If db2 > 0 Then MsgBox "Successful File copy"
+
+   Call u4free(fldArray)                     'Free field info
+
+   rc = code4close(cb)
+
+   rc = code4safety(cb, save1)               'Reset to initial status
+
+Case "CopyData2"
+   'CopyData2 sample code
+
+   save1 = code4autoOpen(cb, 0)
+   save2 = code4safety(cb, 0)
+
+   fileName = InputBox$("Enter file name to copy", "CopyData", "DATA1")
+
+   If fileName = "" Then Exit Sub
+
+   db = d4open(cb, fPath + fileName)         'Open source data file
+
+   If cbError() Then Exit Sub
+
+   ind1 = i4open(db, "")                     'Open index
+
+   If cbError() Then                         'Check for error
+      rc = code4close(cb)
+      Exit Sub
+   End If
+
+   fldArray = d4fieldInfo(db)                'Get 'C' field and tag info
+   tagArray = i4tagInfo(ind1)
+
+   db2 = d4createCB(cb, fPath + "DATA3", ByVal fldArray, ByVal tagArray)
+
+   If db2 > 0 Then MsgBox "Successful File copy"
+
+   Call u4free(fldArray)                     'Free field info
+   Call u4free(tagArray)                     'Free tag info
+   
+   rc = code4close(cb)
+
+   rc = code4autoOpen(cb, save1)             'Reset to initial status
+   rc = code4safety(cb, save2)
+
+Case "CustList"
+  'CustList sample code
+
+  db = d4open(cb, fPath + "DATA1")           'Open file
+  If code4errorCode(cb, 0) < 0 Then          'Check & reset errror code
+     rc = code4close(cb)
+     Exit Sub
+  End If
+
+  fName = d4field(db, "F_NAME")              'Get field pointers
+  lname = d4field(db, "L_NAME")
+  address = d4field(db, "ADDRESS")
+  age = d4field(db, "AGE")
+  birthdate = d4field(db, "BIRTH_DATE")      'Date field
+  married = d4field(db, "MARRIED")           'Logical
+  amount = d4field(db, "AMOUNT")             'Numeric
+  comment = d4field(db, "COMMENT")           'Memo
+
+  If d4top(db) = r4success Then
+     Do
+       lnameStr = f4str(lname)                  'Copy contents of field
+       fnameStr = f4str(fName)
+       addressStr = f4str(address)
+       ageVal = f4int(age)
+       birthdateStr = f4str(birthdate)
+       marriedStr = f4str(married)
+       amtVal = f4double(amount)
+       commentStr = f4memoStr(comment)
+   
+       Print "Name:    "; fnameStr; " "; lnameStr
+       Print "Address: "; addressStr; " "
+       Print "Age:     "; ageVal; Space(5); "Married: "; marriedStr
+       Print "Amount:  "; amtVal
+       Print "Comment: "; commentStr
+       Print
+       rc = d4skip(db, 1)
+     Loop While rc = r4success
+  Else
+     If d4recCount(db) = 0 Then Print "No records in data file"
+  End If
+
+  rc = code4close(cb)
+
+Case "DataInfo"
+   'DataInfo sample code
+
+   Dim dbname As String, fldRef As Long, y As Integer
+   y = 17
+
+   dbname = InputBox$("Enter Name of File to Examine", "Open File", "DATA1")
+   If dbname = "" Then Exit Sub
+   db = d4open(cb, fPath + dbname)
+   If cbError() Then Exit Sub                       'Check for error
+
+   Print "Data File:"; Tab(y); dbname               'Print data file information
+   Print "Alias:"; Tab(y); d4alias(db)
+   Print "Record Count:"; Tab(y); d4recCount(db)
+   Print "Record Length:"; Tab(y); d4recWidth(db)
+   Print "Field Count:"; Tab(y); d4numFields(db)
+   
+   List2.Visible = True
+   List2.Clear
+
+   For i = 1 To d4numFields(db)                      'Loop through each field
+      fldRef = d4fieldJ(db, i)                       'Get next field pointer
+      List2.AddItem "Field " + Str$(i)               'Add field info
+      List2.AddItem f4name(fldRef)
+      List2.AddItem Chr$(f4type(fldRef))
+      List2.AddItem Str$(f4len(fldRef))
+      List2.AddItem Str$(f4decimals(fldRef))
+      List2.AddItem ""
+   Next i
+      
+   rc = code4close(cb)
+
+Case "Date"
+   'Date sample code
+
+   Dim request As String, standard As String
+   Dim birth As String
+
+   request = "Please enter your birthday" + lf
+   request = request + "in MMM DD/CCYY format"
+   request = request + lf + "eg Dec 23/1993"
+
+   Call HowLongUntil(12, 25, "Christmas")
+
+   Do
+      birth = InputBox$(request, "Date", "Jan 01/1980")
+      If birth = "" Then Exit Sub
+
+      Call date4init(standard, birth, "MMM DD/CCYY")
+
+   Loop While Not ValidDate(standard)
+
+   Call HowLongUntil(date4month(standard), date4day(standard), "your next birthday")
+
+
+Case "Deletion"
+  'Deletion sample code
+
+  Dim count As Integer
+
+  'Create test file
+  If Not CreateDeleteFile() Then Exit Sub
+
+  'Append 5 blank records
+  For i = 1 To 5
+    rc = d4appendBlank(db)
+  Next i
+
+  PrintRecordsStatus            'Print status of records
+
+  rc = d4go(db, 3)              'Go to record 3
+  Call d4delete(db)             'Delete the record
+  rc = d4go(db, 1)
+  Call d4delete(db)
+  rc = d4go(db, 4)
+  Call d4delete(db)
+  PrintRecordsStatus
+
+  rc = d4go(db, 3)
+  Call d4recall(db)
+  PrintRecordsStatus
+
+  rc = d4pack(db)               'Remove deleted records
+  rc = d4memoCompress(db)       'Compress memo file
+  PrintRecordsStatus
+
+  rc = code4close(cb)
+
+Case "Descend"
+   'Descend sample Code
+   
+   'Note: This example has been modified from the printed
+   '      documentation to accomodate the fact that in
+   '      client/server applications, a production index
+   '      file cannot be re-created over an existing file,
+   '      as can be done in stand-alone applications.
+   '      Refer to the i4create() function in the
+   '      Reference Guide for more information.
+
+   save1 = code4autoOpen(cb, 0)    'no effect under client/server
+   save2 = code4accessMode(cb, OPEN4DENY_RW)
+
+   If bStandAlone Then
+      rc = OpenDataFile()
+   Else
+      rc = CreateDataOnly(True)
+   End If
+
+   If rc Then
+
+      If d4recCount(db) = 0 Then
+         Call AddNewRecord("Sarah", "Webber", "132-32 St.", 32, "19610523", True, 147.99, "New Customer")
+         Call AddNewRecord("John", "Albridge", "1232-76 Ave.", 55, "19381212", False, 98.99, "")
+      End If
+
+      If CreateIndexDescend() Then
+         nameTag = d4tag(db, "NAME_TAG")
+         addrTag = d4tag(db, "ADDR_TAG")
+         ageTag = d4tag(db, "AGE_TAG")
+         birthTag = d4tag(db, "DATE_TAG")
+   
+         Call d4tagSelect(db, nameTag)
+         PrintRecordsDescend
+   
+         Call d4tagSelect(db, addrTag)
+         PrintRecordsDescend
+   
+         Call d4tagSelect(db, ageTag)
+         PrintRecordsDescend
+   
+         Call d4tagSelect(db, birthTag)
+         PrintRecordsDescend
+      Else
+         rc = code4errorCode(cb, 0)
+      End If
+   Else
+      rc = code4errorCode(cb, 0)
+   End If
+   
+   rc = code4autoOpen(cb, save1)
+   rc = code4accessMode(cb, save2)
+
+   rc = code4close(cb)
+
+Case "Multi"
+   'Multi sample code
+
+   Dim opt As String, choice As String
+
+   save1 = code4accessMode(cb, OPEN4DENY_NONE)     'Open in shared mode
+   save2 = code4readOnly(cb, 0)                    'Read and Write
+   save3 = code4readLock(cb, 0)                    'Don't lock when reading
+   save4 = code4lockAttempts(cb, WAIT4EVER)        'Try forever on locks
+   save5 = code4lockEnforce(cb, 1)                 'lock when modifying record
+
+   db = d4open(cb, fPath + "NAMES")
+
+   If code4errorCode(cb, 0) < 0 Then Exit Sub
+
+   fName = d4field(db, "NAME")
+   nameTag = d4tag(db, "NAME")
+   Call d4tagSelect(db, nameTag)
+
+   opt$ = "Enter a Command:" + lf
+   opt$ = opt$ + "'a', 'f', 'l', 'm', or 'x'"
+
+   rc = d4top(db)
+
+   Do
+      Cls
+      rc = code4errorCode(cb, 0)
+
+      Print "Record #:"; d4recNo(db); Tab(25); "Name: "; f4str(fName)
+      Print
+      choice$ = InputBox(opt$, "Multi")
+      Select Case choice$
+      Case "a", "A"
+         Call AddRecord(db, fName)
+      Case "f", "F"
+         Call FindRecord(db)
+      Case "l", "L"
+         Call ListData(db, fName)
+         List2.Visible = True
+         Exit Do
+      Case "m", "M"
+         Call ModifyRecord(db, fName)
+      Case "x", "X", ""
+         rc = code4close(cb)
+         Cls
+         Exit Do
+      Case Else
+         MsgBox "Invalid Option", MB_OK, "Error"
+      End Select
+   Loop
+
+   rc = code4accessMode(cb, save1)
+   rc = code4readOnly(cb, save2)
+   rc = code4readLock(cb, save3)
+   rc = code4lockAttempts(cb, save4)
+   rc = code4lockEnforce(cb, save5)
+
+Case "NewList"
+   'NewList sample code
+   
+   save1 = code4errOpen(cb, 0)         'Disable error message
+   save2 = code4safety(cb, 0)          'Disable overwrite safety
+                                       
+   If Not OpenDataFile() Then Exit Sub 'Open the file
+   
+   If d4recCount(db) > 0 Then          'Not a new file
+      PrintRecordsNewList              'Print Records
+   Else
+      Call AddNewRecord("Sarah", "Webber", "132-32 St.", 32, "19610523", True, 147.99, "New Customer")
+      Call AddNewRecord("John", "Albridge", "1232-76 Ave.", 55, "19381212", False, 98.99, "")
+      PrintRecordsNewList
+   End If                              'Add records, then print
+   
+   rc = code4errOpen(cb, save1)        'Restore initial settings
+   rc = code4safety(cb, save2)
+   
+   rc = code4close(cb)                 'Close files
+   
+
+Case "NewList2"
+  'NewList2 sample code
+
+  Dim overWrite As Integer
+  
+  overWrite = True
+
+  'Create the data and index file
+  If Not CreateDataFile(overWrite) Then Exit Sub
+    
+  'Get TAG4 pointers
+  nameTag = d4tag(db, "NAME_TAG")
+  ageTag = d4tag(db, "AGE_TAG")
+  amtTag = d4tag(db, "AMT_TAG")
+
+  Call AddNewRecord("Sarah", "Webber", "132-32 St.", 32, "19610523", True, 147.99, "New Customer")
+  Call AddNewRecord("John", "Albridge", "1232-76 Ave.", 55, "19381212", False, 98.99, "")
+  
+  Print "Natural Order:"
+  PrintRecordsNewList
+  Print
+
+  Print "Sorted by Name:"
+  Call d4tagSelect(db, nameTag)
+  PrintRecordsNewList
+  
+  'And so on...
+
+  rc = code4close(cb)                  'Close files
+
+Case "NoGroup"
+   'NoGroup sample code
+
+   'Note: This example has been modified from the printed
+   '      documentation to accomodate the fact that in
+   '      client/server applications, a production index
+   '      file cannot be re-created over an existing file,
+   '      as can be done in stand-alone applications.
+   '      Refer to the i4create() function in the
+   '      Reference Guide for more information.
+
+   rc1 = MsgBox("Are you using a CodeBase Clipper DLL?", MB_YESNO + MB_ICONQUESTION, "NoGroup")
+   
+   save1 = code4autoOpen(cb, 0)
+   save2 = code4safety(cb, 0)
+   save3 = code4accessMode(cb, OPEN4DENY_RW)
+
+   If bStandAlone Then
+      rc2 = OpenDataFile()
+   Else
+      rc2 = CreateDataOnly(True)
+   End If
+
+   If rc2 Then
+      InitTag4
+      
+      ind1 = i4create(db, "", tagInfo())
+   
+      If ind1 > 0 Then
+         If rc1 = IDYES Then
+            MsgBox "Index created with no Group file"
+         Else
+            MsgBox "Index created"
+         End If
+      Else
+         rc = code4errorCode(cb, 0)
+      End If
+   Else
+      rc = code4errorCode(cb, 0)
+   End If
+
+   rc = code4close(cb)
+
+   rc = code4autoOpen(cb, save1)
+   rc = code4safety(cb, save2)
+   rc = code4accessMode(cb, save3)
+
+   rc = code4accessMode(cb, save1)
+
+Case "NoGroup2"
+   'NoGroup2 sample code
+
+   rc = MsgBox("Are you using a CodeBase Clipper DLL?", MB_YESNO + MB_ICONQUESTION, "NoGroup")
+   
+   If rc <> IDYES Then
+      MsgBox "Cannot continue this example"
+      Exit Sub
+   End If
+
+   save1 = code4autoOpen(cb, 0)
+   save2 = code4safety(cb, 0)
+
+   If OpenDataFile() Then
+   
+      InitTag4
+   
+      nameTag = t4open(db, "NAME")
+      addrTag = t4open(db, "ADDRESS")
+      ageTag = t4open(db, "AGE")
+   
+      If cbError() Then
+         rc = code4errorCode(cb, 0)
+      Else
+         Call d4tagSelect(db, nameTag)
+         GenericPrint
+      End If
+   Else
+      rc = code4errorCode(cb, 0)
+   End If
+
+   rc = d4close(db)
+
+   rc = code4autoOpen(cb, save1)
+   rc = code4autoOpen(cb, save2)
+
+Case "Relate1"
+   'Relation1 sample code
+
+   If Not OpenFileRelate1() Then Exit Sub
+
+   If SetRelation1() Then
+
+      List2.Visible = True
+      List2.Clear
+   
+      ListRecsRelate1
+   
+      rc = code4unlock(cb)
+   
+      rc = relate4free(master, 0)
+
+   End If
+
+   rc = code4close(cb)
+
+Case "Relate2"
+   'Relation2 sample code
+
+   db = d4open(cb, fPath + "STUDENT")
+
+   If cbError() Then Exit Sub
+
+   List2.Visible = True
+   List2.Clear
+
+   Call Query(db, "AGE > 30", "")
+
+   Call Query(db, "UPPER(L_NAME) = 'MILLER'", "L_NAME + F_NAME")
+
+   rc = code4close(cb)
+
+Case "Relate3"
+   'Relate3 sample code
+
+   List2.Clear
+
+   If Not OpenFileRelate3() Then Exit Sub
+   
+   If SetRelation3() Then
+   
+      Call ListRecsRelate3("CODE = 'MATH114 '", 1)
+   
+      Call ListRecsRelate3("CODE = 'CMPT411 '", -1)
+   
+      List2.Visible = True
+      List2.Refresh
+   
+      rc = code4unlock(cb)
+      rc = relate4free(classRel, 0)
+   End If
+
+   rc = code4close(cb)
+
+Case "Relate4"
+   'Relate4 sample code
+
+   If Not OpenFileRelate4() Then Exit Sub
+   
+   If SetRelation4() Then
+
+      '                 <---   15  ---><---   15  --->
+      Call SeekRelate4("Tyler          Harvey         ")
+   
+      Print "Seek #1"
+      PrintRecRelate4
+      Print
+   
+      Print "Seek #2"
+      Call SeekRelate4("Miller         Albert         ")
+      PrintRecRelate4
+   End If
+
+   rc = code4close(cb)
+
+Case "Seeker"
+   'Seeker sample code
+  
+   If Not CreateDataFile(True) Then Exit Sub
+
+   If d4recCount(db) = 0 Then
+     Call AddNewRecord("Sarah", "Webber", "132-32 St.", 32, "19610523", True, 147.99, "New Customer")
+     Call AddNewRecord("John", "Albridge", "1232-76 Ave.", 55, "19381212", False, 98.99, "")
+   End If
+
+   'Get TAG4 pointers
+   nameTag = d4tag(db, "NAME_TAG")
+   amtTag = d4tag(db, "AMT_TAG")
+   birthTag = d4tag(db, "DATE_TAG")
+
+   Call d4tagSelect(db, nameTag)
+
+   '                12345678901234567890     Full Key, 20 characters
+   rc = d4seek(db, "Sarah     Webber    ")
+   PrintRecordSeek (rc)
+
+   rc = d4seek(db, "Sar")                   'Partial Key
+   PrintRecordSeek (rc)
+
+   rc = d4seek(db, "Sar                 ")  'Exact Match
+   PrintRecordSeek (rc)
+
+   Call d4tagSelect(db, birthTag)
+
+   rc = d4seek(db, "19381212")
+   PrintRecordSeek (rc)
+
+   Call d4tagSelect(db, amtTag)
+
+   rc = d4seekDouble(db, 35.75)
+   PrintRecordSeek (rc)
+
+   rc = d4seek(db, "250.75")
+   PrintRecordSeek (rc)
+
+'The following code finds all the occurrences of John Albridge in the tag
+
+   Call d4tagSelect(db, nameTag)
+   rc = d4seekNext(db, "John      Albridge  ")
+   Do Until rc <> r4success
+       PrintRecordSeek (rc)
+       rc = d4seekNext(db, "John      Albridge  ")
+   Loop
+   
+   rc = code4close(cb)
+
+Case "ShowData"
+  'ShowData sample code
+
+  Dim fldPtr As Long
+
+  db = d4open(cb, fPath + "SHOWDATA") 'Open file
+  If db = 0 Then
+    MsgBox "Open Failed"
+    rc = code4errorCode(cb, 0)        'Reset error code
+    Exit Sub
+  End If
+   
+  rc = d4top(db)
+  For i = 1 To d4recCount(db)         'Loop through records
+    For j = 1 To d4numFields(db)      'Loop through each field
+       fldPtr = d4fieldJ(db, j)       'Get Field pointer
+       Print f4memoStr(fldPtr)        'Print field contents
+    Next j
+    Print                             'Blank line between recs.
+    rc = d4skip(db, 1)                'Go to next record
+  Next i
+
+  rc = d4close(db)                    'Close file
+
+Case "ShowData2"
+   'ShowData2 sample code
+
+   Dim tagPtr As Long, DbfName As String
+
+   DbfName = InputBox$("Enter File Name", "ShowData2", "DATA1")
+
+   If RTrim$(DbfName) = "" Then Exit Sub
+
+   db = d4open(cb, fPath + DbfName)    'Open file
+   If db = 0 Then
+      rc = code4errorCode(cb, 0)       'Reset error code
+      Exit Sub
+   End If
+
+   Print "Natural Order"
+   Print
+   GenericPrint                        'Natural Order
+   tagPtr = d4tagNext(db, 0&)          'Get first tag, if any
+
+   Do Until tagPtr = 0
+      Call d4tagSelect(db, tagPtr)     'Select ordering
+      Print "Datafile sorted by tag: "; t4Alias(d4tagSelected(db))
+      Print
+      GenericPrint
+      tagPtr = d4tagNext(db, tagPtr)   'Look for next tag
+   Loop
+
+   rc = d4close(db)                    'Close file
+
+Case "ShowData3"
+   'ShowData3 sample code
+
+   'Note: This example has been modified from the printed
+   '      documentation to accomodate the fact that in
+   '      client/server applications, a production index
+   '      file cannot be re-created over an existing file,
+   '      as can be done in stand-alone applications.
+   '      Refer to the i4create() function in the
+   '      Reference Guide for more information.
+
+   save1 = code4autoOpen(cb, 0)
+   If bStandAlone Then
+      save2 = code4errOpen(cb, 0)
+   Else
+      save2 = code4errCreate(cb, 0)
+   End If
+   save3 = code4accessMode(cb, OPEN4DENY_RW)  'Open exclusively so production
+                                              'index file can be created with
+                                              'i4create
+   If bStandAlone Then
+      rc = OpenDataFile()
+   Else
+      rc = CreateDataOnly(True)
+   End If
+
+   If rc Then
+      If d4recCount(db) = 0 Then
+        Call AddNewRecord("Sarah", "Webber", "132-32 St.", 32, "19610523", True, 147.99, "New Customer")
+        Call AddNewRecord("John", "Albridge", "1232-76 Ave.", 55, "19381212", False, 98.99, "")
+      End If
+      
+      If CreateIndexFile() Then
+      
+         tagPtr = d4tagNext(db, 0&)          'Get first tag, if any
+   
+         Do Until tagPtr = 0
+            Call d4tagSelect(db, tagPtr)     'Select ordering
+            Print "Datafile sorted by tag: "; t4Alias(d4tagSelected(db))
+            Print "With filter: "; t4filter(d4tagSelected(db))
+            Print
+            GenericPrint
+            tagPtr = d4tagNext(db, tagPtr)   'Look for next tag
+         Loop
+      End If
+   End If
+
+   rc = code4autoOpen(cb, save1)        'Restore initial settings
+   If bStandAlone Then
+      rc = code4errOpen(cb, save2)
+   Else
+      rc = code4errCreate(cb, save2)
+   End If
+   rc = code4accessMode(cb, save3)
+
+   rc = code4close(cb)
+
+Case "Transfer"
+'Transfer sample code
+
+    rc = code4errOpen(cb, 0)        'Suppress errors when opening files
+    rc = code4safety(cb, 0)
+    rc = code4lockAttempts(cb, 5)
+
+    If u4switch() And &H80 Then        'Stand-alone
+        If Not OpenLogFile() Then Exit Sub
+    End If
+
+    If Not OpenDataFileTransfer() Then Exit Sub
+    PrintRecords
+    'The account number 56789 doesn't exist in the data file
+    'the transfer is aborted and the data file is not changed
+    Call Transfer(12345, 56789, 200#)
+    PrintRecords
+
+    'Both accounts exist so the transfer is completed and
+    'the data file is updated
+    Call Transfer(12345, 55555, 150.5)
+    PrintRecords
+
+    rc = code4close(cb)
+
+End Select
+
+
+End Sub
+

clients/valleywide/app-modernization/source-code/Source/History/frmError.frm

@@ -0,0 +1,209 @@
+VERSION 5.00
+Begin VB.Form frmError 
+   BorderStyle     =   1  'Fixed Single
+   Caption         =   "An Error Has Occurred"
+   ClientHeight    =   4890
+   ClientLeft      =   1050
+   ClientTop       =   855
+   ClientWidth     =   6945
+   BeginProperty Font 
+      Name            =   "MS Sans Serif"
+      Size            =   9.75
+      Charset         =   0
+      Weight          =   700
+      Underline       =   0   'False
+      Italic          =   0   'False
+      Strikethrough   =   0   'False
+   EndProperty
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   4890
+   ScaleWidth      =   6945
+   Begin VB.CommandButton cmdPrint 
+      Caption         =   "&Print Form"
+      Height          =   495
+      Left            =   4140
+      TabIndex        =   12
+      Top             =   3840
+      Width           =   975
+   End
+   Begin VB.CommandButton cmdOK 
+      Caption         =   "&OK"
+      Height          =   495
+      Left            =   4140
+      TabIndex        =   10
+      Top             =   4380
+      Width           =   975
+   End
+   Begin VB.Label lblLotId 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   5280
+      TabIndex        =   16
+      Top             =   4380
+      Width           =   1575
+   End
+   Begin VB.Label lblProjId 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   5280
+      TabIndex        =   15
+      Top             =   3840
+      Width           =   1575
+   End
+   Begin VB.Label txtModule 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   615
+      Left            =   1920
+      TabIndex        =   14
+      Top             =   2340
+      Width           =   4935
+      WordWrap        =   -1  'True
+   End
+   Begin VB.Label lblModule 
+      Caption         =   "Form/Module"
+      Height          =   255
+      Left            =   120
+      TabIndex        =   13
+      Top             =   2340
+      Width           =   1575
+   End
+   Begin VB.Label lblLabel 
+      Caption         =   "Please print this screen, write down what you were doing when this error happened then call Darv."
+      Height          =   780
+      Index           =   5
+      Left            =   60
+      TabIndex        =   11
+      Top             =   4140
+      Width           =   3825
+   End
+   Begin VB.Label lblVersion 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   255
+      Left            =   1920
+      TabIndex        =   9
+      Top             =   3780
+      Width           =   975
+   End
+   Begin VB.Label lblAppName 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   255
+      Left            =   1920
+      TabIndex        =   8
+      Top             =   3420
+      Width           =   3195
+   End
+   Begin VB.Label lblLabel 
+      AutoSize        =   -1  'True
+      Caption         =   "Version"
+      Height          =   240
+      Index           =   4
+      Left            =   60
+      TabIndex        =   7
+      Top             =   3840
+      Width           =   960
+   End
+   Begin VB.Label lblLabel 
+      AutoSize        =   -1  'True
+      Caption         =   "App. Name"
+      Height          =   240
+      Index           =   3
+      Left            =   60
+      TabIndex        =   6
+      Top             =   3480
+      Width           =   1275
+   End
+   Begin VB.Label lblDateTime 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   255
+      Left            =   1920
+      TabIndex        =   5
+      Top             =   3060
+      Width           =   3195
+   End
+   Begin VB.Label lblLabel 
+      AutoSize        =   -1  'True
+      Caption         =   "Date / Time"
+      Height          =   240
+      Index           =   2
+      Left            =   60
+      TabIndex        =   4
+      Top             =   3120
+      Width           =   1410
+   End
+   Begin VB.Label lblErrDesc 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   1935
+      Left            =   1920
+      TabIndex        =   3
+      Top             =   360
+      Width           =   4935
+      WordWrap        =   -1  'True
+   End
+   Begin VB.Label lblErrNumber 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   255
+      Left            =   1920
+      TabIndex        =   2
+      Top             =   60
+      Width           =   3195
+   End
+   Begin VB.Label lblLabel 
+      AutoSize        =   -1  'True
+      Caption         =   "Error Description"
+      Height          =   240
+      Index           =   1
+      Left            =   60
+      TabIndex        =   1
+      Top             =   420
+      Width           =   1752
+   End
+   Begin VB.Label lblLabel 
+      AutoSize        =   -1  'True
+      Caption         =   "Error Number"
+      Height          =   240
+      Index           =   0
+      Left            =   60
+      TabIndex        =   0
+      Top             =   60
+      Width           =   1368
+   End
+End
+Attribute VB_Name = "frmError"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private moError As ErrObject
+
+Property Set ErrorObj(oErr As ErrObject)
+   Set moError = oErr
+End Property
+
+Private Sub cmdOK_Click()
+   Unload Me
+End Sub
+
+Private Sub cmdPrint_Click()
+   Me.PrintForm
+End Sub
+
+Private Sub Form_Load()
+   lblErrNumber.Caption = moError.Number
+   lblErrDesc.Caption = moError.Description
+'   If moError.Number = -2147467259 Then
+'      lblErrDesc.Caption = "Duplicate Record - This will not be saved"
+'   End If
+   txtModule.Caption = gstrMODULE
+   lblLotId = gintLOTID
+   lblProjId = gintPROJID
+   lblDateTime.Caption = Now
+   lblAppName.Caption = App.ProductName
+   lblVersion.Caption = App.Major & "." & _
+                        App.Minor & "." & _
+                        App.Revision
+End Sub
+

clients/valleywide/app-modernization/source-code/Source/History/rrdecl32.bas

@@ -0,0 +1,100 @@
+Attribute VB_Name = "Module2"
+' RRDECL32.BAS - VB Function declarations for RRRPT32.DLL.
+' Version 8.0 05/27/97
+
+Declare Function choosePrinter Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal printer As String, ByVal prSize As Long, ByVal port As String, ByVal poSize As Long) As Long
+Declare Function chooseReport Lib "rrrpt32.dll" (ByVal appName As String, ByVal library As String, ByVal lsize As Long, ByVal rep As String, ByVal size As Long) As Long
+Declare Function endReport Lib "rrrpt32.dll" (ByVal hReport As Long) As Long
+Declare Function endRuntimeInstance Lib "rrrpt32.dll" () As Long
+Declare Function execRuntime Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bWait As Long, ByVal fsCmdShow As Long, lpCode As Long, lpPageCount As Long, ByVal emsg As String, ByVal emsgsize As Long) As Long
+Declare Function getAPIVersion Lib "rrrpt32.dll" (lpVersion As Long) As Long
+Declare Function getBeginPage Lib "rrrpt32.dll" (ByVal hReport As Long, lpPage As Long) As Long
+Declare Function getCopies Lib "rrrpt32.dll" (ByVal hReport As Long, lpCopies As Long) As Long
+Declare Function getDBContainer Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal dbContainerPath As String, ByVal size As Long) As Long
+Declare Function getDisplayErrors Lib "rrrpt32.dll" (ByVal hReport As Long, lpDisperr As Long) As Long
+Declare Function getDisplayStatus Lib "rrrpt32.dll" (ByVal hReport As Long, lpDispStatus As Long) As Long
+Declare Function getEndPage Lib "rrrpt32.dll" (ByVal hReport As Long, lpPage As Long) As Long
+Declare Function getErrorInfo Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal msg As String, ByVal size As Long, lpCode As Long) As Long
+Declare Function getExportDest Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function getFilter Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String, ByVal size As Long) As Long
+Declare Function getFilterUsage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function getFirstFieldName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal fieldName As String, ByVal size As Long) As Long
+Declare Function getFirstFilteredFieldName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal fieldName As String, ByVal size As Long, ByVal filter As Long) As Long
+Declare Function getFirstGroupField Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal groupFieldName As String, ByVal mSize As Long) As Long
+Declare Function getFirstRelationInfo Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal relFilePath As String, ByVal relFilePathSize As Long, ByVal relIndexfilePath As String, ByVal relIndexfilePathSizer As Long, ByVal relIndexTag As String, ByVal relIndexTagSize As Long, ByVal relAlias As String, ByVal relAliasSize As Long) As Long
+Declare Function getFirstSortField Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal sortFieldName As String, ByVal size As Long) As Long
+Declare Function getFirstUserParam Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal parmname As String, ByVal nSize As Long, ByVal value As String, ByVal vSize As Long) As Long
+Declare Function getHighScope Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String, ByVal size As Long) As Long
+Declare Function getLibrary Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal libname As String, ByVal size As Long) As Long
+Declare Function getLowScope Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String, ByVal size As Long) As Long
+Declare Function getMasterIndexInfo Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal masterIndexPath As String, ByVal pathSize As Long, ByVal masterIndexType As String, ByVal masterIndexTag As String, ByVal tagSize As Long) As Long
+Declare Function getMasterTableName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal masterTablePath As String, ByVal size As Long) As Long
+Declare Function getMemoName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal memoTablePath As String, ByVal size As Long) As Long
+Declare Function getNewReportHandle Lib "rrrpt32.dll" (ByVal appName As String) As Long
+Declare Function getNextFieldName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal fieldName As String, ByVal size As Long) As Long
+Declare Function getNextFilteredFieldName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal fieldName As String, ByVal size As Long, ByVal filter As Long) As Long
+Declare Function getNextGroupField Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal groupFieldName As String, ByVal mSize As Long) As Long
+Declare Function getNextRelationInfo Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal relFilePath As String, ByVal relFilePathSize As Long, ByVal relIndexfilePath As String, ByVal relIndexfilePathSize As Long, ByVal relIndexTag As String, ByVal relIndexTagSize As Long, ByVal relAlias As String, ByVal relAliasSize As Long) As Long
+Declare Function getNextSortField Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal sortFieldName As String, ByVal size As Long) As Long
+Declare Function getNextUserParam Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal parmname As String, ByVal nSize As Long, ByVal value As String, ByVal vSize As Long) As Long
+Declare Function getOutputDest Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function getOutputFile Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal outputFilePath As String, ByVal eSize As Long) As Long
+Declare Function getPreventEscape Lib "rrrpt32.dll" (ByVal hReport As Long, lpNoEsc As Long) As Long
+Declare Function getPrinter Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal printer As String, ByVal pSize As Long) As Long
+Declare Function getPrinterPort Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal port As String, ByVal pSize As Long) As Long
+Declare Function getReportPick Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function getRuntimeRecord Lib "rrrpt32.dll" (ByVal appName As String, ByVal inFile As String) As Long
+Declare Function getScopeUsage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function getStatusEveryPage Lib "rrrpt32.dll" (ByVal hReport As Long, lpEveryPage As Long) As Long
+Declare Function getTestPattern Lib "rrrpt32.dll" (ByVal hReport As Long, lpTest As Long) As Long
+Declare Function getWinTitle Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal title As String, ByVal tSize As Long) As Long
+Declare Function initRuntimeInstance Lib "rrrpt32.dll" () As Long
+Declare Function resetErrorInfo Lib "rrrpt32.dll" (ByVal hReport As Long) As Long
+Declare Function setBeginPage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal Page As Long) As Long
+Declare Function setCopies Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal Copies As Long) As Long
+Declare Function setDataDir Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal directory As String) As Long
+Declare Function setDBContainer Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal dbContainerPath As String) As Long
+Declare Function setDisplayErrors Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bDisperr As Long) As Long
+Declare Function setDisplayStatus Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bDispStatus As Long) As Long
+Declare Function setEndPage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal Page As Long) As Long
+Declare Function setExportDest Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As Long) As Long
+Declare Function setFilter Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function setFilterUsage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As Long) As Long
+Declare Function setGroupField Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal groupFieldName As String, ByVal groupNum As Long) As Long
+Declare Function setHighScope Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function setImageDir Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal directory As String) As Long
+Declare Function setIndexExtension Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal ExtNum As Long) As Long
+Declare Function setLibrary Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal libname As String) As Long
+Declare Function setLibraryDir Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal directory As String) As Long
+Declare Function setLowScope Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function setMasterIndexInfo Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal masterIndexPath As String, ByVal masterIndexType As Long, ByVal masterIndexTag As String) As Long
+Declare Function setMasterTableName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal masterTablePath As String) As Long
+Declare Function setMemoName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal memoTablePath As String) As Long
+Declare Function setOutputDest Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As String) As Long
+Declare Function setOutputFile Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal outputFilePath As String) As Long
+Declare Function setPreventEscape Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bNoEsc As Long) As Long
+Declare Function setPrinter Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal printer As String) As Long
+Declare Function setPrinterPort Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal port As String) As Long
+Declare Function setRelationInfo Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal relFilePath As String, ByVal relIndexfilePath As String, ByVal relIndexTag As String, ByVal relAlias As String, ByVal aliasNum As Long) As Long
+Declare Function setReportPick Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As Long) As Long
+Declare Function setScopeUsage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal charval As Long) As Long
+Declare Function setSortField Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal sortFieldName As String, ByVal sortNum As Long) As Long
+Declare Function setStatusEveryPage Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bEveryPage As Long) As Long
+Declare Function setStatusFileName Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal FileName As String) As Long
+Declare Function setSuppressTitle Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bValue As Long) As Long
+Declare Function setTestPattern Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bTest As Long) As Long
+Declare Function setUserParam Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal parmname As String, ByVal charval As String) As Long
+Declare Function setWinBorderStyle Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal eStyle As Long) As Long
+Declare Function setWinControlBox Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bControlBox As Long) As Long
+Declare Function setWinHeight Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal iHeight As Long) As Long
+Declare Function setWinLeft Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal iLeft As Long) As Long
+Declare Function setWinMaxButton Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bMax As Long) As Long
+Declare Function setWinMinButton Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bMin As Long) As Long
+Declare Function setWinParentHandle Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal hParent As Long) As Long
+Declare Function setWinTitle Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal title As String) As Long
+Declare Function setWinTop Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal iTop As Long) As Long
+Declare Function setWinWidth Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal iWidth As Long) As Long
+Declare Function setWriteAllow Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bWrite As Long) As Long
+Declare Function setXbaseEditor Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal bXbase As Long) As Long
+Declare Function writeRuntimeRecord Lib "rrrpt32.dll" (ByVal hReport As Long, ByVal recordFile As String) As Long
+