ADD / DUP Function logo
Begin AA100-CHECK-FUNCTION %PREINIT Narrative of Steps ADD Narrative of Steps DUP 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 Result? AAM410-READ-BY-KEY %REDKY JA100-LOGICAL-JOIN %JOIN Join Result? BB100-BLANK-SCREEN %BLNKSCR BB200-FILL-SCREEN %COMP BB500-SCREEN-EDIT %EDIT BB500-SCREEN-EDIT-2 %EDIT2 BB600-BUILD-REC %ADDINIT BB600-BUILD-REC %CALC AAM710-ADD-TO-DATABASE %ADDIT Rec Added? AAM753-GOODADD %GOODADD AAM751-UPDERR %UPDERR AA800-SEND-SCREEN %SNDSCRN AA900-GOBACK %GOBACK End