MOVE SKEY TO TEST-KEY<br />IF (TK-BYTE (30) EQUAL SPACES)<br />MOVE '1/' TO TEST-KEY<br />MOVE SKEY TO TK-DATA<br />MOVE TEST-KEY TO SKEY<br />GO TO AA900-GOBACK<br />ELSE<br />GO TO AA900-GOBACK.<br />* * * * PF2 = field-level HELP PF16/PF17 = Copy/Paste<br />IF (TWA-MSK-PF1-HIT)<br />OR<br />(TWA-MSK-PF2-HIT)<br />OR<br />(TWA-MSK-PF16-HIT)<br />OR<br />(TWA-MSK-PF17-HIT)<br />THEN<br />MOVE SFUNCT TO TWA-LAST-FUNCT<br />MOVE SKEY TO TWA-LAST-KEY<br />MOVE '**ERR1' TO SFUNCT<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST<br />GO TO AA900-GOBACK.<br />IF (TWA-MSK-PF11-HIT)<br />MOVE '**HELP' TO SFUNCT<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST<br />GO TO AA900-GOBACK.<br />IF (TWA-MSK-PF3-HIT)<br />IF (TWA-SWAP-ATTACHED)<br />GO TO AA770-DETACH<br />ELSE<br />GO TO AA780-ESCAPE-TO-MENU.<br />IF (TWA-MSK-CUR-AD-IN EQUAL TWA-MSK-CUR-AD-OT)<br />IF (TWA-MSK-PF7-HIT)<br />MOVE NXT-LIT TO T-FUNCT<br />MOVE TEST-FUNCT TO SFUNCT<br />MOVE B TO TWA-BROWSE-DIRECTION<br />ELSE<br />IF (TWA-MSK-PF8-HIT)<br />MOVE NXT-LIT TO T-FUNCT<br />MOVE TEST-FUNCT TO SFUNCT<br />MOVE F TO TWA-BROWSE-DIRECTION.<br />IF (NXT-FUNCTION)<br />MOVE SPACES TO TWA-ERR-CODES.<br />* * * DON'T RESEND DATA IF OPER. TRIED TO ENTER ON SEE-FUNCTION<br />IF (SEE-FUNCTION) AND (TWA-MSK-CUR-AD-IN GREATER EIGHTY)<br />AND (TWA-LAST-FUNCT = TEST-FUNCT)<br />AND (TWA-LAST-KEY = TEST-KEY)<br />AND (TWA-MSK-CUR-AD-IN NOT = TWA-MSK-CUR-AD-OT)<br />THEN<br />MOVE DID-YOU-INTEND-MSG TO SCOMPL<br />MOVE FOUR TO TWA-MSK-CUR-AD-OT<br />GO TO AA800-SEND-SCREEN.<br />* * * DEFAULT ALGORITHM %PFKEYM ENDS HERE<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-ID NOT = THIS-PGMS-MSK<br />MOVE N TO MMP-NEW-TRANSACTION<br />MOVE MSK-CMD TO TWA-TP-REQUEST<br />MOVE THIS-PGMS-MSK TO TWA-TP-TRM<br />PERFORM AA800-CALL-MONITOR THRU AA899-EXIT<br />MOVE E TO TWA-MSK-WRT-CMD<br />IF (GET-MSK-ERR)<br />PERFORM BB800-MSK-ERR-MSG THRU BB899-EXIT<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />MOVE TEST-FUNCT TO SFUNCT<br />MOVE TEST-KEY TO SKEY<br />COMPUTE STD-CUR-AD-OT = TWA-MSK-CUR-AD-OT - ONE<br />MOVE STD-CUR-AD-OT TO TWA-MSK-CUR-AD-OT<br />ELSE<br />IF (DUP-FUNCTION)<br />AND<br />((FUNCT-WAS-SEE) OR (FUNCT-WAS-NXT)<br />OR (FUNCT-WAS-DUP))<br />IF (TEST-KEY = TWA-LAST-KEY)<br />MOVE CHG-KEY-TO-DUP TO SCOMPL<br />MOVE SKEY-POSN TO TWA-MSK-CUR-AD-OT<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />MOVE SPACE TO MMP-NEW-TRANSACTION<br />MOVE ADD-LIT TO T-FUNCT<br />MOVE TEST-FUNCT TO SFUNCT<br />ELSE<br />IF TEST-KEY NOT = TWA-LAST-KEY<br />MOVE N TO MMP-NEW-TRANSACTION<br />ELSE<br />IF ((CHG-FUNCTION) OR (DEL-FUNCTION))<br />AND ((FUNCT-WAS-SEE) OR (FUNCT-WAS-NXT))<br />THEN<br />MOVE SPACE TO MMP-NEW-TRANSACTION<br />ELSE<br />IF TEST-FUNCT NOT = TWA-LAST-FUNCT<br />MOVE N TO MMP-NEW-TRANSACTION<br />ELSE<br />IF (SEE-FUNCTION)<br />MOVE N TO MMP-NEW-TRANSACTION<br />ELSE<br />MOVE SPACE TO MMP-NEW-TRANSACTION.<br />IF (NXT-FUNCTION)<br />AND<br />(TWA-LAST-FUNCT-PREFIX NOT EQUAL TEST-FUNCT-KEY)<br />THEN<br />MOVE NOOPS TO TWA-DB-CMD<br />MOVE SPACES TO TWA-LAST-KEY<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST<br />MOVE MASTER-KEY-NAME TO TWA-DB-KEY-NAME<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV.<br />```** <br />This AAM200 routine starts off the Maintenance Functions' Mainline. The %PFKEYM insertion point is for you to allow you (cont.)<br />to intercept the transaction early. The Default code provides for transfer to the LOC Function if the Operator hits PF4 (cont.)<br />and for not overlaying the Operator's entry when he/she tries to update in a SEE Function, forgetting to alter the (cont.)<br />Function Code to ...CHG. You may add code to test for other PF keys here or to intercept the Key Value before Normalize (cont.)<br />Key gets it.<br />If the screen is not already formatted into the proper Mask for this MMP's Maintenence Functions then the MSK record is (cont.)<br />read now to initialize the screen. The MMP-NEW-TRANSACTION indicator is set here depending on whether the Operator (cont.)<br />changed the Function Code or Key. Refer to Appendix A at the back of this section.<br />| ```<br />**<br />****************************************************************<br />* AAM300 *<br />* THIS ROUTINE INITIALIZES THE MASK, EDITS AND REFORMATS *<br />* THE ENTERED KEY AND PREPARES THE DB-REQUEST. *<br />* *<br />****************************************************************<br />AAM300-INITIALIZE.<br />IF (MSK-IS-CURRENT-VERSION)<br />NEXT SENTENCE<br />ELSE<br />MOVE OLD-MSK-COPYBOOK-MSG TO SCOMPL<br />MOVE SPACES TO TWA-LAST-FUNCT<br />GO TO AA800-SEND-SCREEN.<br />PERFORM BA200-INIT-ATTRIBUTES THRU BA299-EXIT.<br />MOVE MASTER-KEY-NAME TO TWA-DB-KEY-NAME.<br />MOVE TEST-FUNCT TO TWA-LAST-FUNCT.<br />IF (NXT-FUNCTION)<br />MOVE TWA-DB-REQ-SAV TO TWA-DB-REQUEST<br />MOVE THIS-PGMS-ELEMENTS TO TWA-ELT-LIST<br />IF TEST-KEY = TWA-LAST-KEY<br />IF (REC-FOUND) AND ((RED-CMD) OR (RDU-CMD))<br />MOVE TEST-FUNCT TO TWA-LAST-FUNCT<br />GO TO AAM430-READ-NEXT-RECORD<br />ELSE<br />MOVE LOC-LIT TO T-FUNCT<br />MOVE TEST-FUNCT TO SFUNCT<br />GO TO AA100-CHECK-FUNCTION<br />ELSE<br />MOVE LOCKY TO TWA-DB-CMD.<br />IF TEST-KEY EQUAL SPACES<br />MOVE SKEY-POSN TO TWA-MSK-CUR-AD-OT<br />MOVE E TO SCOMPLE<br />MOVE E TO SKEYE<br />MOVE ENTER-KEY-MSG TO SCOMPL<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />PERFORM BA400-NORMALIZE-MAINT-KEY THRU BA499-EXIT<br />IF SKEYE = E<br />MOVE SKEY-POSN TO TWA-MSK-CUR-AD-OT<br />MOVE INVALID-KEY-MSG TO SCOMPL<br />MOVE E TO SCOMPLE<br />GO TO AA800-SEND-SCREEN.<br />AAM310-CONTINUE.<br />MOVE TEST-FUNCT TO TWA-LAST-FUNCT.<br />MOVE NORMALIZED-KEY TO TWA-KEY-VALUE.<br />IF (NXT-FUNCTION) AND (TWA-DB-CMD = LOCKY)<br />GO TO AAM400-RESTART-BROWSE.<br />IF (ADD-FUNCTION) OR (SEE-FUNCTION)<br />OR<br />(NEW-TRANCTION-MODE)<br />THEN<br />GO TO AAM410-READ-BY-KEY<br />ELSE<br />IF (CHG-FUNCTION) OR (DEL-FUNCTION)<br />GO TO AAM420-READ-BY-KEY-FOR-UPDATE.<br />```** <br />The AAM300 routine does initializations. It performs the BA200 routine to initialize all the screen field Attributes (cont.)<br />after verifying that the Mask Copy Book is the same version number as the MSK initialization record which was read. (cont.)<br />This traps the common Developer's error of altering the Mask and forgetting to recompile the MMP to get the new Mask (cont.)<br />Copy Book included.<br />The Normalize Key routine is performed from here to convert the Key Value entered by the Operator into proper format (cont.)<br />for reading the file. Then the AAM300 routine determines whether it is time to do a read-for-update or just a plain (cont.)<br />read, the type of Function and the Mode are both factors in the determination.<br />| ```<br />**<br />****************************************************************<br />* AAM400 *<br />* THESE ROUTINES READ THE DATABASE AND CHECK THE *<br />* RETURN CODE: *<br />* FOR AN ADD COMMAND, RECORD SHOULD NOT BE FOUND. *<br />* FOR ANY OTHER COMMAND RECORD SHOULD BE FOUND. *<br />****************************************************************<br />AAM400-DB-IO.<br />AAM400-RESTART-BROWSE.<br />CALL 'MAGECSET' USING TWA-DB-AREA-A NORMALIZED-KEY.<br />PERFORM AA840-CALL-MAGEC-IO THRU AA899-EXIT.<br />GO TO AAM430-READ-NEXT-RECORD.<br />AAM410-READ-BY-KEY.<br />* * * DEFAULT ALGORITHM %REDKY STARTS HERE<br />PERFORM BA500-CHECK-FSTAT THRU BA599-EXIT.<br /><br />next: genmmp16.md.txt