ocPropath | output | character | Propath |
ocDatabases | output | character | Databases |
ocProcedures | output | character | Procedures |
ocOperatingMode | output | character | OperatingMode; "Stateless" "State-aware" "State-reset" |
ocExternalError | output | character | ExternalError |
oiReturnStatus | output | integer | ReturnStatus |
/* ========================= */ /* 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 */