Creating a logger in JBC

CreatingLoggerInJBC/MX.Logger.b

@@ -0,0 +1,16 @@
+$PACKAGE MX.Training
+SUBROUTINE MX.Logger(data, err)
+
+    err = ''
+
+    log_file = 'test_' : OCONV(DATE(), 'DG') : '.log'
+    log_line = OCONV(TIME(), 'MTS') : '|' : data
+
+    OPENSEQ '../bnk.log', log_file TO file_ptr THEN NULL
+
+    WHITESEQ log_line APPEND TO file_ptr ELSE err = 'ERROR: Failed to write to ': log_file
+
+    CLOSESEQ file_ptr
+
+    RETURN
+END

CreatingLoggerInJBC/MX.TestProg.b

@@ -0,0 +1,12 @@
+PROGRAM MX.TestProg
+
+    $USING MX.Training
+
+    PROMPT 'Enter a text to log: '
+    INPUT text
+    CRT
+
+    MX.Training.Logger(text, err)
+    IF err NE '' THEN CRT err ELSE CRT 'OK'
+
+END