zOs/REXX/MAILOLD

/* copy mail begin ***************************************************/
mailHead: procedure expose m.
parse arg m, subj, rec, snd
    m.m.1 = 'SUBJECT   ' subj
    m.m.2 = 'RECPLIST  ' rec
    m.m.3 = 'SENDERID  ' if(snd=='', userid(), snd)
    m.m.4 = 'SENDERIDCC N'
    m.m.5 = 'DOCTEXT'
    m.m.0 = 5
    return m
endProcedure mailHead

mailSend: procedure expose m.
parse arg m, dsn
    call mAdd m, 'DOCTEXTEND'
    if dsn == '' then
        call dsnAlloc 'dd(iemapi) new  ::v255'
    else
        call dsnAlloc 'dd(iemapi) shr' dsn
    call writeDD iemapi, 'M.'m'.'
    call tsoClose iemapi
    call dsnAlloc 'dd(iemlog) sysout(*)'
    call adrTso "call *(os3550)", '*'
    if rc \== 0 then
        say 'error os3550 rc='rc 'mail not sent|||||'
    call tsoFree iemlog iemapi
    return 0
endProcedure mailSend
/* copy mail end *****************************************************/