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,57 @@
+**free
+//=== Tests the SHOW program (the QUILNGTX API) ====== ========
+Ctl-Opt DftActGrp(*NO) ActGrp(*CALLER) option(*nodebugio: *srcstmt);
+Ctl-Opt BndDir('UTIL_BND');
+
+//=== Service Program Prototypes ==============================
+/include copy_mbrs,Srv_Msg_P
+
+dcl-s short1 char(30) inz('A typical short msg.');
+
+dcl-s msg68 char(68)
+    inz('This is a 68 char long field with trailing blanks');
+dcl-s msg68LB char(68)
+    inz('          A 68 char field with 10 leading blanks (removed) ');
+dcl-s name76  char(76) inz;
+
+dcl-s scale1 char(68)
+    inz('12345678901234567890123456789012345678901234567890123456789012345678');
+dcl-s scale2 char(68)
+    inz('<        1         2         3         4         5         6       >');
+dcl-s loong char(8192) inz(' ');
+dcl-s wrap char(272) INZ(
+        'This is a very very long message and wrapping +
+         is expected at a suita+
+         ble break point.  Like at a blank.');
+
+show(scale1 + scale2);
+show(scale1+scale2+scale1+scale2+scale1+scale2+scale1+scale2+scale1);
+
+show(short1);
+
+show(msg68);
+
+msg68 = '68 bytes, with 67 & 68 non-blank';
+%subst(msg68:67:2) = '<<';
+show(msg68);
+
+%subst(msg68lb:67:2) = '<<';
+show(msg68LB);
+
+name76 = 'Wrap after 68';
+%subst(name76 :68) = ' A wrap!';
+Show(name76);
+
+show('This is an extemporaneous mesage');
+
+show(wrap);
+
+loong = '< 8192 long field of blanks. Blank lines are removed.';
+%subst(loong:4096) = 'This is text starting at 4096 of the 8192 field.';
+%subst(loong :8191 :1) = '>';
+show(loong);
+
+show('With a BAD message id' : 'ZZZ9999');
+show('With a message id: CAE9049 (picked purely for demo purposes).' : 'CAE9049');
+
+*inlr = *on;