Profitool

Mon, 01 Jan 0001 00:00:00 +0000

We are experts on Profitool, a long-running Fortran ERP. We have migrated a production Profitool deployment from 32-bit to 64-bit, added modern language features, and built the testing and deployment pipeline around it. If you run Profitool — or a similar Fortran-based ERP — we can take it forward instead of forcing you to start over.

Where we add value

32-bit to 64-bit migration without losing decades of business logic — see Expertise → 32 → 64-bit migration.
Modern extensions: SQL database access, regular expressions, hash maps, and REST APIs added directly into the existing Fortran codebase.
Containers and reproducible builds so the same binary you test is the binary you ship.
A real test framework — TAP-style unit tests with prove runners, instead of “compile and pray”. See Examples → Unit Tests.
Day-to-day operations: backup, restore, data recovery, and version-control discipline around a codebase that may have started before any of those existed.

Talk to us

simon@unisolve.com.au or scottp@dd.com.au

SQL

Mon, 01 Jan 0001 00:00:00 +0000

TODO

subroutine test_select_simple ()
include lib_sql

call ptunit_planadd(1)
integer dbh
call sql_prepare(dbh,"SELECT * FROM test_full ORDER BY id DESC")
call sql_execute(dbh)
integer i = 0
do while (sql_fetch(dbh))
    i = i + 1
    print "(3x,i2,' id=', i4, ' description=', a12, ' cost=', i8, ' len=', i4)"
+      sql_row(dbh),
+      sql_get_integer(dbh, "id"), 
+      sql_get_string(dbh, "description"),
+      sql_get_integer(dbh, "cost"),
+      sql_get_length(dbh, "description")
    if (i == 4) then
        call ptunit_cmp_ok(sql_get_integer(dbh, "id"), "==", 5, "Saw that we selected id 5 last")
    end if
end do

call sql_info()
call sql_finish(dbh)

return

end subroutine test_select_simple

SQL on Fortran 2026

Profitool

Where we add value

Talk to us

SQL