' Get Proc.Opt. Version from Menu

  msPgm  = App.GetValue("Pgm")

  msVersion = App.GetValue("Vers")

  moProcOPT.ProgramId = "P4113"

  moProcOPT.Version   = "ZJDE0001"

  msDOCTYPE = moProcOPT.Value("Documenttype")

' get DocType from Proc.Opt.

  msDOCTYPE = GetProcOpt(msPgm,msVersion,"1;1",sHeader)