| 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 */