&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure /********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: * * * *********************************************************************/ /*----------------------------------------------------------------------------- File: fetchcontainedrows.p Description: Stateless retrieval of data from a SmartBusinessObject Purpose: Allow a client to retrieve data from the server with ONE appserver call Parameters: input pcObject - physical object name of an sdo Will be extended to support logical icf SDOs input-output piocContext - Context from client to server Will return new context to client See data.p fetchcontaimedRows DEFINE INPUT PARAMETER pcQueries AS CHARACTER NO-UNDO. | input pcQueries - See fetchcontainedRows | input piStartRow - - " - | input pcRowIdent - - " - | input plNext - - " - | input piRowsToReturn - - " - | output piROwsReturned - - " - | output table phRowObject1-20 - RowObject table We add this as dynamic definition to the SDOs. output pocMessages - error messages in adm format Notes: History: ------------------------------------------------------------------------------*/ /* *************************** Definitions ************************** */ DEFINE INPUT PARAMETER pcObject AS CHARACTER NO-UNDO. DEFINE INPUT-OUTPUT PARAMETER piocContext AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER pcQueries AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER piStartRow AS INTEGER NO-UNDO. DEFINE INPUT PARAMETER pcRowIdent AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER plNext AS LOGICAL NO-UNDO. DEFINE INPUT PARAMETER piRowsToReturn AS INTEGER NO-UNDO. DEFINE OUTPUT PARAMETER piRowsReturned AS INTEGER NO-UNDO. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject1. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject2. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject3. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject4. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject5. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject6. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject7. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject8. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject9. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject10. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject11. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject12. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject13. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject14. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject15. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject16. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject17. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject18. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject19. DEFINE OUTPUT PARAMETER TABLE-HANDLE phRowObject20. DEFINE OUTPUT PARAMETER pocMessages AS CHARACTER NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE Procedure &Scoped-define DB-AWARE no /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* ************************ Function Prototypes ********************** */ &IF DEFINED(EXCLUDE-getCurrentLogicalName) = 0 &THEN &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getCurrentLogicalName Procedure FUNCTION getCurrentLogicalName RETURNS CHARACTER ( /* parameter-definitions */ ) FORWARD. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ENDIF /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: Procedure Allow: Frames: 0 Add Fields to: Neither Other Settings: CODE-ONLY COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW /* DESIGN Window definition (used by the UIB) CREATE WINDOW Procedure ASSIGN HEIGHT = 6.19 WIDTH = 80.4. /* END WINDOW DEFINITION */ */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure /* *************************** Main Block *************************** */ &SCOPED-DEFINE TTHandle phRowObject &SCOPED-DEFINE NumTTs 20 &SCOPED-DEFINE ContextString piocContext &SCOPED-DEFINE Container pcObject &SCOPED-DEFINE Messages pocMessages &SCOPED-DEFINE createObjects createObjects &SCOPED-DEFINE initializeObject setContextAndInitialize &SCOPED-DEFINE initializeParams piocContext &SCOPED-DEFINE fetchData bufferFetchContainedRows &SCOPED-DEFINE fetchParams pcQueries,piStartRow,pcRowIdent,plNext,piRowsToReturn,OUTPUT piRowsReturned &SCOPED-DEFINE objectName cLogicalObjectName DEFINE VARIABLE iTHIS AS INTEGER NO-UNDO. DEFINE VARIABLE iPos AS INTEGER NO-UNDO. DEFINE VARIABLE cPropList AS CHARACTER NO-UNDO. DEFINE VARIABLE cLogicalObjectName AS CHARACTER NO-UNDO. cPropList = ENTRY(1, piocContext, CHR(3)). iTHIS = LOOKUP('THIS':U, cPropList, ';'). IF iTHIS > 0 THEN iPos = LOOKUP('LogicalObjectName':U, ENTRY(iTHIS + 1, cPropList, ';':U)). IF iPos > 0 THEN cLogicalObjectName = ENTRY(iPos, ENTRY(iTHIS + 2, piocContext, CHR(3)), CHR(4)). {src/adm2/fetchrowobject.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ************************ Function Implementations ***************** */ &IF DEFINED(EXCLUDE-getCurrentLogicalName) = 0 &THEN &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getCurrentLogicalName Procedure FUNCTION getCurrentLogicalName RETURNS CHARACTER ( /* parameter-definitions */ ) : /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ RETURN cLogicalObjectName. END FUNCTION. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ENDIF