SEE Function logo
Begin AA100-CHECK-FUNCTION %PREINIT Narrative of Steps SEE BA100-INIT-STORAGE %INIT Maintenance Mainline AAM200-MAINTENANCE-MAINLINE %PFKEYM TWA-MSK-AREA BA210-MAINT-SCREEN %INITATB 3270 Attributes BA400-NORMALIZE-MAINT-KEY %NORMKEY Invalid Key? AAM410-READ-BY-KEY %REDKY Rec Found? JA100-LOGICAL-JOIN %JOIN BB200-FILL-SCREEN %COMP BB100-BLANK-SCREEN %BLNKSCR AA800-SEND-SCREEN %SNDSCRN AA900-GOBACK %GOBACK End