Use Binder Source, add JobLogMsg

2021-12-08 12:12:14 -05:00
parent 0e57f94f2a
commit 5e99362069
7 changed files with 265 additions and 9 deletions
@@ -0,0 +1,40 @@
+**FREE
+//=== Tests JobLogMsg procedures in SRV_MSG service program ========
+ctl-opt  option(*NoDebugIo: *SrcStmt :*NoUnref) indent(' |')
+    ActGrp('QILE') DftActGrp(*no)
+    BndDir('UTIL_BND':'SQL_BND')
+    Main(Main);
+
+/include copy_mbrs,Srv_Msg_P
+
+dcl-proc Main  ;
+    dcl-pi *n extpgm('SRV_MSGTL');
+    end-pi;
+
+    dcl-s name      char(72) inz('Name72');
+    dcl-s name73    char(73) inz;
+    dcl-s name76    char(76) inz;
+
+    dcl-s scale2 char(73) inz(
+        '1234567890123456789012345678901234567890123456789012345678901234567890123');
+    dcl-s scale char(73) inz(
+        '         1         2         3         4         5         6         7   ');
+    *inlr = *on;
+    JobLogMsg(scale );
+    JobLogMsg(scale2 );
+    JobLogMsg(name );
+
+    name = 'No wrap 73';
+    name73 = name + 'Y';
+    JobLogMsg(name73 );
+
+    name = 'Wrap after 73';
+    name76 = name + 'WRAP';
+    JobLogMsg(name76 );
+
+    // JobLogMsg(scale2 );
+    // JobLogMsg(scale );
+
+    SndInfMsg('SndInfMsg - to compare to JobLogMsg');
+    JobLogmsg('JobLogMsg - to compare to SndInfMsg');
+end-proc;