Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by vbMax

  1. vbMax

    Windows 7 Listbox Problem

    I am experiencing a very strange problem in Windows 7 when I use any listbox (combobox or dropdown). This problem is occurring on a new Lenovo laptop. Windows 7 updates are current. As an example, if a listbox contains three entries: "A", "B" and "C". When I select "B" or "C", the value of...
  2. vbMax

    SQLRPGLE and the PREPARE Keyword

    Try the following... SQLString = 'SELECT COUNT(*) FROM ' + %Trim(Library)+ '/' + %Trim(File) + ' WHERE TRMNUM = ''' + NewTrm + ''''; EXEC SQL PREPARE SQL_STMT FROM :SQLString; EXEC SQL DECLARE C1 CURSOR FOR SQL_STMT; EXEC SQL OPEN C1; EXEC SQL FETCH C1 INTO...
  3. vbMax

    excel macro - telnet

    Enter the following line in your macro (changing the IP address): Shell "telnet 170.21.1.7", 1 - vbMax
  4. vbMax

    Data Structure Size Limitation

    In RPG IV, arrays have a limit of 32767 elements. Data structures have a limit of 65535 bytes. Multi-occurance Data Structures have a limit of 32767 occurances. Below is sample code using an array nested in a multi-occurance data structure. D DS1 DS...
  5. vbMax

    Specify Member in SQL Statement on AS/400

    Both methods worked for me - the OVRDBF and CREATE ALIAS methods. Also, I discovered that the CREATE ALIAS command in SQL is the equivalent of the OS/400 command CRTDDMF. Thank! vbMax
  6. vbMax

    Specify Member in SQL Statement on AS/400

    How can a file member by specified in an SQL statement on the AS/400? If I issue the following SQL statement: SELECT * FROM TEST/QRPGLESRC the "first" member in the file is read. However, I would like to read a different member. I have tried the following statements: SELECT * FROM...
  7. vbMax

    passing username/password for autologin

    Hey Snoots, This may help you... In Client Access 5.5, you can do the following: Choose "Congigure..." from the Communications Menu. Towards the bottom of the dialog box, check the "Bypass signon" checkbox. The user is required to enter a User ID and password one time only. Any...
  8. vbMax

    Windows XP Access to IFS Folders

    I have had a similar experience, the PC does not recognize the AS/400 profile. I got around this problem by writing a very small batch file to map a network drive... net use x: \\qsystem\qdls\folder\ /USER:jdoe By using the "/USER" flag, you can force the connection as a specified user. You...
  9. vbMax

    AS400 query manager

    AS400 Query Manager is used to run SQL statements which are saved within members of Source Physical Files. After entering the SQL statements into a member, the following three commands can be used to Create, Start (Run) and the Delete the query. CRTQMQRY QMQRY(LIB/QRYMBR)...
  10. vbMax

    QSYS Program

    You can use the DSPPGM command to determine where the source code for this program was at the time it was compiled (hopefully it has not been moved or deleted). You can than view the source code to determine what the program is used for. You can also use the DSPPGMREF command to see what...
  11. vbMax

    SendKeys Action

    I have a different approach, which works for Windows 2000 and Windows NT. Just use the following VBA code: ReturnValue = Shell("c:\winnt\System32\rundll32.exe user32.dll,LockWorkStation", 0) This will execute a Windows program which locks the system. - vbMax
  12. vbMax

    Create PowerPoint slides from Excel

    One easy solution is to create an image of the Excel screen using ALT-Print Screen. Then use Control-V to paste that image into a PowerPoint slide. - vbMax
  13. vbMax

    Twinax connections over two servers?

    As long as the two AS/400s are connected, you should be able to connect to one server via Twinax (or TCP/IP) and then pass through to the other AS/400. - vbMax
  14. vbMax

    Delete blank spaces in string. (Trim does not do it).

    You can use the following function: Function NoSpace(inString) For Counter = 1 To Len(inString) If (Mid(inString, Counter, 1) <> &quot; &quot;) Then outString = outString + Mid(inString, Counter, 1) End If Next Counter NoSpace = outString End Function...
  15. vbMax

    Repliceate F4 when using QCMDEXC

    Placing a &quot;?&quot; in front of any CL command will cause the command to be prompted when it is issued. For example: ?CHGSPLFA - vbMax
See more

Part and Inventory Search

Back
Top