* * * DEFAULT ALGORITHM %RELES STARTS HERE<br />MOVE RELES TO TWA-DB-CMD.<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST.<br />CALL 'MAGECSET' USING TWA-DB-AREA-A<br />VAC01-ELEMENT<br />PERFORM AA840-CALL-MAGEC-IO THRU AA899-EXIT.<br />* * * DEFAULT ALGORITHM %RELES ENDS HERE<br />GO TO AAM750-TEST-RETURN-CODE.<br />```** <br />The AAM700 routines do the file updating calls to MAGECIO. Notice the insertion points %ADDIT, %UPDAT, %DELET, and (cont.)<br />%RELES which are shown with their Default logic. You could provide Customization logic here to be done in addition to (cont.)<br />or instead of the Default logic.<br />The BB600 routine is performed to move the screen fields to the record fields. Within the BB600 routine is the Business (cont.)<br />Rule processing for the Element, VAC01. If it sets the ERROR-FOUND condition, the update or add will not be done - an (cont.)<br />error message will be issued instead.<br />| ```<br />**<br />****************************************************************<br />* AAM750 *<br />* THIS ROUTINE TESTS THE RETURN CODE AND MOVES AN *<br />* APPROPRIATE MESSAGE INTO THE MASK'S SCOMPL AREA. *<br />****************************************************************<br />SKIP2<br />AAM750-TEST-RETURN-CODE.<br />IF (DUP-ERROR)<br />MOVE DELETE-PENDING-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN.<br />IF (NOT-FOUND)<br />GO TO AAM751-UPDERR<br />ELSE<br />GO TO AAM752-CONT.<br />AAM751-UPDERR.<br />* * * DEFAULT ALGORITHM %UPDERR STARTS HERE<br />MOVE DB-ERR-MSG TO SCOMPL.<br />GO TO AA800-SEND-SCREEN.<br />* * * DEFAULT ALGORITHM %UPDERR ENDS HERE<br />AAM752-CONT.<br />IF (ERROR-FOUND)<br />GO TO AA800-SEND-SCREEN.<br />MOVE SKEY-POSN TO TWA-MSK-CUR-AD-OT.<br />IF (ADD-FUNCTION)<br />GO TO AAM753-GOODADD<br />ELSE<br />GO TO AAM754-CONT.<br />AAM753-GOODADD.<br />* * * DEFAULT ALGORITHM %GOODADD STARTS HERE<br />MOVE AUDIT-STAMP TO SAVE-AUDIT-STAMP.<br />MOVE ADDED-MSG TO SCOMPL.<br />MOVE SEE-LIT TO T-FUNCT.<br />MOVE TEST-FUNCT TO SFUNCT.<br />MOVE GA-LIT TO TWA-DB-RETURN-CODE.<br />MOVE QUOTE TO TWA-MSK-AID.<br />MOVE FOUR TO TWA-MSK-CUR-AD-IN.<br />GO TO AA100-CHECK-FUNCTION.<br />* * * DEFAULT ALGORITHM %GOODADD ENDS HERE<br />AAM754-CONT.<br />IF (CHG-FUNCTION)<br />GO TO AAM755-GOODCHG<br />ELSE<br />GO TO AAM756-CONT.<br />AAM755-GOODCHG.<br />MOVE REDKY TO TWA-DB-CMD.<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV.<br />* * * DEFAULT ALGORITHM %GOODCHG STARTS HERE<br />MOVE UPDATED-MSG TO SCOMPL.<br />MOVE SEE-LIT TO T-FUNCT.<br />MOVE TEST-FUNCT TO SFUNCT.<br />MOVE GA-LIT TO TWA-DB-RETURN-CODE.<br />MOVE QUOTE TO TWA-MSK-AID.<br />MOVE FOUR TO TWA-MSK-CUR-AD-IN.<br />GO TO AA100-CHECK-FUNCTION.<br />* * * DEFAULT ALGORITHM %GOODCHG ENDS HERE<br />AAM756-CONT.<br />IF (DEL-FUNCTION)<br />GO TO AAM757-GOODDEL<br />ELSE<br />GO TO AAM758-CONT.<br />AAM757-GOODDEL.<br />* * * DEFAULT ALGORITHM %GOODDEL STARTS HERE<br />MOVE DELETED-MSG TO SCOMPL.<br />GO TO AA800-SEND-SCREEN.<br />* * * DEFAULT ALGORITHM %GOODDEL ENDS HERE<br />AAM758-CONT.<br />GO TO AA800-SEND-SCREEN.<br />******************************************************<br />* *<br />* END OF MAINT FUNCTIONS MAINLINE LOGIC *<br />* *<br />******************************************************<br />```** <br />The AAM750 routines check the return code from MAGECIO and handle all possible conditions. Notice the insertion points (cont.)<br />%UPDERR, %GOODADD, %GOODCHG, and %GOODDEL provided for you. The Default logic is shown, it usually just moves a message (cont.)<br />into SCOMPL and exits to send the screen. For an ADD Function, on successful completion, it alters the Function Code to (cont.)<br />the SEE Function so the the Operator cdfoan press ENTER to display the record just added and then use the NXT Function (cont.)<br />if desired.<br />You might find many reasons to want to add Customization logic into any of these insertion points. One common use is to FTH-FUNCT to another Function after a successful ADD, etc.<br />## <br />Short List Routine<br />| ```<br />**<br />AAP100-POP-UP-SHORT-LIST.<br />IF (TWA-MSK-PF13-HIT)<br />MOVE PRINTS-FUNCT TO SFUNCT<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST<br />GO TO AA900-GOBACK.<br />IF (TWA-MSK-PF5-HIT) OR (TWA-MSK-PF7-HIT)<br />MOVE F TO TWA-BROWSE-DIRECTION<br />MOVE N TO MMP-NEW-TRANSACTION.<br />MOVE TEN TO NUMBER-OF-RECORDS.<br />MOVE TWA-SHORT-LIST-SOURCE TO WS-SL-SOURCE.<br />IF (NOT TWA-COLOR-CRT)<br />MOVE DEFAULT-COLOR TO WINDOW-COLOR<br />MOVE ATSADHNM TO MSK6PU-SLINEA (1)<br />MSK6PU-SLINEA (2)<br />MSK6PU-SLINEA (3)<br />MSK6PU-SLINEA (4)<br />MSK6PU-SLINEA (5)<br />MSK6PU-SLINEA (6)<br />MSK6PU-SLINEA (7)<br />MSK6PU-SLINEA (8)<br />MSK6PU-SLINEA (9)<br />MSK6PU-SLINEA (10)<br />ELSE<br />MOVE REVERSE-VIDEO TO MSK6PU-SLINEH (1)<br />MSK6PU-SLINEH (2)<br />MSK6PU-SLINEH (3)<br />MSK6PU-SLINEH (4)<br />MSK6PU-SLINEH (5)<br />MSK6PU-SLINEH (6)<br />MSK6PU-SLINEH (7)<br />MSK6PU-SLINEH (8)<br />MSK6PU-SLINEH (9)<br />MSK6PU-SLINEH (10).<br />MOVE WINDOW-COLOR TO MSK6PU-SLINE-COLOR (1)<br />MSK6PU-SLINE-COLOR (2)<br />MSK6PU-SLINE-COLOR (3)<br />MSK6PU-SLINE-COLOR (4)<br />MSK6PU-SLINE-COLOR (5)<br />MSK6PU-SLINE-COLOR (6)<br />MSK6PU-SLINE-COLOR (7)<br />MSK6PU-SLINE-COLOR (8)<br />MSK6PU-SLINE-COLOR (9)<br />MSK6PU-SLINE-COLOR (10).<br />MOVE WS-SHORT-LIST-HDG TO MSK6PU-SLINE (1).<br />MOVE SPACES TO MSK6PU-SLINE (3)<br />MSK6PU-SLINE (4)<br />MSK6PU-SLINE (5)<br />MSK6PU-SLINE (6)<br />MSK6PU-SLINE (7)<br />MSK6PU-SLINE (8)<br />MSK6PU-SLINE (9)<br />MSK6PU-SLINE (10).<br />MOVE THIRTY-NINE TO WINDOW-WIDTH.<br />MOVE SKEY TO NORM-KEY.<br />IF (NEW-TRANSACTION-MODE) OR (TWA-NR-LINES-SENT < NINE)<br />MOVE ONE TO D-SUB<br />* MOVE ' (items 01 - 08) ' TO MSK6PU-SLINE (2)<br />ELSE<br />* MOVE ' (items 09 - 16) ' TO MSK6PU-SLINE (2)<br />MOVE NINE TO D-SUB.<br />MOVE WS-SHORT-LIST-SCOMPL TO MSK6PU-SCOMPL.<br />MOVE D-SUB TO TWA-FIRST-POP-LINE.<br />MOVE TWO TO TWA-MSK-CUR-AD-OT.<br />MOVE TWO TO LIN-CTR.<br />AAP749-MOVE.<br />MOVE TWA-SV-M-KEY (D-SUB) TO TEST-KEY.<br />PERFORM CA500-MOVE-SKEY THRU CA599-EXIT.<br />ADD ONE TO LIN-CTR.<br />MOVE SPACE TO NORMALIZED-KEY.<br />MOVE SKEY TO NK-2-END.<br />MOVE NORMALIZED-KEY TO MSK6PU-SLINE (LIN-CTR).<br />IF D-SUB = TWA-SV-M-SUB<br />MOVE NO-HILITE TO MSK6PU-SLINEH (LIN-CTR)<br />MOVE LIN-CTR TO TWA-MSK-CUR-AD-OT.<br />IF LIN-CTR LESS THAN TEN<br />AND<br />D-SUB LESS THAN TWA-NR-LINES-SENT<br />THEN<br />ADD ONE TO D-SUB<br />GO TO AAP749-MOVE.<br />AAP750-LEAVE-POP-SND-SCRN.<br />MOVE NORM-KEY TO SKEY.<br />* * * NEXT, TRUNCATE LINES TO DESIRED WINDOW WIDTH<br />* * * AND SET STOPPER ADDRESSES ACCORDINGLY<br />MOVE MSK6PU-SCREEN-CONSTANTS TO SCREEN-CONSTANT-WORK.<br />MOVE TWA-MSK-EDIT-WORDS TO SCREEN-EDIT-WORK.<br />MOVE ZEERO TO SCW-SUB.<br />AAP752-NEXT-STOPPER.<br />ADD ONE TO SCW-SUB.<br />IF SCW-SUB > TEN<br />GO TO AAP755-CONT.<br />COMPUTE MSK6PU-SLINE-POSN (SCW-SUB) =<br />TOP-LEFT-POSN + (SCW-SUB * EIGHTY) - EIGHTY.<br />MOVE MSK6PU-SLINE-POSN (SCW-SUB) TO SEW-POSN (SCW-SUB).<br />COMPUTE SCW-POSN (SCW-SUB) =<br />MSK6PU-SLINE-POSN (SCW-SUB) + WINDOW-WIDTH + ONE.<br />MOVE MSK6PU-SLINE (SCW-SUB) TO SLINE-WORK.<br />MOVE WINDOW-WIDTH TO SLW-SUB.<br />MOVE VERTICAL-BAR TO SLW-BYTE (SLW-SUB).<br />ADD ONE TO SLW-SUB.<br /><br />next: genmmp18.md.txt