IF (TWA-SWAP-ATTACHED)<br />GO TO AA770-DETACH<br />ELSE<br />GO TO AA780-ESCAPE-TO-MENU.<br />* * * DEFAULT ALGORITHM %PFKEYL ENDS HERE<br />IF TWA-MSK-ID NOT EQUAL COMMON-LOC-MSK<br />OR (TWA-LAST-FUNCT NOT EQUAL TEST-FUNCT)<br />THEN<br />MOVE ZEERO TO TWA-JERK-CTR<br />MOVE MSK-CMD TO TWA-TP-REQUEST<br />MOVE COMMON-LOC-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 MSK652-SFUNCT<br />MOVE TEST-KEY TO MSK652-SKEY<br />MOVE FOUR TO TWA-MSK-CUR-AD-OT<br />PERFORM BA100-INIT-STORAGE THRU BA199-EXIT<br />MOVE MSK652-SFUNCT TO TEST-FUNCT<br />MOVE MSK652-SKEY TO TEST-KEY<br />MOVE N TO MMP-NEW-TRANSACTION<br />MOVE MSK-DOT-LINE TO MSK652-SDOTMSK<br />MOVE ALL '.' TO MSK652-SSEARCH<br />GO TO AAL250-SEND-FOR-KEY.<br />IF TEST-KEY NOT EQUAL TWA-LAST-KEY<br />MOVE N TO MMP-NEW-TRANSACTION<br />GO TO AAL250-SEND-FOR-KEY.<br />IF (TWA-MSK-PF5-HIT) OR (TWA-MSK-PF13-HIT)<br />MOVE F TO TWA-BROWSE-DIRECTION<br />MOVE NOT-FOUND-LIT TO TWA-DB-RETURN-CODE.<br />IF (NOT-FOUND) AND (TWA-MSK-CUR-AD-IN LESS THAN +320)<br />MOVE N TO MMP-NEW-TRANSACTION<br />IF TWA-DB-CMD EQUAL SCANS-LIT<br />GO TO AAL250-SEND-FOR-KEY<br />ELSE<br />IF (TWA-MSK-ENTER-HIT)<br />MOVE SPACE TO MSK652-SKEY, TEST-KEY<br />GO TO AAL250-SEND-FOR-KEY<br />ELSE<br />GO TO AAL250-SEND-FOR-KEY.<br />MOVE SPACE TO MMP-NEW-TRANSACTION.<br />* * * * * WS-LINE-SELECTED was calculated in LOCINIT Routine<br />IF WS-LINE-SELECTED GREATER THAN TWA-NR-LINES-SENT<br />MOVE BAD-CUR-POS TO MSK652-SCOMPL<br />MOVE TWA-MSK-CUR-AD-IN TO TWA-MSK-CUR-AD-OT<br />GO TO AAL750-LEAVE-CUR-SND-SCRN.<br />IF WS-LINE-SELECTED GREATER THAN ZEERO<br />MOVE WS-LINE-SELECTED TO TWA-SV-M-SUB<br />MOVE TWA-SV-M-KEY (WS-LINE-SELECTED) TO TEST-KEY<br />PERFORM CA500-MOVE-SKEY THRU CA599-EXIT<br />IF (TWA-MSK-PF4-HIT)<br />MOVE QUOTE TO TWA-MSK-AID<br />MOVE WS-CHG-FUNCT TO MSK652-SFUNCT<br />GO TO AA760-ATTACH<br />ELSE<br />MOVE WS-SEE-FUNCT TO MSK652-SFUNCT<br />GO TO AA760-ATTACH.<br />```** <br />The AAL200 routine is the beginning of the Mainline logic for the LOC, SCN, and FND Functions (Browses). It first makes (cont.)<br />sure that the screen is formatted with the correct Mask (MSK652) for Browses, if needed it will initialize the (cont.)<br />TWA-MSK-AREA by reading the MSK record. It then sets the MMP-NEW-TRANSACTION indicator depending on whether the (cont.)<br />Operator has altered the Function or Key on the screen. Refer to Appendix B at the back of this (cont.)<br />section.<br />The default logic for the insertion point %PFKEYL supports the standard help key (PF1), the standard copy key (PF16), (cont.)<br />the standard help index key (PF11), and the standard browse keys (PF8=forward, PF7=backward)<br />If in Continuation Mode then it checks the Cursor position to see if the Operator has Cursor-Selected an item, if so (cont.)<br />then it performs the CA500 routine to convert the saved Master Key value for the selected record into the proper screen (cont.)<br />format with slashes (/) separating the component fields, etc.. It uses the "ATTACH" technique to invoke the designated (cont.)<br />Function depending on whether the ENTER or PF4 key was hit.<br />The insertion point provided here named %PFKEYL is you so that you can enter Customization logic to intercept the (cont.)<br />incoming transaction very early in the processing. One of the primary uses for PFKEYL is to test for the Operator's (cont.)<br />having used a certain PF key to indicate that he/she wishes to transfer to some other Function. You could also use this (cont.)<br />point to intercept and modify the Key Value entered before the Normalize Key routine gets to it, perhaps to prefix it (cont.)<br />with the proper Company number or Department number, etc. so that an Operator can only access records for his/her own (cont.)<br />Company or Department.<br />| ```<br />**<br />****************************************************************<br />* AAL250 *<br />* THIS ROUTINE PERFORMS GENERAL HOUSEKEEPING, INITIALIZING *<br />* AND BUILDING APPROPRIATE DATA FIELDS. *<br />****************************************************************<br />AAL250-SEND-FOR-KEY.<br />MOVE SPACES TO MSK652-SLIST.<br />MOVE MASTER-KEY-NAME TO TWA-DB-KEY-NAME.<br />IF TEST-KEY EQUAL SPACES<br />ADD ONE TO TWA-J-CTR<br />IF TWA-J-CTR GREATER THAN TWO<br />MOVE MSG-LIT TO TWA-TP-OP<br />MOVE GOIN-NOWHERE-MSG TO TWA-MSK-DETAIL<br />MOVE CLEAR-FUNCT TO MSK652-SFUNCT<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST<br />GO TO AA900-GOBACK<br />ELSE<br />MOVE EIGHT TO TWA-MSK-CUR-AD-OT<br />MOVE ENTER-KEY-MSG TO MSK652-SCOMPL<br />GO TO AAL750-LEAVE-CUR-SND-SCRN.<br />MOVE ZEERO TO TWA-J-CTR.<br />```** <br />The AAL250 routine checks for users who continue tapping the ENTER key after reaching end-of-data or without entering a (cont.)<br />key value. Without a key value the Operator is "going nowhere", if he/she transmits three times in a row without (cont.)<br />entering a key value then the MMP issues a message via the FTH-FUNCT command as above.<br />| ```<br />**<br />AAL300-INITIALIZE.<br />PERFORM BA200-INIT-ATTRIBUTES THRU BA299-EXIT.<br />MOVE TEST-FUNCT TO TWA-LAST-FUNCT.<br />IF (FND-FUNCTION)<br />PERFORM DA300-CALC-SEARCH-LGTH THRU DA399-EXIT<br />IF ZEERO = SEARCH-LGTHA AND SEARCH-LGTHB<br />MOVE MSK652-SSEARCH-POSN TO TWA-MSK-CUR-AD-OT<br />MOVE SCANS-LIT TO TWA-DB-CMD<br />MOVE NOT-FOUND-LIT TO TWA-DB-RETURN-CODE<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV<br />IF SARG-SUB GREATER THAN ZEERO<br />ADD SARG-SUB TO TWA-MSK-CUR-AD-OT<br />MOVE CURSOR-POINTING-MSG TO ESM-ERRMSG<br />MOVE ENTER-SEARCH-MSG TO MSK652-SLIST<br />GO TO AAL750-LEAVE-CUR-SND-SCRN<br />ELSE<br />MOVE LOW-VALUES TO ESM-ERRMSG<br />MOVE ENTER-SEARCH-MSG TO MSK652-SLIST<br />GO TO AAL750-LEAVE-CUR-SND-SCRN.<br />IF (SCN-FUNCTION)<br />MOVE MSK652-SDOTMSK TO WS-ITEM<br />PERFORM BA106-BLANK-FIL THRU BA107-EXIT<br />MOVE WS-ITEM TO MSK652-SDOTMSK<br />MOVE SPACES TO WS-ITEM<br />IF (MSK652-SDOTMSK = MSK-DOT-LINE79)<br />MOVE MSK652-SDOTMSK-POSN TO TWA-MSK-CUR-AD-OT<br />MOVE SCANS-LIT TO TWA-DB-CMD<br />MOVE NOT-FOUND-LIT TO TWA-DB-RETURN-CODE<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV<br />MOVE ENTER-DOTMSK-MSG TO MSK652-SLIST<br />GO TO AAL750-LEAVE-CUR-SND-SCRN.<br />IF (SCN-FUNCTION) OR (FND-FUNCTION)<br />MOVE MSK652-SDOTMSK TO MSK-DOT-LINE<br />ELSE<br />MOVE SPACES TO MSK-DOT-LINE<br />MSK652-SDOTMSK<br />TEST-DOT-LINE.<br />IF (FND-FUNCTION)<br />PERFORM DA200-FIND-PARENS THRU DA299-EXIT<br />IF (ERROR-FOUND)<br />MOVE SPACE TO FATAL-ERR<br />MOVE MSK652-SDOTMSK-POSN TO TWA-MSK-CUR-AD-OT<br />ADD DOT-SUB TO TWA-MSK-CUR-AD-OT<br />MOVE SCANS-LIT TO TWA-DB-CMD<br />MOVE NOT-FOUND-LIT TO TWA-DB-RETURN-CODE<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV<br />MOVE CURSOR-POINTING-MSG TO ESM-ERRMSG<br />MOVE ENTER-SEARCH-MSG TO MSK652-SLIST<br />GO TO AAL750-LEAVE-CUR-SND-SCRN<br />ELSE<br />IF (SEARCH-LGTHA GREATER THAN<br />(SEARCH-STOP + ONE - SEARCH-START))<br />THEN<br />MOVE MSK652-SDOTMSK-POSN TO TWA-MSK-CUR-AD-OT<br />MOVE SCANS-LIT TO TWA-DB-CMD<br />MOVE NOT-FOUND-LIT TO TWA-DB-RETURN-CODE<br />MOVE TWA-DB-REQUEST TO TWA-DB-REQ-SAV<br />MOVE SHORT-SCAN-AREA-MSG TO MSK652-SLIST<br />GO TO AAL750-LEAVE-CUR-SND-SCRN.<br />IF (TWA-MSK-PF5-HIT)<br />MOVE F TO TWA-BROWSE-DIRECTION<br />MOVE N TO MMP-NEW-TRANSACTION.<br />IF (NEW-TRANSACTION-MODE)<br />IF TEST-KEY EQUAL SPACES<br />MOVE EIGHT TO TWA-MSK-CUR-AD-OT<br />MOVE E TO MSK652-SKEYE<br />MOVE ENTER-KEY-MSG TO MSK652-SCOMPL<br />GO TO AAL750-LEAVE-CUR-SND-SCRN<br />ELSE<br />PERFORM BA300-NORMALIZE-KEY THRU BA399-EXIT<br />IF SKEYE EQUAL E<br />MOVE EIGHT TO TWA-MSK-CUR-AD-OT<br />MOVE INVALID-KEY-MSG TO MSK652-SCOMPL<br />GO TO AAL750-LEAVE-CUR-SND-SCRN.<br />MOVE TEST-FUNCT TO TWA-LAST-FUNCT.<br />MOVE NEXT-PAG-MSG TO MSK652-SCOMPL.<br />IF (BROWSE-BACKWARD)<br />MOVE BROWSING-BACKWARDS TO TWA-SERRMSG-MSG (5)<br />ELSE<br />MOVE BROWSING-FORWARDS TO TWA-SERRMSG-MSG (5).<br />```** <br />The AAL300 routine initializes the screen attributes and parses the SCN Function's Selection Mask line or the FND (cont.)<br />Function's Search Arguments. It forces the MMP into New Transaction Mode if the Operator hit PF5, this will return the (cont.)<br />screen's display to the first "page" instead of "paging forward". If in New Transaction Mode it performs the Normalize (cont.)<br />Key routine to edit and format the entered Key Value in preparation for reading the file. It tests the (cont.)<br />TWA-BROWSE-DIRECTION indicator to see whether the REDNX command will read forward or backwards and moves an appropriate (cont.)<br />message into the last line of the screen.<br />| ```<br />**<br />****************************************************************<br />* AAL400 *<br />* THIS ROUTINE POSITIONS TO THE FIRST DATABASE RECORD *<br />* HAVING A KEY VALUE EQUAL TO OR GREATER THAN THAT *<br /><br />next: genmmp14.md.txt