AAP753-TRUNCATE.<br />MOVE VERTICAL-BAR TO SLW-BYTE (1).<br />MOVE LOW-VALUE TO SLW-BYTE (SLW-SUB).<br />IF SLW-SUB LESS THAN SEVENTY-EIGHT<br />ADD ONE TO SLW-SUB<br />GO TO AAP753-TRUNCATE.<br />MOVE SLINE-WORK TO MSK6PU-SLINE (SCW-SUB).<br />GO TO AAP752-NEXT-STOPPER.<br />AAP755-CONT.<br />MOVE SCREEN-CONSTANT-WORK TO MSK6PU-SCREEN-CONSTANTS.<br />MOVE LOW-VALUES TO END-SEW.<br />MOVE SCREEN-EDIT-WORK TO TWA-MSK-EDIT-WORDS.<br />COMPUTE TWA-MSK-CUR-AD-IN =<br />MSK6PU-SLINE-POSN (TWA-MSK-CUR-AD-OT).<br />MOVE TWA-MSK-CUR-AD-IN TO TWA-MSK-CUR-AD-OT.<br />MOVE MSK6PU-SFUNCT TO TWA-LAST-FUNCT.<br />MOVE MSK6PU-SKEY TO TWA-LAST-KEY.<br />GO TO AA800-SEND-SCREEN.<br />AA760-ATTACH.<br />MOVE TWA-MSK-CUR-AD-IN TO TWA-MSK-CUR-AD-OT.<br />MOVE SCOMPL TO VS-ATT-SCOMPL-SV.<br />MOVE SERRMSG TO VS-ATT-SERRMSG-SV.<br />MOVE HIGH-VALUE TO TWA-MSK-AID.<br />MOVE ATT-FUNCT TO TWA-NONTP-REQUEST.<br />GO TO AA900-GOBACK.<br />AA770-DETACH.<br />MOVE LOW-VALUE TO TWA-MSK-AID.<br />MOVE DET-FUNCT TO TWA-NONTP-REQUEST.<br />GO TO AA900-GOBACK.<br />AA780-ESCAPE-TO-MENU.<br />MOVE QUOTE TO TWA-MSK-AID.<br />MOVE TWA-LAP TO WS-EPF3-LAP<br />MOVE SFUNCT TO WS-EPF3-PREFIX.<br />MOVE WS-ESC-PF3-SKEY TO SKEY.<br />MOVE WS-ESC-PF3-SFUNCT TO SFUNCT.<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST.<br />GO TO AA900-GOBACK.<br />```** <br />The above logic produces the Short List pop-up window. The Short List is a list of record ID's which is saved when the (cont.)<br />operator does a LOC, SCN, or FND function. The Short List contains the ID's of the items which were displayed on the (cont.)<br />screen. In the case of a SCN or FND function that means that the Short List is a list of those items which matched the (cont.)<br />search criteria.<br />The logic in the AAP100 routine is invoked when the operator presses PF24 while in a MAINT function. That means that (cont.)<br />he/she could have done a query and then cursor-selected an item and been transferred to the maintenance screen for that (cont.)<br />item. Then he/she can press PF24 and a pop-up window will display the Short List. He/She can cursor-select from the (cont.)<br />Short List pop-up display and be transferred to the maintenance display for the selected item, and so (cont.)<br />forth.<br />If you desired to add your own pop-up displays to a program you might study this routine and model yours after it. All (cont.)<br />pop-up displays can use the same screen mask (MSK6PU). You can set the position and width of the pop-up window and you (cont.)<br />can set the color of it.<br />You can control the color, position, and width of the pop-up window using the data fields: WINDOW-COLOR, TOP-LEFT-POSN, and WINDOW-WIDTH.<br />The AA760-ATTACH routine is branched to by the program logic when the program is to Attach down to the next level, as in going from a LOC function to a MAINT function.<br />The AA770-DETACH routine is branched to by the program logic when the program is to Detach back up to the next level, such as going from a MAINT function back to a LOC function.<br />The AA780 routine is used to exit back to the low-level menu from this application. It is normally branched to when the Operator presses the PF3 key.<br />## <br />Exit Routines<br />| ```<br />**<br />AA800-SEND-SCREEN.<br />IF TWA-MSK-ID = COMMON-POP-MSK<br />GO TO AA900-GOBACK.<br />IF (MAINT-FUNCTION) AND (TWA-SERRMSG-MSG (6) EQUAL SPACES)<br />PERFORM FA600-TST-SHORT-LIST-SRC THRU FA699-EXIT<br />IF (SHORT-LIST-AVAIL)<br />MOVE WS-SHORT-LIST-INSTR TO TWA-SERRMSG-MSG (6).<br />IF ((TWA-SWAP-ATTACHED) AND<br />(TWA-SERRMSG-MSG (6) EQUAL SPACES))<br />MOVE WS-DETACH-MSG TO TWA-SERRMSG-MSG (6).<br />IF SKEYE = E<br />MOVE SPACES TO TWA-LAST-KEY.<br />IF SCOMPLE = E<br />MOVE SPACES TO TWA-LAST-KEY<br />IF (MAINT-FUNCTION)<br />PERFORM BB100-BLANK-SCREEN THRU BB199-EXIT.<br />* * * DEFAULT ALGORITHM %SNDSCRN STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %SNDSCRN ENDS HERE<br />GO TO AA900-GOBACK.<br />AA800-CALL-MONITOR.<br />MOVE REDKY TO TWA-DB-CMD<br />MOVE MSK-CMD TO TWA-DB-FILE-NAME<br />MOVE 'MSKK1' TO TWA-DB-KEY-NAME<br />MOVE TWA-TP-TRM TO TWA-KEY-VALUE<br />MOVE 'MSK01 MSK02 MSK03 MSK04 ' TO TWA-ELT-LIST.<br />AA840-CALL-MAGEC-IO.<br />CALL 'SETIOMMP' USING TWA-MODE TWA-SUB-MMP-NUM.<br />AA850-SUB-CALL.<br />MOVE MMP-LIT TO TWA-SUB-LIT.<br />EXEC CICS LINK PROGRAM(TWA-SUB-MMP) END-EXEC.<br />AA899-EXIT.<br />EXIT.<br />AA900-GOBACK.<br />* * * DEFAULT ALGORITHM %GOBACK STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT * * *<br />* * * DEFAULT ALGORITHM %GOBACK ENDS HERE<br />MOVE '3' TO TWA-BIG-INDICATOR<br />ELSE<br />MOVE '2' TO TWA-BIG-INDICATOR.<br />EXEC CICS RETURN END-EXEC.<br />```** <br />The AA800 and AA900 routines are the exit routines which are used to terminate processing for this MMP and return to the MAGEC Control Program to send the message or FTH-FUNCT another Function, etc.<br />The actual coding in this area will vary slightly from one TP Monitor to another, this example is for CICS. The (cont.)<br />differences are of no concern to you, though. When you perform AA840-CALL-MAGEC-IO or go to AA900-GOBACK you will get (cont.)<br />the same results regardless what environment you are operating in.<br />## <br />B-Level Subroutines<br />| ```<br />**<br />****************************************************************<br />* B-LEVEL SUBROUTINES *<br />* PERFORMED FROM AAL... AND AAM... MAINLINES *<br />****************************************************************<br />* BA100 INITIALIZE WORK AREAS IN VARIABLE-STOREAGE *<br />****************************************************************<br />BA100-INIT-STORAGE.<br />MOVE LOW-VALUES TO VARIABLE-STORAGE.<br />MOVE SKEY TO TEST-KEY.<br />MOVE SFUNCT TO TEST-FUNCT.<br />MOVE ZEERO TO LOC-ACCUM-1 LOC-ACCUM-2<br />LOC-ACCUM-3 LOC-ACCUM-4 LOC-ACCUM-5 LOC-ACCUM-6<br />LOC-ACCUM-7 LOC-ACCUM-8 LOC-ACCUM-9.<br />MOVE SPACES TO SCREEN-FIELD<br />PATTERN-ERROR<br />PATTERN-MASK<br />DE-EDITED-DATA.<br />CALL'MAGXFRM' USING EIGHTY HDG-LINE<br />ONE HIVALU APOSTROPHE.<br />MOVE ZEERO TO DE-EDITED-VALUE.<br />MOVE Y TO TRANSFORM-SW.<br />MOVE TWA-TIME TO VS-MARKER.<br />IF (BROWS-FUNCTION)<br />GO TO BA105-LOCAT-INIT<br />ELSE<br />GO TO BA150-MAINT-INIT.<br />BA105-LOCAT-INIT.<br />MOVE ALL '.' TO WS-ITEM.<br />MOVE SIXTEEN TO NUMBER-OF-RECORDS.<br />BA106-BLANK-FIL.<br />MOVE SPACES TO WS-FILL-01<br />WS-FILL-02<br />WS-FILL-03<br />WS-FILL-04<br />WS-FILL-05<br />WS-FILL-06<br />WS-FILL-07<br />WS-FILL-08<br />WS-FILL-09.<br />BA107-EXIT.<br />EXIT.<br />BA108-CONT.<br />MOVE WS-ITEM TO MSK-DOT-LINE.<br />MOVE SPACES TO WS-ITEM.<br />MOVE 'Emp# '<br />TO LOC-HDG (1)<br />MOVE 'Earned Vacation '<br />TO LOC-HDG (5)<br />CALL 'MAGXFRM' USING TWO-TWENTY-FIVE LOC-HDGS<br />ONE HIVALU APOSTROPHE.<br />MOVE Y TO UPPERCASE-SW.<br />IF TWA-MSK-ID EQUAL COMMON-LOC-MSK<br />AND<br />(TEST-FUNCT EQUAL TWA-LAST-FUNCT)<br />AND<br />(TWA-NR-LINES-SENT GREATER THAN ZEERO)<br />AND<br />(TEST-KEY EQUAL TWA-LAST-KEY)<br />THEN<br />COMPUTE WS-LINE-SELECTED EQUAL<br />(TWA-MSK-CUR-AD-IN / +80) - THREE.<br />IF WS-LINE-SELECTED GREATER THAN TWA-NR-LINES-SENT<br />OR<br />WS-LINE-SELECTED LESS THAN ONE<br />OR<br />(TWA-MSK-PF7-HIT) OR (TWA-MSK-PF8-HIT)<br />THEN<br />MOVE ZEERO TO WS-LINE-SELECTED.<br />* THE ABOVE ALLOWS THE LOCINIT AND PFKEYL LOGIC TO SENSE<br />* WHETHER A LINE WAS SELECTED.<br />* * * DEFAULT ALGORITHM %LOCINIT STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %LOCINIT ENDS HERE<br />IF UPPERCASE-SW = Y<br />CALL 'UPCASE' USING SIXTY-SIX MSK652-SSEARCH.<br />CALL 'UPCASE' USING SEVENTY-NINE MSK652-SDOTMSK.<br />MOVE TWA-TIME TO VS-MARKER.<br />GO TO BA199-EXIT.<br />BA150-MAINT-INIT.<br />MOVE F TO TWA-BROWSE-DIRECTION.<br />* * * DEFAULT ALGORITHM %INIT STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %INIT ENDS HERE<br />BA199-EXIT.<br />EXIT.<br />```** <br />This is the initialization routine which is always performed at the start of processing. Notice the insertion points (cont.)<br />%LOCINIT and %INIT. If you want to add some additional logic to the initialization for the Browse Functions you would (cont.)<br />use %LOCINIT, for the Maintenance Functions use %INIT. In this sample MMP there was no Customization for (cont.)<br />either.<br />| ```<br />**<br /><br />next: genmmp19.md.txt