Initial data commit

Task/Call-a-function-in-a-shared-library/Jsish/call-a-function-in-a-shared-library-1.jsish

@@ -0,0 +1,2 @@
+#!/usr/local/bin/jsish
+load('byjsi.so');

Task/Call-a-function-in-a-shared-library/Jsish/call-a-function-in-a-shared-library-2.jsish

@@ -0,0 +1,26 @@
+       identification division.
+       program-id. sample as "Jsi_Initbyjsi".
+
+       environment division.
+       configuration section.
+       special-names.
+           call-convention 0 is extern.
+       repository.
+           function all intrinsic.
+
+       data division.
+       linkage section.
+       01 jsi-interp usage pointer.
+       01 rel usage binary-long.
+
+       procedure division using by value jsi-interp rel.
+       sample-main.
+       if rel equal zero then
+           display "GnuCOBOL from jsish load of " module-source()
+                   " and cobc -m -fimplicit-init" upon syserr
+           goback
+       end-if
+
+       display "Called again with: " jsi-interp ", " rel upon syserr
+       goback.
+       end program sample.