Logger program

Command: CALL LOGGER PARM(LOG TEXT)

LOG - PF
      A          R LOGRECORD
      A            TEKST         25          COLHDG('TEKST')
      A            TIMESTMP        Z         COLHDG('TIMESTAMP')                            

LOGGER - PGM

 FLOG       O  A E             DISK
 DTYPEIN           S             35
 C     *ENTRY        PLIST
 C                   PARM                    TYPEIN
 C                   Eval      timestmp = %timestamp()
 C                   Eval      TEKST = TYPEIN
 C                   Write     LOGRECORD
 C                   Eval      *INLR = *ON