/* REXX *** */
PARSE ARG ddname
ADDRESS ISPEXEC
'CONTROL ERRORS RETURN'
'LMINIT DATAID(xx) DDNAME('ddname')'
IF rc = 0 THEN DO
  'BROWSE DATAID('xx')'
  'LMFREE DATAID('xx')'
  END
Else DO
  Say 'LMINIT failed, RC='rc
  Say STRIP(Zerrlm)
  END
'CONTROL ERRORS CANCEL'
EXIT 0