DEL Function logo
Begin AA100-CHECK-FUNCTION %PREINIT Narrative of Steps DEL BA100-INIT-STORAGE %INIT Maintenance Mainline AAM200-MAINTENANCE-MAINLINE %PFKEYM TWA-MSK-AREA BA210-MAINT-SCREEN %INITATB 3270 Attributes BA400-NORMALIZE-MAINT-KEY %NORMKEY Key Mode? AAM410-READ-BY-KEY %REDKY AAM420-READ-BY-KEY-FOR-UPDAT %RDUKY JA100-LOGICAL-JOIN %JOIN Rec Found? Mode? BB200-FILL-SCREEN %COMP BB400-EDIT-FOR-DELETE %DELEDIT Error Found? AAM730-DELETE-FROM-DATABASE %DELET Delete OK? AAM751-UPDERR %UPDERR AAM757-GOODDEL %GOODDEL BB100-BLANK-SCREEN %BLNKSCR AA800-SEND-SCREEN %SNDSCRN AA900-GOBACK %GOBACK End