By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
448,647 Members | 1,845 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 448,647 IT Pros & Developers. It's quick & easy.

Method / Data not found, IBM Mainframe GUI/macro

P: 3
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..
Jun 19 '07 #1
Share this Question
Share on Google+
5 Replies


P: 3
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.  
Jun 19 '07 #2

P: 3
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.
Jun 19 '07 #3

danp129
Expert 100+
P: 321
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.
Jun 19 '07 #4

P: 1
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
Jun 30 '07 #5

Expert 5K+
P: 8,434
Ignore me - just registering an interest in this thread.
Jul 1 '07 #6

Post your reply

Sign in to post your reply or Sign up for a free account.