× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



IBM Support Line
Technical Document

    Document Number:   5314847
  ____________________________________________________________
  Functional Area:                       General Information
  SubFunctional Area:               Customer Forms
  SubSubFunctional Area:       General
  ____________________________________________________________
  Product:  N/A
  Release:  N/A

  Classification:       Public Use

  Keywords:
 ____________________________________________________________
 Document Title:Request for Design Change
 Document Description:
  The following information is required to submit a request for design
change.  The information submitted is used to determine if a business need
exists for supporting the change you are requesting.

Complete the following information and return to the Rochester Support
Center.

To e-mail:  Forward this completed form to:        v40915@us.ibm.com

To Fax:  Fax this completed form to the attention of Jim Vessey at one of
the following numbers:

      (507) 253-5124       or        (507) 253-2982

Note:  A reply can be expected within 90 days.


                           Requested Information

Request Title:

Fully support qualified variables in SQLRPGLE


Provide a detailed description of request (including unique usage):

The following works:
     P*--------------------------------------
     P* Procedure name: GetTPTLIB
     P* Purpose:
     P* Returns:        Library name or *NONE
     P* Parameter:      tptType => Trading partner type
     P*--------------------------------------
     P GetTPTLIB       B                   EXPORT
     D GetTPTLIB       PI            10A
     D*tptType                             LIKE(TPTYPE.TPTTYPE) CONST
     D xtpttype                            like(ytptType) const

     D* Local fields
     D retFieldX       S             10A   inz(*loval)
     D ytptType        s              3a

     C/exec sql
     C+ Select tptlib into :retFieldX
     C+ from eis/tptype
     C+ where tpttype=:xtptType
     C/end-exec
      /free
       return retFieldX;
      /end-free
     P GetTPTLIB       E

The following does not:
     P*--------------------------------------
     P* Procedure name: GetTPTLIB
     P* Purpose:
     P* Returns:        Library name or *NONE
     P* Parameter:      tptType => Trading partner type
     P*--------------------------------------
     P GetTPTLIB       B                   EXPORT
     D GetTPTLIB       PI            10A
     D*tptType                             LIKE(TPTYPE.TPTTYPE) CONST
     D xtpttype                            like(yuck.ytptType) const

     D* Local fields
     D retFieldX       S             10A   inz(*loval)
     D yuck            ds                  qualified
     D ytptType                       3a

     C/exec sql
     C+ Select tptlib into :retFieldX
     C+ from eis/tptype
     C+ where tpttype=:xtptType
     C/end-exec
      /free
       return retFieldX;
      /end-free
     P GetTPTLIB       E

Priority (check applicable priority)

x___ Urgent
___ High
___ Medium
___ Low

If there is a deadline (date) for obtaining solution, when is it and why do
you need it by that deadline?

3/6/2002 - because I am currently working on a problem which this is
limiting.

Area where you believe the problem to be:  (check applicable area)

___ Client Access
x___ Database
___ General
___ Hardware
x___ Language/Compiler
___ Lotus
___ Network Enable/Communications
___ Print/Fax
___ Save/Restore
___ Web Serving
___ Work Management
___ BRMS
___ Other:  (provide more information here)

Why is it important to your business to solve this request?  What is the
impact to your company if IBM does not provide a solution?

Because we wish to use SQL in RPGLE, however the people who design the
precompiler are:
1)  Incompetent - they fail to test the precompiler fully to determine if
the latest features of the language they are supposed to be supporting, are
supported.
2)  Lazy - When a limitation, which only exists in the precompiler
(SQLRPGLE) and not in the language itself (RPGLE), has been discovered
instead of declaring it a bug and trying to fix it, they declare it a
current design limitation and require the customers to submit a design
change request.
3)  Demeaning - This requirement that customers prostrate themselves and
beg for published supported features to actually be supported is demeaning.
After all, are there documents listing limitations currently not supported
in the precompiler which are supported in the language itself?  Are these
documents made available at any of the following:
Memo to users
http://publib.boulder.ibm.com/html/as400/v5r1/ic2924/info/rzahgmtu.htm
ILE RPG reference
http://publib.boulder.ibm.com/html/as400/v5r1/ic2924/books/c0925083.pdf
SQL programming for host languages reference
http://publib.boulder.ibm.com/html/as400/v5r1/ic2924/info/rzajp/rzajpmst.pdf



Select a requirement type: (Select one)

  x___ Long range or strategic (required to meet long-range needs)
  ___ Suggestion (you would like, but it is not critical)
  x___ Tactical (needed to solve a short-term problem)

Do you have a suggested solution?

Fully support all features of RPGLE in SQLRPGLE including the use of these
features in SQL statements.  This particular DCR deals mainly with the
support of qualified variables.


Other related information:  (include problem number, if available)

pmr 78043,500


Describe the environment in relation to this request.(Including the version
and release)

V5R1M0
cum=TL01302
Group PTF#:  SF99501-05  V5R1M0 November 30, 2001


Product Information

5722-SS1
5722-WDS


Customer Information

Customer number:  5373237
Contact name:  Rob Berendt
Street Address:  6928N 400E, Dock 108, PO Box 2000
City, State, and Zip Code:  Kendallville, IN 46755
Company name:  Group Dekko Services, LLC
e-mail address:  rob@dekko.com
Phone number (including area code):  (260) 347-3100 ext 70560






As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.