Connecting Tech Pros Worldwide Help | Site Map
bytes > topic > visual basic > answers

Method / Data not found, IBM Mainframe GUI/macro

Newbie
  
Join Date: Jun 2007
Posts: 3
#1: Jun 19 '07
Good morning,
Thanks in advanced.... and

Here are the basics:

VB 6.3 on W2K,
Using for WRQ Reflections for IBM (v 13.0)
Visual Basic Editor (built into the above mainframe)

- As most stories go, a guy created a GUI as a macro using VB and saved everything under the shared folder for our clients' server, which then was deleted. Since he saved it as a macro it saved the .rsf file - but did not save any of the modules, or forms, that came with it... and now he's no longer with the company.

So, about a month ago I decided to copy & paste over the files that I had access too - never thinking I should've just exported the .cls and .frm files (d'oh!) ... anyway, I have all the code, and I've rebuilt the GUI creating the objects based on the names from the actual code.... so, Method or Data member not found error would mean that I'm not naming things right... 'cept, they are named correctly, I think.

Design:

main type (name)

1 form (MainMenu.frm)
4 modules (eagle, main, netview, tso)
1 class module ( OperatorID )

just giving the few in the example, once I figure those out I can pass the fix over the other objects (quiet a few of them) - and mind you, I know he didn't follow standard naming what-have-you... but hey... I'll fix that once I get it running again!

main objects (names)

MultiPage (MultiPage1, MultiPage2)
TextBox (OperatorIDBox, FrequentIDBox)
OptionButton (SLRButton, BIButton)
CheckBox (TestBox)
CommandButton (UnlockButton, OPIDClearButton)


Here is the main code for the form, not the modules. The application loads on full compile, but then crashes when attempting to use any of the controls (ie: UnlockButton_Click() gives above error, even with the correct name, even if I delete and rebuilt the block by double clicking from the design element)


I have a sneaky feeling I'm missing some sort of reference file... unfortunately the IBM system only lets me save the file as a .rfs under a shared directory.

Any help would be appreciated - although I answer phone calls (tech support /sigh) for a living, I volunteered to document the code thinking "hey when I get out of school I'll have some technical writing experience.."... now that it stopped working due to some profile changes they did on our Citrix server, I was handed the project with expectation of re-creating the GUI.

I got it to load, and connect, and read the password from a file. So now if I can just figure out why it's saying method/class not found...


thanks again

- edit: code below, seems there's a size limit to posts..
Newbie
  
Join Date: Jun 2007
Posts: 3
#2: Jun 19 '07

re: Method / Data not found, IBM Mainframe GUI/macro

Expand|Select|Wrap|Line Numbers
  1.  
  2. Private Sub BIButton_Change()
  3.     If BIButton.Value Then
  4.         TestBox.Enabled = False
  5.     Else
  6.         TestBox.Enabled = True
  7.     End If
  8. End Sub
  9.  
  10. Private Sub FaceSheetBox_Change()
  11.     If FaceSheetBox.Value Then
  12.         SLRFaceSheetButton.Enabled = True
  13.         BIFaceSheetButton.Enabled = True
  14.         LICHFaceSheetButton.Enabled = True
  15.         SLRFaceSheetButton.Value = True
  16.         MedicalRecordsBox.Enabled = True
  17.     Else
  18.         SLRFaceSheetButton.Enabled = False
  19.         BIFaceSheetButton.Enabled = False
  20.         LICHFaceSheetButton.Enabled = False
  21.         MedicalRecordsBox.Enabled = False
  22.         SLRFaceSheetButton.Value = True
  23.         SLRFaceSheetButton.Value = False
  24.     End If
  25. End Sub
  26.  
  27. Private Sub LICHFaceSheetButton_Change()
  28.     If LICHFaceSheetButton.Value Then
  29.         MedicalRecordsBox.Enabled = False
  30.         MedicalRecordsBox.Value = False
  31.     Else
  32.         MedicalRecordsBox.Enabled = True
  33.     End If
  34. End Sub
  35.  
  36. Private Sub OPIDClearButton_ButtonClick()
  37.     FrequentIDBox.ListIndex = -1
  38.     OperatorIDBox.Text = ""
  39.     SLRButton.Value = True
  40.     TestBox.Value = False
  41. End Sub
  42.  
  43. Private Sub AccountClearButton_Click()
  44.     UserList.ListIndex = -1
  45.     ResetButton.Visible = False
  46.     UnsuspendBox.Visible = False
  47.     UnsuspendBox.Value = False
  48.     SearchButton.Visible = True
  49.     UserList.Clear
  50.     UserList.Enabled = False
  51.     Label10.Enabled = False
  52.     UserIDBox.Value = ""
  53.     FirstNameBox.Value = ""
  54.     LastNameBox.Value = ""
  55.     MainMenu.MultiPage2.Enabled = True
  56. End Sub
  57.  
  58. Private Sub FrequentIDBox_Click()
  59.     OperatorIDBox.Text = FrequentIDBox.List(FrequentIDBox.ListIndex, 1)
  60.  
  61.     If FrequentIDBox.List(FrequentIDBox.ListIndex, 2) = "STL" Then
  62.         SLRButton.Value = True
  63.     Else
  64.         BIButton.Value = True
  65.     End If
  66.  
  67.     TestBox.Value = FrequentIDBox.List(FrequentIDBox.ListIndex, 3)
  68.     UnlockButton.SetFocus
  69. End Sub
  70.  
  71. 'Private Sub MultiPage1_Click(ByVal Index As Long)
  72. '    FrequentIDBox.ListIndex = -1
  73. '    UserList.ListIndex = -1
  74. ' End Sub
  75.  
  76. Private Sub OperatorIDBox_Change()
  77.     OperatorIDBox.Text = UCase(OperatorIDBox.Text)
  78. End Sub
  79.  
  80.  
  81.  
  82. Private Sub PrinterClearButton_Click()
  83.     PrinterResetButton.Visible = False
  84.     PrinterSearchButton.Visible = True
  85.     MainMenu.Label19.Enabled = False
  86.     MainMenu.SelectedPrinterBox.Enabled = False
  87.     MainMenu.Label18.Enabled = False
  88.     MainMenu.PrinterStatusBox.Enabled = False
  89.     SelectedPrinterBox.Text = ""
  90.     PrinterStatusBox.Text = ""
  91.     PrinterIDBox.Text = ""
  92.     PrinterIDBox.Enabled = True
  93.     FaceSheetBox.Value = False
  94.     FaceSheetBox.Enabled = True
  95.     FaceSheetLabel.Visible = False
  96.     Label17.Enabled = True
  97.     MedicalRecordsBox.Value = False
  98. End Sub
  99.  
  100. Private Sub PrinterResetButton_Click()
  101.     If Not Session.Connected Then
  102.         Session.Connect
  103.     End If
  104.  
  105.     With Session
  106.         If Not MainMenu.FaceSheetBox.Value Then
  107.             Call AccessTSO
  108.             Call AccessVPS
  109.  
  110.                 .TransmitANSI "1"
  111.                 Call SendPrinterID(MainMenu.PrinterIDBox.Text)
  112.                 .TransmitTerminalKey rcIBMEnterKey
  113.                 .WaitForEvent rcKbdEnabled, "120", "0", 1, 1
  114.                 .WaitForDisplayString "REACTIVATE", "1", 21, 13
  115.  
  116.                 ' reactivate first
  117.                 .TransmitANSI "14"
  118.                 .TransmitTerminalKey rcIBMEnterKey
  119.  
  120.                 ' then stop / start a few times
  121.                 For i = 1 To 5
  122.                     .TransmitANSI "4"
  123.                     .TransmitTerminalKey rcIBMEnterKey
  124.                     .TransmitANSI "f"
  125.                     .TransmitTerminalKey rcIBMEnterKey
  126.                     .TransmitANSI "3"
  127.                     .TransmitTerminalKey rcIBMEnterKey
  128.                 Next i
  129.  
  130.                 .TransmitANSI "3"
  131.                 .TransmitTerminalKey rcIBMEnterKey
  132.  
  133.  
  134.                 .TransmitTerminalKey rcIBMPf3Key
  135.                 .WaitForEvent rcKbdEnabled, "120", "0", 1, 1
  136.                 .WaitForDisplayString "COMMAND", "1", 2, 2
  137.  
  138.                 Call UpdateVPSPrinterStatus
  139.  
  140.                 UpdateStatus ("Reset VPS printer " & MainMenu.SelectedPrinterBox.Text & ".")
  141.                 Call AccessMainMenu
  142.         Else
  143.             Call ResetFaceSheetStep1
  144.  
  145.             If UCase(MainMenu.PrinterStatusBox.Text) <> "ACQ" And Not MedicalRecordsBox.Value Then
  146.                 UpdateStatus ("Printer still not ACQ")
  147. Dim Site As String
  148. If LICHFaceSheetButton.Value Then
  149.     Site = "42"
  150. ElseIf Not MedicalRecordsBox.Value And SLRFaceSheetButton.Value Then
  151.     Site = "5"
  152. ElseIf Not MedicalRecordsBox.Value And BIFaceSheetButton.Value Then
  153.     Site = "48"
  154. Else
  155.     Site = "33"
  156. End If
  157.                 Call ResetFaceSheetStep2(Site)
  158.                 Call ResetFaceSheetStep1
  159.             End If
  160.  
  161.             If UCase(MainMenu.PrinterStatusBox.Text) <> "ACQ" And Not LICHFaceSheetButton.Value Then
  162.                 UpdateStatus ("Printer still not ACQ")
  163.                 Call ResetFaceSheetStep3(MainMenu.SelectedPrinterBox.Text)
  164.                 Call ResetFaceSheetStep1
  165.             End If
  166.         End If
  167.     End With
  168. End Sub
  169.  
  170.  
Newbie
  
Join Date: Jun 2007
Posts: 3
#3: Jun 19 '07

re: Method / Data not found, IBM Mainframe GUI/macro

And there's more, but I hope the idea comes through. Any of the above subs will give me the data/method error not found.. again, even if I delete the block and use the design-to-code double click sub creation method.
danp129's Avatar
Expert
  
Join Date: Jul 2006
Posts: 250
#4: Jun 19 '07

re: Method / Data not found, IBM Mainframe GUI/macro

I would comment all code and add a new button and see if it will call it's _click() function, if not then I'd start a new project in case something is corrupted and add code/import settings (connection settings/keyboard mappings?) a peice at a time. I have not used Reflection for a few years and it was version 9 back then connecting to an Definity G3r PBX.
Newbie
  
Join Date: Jun 2007
Posts: 1
#5: Jun 30 '07

re: Method / Data not found, IBM Mainframe GUI/macro

Quote:

Originally Posted by solrium

Good morning,
Thanks in advanced.... and

Here are the basics:

VB 6.3 on W2K,
Using for WRQ Reflections for IBM (v 13.0)
Visual Basic Editor (built into the above mainframe)
...- edit: code below, seems there's a size limit to posts..

I sent you a Private Message about this. -e
Moderator
  
Join Date: Oct 2006
Location: Australia
Posts: 7,748
#6: Jul 1 '07

re: Method / Data not found, IBM Mainframe GUI/macro

Ignore me - just registering an interest in this thread.
Reply

« previous question | next question »

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about

We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights. Get the best answers to your questions from over 226,295 network members.

dev questions:
algorithms | asp | asp.net | c/c++ | coldfusion | c# | flash | html/css | java | javascript |
mobile dev | .net | perl | php | python | ruby | software dev | vb.net | visual basic | xml
it questions:
access | apache | careers | db2 | iis | macosx | mysql | networking | oracle | postgresql | sql server | unix | windows

About Bytes | Copyright 1995-2009 BYTES. All rights Reserved