/*=========( Read parameters for a procedure )=========*/
ReadParms: Procedure Expose parm.
Parse Arg dsnPAR, ddnPAR

If dsnPAR = "" Then Do
  Say "Parmlib nicht angegeben. Programm beendet"
  Exit 3
End
If ddnPAR = "" Then Parse Var dsnPAR . "(" ddnPAR ")" .
dsnPAR = "'" !! Strip( dsnPAR,,"'" ) !! "'"

If dsnPAR <> "" Then rc = AllocIt( dsnPAR, ddnPAR )
If rc = 0 Then Do
  rc = Read( ddnPAR )
  Say stem.0 "records from file" ddnPAR "read"
  parm. = ""
  Do i = 1 To stem.0
    Parse Var stem.i key "=" value "/*" .
    key = Strip( key )
    value = Strip( value )
    If value <> "" Then Do
      parm.key = value
      Say key "=" value
    End
  End
End
Else
  Say "Parameter file" dsnPAR "not allocated. RC="rc"."

Return rc
/*** End ReadParms ***/