| 123456789101112131415161718192021 |
- REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
- CREATE ASMutation.
- ASSIGN
- ASMutation.asmutation_id = NEXT-VALUE(asmutation_id)
- ASMutation.MutArt = 'MAILYBM'
- ASMutation.Aktiv = TRUE
- ASMutation.cStatus = ''
- ASMutation.Datum = TODAY
- ASMutation.Firma = '1000'
- ASMutation.cFeld_1 = ''
- ASMutation.cFeld_2 = 'Auftrag YBM'
- ASMutation.cFeld_3 = ''
- ASMutation.cKey_1 = ''
- ASMutation.cKey_2 = ''
- ASMutation.cKey_3 = 'CREATEAUFTRAG'
- ASMutation.iFeld_1 = TIME
- ASMutation.iKey_1 = 1095359
- ASMutation.iKey_2 = 21550.
- RELEASE ASMutation.
- LEAVE.
- END.
|
