IF (FILE-CLOSED)<br />GO TO AA900-GOBACK.<br />MOVE REDKY 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 />MOVE AUDIT-STAMP TO SAVE-AUDIT-STAMP.<br />PERFORM JA100-LOGICAL-JOIN THRU JA999-EXIT.<br />* * * DEFAULT ALGORITHM %REDKY ENDS HERE<br />GO TO AAM440-TEST-RETURN-CODE.<br />AAM420-READ-BY-KEY-FOR-UPDATE.<br />* * * DEFAULT ALGORITHM %RDUKY STARTS HERE<br />MOVE RDUKY 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 />IF (REC-FOUND) AND (TWA-ELT00 NOT = SPACES)<br />AND<br />(AS-TERM-LAST-UPDATED NOT = TWA-TERMINAL-ID)<br />AND<br />(AUDIT-STAMP NOT = SAVE-AUDIT-STAMP)<br />* THEN<br />MOVE MULTI-TASKS-UPDATING TO ERROR-NUMBER<br />PERFORM CA100-LOAD-ERR-CODE-TBL THRU CA199-EXIT.<br />PERFORM JA100-LOGICAL-JOIN THRU JA999-EXIT.<br />* * * DEFAULT ALGORITHM %RDUKY ENDS HERE<br />GO TO AAM440-TEST-RETURN-CODE.<br />AAM430-READ-NEXT-RECORD.<br />* * * DEFAULT ALGORITHM %REDNX STARTS HERE<br />IF TWA-DB-CMD = LOCKY<br />MOVE REDLE TO TWA-DB-CMD<br />ELSE<br />MOVE REDNX 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 />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV.<br />MOVE AUDIT-STAMP TO SAVE-AUDIT-STAMP.<br />MOVE VAC01-KEY<br />TO NORMALIZED-KEY.<br />MOVE NORMALIZED-KEY TO TWA-KEY-VALUE.<br />PERFORM JA100-LOGICAL-JOIN THRU JA999-EXIT.<br />* * * DEFAULT ALGORITHM %REDNX ENDS HERE<br />GO TO AAM440-TEST-RETURN-CODE.<br />AAM440-TEST-RETURN-CODE.<br />IF VS-MARKER NOT EQUAL TWA-TIME<br />MOVE VARSTG-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN.<br />IF (ADD-FUNCTION)<br />IF (NOT-FOUND)<br />NEXT SENTENCE<br />ELSE<br />IF (DUP-ERROR)<br />MOVE DELETE-PENDING-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />MOVE DUPLICATE-MSG TO SCOMPL<br />MOVE FOUR TO TWA-MSK-CUR-AD-OT<br />PERFORM BB200-FILL-SCREEN THRU BB299-EXIT<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />IF (NOT-FOUND)<br />PERFORM BB100-BLANK-SCREEN THRU BB199-EXIT<br />MOVE E TO SCOMPLE<br />MOVE SKEY-POSN TO TWA-MSK-CUR-AD-OT<br />IF (NXT-FUNCTION)<br />MOVE EOF-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />MOVE NOT-FOUND-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN.<br />MOVE SKEY TO TWA-LAST-KEY.<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV.<br />```** <br />The AAM400 routine does the MAGECIO calls to read the file. Notice the insertion points %REDKY, %RDUKY, and %REDNX (cont.)<br />which all have Default code which calls MAGECIO. You might provide your own Customization code to replace the Defaults (cont.)<br />to allow you to access types of files not supported by MAGECIO or to add a little of your own logic before or after (cont.)<br />calling MAGECIO.<br />Notice that the %REDKY Default logic saves the Audit Stamp and the RDUKY Default logic checks to see if it has been (cont.)<br />altered by another task since it was read in %REDKY. If you are familiar with the philosophy of Pseudo Conversational (cont.)<br />programming then you will see that this solves the classic problem in which one terminal's update could overlay the (cont.)<br />record just updated by another terminal, undoing its changes. The %RDUKY logic is executed only for CHG Functions and (cont.)<br />DEL Functions in Continuation Mode. AAM440 checks for bad MAGECIO return codes or for database data overlaying the (cont.)<br />areas beyond TWA-DB-DATA. For bad return codes an error message is placed in SCOMPL and we exit to send the (cont.)<br />screen.<br />| ```<br />**<br />****************************************************************<br />* AAM500 *<br />* IF THIS IS A NEW TRANSACTION THIS ROUTINE BUILDS A *<br />* SCREEN FILLED WITH BLANKS OR DATA DEPENDING UPON *<br />* THE FUNCTION. IT THEN BYPASSES FURTHER PROCESSING *<br />* AND SENDS THE SCREEN. *<br />****************************************************************<br />AAM500-BUILD-NEW-SCREEN.<br />IF (NEW-TRANSACTION-MODE)<br />IF (ADD-FUNCTION)<br />PERFORM BB100-BLANK-SCREEN THRU BB199-EXIT<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />PERFORM BB200-FILL-SCREEN THRU BB299-EXIT<br />IF (NXT-FUNCTION)<br />MOVE NXT-OR-PREV-MSG TO SCOMPL<br />PERFORM CA800-BUILD-SKEY THRU CA899-EXIT<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />IF (DEL-FUNCTION)<br />MOVE ENTER-TO-DEL-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />GO TO AA800-SEND-SCREEN.<br />```** <br />If we are in New Transaction Mode then we do not want to continue on down to the updating routines. We perform either (cont.)<br />the BB100 routine (to fill the screen with Underscores), or the BB200 routine to move the record data to the screen and (cont.)<br />then we exit to send the screen. The CA800 routine transforms the record's Master Key into proper screen key format (cont.)<br />(SKEY) with slashes ( / ) separating component fields, etc.<br />| ```<br />**<br />****************************************************************<br />* AAM600 *<br />* THIS ROUTINE EDITS THE SCREEN AND, IF ERRORS WERE FOUND, *<br />* BYPASSES UPDATING THE DATABASE. *<br />****************************************************************<br />AAM600-EDIT-SCREEN.<br />IF (DEL-FUNCTION)<br />PERFORM BB400-EDIT-FOR-DELETE THRU BB499-EXIT<br />ELSE<br />PERFORM BB500-SCREEN-EDIT THRU BB599-EXIT.<br />```** <br />The AAM600 routine performs the appropriate screen edit routine for ADD, CHG, or DEL Functions in Continuation Mode. (cont.)<br />Remember, nothing else would get this far in the logic after AAM500 above. If errors are found in either of the edits, (cont.)<br />or if they were found in the Automatic Editing then the FATAL-ERR flag will be set to F. This condition (ERROR-FOUND) (cont.)<br />will prevent any database updating below.<br />| ```<br />**<br />****************************************************************<br />* AAM700 *<br />* THIS ROUTINE UPDATES, DELETES, OR ADDS TO THE DATABASE *<br />* AFTER UPDATING THE DATA DEFINITION AREA FROM THE SCREEN *<br />* DATA IF THE FUNCTION IS ADD OR CHANGE. *<br />****************************************************************<br />AAM700-UPDATE.<br />MOVE TWA-DB-REQ-SAV TO TWA-DB-REQUEST.<br />IF (ERROR-FOUND)<br />IF (RDU-CMD)<br />GO TO AAM740-RELEASE-EXCL-CONTROL<br />ELSE<br />GO TO AA800-SEND-SCREEN.<br />IF (ADD-FUNCTION)<br />PERFORM BB600-BUILD-REC THRU BB699-EXIT<br />MOVE TWA-DB-REQ-SAV TO TWA-DB-REQUEST<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST<br />IF (ERROR-FOUND)<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />GO TO AAM710-ADD-TO-DATABASE.<br />IF (CHG-FUNCTION)<br />PERFORM BB600-BUILD-REC THRU BB699-EXIT<br />MOVE TWA-DB-REQ-SAV TO TWA-DB-REQUEST<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST<br />IF (ERROR-FOUND)<br />GO TO AAM740-RELEASE-EXCL-CONTROL<br />ELSE<br />GO TO AAM720-UPDATE-DATABASE.<br />IF (DEL-FUNCTION)<br />GO TO AAM730-DELETE-FROM-DATABASE.<br />MOVE PGM-ERR-MSG TO SCOMPL.<br />GO TO AA800-SEND-SCREEN.<br />AAM710-ADD-TO-DATABASE.<br />* * * DEFAULT ALGORITHM %ADDIT STARTS HERE<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST.<br />MOVE ADDIT TO TWA-DB-CMD.<br />CALL 'MAGECSET' USING TWA-DB-AREA-A<br />VAC01-ELEMENT<br />PERFORM AA840-CALL-MAGEC-IO THRU AA899-EXIT.<br />* * * DEFAULT ALGORITHM %ADDIT ENDS HERE<br />GO TO AAM750-TEST-RETURN-CODE.<br />AAM720-UPDATE-DATABASE.<br />* * * DEFAULT ALGORITHM %UPDAT STARTS HERE<br />MOVE UPDAT 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 %UPDAT ENDS HERE<br />MOVE AUDIT-STAMP TO SAVE-AUDIT-STAMP.<br />GO TO AAM750-TEST-RETURN-CODE.<br />AAM730-DELETE-FROM-DATABASE.<br />* * * DEFAULT ALGORITHM %DELET STARTS HERE<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST.<br />MOVE DELET TO TWA-DB-CMD.<br />CALL 'MAGECSET' USING TWA-DB-AREA-A<br />VAC01-ELEMENT<br />PERFORM AA840-CALL-MAGEC-IO THRU AA899-EXIT.<br />* * * DEFAULT ALGORITHM %DELET ENDS HERE<br />GO TO AAM750-TEST-RETURN-CODE.<br />AAM740-RELEASE-EXCL-CONTROL.<br /><br />next: genmmp17.md.txt