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