*PROCESS MARGINS(2,132);
 test: PROCEDURE options(main);
 Define alias HANDLE          pointer;
 DECLARE (p1,p2,p3,p4)             pointer,
         (f1,f2,f3,r)              fixed bin(31),
         dbname1                   char(16),
         dsname1                   char(64),
         reply                     char(64),
         (null,addr,trim,datetime) builtin;
 Dcl T01Common  external ENTRY                              RETURNS(character(64) byaddr);
 Dcl T02Common  external ENTRY(character(16),character(64)) RETURNS(character(64) byaddr);
 fetch T01Common title('DLLCOMMON/T01COMMON');
 fetch T02Common title('DLLCOMMON/T02COMMON');

 /* dllCommon01 tests creation on RCOMMON */
 put skip edit("Test starting at ",datetime())(2 a);
 put skip edit("call T01Common()")(a);
 reply = T01Common();
 put skip edit("T01Common->",reply)(2 a);

 /* dllCommon02 tests creation on RCOMMON & first DCOMMON */
 dbname1="DBNAME01";
 dsname1="fullyQualifiedName01";
 put skip edit("call T02Common(",trim(dbname1),",",trim(dsname1),")")(5 a);
 reply = T02Common(dbname1,dsname1);
 put skip edit("T02Common->",reply)(2 a);

 end test;