project BLF > class TAppServerProperties > method Main

Description

Main method


Parameters


ocPropathoutputcharacterPropath
ocDatabasesoutputcharacterDatabases
ocProceduresoutputcharacterProcedures
ocOperatingModeoutputcharacterOperatingMode;
"Stateless"
"State-aware"
"State-reset"
ocExternalErroroutputcharacterExternalError
oiReturnStatusoutputintegerReturnStatus


Internal usage


unused


program code (program1/tappserverproperties.p)

/* ========================= */
    /* Return the propath & mode */
    /* ========================= */
    assign ocPropath       = replace(propath,",":U,chr(10))
           ocOperatingMode = session:SERVER-OPERATING-MODE.
    
    /* ============================================================ */
    /* Compose a string with the name of all persistent porocedures */
    /* ============================================================ */
    assign vhPersistentProcedure = session:first-procedure no-error.
    do while vhPersistentProcedure <> ? :
        if vhPersistentProcedure:persistent
        then assign ocProcedures = ocProcedures + chr(10) + vhPersistentProcedure:file-name.
        assign vhPersistentProcedure = vhPersistentProcedure:next-sibling.
    end. /* do while valid-handle(vhvhPersistentProcedure) */
    
    /* ============================================================= */
    /* Compose a string with the name and type of the connected db's */
    /* ============================================================= */
    do viCounter = 1 to NUM-DBS by 1:
        assign ocDatabases = ocDatabases + chr(10) + ldbname(viCounter) + " (":U + pdbname(viCounter) + " - ":U + DBTYPE(viCounter) + ")":U.
    end. /* do viCounter = 1 to NUM-DBS */