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!

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

Search results for query: *

  1. Mercury2

    Execute Immediate

    Try this. SET EndDate = CASE when test=31 THEN case1 when test=30 THEN case2 when test=29 THEN case3 else case4 end CASE; ... SET SQLSTMT = 'call ProcedureDate2(' CONCAT BeginDate CONCAT ', ' CONCAT EndDate CONCAT ', ' CONCAT .97 CONCAT ')'; execute immediate SQLSTMT; Not tested...
  2. Mercury2

    PRTF vs O-specs

    Look here and search PRTF. Philippe
  3. Mercury2

    Moving data area into an array

    ZXA should be defined as (9S 0). You don't need ZXB. D XITEM DS DTAARA(INAXCLUD) D WXCLUD 90A D ZXA 9S 0 OVERLAY(WXCLUD) DIM(10)...
  4. Mercury2

    When best to use: Copybooks, Modules, Service Programs

    mikrom I don't agree and share Pete's howto. Philippe
  5. Mercury2

    iSeries System API Reference Manual SC41-5801

    It was to be expected. IBM does not drag non-relevant books on he internet. Philippe
  6. Mercury2

    iSeries System API Reference Manual SC41-5801

    Hopefully you'll find it there. Philippe
  7. Mercury2

    iSeries System API Reference Manual SC41-5801

    The Red Book you're looking for is obsolete so you won't find it online. Philippe
  8. Mercury2

    Programming Languages on AS400

    Look here. Philippe
  9. Mercury2

    SQL0104N SQLSTATE=42601

    What are you wanting to do exactly coz the procedure doesn't look right in the sequence. F.E. You can NOT do SET v2_ukey = MAX(ukey); You have to do 1/ SELECT MAX(ukey) into MyVar From ... 2/ SET MyVar = MyVar + 1; 3/ If you are on release V5R3+ create a Sequence Object and use it to insert...
  10. Mercury2

    SQL0104N SQLSTATE=42601

    ok. I think I get it. Check out "SQL0104N error in DB2 Command Editor due to incorrect statement termination character" @ https://www-304.ibm.com/support/docview.wss?uid=swg21224723 Philippe
  11. Mercury2

    SQL0104N SQLSTATE=42601

    Perharps the SQL processor doesn't like underscore ( _ ) as it exists on every variable name ? Philippe
  12. Mercury2

    Intermittent MCH3402 on OPNQRYF

    Pls paste here the relevant OVRDBF FILE(MHISRYL8)... There's maybe something to do with the activation group. Side note. You could also shorten the QRYSLT like so QRYSLT('MHAGNT = %VALUES("39001N" "37355N" ... "23579E"')) Philippe
  13. Mercury2

    Keeping A VB.NET Connection Open Through Multiple STRPCCMD Calls

    Don't use STRPCO/STRPCCMD which is nowadays an old technology with the awkward constraint to install the VB.Net app on each user's PC. I'd put the VB.Net app in a serve r shared folder and use RUNRMTCMD instead. Philippe
  14. Mercury2

    output specs to free form

    O-spec cannot be converted to free form. Philippe
  15. Mercury2

    Relative Record Number in a Logical File

    There's no RRN in a logical file. You can however get the physical RRN the logical is pointing to using the INFDS on the F-spec of the relevant logical file. The RRN is a binary field pos 397-400 in the INFDS. Philippe
  16. Mercury2

    UDTF - decimal data error

    Pls do NOT consider my first answer. There's no possibility to update or delete one's post <Grin> Instead, tell us on what line the error happens as I can see no reason why the UDTF doesn't work. Philippe
  17. Mercury2

    UDTF - decimal data error

    Check the ACNO (input parameter) value. Philippe
  18. Mercury2

    Writing contents of an array to a file in free form

    Look how it is easy using the RPG cycle. H DFTACTGRP(*NO) H OPTION(*SRCSTMT: *NODEBUGIO: *NOSHOWCPY) FBBOSINS4 IP E K DISK FBSHIPINS UF A E K DISK D txtFields S Like(INST1) DIM(5) * D recstat S...
  19. Mercury2

    Hex Issue

    Pls paste here the definition of HEXCOD in the file. Philippe
  20. Mercury2

    How to use UNDEL2

    Did you add the UNDEL2 library to the interactive library list first ? Philippe

Part and Inventory Search

Back
Top