07 STAKE08-N PIC S9(9)V9(2) COMP-3.<br />05 SPARM016.<br />07 FILLER PIC X(0005).<br />07 STAKE10E PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 STAKE10-N PIC S9(9)V9(2) COMP-3.<br />05 SPARM017.<br />07 FILLER PIC X(0005).<br />07 STAKENE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 STAKEN-N PIC S9(9)V9(2) COMP-3.<br />05 SPARM018.<br />07 FILLER PIC X(0005).<br />07 SYSDATEE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 SYSDATE-DAY-OF-WEEK PIC S9 COMP-3.<br />07 SYSDATE-JULIAN-DATE PIC S9(9) COMP-3.<br />05 SPARM019.<br />07 FILLER PIC X(0005).<br />07 SYSTIMEE PIC X(0001).<br />```** <br />This (preceding) part of the MSK600 Copy Book redefines the TWA-MSK-EDIT-WORDS area of the TWA. Notice that the fields (cont.)<br />having data names like those of the screen fields but with a suffix of E added are the Error Indicators for the (cont.)<br />respective screen fields. When the Automatic Editing detects an error in a screen field it sets the Error Indicator for (cont.)<br />that field to "E". You should do the same in your Customization Editing. MAGEC will automatically Highlight the (cont.)<br />Attributes for the fields having an E in their Error Indicators and will position the Cursor to the first Error field (cont.)<br />on the screen.<br />Notice also the fields named with a -N suffix. These will have the numeric value of the data entered on the screen (if (cont.)<br />it was a numeric Edit Type field) set by the Automatic Editing. It is what we use to update the database fields with (cont.)<br />since you could not very well move the display format data to the record. Notice also the special JULIAN-DATE and (cont.)<br />DAY-OF-WEEK fields generated for all dates. These also are set by Automatic Editing before the MMP is entered. The (cont.)<br />DAY-OF-WEEK codes are 1 = Sunday, 2 = Monday, etc., 7 = Saturday.<br />| ```<br />**<br />* * * DEFAULT ALGORITHM %USRAREA STARTS HERE<br />*01 user-work-area PIC X(4096).<br />* * * DEFAULT ALGORITHM %USRAREA ENDS HERE<br />```** <br />The above area is provided with an insertion point (%USRAREA) to allow you to add Linkage section items as needed. The (cont.)<br />most usual reason to add code here is to insert DBMS areas (i.e. IMS PCB's) which must be Cobol level 01 items in the (cont.)<br />Linkage section. If you add them here, you must remember to load their corresponding BLL-CELLS (USER-BLL-1 thru (cont.)<br />USER-BLL-9) in order to have addressibility to them. Failure to do so will result in Storage (cont.)<br />Violations!<br />## <br />Procedure Division<br />| ```<br />**<br />PROCEDURE DIVISION USING DFHEIBLK DFHCOMMAREA.<br />EXEC CICS HANDLE ABEND PROGRAM('xxxxxxxx')<br />END-EXEC.<br />SERVICE RELOAD BLL-CELLS.<br />EXEC CICS ADDRESS TWA(TWAPTR) END-EXEC.<br />ADD 4096 TWAPTR GIVING TWAPTR2.<br />ADD 4096 TWAPTR2 GIVING TWAPTR3.<br />ADD 4096 TWAPTR3 GIVING TWAPTR4.<br />SERVICE RELOAD TWA.<br />```** <br />The beginning of the PROCEDURE DIVISION will look slightly different depending on which TP Monitor and Cobol compiler (cont.)<br />you are using. This example is for CICS. Regardless, the logic here is for the sole purpose of getting "addressibility" (cont.)<br />to the TWA and, possibly, other Linkage Section areas. If you alter this logic and thereby cause Storage Violations, (cont.)<br />you will be in grave danger of being lynched by your peers.<br />The CICS abend handler program name is defined on the MMP header definition screen. It is specified by the developer. (cont.)<br />If it is left blank, no abend handler program will be used and normal CICS abends (i.e. ASRA's) will result from data (cont.)<br />exceptions, addressing exceptions, etc.<br />| ```<br />**<br />***************************************************************<br />* *<br />* THE AA---- ROUTINES ARE THE MAINLINES *<br />* THE AAL--- ROUTINES ARE FOR BROWS-FUNCTIONS *<br />* THE AAM--- ROUTINES ARE FOR MAINT-FUNCTIONS *<br />* *<br />****************************************************************<br />AA100-CHECK-FUNCTION.<br />IF (TWA-MSK-VZN-REQ)<br />GO TO CC100-VERZUN.<br />MOVE SLASH TO D-LIMITER.<br />MOVE PINK TO WINDOW-COLOR.<br />MOVE STK1-LIT TO VS-SR-FORM.<br />MOVE H TO VS-SR-DISPOSITION.<br />MOVE T TO VS-SR-CLASS.<br />MOVE SYS-LIT TO VS-SR-LOCATION.<br />* * * DEFAULT ALGORITHM %PREINIT STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT<br />* * * DEFAULT ALGORITHM %PREINIT ENDS HERE<br />AA150-PROCESS-DETACH-REQUEST.<br />IF (TWA-MSK-DET-REQ)<br />IF (TWA-SCOMPL-ATTDET EQUAL DET-LIT)<br />MOVE VS-ATT-SCOMPL-SV TO SCOMPL<br />MOVE VS-ATT-SERRMSG-SV TO SERRMSG<br />GO TO AA800-SEND-SCREEN.<br />AA155-BYPASS-DETACH-REQUEST.<br />MOVE SFUNCT TO TEST-FUNCT.<br />MOVE SKEY TO TEST-KEY.<br />IF ((TWA-MSK-PF24-HIT) AND (MAINT-FUNCTION))<br />IF (TWA-MSK-ID = COMMON-POP-MSK)<br />PERFORM FA100-SET-SKEY THRU FA199-EXIT<br />MOVE QUOTE TO TWA-MSK-AID<br />MOVE SPACES TO TWA-MSK-ID<br />ELSE<br />PERFORM FA600-TST-SHORT-LIST-SRC THRU FA699-EXIT<br />IF (NOT SHORT-LIST-AVAIL)<br />MOVE WS-NO-SHORT-LIST-AVAIL TO SCOMPL<br />GO TO AA800-SEND-SCREEN<br />ELSE<br />MOVE TWA-MSK-CUR-AD-IN TO TWA-JERK-CTR<br />PERFORM FA400-CALC-POP-START-POS THRU FA499-EXIT<br />MOVE MSK-CMD TO TWA-TP-REQUEST<br />MOVE COMMON-POP-MSK TO TWA-TP-TRM<br />PERFORM AA800-CALL-MONITOR THRU AA899-EXIT<br />MOVE F 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 VS-ATTR-UNPROTECTED-TABLE TO SERRMSG<br />MOVE TEST-FUNCT TO MSK6PU-SFUNCT<br />MOVE TEST-KEY TO MSK6PU-SKEY<br />MOVE FOUR TO TWA-MSK-CUR-AD-OT<br />MOVE N TO MMP-NEW-TRANSACTION<br />GO TO AAP100-POP-UP-SHORT-LIST.<br />IF TWA-MSK-ID = COMMON-POP-MSK<br />IF (TWA-MSK-ENTER-HIT)<br />PERFORM FA100-SET-SKEY THRU FA199-EXIT<br />MOVE QUOTE TO TWA-MSK-AID<br />MOVE SPACES TO TWA-MSK-ID<br />GO TO AA100-CHECK-FUNCTION<br />ELSE<br />IF (TWA-MSK-PF3-HIT)<br />MOVE TWA-MSK-CUR-AD-OT TO TWA-MSK-CUR-AD-IN<br />MOVE QUOTE TO TWA-MSK-AID<br />MOVE SPACES TO TWA-MSK-ID<br />ELSE<br />MOVE SPACE TO MMP-NEW-TRANSACTION<br />GO TO AAP100-POP-UP-SHORT-LIST.<br />IF SFUNCT NOT = TWA-LAST-FUNCT<br />MOVE F TO TWA-BROWSE-DIRECTION.<br />PERFORM BA100-INIT-STORAGE THRU BA199-EXIT.<br />IF (MAINT-FUNCTION)<br />GO TO AAM200-MAINTENANCE-MAINLINE.<br />IF (BROWS-FUNCTION)<br />GO TO AAL200-BROWSE-MAINLINE.<br />MOVE ZERO TO TWA-MSK-ID.<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST.<br />MOVE MSG-LIT TO TWA-TP-OP.<br />MOVE INVALID-FUNCT-MSG TO TWA-MSK-DETAIL.<br />MOVE CLEAR-FUNCT TO SFUNCT.<br />GO TO AA900-GOBACK.<br />```** <br />The AA100 routine tests for the special AID code which indicates that the program was invoked by the VERZUN function, (cont.)<br />rather than one of its standard application functions (VACSEE, VACLOC, etc.). It then sets the default value into the (cont.)<br />D-LIMITER field. The D-LIMITER is the character used to separate (delimit) key components. For example, using the (cont.)<br />default delimiter of slash ( / ), a compound key could be entered as:<br />123/45<br />in the SKEY area of the screen<br />where the first component field's value is 123 and the second component field's value is 45. The Normalize Key routine (cont.)<br />in the MMP would pad the appropriate number of leading zeros to each component in order to build a proper file key. If (cont.)<br />you alter the D-LIMITER to, say, comma ( , ), then that same key would be entered as:<br />123,45<br />in the SKEY area of the screen<br />The %PREINIT insertion point allows you to place code near the very beginning of the MMP's logic. One use for it is to (cont.)<br />modify the D-LIMITER. Another use is to schedule the PCB (for IMS or DL/1) and load BLL-CELLS.<br />The PF24 key is used to invoke the pop-up window for the Short-List feature.<br />Next, the AA100 routine tests whether the incoming Function Code in the SFUNCT screen field is:<br />A valid Maintenance Function for this MMP<br />A valid Browse Function for this MMP<br />An invalid Function for this MMP<br />and goes to the appropriate Mainline or issues an error message. Note that to issue this message it "fetches" the (cont.)<br />general-purpose CLEARS Function. You might want to use this technique in your Customization also sometimes. Moving the (cont.)<br />FTH-FUNCT command to TWA-NONTP-REQUEST and moving a Function Code to SFUNCT before going to AA900-GOBACK is how you can (cont.)<br />automatically transfer to any other Function. MAGEC will treat it as if the Operator had actually keyed that Function (cont.)<br />Code into SFUNCT and will do all the same Security checking before transfering control.<br />## <br />Browse Mainline<br />| ```<br />**<br />****************************************************************<br />* AAL200 BROWSE FUNCTIONS MAINLINE *<br />* IF WRONG MASK, *<br />* GET THIS PROGRAM'S MASK *<br />* IF KEY HAS NOT CHANGED, *<br />* SET UP FOR REDNX FOR 'MORE' DISPLAY *<br />* *<br />****************************************************************<br />AAL200-BROWSE-MAINLINE.<br />MOVE SFUNCT TO TWA-SHORT-LIST-SOURCE.<br />MOVE SPACES TO TWA-ERR-CODES.<br />* * * DEFAULT ALGORITHM %PFKEYL STARTS HERE<br />IF (TWA-MSK-PF16-HIT) OR (TWA-MSK-PF1-HIT)<br />OR (TWA-MSK-PF17-HIT)<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-PF7-HIT) OR (TWA-MSK-PF8-HIT)<br />PERFORM CA600-SET-BROWSE-DIRECTION THRU CA699-EXIT.<br />IF (TWA-MSK-PF3-HIT)<br /><br />next: genmmp13.md.txt