zOs/REXX.O08/LOGG

/* rexx */
call logg A540769.tmp.logg, 'zeile eins', 'zeile zwei'
exit
/*--- append a message to a seq DS if available
               otherwise isssue a message ----------------------------*/
logg: procedure expose m.
parse arg dsn
    o.1 = ''
    do x=1 to arg()-1
        o.x = ' ' strip(arg(x+1), t)
        end
    o.1 = date(s) time() strip(o.1)
    x = max(1, arg() - 1)
    address tso "alloc dd(logg) mod dsn('"dsn"') MGMTCLAS(COM#A092)"
    if rc <> 0 then do
        say 'cannot alloc logg' dsn
        return
        end
    address tso 'execio' x 'diskw logg (stem o. finis)'
    if rc <> 0 then
        say 'execio logg rc' rc dsn
    address tso 'free dd(logg)'
    if rc <> 0 then
        say 'execio free rc' rc
    return
endProcedure logg