/* Beispiel.MRX */
NUMERIC DIGITS 14
SIGNAL ON ERROR
SIGNAL ON SYNTAX

/* Fügen Sie bitte hier Ihre Programmzeilen ein! */

IF field6 = "er Herr" THEN DO
  field7 = "Herr"
  field8 = "Herrn"
  END
ELSE DO
  hlp1 = INDEX(field6, " ")
  field7 = SUBSTR(field6, hlp1 + 1)
  field8 = SUBSTR(field6, hlp1 + 1)
  DROP hlp1
  END

/* Zurückschreiben der Feldinhalte */

CALL OPEN(out,mroname,"W")
CALL WRITELN(out, field1)
CALL WRITELN(out, field2)
CALL WRITELN(out, field3)
CALL WRITELN(out, field4)
CALL WRITELN(out, field5)
CALL WRITELN(out, field6)
CALL WRITELN(out, field7)
CALL WRITELN(out, field8)
CALL WRITELN(out, field9)
CALL WRITELN(out, field10)
CALL WRITELN(out, field11)
CALL WRITELN(out, field12)
CALL WRITELN(out, field13)
CALL WRITELN(out, field14)
CALL WRITELN(out, field15)
CALL WRITELN(out, field16)
CALL WRITELN(out, field17)
CALL WRITELN(out, field18)
CALL WRITELN(out, field19)
CALL WRITELN(out, field20)
CALL WRITELN(out, field21)
CALL WRITELN(out, field22)
CALL WRITELN(out, field23)
CALL WRITELN(out, field24)
CALL WRITELN(out, field25)
CALL WRITELN(out, field26)
CALL WRITELN(out, field27)
CALL WRITELN(out, field28)
CALL WRITELN(out, field29)
CALL WRITELN(out, field30)
CALL WRITELN(out, field31)
CALL WRITELN(out, field32)
CALL WRITELN(out, field33)
CALL WRITELN(out, field34)
CALL WRITELN(out, field35)
CALL WRITELN(out, field36)
CALL WRITELN(out, field37)
CALL WRITELN(out, field38)
CALL WRITELN(out, field39)
CALL WRITELN(out, field40)
CALL WRITELN(out, field41)
CALL WRITELN(out, field42)
CALL WRITELN(out, field43)
CALL WRITELN(out, field44)
CALL WRITELN(out, field45)
CALL WRITELN(out, field46)
CALL WRITELN(out, field47)
CALL WRITELN(out, field48)
CALL WRITELN(out, field49)
CALL WRITELN(out, field50)
CALL WRITELN(out, field51)
CALL WRITELN(out, field52)
CALL WRITELN(out, field53)
CALL WRITELN(out, field54)
CALL WRITELN(out, field55)
CALL WRITELN(out, field56)
CALL WRITELN(out, field57)
CALL WRITELN(out, field58)
CALL WRITELN(out, field59)
CALL WRITELN(out, field60)
CALL WRITELN(out, field61)
CALL WRITELN(out, field62)
CALL WRITELN(out, field63)
CALL WRITELN(out, field64)
CALL WRITELN(out, field65)
CALL WRITELN(out, field66)
CALL WRITELN(out, field67)
CALL WRITELN(out, field68)
CALL WRITELN(out, field69)
CALL WRITELN(out, field70)
CALL WRITELN(out, field71)
CALL WRITELN(out, field72)
CALL WRITELN(out, field73)
CALL WRITELN(out, field74)
CALL WRITELN(out, field75)
CALL WRITELN(out, field76)
CALL WRITELN(out, field77)
CALL WRITELN(out, field78)
CALL WRITELN(out, field79)
CALL WRITELN(out, field80)
CALL WRITELN(out, field81)
CALL WRITELN(out, field82)
CALL WRITELN(out, field83)
CALL WRITELN(out, field84)
CALL WRITELN(out, field85)
CALL WRITELN(out, field86)
CALL WRITELN(out, field87)
CALL WRITELN(out, field88)
CALL WRITELN(out, field89)
CALL WRITELN(out, field90)
CALL WRITELN(out, field91)
CALL WRITELN(out, field92)
CALL WRITELN(out, field93)
CALL WRITELN(out, field94)
CALL WRITELN(out, field95)
CALL WRITELN(out, field96)
CALL WRITELN(out, field97)
CALL WRITELN(out, field98)
CALL WRITELN(out, field99)
CALL WRITELN(out, field100)
CALL WRITELN(out, field101)
CALL WRITELN(out, field102)
CALL WRITELN(out, field103)
CALL WRITELN(out, field104)
CALL WRITELN(out, field105)
CALL WRITELN(out, field106)
CALL WRITELN(out, field107)
CALL WRITELN(out, field108)
CALL WRITELN(out, field109)
CALL WRITELN(out, field110)
CALL WRITELN(out, field111)
CALL WRITELN(out, field112)
CALL WRITELN(out, field113)
CALL WRITELN(out, field114)
CALL WRITELN(out, field115)
CALL WRITELN(out, field116)
CALL WRITELN(out, field117)
CALL WRITELN(out, field118)
CALL WRITELN(out, field119)
CALL WRITELN(out, field120)
CALL WRITELN(out, field121)
CALL WRITELN(out, field122)
CALL WRITELN(out, field123)
CALL WRITELN(out, field124)
CALL WRITELN(out, field125)
CALL WRITELN(out, field126)
CALL WRITELN(out, field127)
CALL WRITELN(out, field128)
CALL WRITELN(out, field129)
CALL WRITELN(out, field130)
CALL WRITELN(out, field131)
CALL WRITELN(out, field132)
CALL WRITELN(out, field133)
CALL WRITELN(out, field134)
CALL WRITELN(out, field135)
CALL WRITELN(out, field136)
CALL WRITELN(out, field137)
CALL WRITELN(out, field138)
CALL WRITELN(out, field139)
CALL WRITELN(out, field140)
CALL WRITELN(out, field141)
CALL WRITELN(out, field142)
CALL WRITELN(out, field143)
CALL WRITELN(out, field144)
CALL WRITELN(out, field145)
CALL WRITELN(out, field146)
CALL WRITELN(out, field147)
CALL WRITELN(out, field148)
CALL WRITELN(out, field149)
CALL WRITELN(out, field150)
CALL WRITELN(out, field151)
CALL WRITELN(out, field152)
CALL WRITELN(out, field153)
CALL WRITELN(out, field154)
CALL WRITELN(out, field155)
CALL WRITELN(out, field156)
CALL WRITELN(out, field157)
CALL WRITELN(out, field158)
CALL WRITELN(out, field159)
CALL WRITELN(out, field160)
CALL WRITELN(out, field161)
CALL WRITELN(out, field162)
CALL WRITELN(out, field163)
CALL WRITELN(out, field164)
CALL WRITELN(out, field165)
CALL WRITELN(out, field166)
CALL WRITELN(out, field167)
CALL WRITELN(out, field168)
CALL WRITELN(out, field169)
CALL WRITELN(out, field170)
CALL WRITELN(out, field171)
CALL WRITELN(out, field172)
CALL WRITELN(out, field173)
CALL WRITELN(out, field174)
CALL WRITELN(out, field175)
CALL WRITELN(out, field176)
CALL WRITELN(out, field177)
CALL WRITELN(out, field178)
CALL WRITELN(out, field179)
CALL WRITELN(out, field180)
CALL WRITELN(out, field181)
CALL WRITELN(out, field182)
CALL WRITELN(out, field183)
CALL WRITELN(out, field184)
CALL WRITELN(out, field185)
CALL WRITELN(out, field186)
CALL WRITELN(out, field187)
CALL WRITELN(out, field188)
CALL WRITELN(out, field189)
CALL WRITELN(out, field190)
CALL WRITELN(out, field191)
CALL WRITELN(out, field192)
CALL WRITELN(out, field193)
CALL WRITELN(out, field194)
CALL WRITELN(out, field195)
CALL WRITELN(out, field196)
CALL WRITELN(out, field197)
CALL WRITELN(out, field198)
CALL WRITELN(out, field199)
CALL WRITELN(out, field200)
CALL WRITELN(out, field201)
CALL WRITELN(out, field202)
CALL WRITELN(out, field203)
CALL WRITELN(out, field204)
CALL WRITELN(out, field205)
CALL WRITELN(out, field206)
CALL WRITELN(out, field207)
CALL WRITELN(out, field208)
CALL WRITELN(out, field209)
CALL WRITELN(out, field210)
CALL WRITELN(out, field211)
CALL WRITELN(out, field212)
CALL WRITELN(out, field213)
CALL WRITELN(out, field214)
CALL WRITELN(out, field215)
CALL WRITELN(out, field216)
CALL WRITELN(out, field217)
CALL WRITELN(out, field218)
CALL WRITELN(out, field219)
CALL WRITELN(out, field220)
CALL WRITELN(out, field221)
CALL WRITELN(out, field222)
CALL WRITELN(out, field223)
CALL WRITELN(out, field224)
CALL WRITELN(out, field225)
CALL WRITELN(out, field226)
CALL WRITELN(out, field227)
CALL WRITELN(out, field228)
CALL WRITELN(out, field229)
CALL WRITELN(out, field230)
CALL WRITELN(out, field231)
CALL WRITELN(out, field232)
CALL WRITELN(out, field233)
CALL WRITELN(out, field234)
CALL CLOSE(out)

/* Programm beenden */

CALL REMLIB("rexxmathlib.library")
CALL REMLIB("rexxsupport.library")
EXIT

/* Fehlerbehandlung */

SYNTAX:
SAY "##SYNTAX"
EXIT 10

ERROR:
SAY "##ERROR"
EXIT 10

/* Fügen Sie hier ggfs. Ihre Funktionen und Prozeduren ein! */