07 SLM-CTR PIC ZZZ,Z99 VALUE ZERO.<br />07 SLM-CTR-X REDEFINES SLM-CTR PIC X(7).<br />07 FILLER PIC X(18) VALUE<br />* ' Records Scanned, '.<br />07 SLM-DSP-CTR PIC ZZZ,Z99 VALUE ZERO.<br />07 SLM-DSP-CTR-X REDEFINES SLM-DSP-CTR PIC X(7).<br />07 FILLER PIC X(22) VALUE<br />* ' Displayed so far - '.<br />* 07 FILLER PIC X(5) VALUE 'Page '.<br />07 SLM-PAGE PIC ---9 VALUE ZERO.<br />07 FILLER PIC X(6) VALUE ' ++++ '.<br />05 OLD-MSK-COPYBOOK-MSG PIC X(40) VALUE<br />* '-MSK600 Altered -- ReCompile MMP600-'.<br />05 CHG-KEY-TO-DUP PIC X(40) VALUE<br />* '++Enter NEW key value to DUP to++'.<br />05 DID-YOU-INTEND-MSG PIC X(40) VALUE<br />* ''.<br />05 UNABLE-TO-RESUME-BR PIC X(40) VALUE<br />* '******* Unable to Resume BROWSE ******* '.<br />05 RE-ENTER-KEY-MSG PIC X(80) VALUE<br />* '* * * Enter a New KEY VALUE - or - Press ENTER K<br />* - 'ey to RESTART Browse * * *'.<br />```** <br />The above is an expansion of the Member MAGEC017 which was included into the MMP. It contains all the messages which (cont.)<br />the MMP might move to the SCOMPL area (on the top line of the screen) and also some literals for some of the Error (cont.)<br />Numbers which might be used.<br />| ```<br />**<br />03 SCAN-LIMIT PIC S9(9) COMP SYNC VALUE +1000.<br />03 WS-SEE-FUNCT PIC X(6) VALUE 'VACSEE'.<br />03 WS-CHG-FUNCT PIC X(6) VALUE 'VACCHG'.<br />```** <br />The Scan Limit is the maximum number of records which the MMP will read while searching for a Selection Mask or Search (cont.)<br />Argument in the SCN and FND Functions. If the MMP reads this many records without finding enough "hits" to fill the (cont.)<br />screen (NUMBER-OF-RECORDS) then it will exit and display what it has found so far. If the Operator hits ENTER again it (cont.)<br />will resume from where it left off, etc. The purpose for the Scan Limit is to prevent a transaction from "hogging" the (cont.)<br />system's resources to process one user's request.<br />WS-SEE-FUNCT is the Function Code that this MMP will transfer to when the Operator is using a Browse Function and Cursor-Selects a line of display and presses ENTER.<br />WS-CHG-FUNCT is the Function it will transfer to if the Operator Cursor-Selects and presses PF4 from a Browse screen.<br />| ```<br />**<br />****************************************************************<br />* *<br />* -MAGECINC MAGEC003 *<br />* THIS MODULE IS A TABLE OF ALL FIELD ATTRIBUTES *<br />* LEGAL TO MAGEC 327X SCREEN MANAGEMENT MASKING. *<br />* THE DATA NAMES INDICATE THE ATTRIBUTE: *<br />* POSN 1-2 = AT (ATTRIBUTE) *<br />* POSN 3 = PROTECT/UNPROTECT *<br />* POSN 4 = ALPHA/NUMERIC *<br />* POSN 5 = DISPLAY/NON-DISPLAY *<br />* POSN 6 = REGULAR/HIGH INTENSITY *<br />* POSN 7 = DETECTABLE NON/ATT/MODIFY *<br />* POSN 8 = MDT ON/OFF *<br />* *<br />****************************************************************<br />01 ATTRIBUTES.<br />03 ATUANRNF PIC X VALUE ''.<br />88 TWA-MSK-PA3-HIT VALUE ','.<br />88 TWA-MSK-CLR-HIT VALUE '_'.<br />88 TWA-MSK-SEL-PEN VALUE '='.<br />88 TWA-MSK-TST-REQ VALUE '0'.<br />88 TWA-MSK-VZN-REQ VALUE 'V'.<br />88 TWA-MSK-ATT-REQ VALUE HIGH-VALUE.<br />88 TWA-MSK-DET-REQ VALUE LOW-VALUE.<br />88 TWA-MSK-HLP-RET VALUE 'R'.<br />```** <br />The first 10 bytes of TWA-MSK-AREA are the Mask Header. It contains the Mask ID for the MAGEC 3270 Screen Management (cont.)<br />Mask you are now using (an MMP may use multiple Masks) and data fields to communicate to and from MAGEC Screen (cont.)<br />Management.<br />TWA-MSK-ID and TWA-MSK-TEST-PROD are the Mask identity, never alter them.<br />TWA-MSK-CUR-AD-IN contains the relative Cursor position when the Operator pressed the transmit key. It is a numeric (cont.)<br />value starting at 0000 (Row 1, Column 1) and incrementing to 1919 (Row 24, Column 80). If the Cursor was at Row 2, (cont.)<br />Column 1 then it would contain 0080. You may interrogate this field.<br />TWA-MSK-CUR-AD-OT is a similar field which is used by the MMP to tell MAGEC where it wants the Cursor to be placed when (cont.)<br />the message is sent back to the terminal. To set the Cursor to Row 1, Column 10 you would move 0009 to this field. To (cont.)<br />set the Cursor onto a given screen field (named SFIELD) you would:<br />MOVE SFIELD-POSN TO TWA-MSK-CUR-AD-OT<br />TWA-MSK-WRT-CMD may be used to tell MAGEC to either Erase the screen and then send the message, or to just send the (cont.)<br />message. It is automatically set to Erase-Write (E) whenever the MMP requests a new Mask # since the screen format will (cont.)<br />change. It is automatically set to (F) after the first time that Mask was sent since the screen is already formatted (cont.)<br />correctly. MAGEC will suppress transmitting the screen headings and literals (protected, unreferenced fields) when this (cont.)<br />is not E in order to reduce transmission overhead. Regardless what the value of this field MAGEC will compress repeated (cont.)<br />characters in the message. It is not likely that you will ever have to alter this code in your Customization but you (cont.)<br />may.<br />TWA-MSK-AID tells you which key the Operator hit. You will find much use for this, it enables you to use any PF key (cont.)<br />available on your terminals; remember though, MAGEC intercepts the CLEAR, PF15, PF9, PA1, and PA2 keys and you will (cont.)<br />never see them in your MMP's.<br />| ```<br />**<br />05 TWA-MSK-DETAIL PIC X(3460).<br />*--------------------ADDED FOR PASSING MSG TO CLEAR SCREEN<br />05 TWA-MSK-DETAIL-R1 REDEFINES TWA-MSK-DETAIL.<br />07 TWA-MSK-DETAIL-MSG PIC X(40).<br />07 FILLER PIC X(2454).<br />05 TWA-MSK-DETAIL-R2 REDEFINES TWA-MSK-DETAIL-R1.<br />07 TWA-MSK-DETAIL-BYTE OCCURS 2494 TIMES PIC X.<br />05 TWA-MSK-DETAIL-R3 REDEFINES TWA-MSK-DETAIL-R2.<br />07 TWA-SERRMSG-AREA.<br />09 TWA-SERRMSG-SBA PIC X.<br />09 TWA-SERRMSG-POSN PIC S9(4) COMP.<br />09 TWA-SERRMSG-SF PIC X.<br />09 TWA-SERRMSG-ATTRIBUTE PIC X.<br />07 TWA-SERRMSG.<br />09 TWA-SERRMSG-MSG OCCURS 6 TIMES.<br />11 TWA-SERRMSG-NO PIC X(4).<br />11 TWA-SERRMSG-SHORT PIC X(36).<br />07 TWA-SFUNCT-AREA.<br />09 TWA-SFUNCT-SBA PIC X.<br />09 TWA-SFUNCT-POSN PIC 9(4) COMP.<br />09 TWA-SFUNCT-SF PIC X.<br />09 TWA-SFUNCT-ATTRIBUTE PIC X.<br />07 TWA-SFUNCT-DATA PIC X(6).<br />07 TWA-SKEY-AREA.<br />09 TWA-SKEY-SBA PIC X.<br />09 TWA-SKEY-POSN PIC S9(4) COMP.<br />09 TWA-SKEY-SF PIC X.<br />09 TWA-SKEY-ATTRIBUTE PIC X.<br />07 TWA-SKEY-DATA PIC X(31).<br />07 TWA-SCOMPL-AREA.<br />09 TWA-SCOMPL-SBA PIC X.<br />09 TWA-SCOMPL-POSN PIC S9(4) COMP.<br />09 TWA-SCOMPL-SF PIC X.<br />09 TWA-SCOMPL-ATTRIBUTE PIC X.<br />07 TWA-SCOMPL-DATA PIC X(40).<br />07 FILLER REDEFINES TWA-SCOMPL-DATA.<br />09 TWA-SCOMPL-ATTDET PIC X(03).<br />09 TWA-SCOMPL-FUNCT PIC X(06).<br />09 TWA-SCOMPL-KEY PIC X(31).<br />07 TWA-R3-FILLER PIC X(2143).<br />03 TWA-MSK-EDIT-WORDS PIC X(2400).<br />```** <br />TWA-MSK-DETAIL contains the actual screen format Mask. It includes all the screen fields, Attribute codes, positions, (cont.)<br />and 3270 Order codes. This area is redefined by the Mask Copybooks which are included into the MMP (cont.)<br />below.<br />TWA-MSK-EDIT-WORDS is the area in which the Automatic Editing codes are kept for the Mask currently being pocessed. It (cont.)<br />also is redefined in the Mask Copybooks. It includes the numeric values for data entered by the Operator, if the fields (cont.)<br />are either Numeric or Date Edit Types. It has an Error Flag for every field which is edited by the Automatic (cont.)<br />Edit.<br />| ```<br />**<br />03 FILLER REDEFINES TWA-MSK-EDIT-WORDS.<br />05 FILLER PIC X(10).<br />05 TWA-MSK-REL-NO PIC X(7).<br />05 FILLER PIC X(8).<br />*-* EDIT-SWS USE LOW ORDER PART OF SFUNCT EDIT WORD<br />*-* SET IN ALAEDIT TESTED IN MAGECCP<br />05 TWA-TBL-EDIT-SW PIC X.<br />05 TWA-W-FIELD-EDIT PIC X.<br />05 TWA-MSK-VER PIC S9(9) COMP.<br />*-* ABOVE VERSION FIELD SET BY MSKCREAT AND TESTED IN MMP<br />05 FILLER PIC X(1369).<br />03 FILLER REDEFINES TWA-MSK-EDIT-WORDS.<br />05 TWA-MSK-EW-BYTE OCCURS 1400 TIMES PIC X.<br />03 TWA-LINE-TYPE PIC X.<br />88 TWA-REMOTE-LINE VALUE 'R'.<br />88 TWA-LOCAL-LINE VALUE 'L'.<br />88 TWA-DIALUP-LINE VALUE 'D'.<br />03 TWA-BIG-INDICATOR PIC X.<br />88 TWA-IS-BIG VALUE '3'.<br />03 TWA-REG-SAVE-AREA PIC X(72).<br />03 TWA-IOMOD-WORK-AREA PIC X(280).<br />** DEFINITION OF TWA-IOMOD-WORK-AREA IS DEPENDENT ON TP MONITOR **<br />03 TWA-PARM-LIST.<br />05 FILLER PIC X(8).<br />05 TWA-DB-AREA-A PIC X(4).<br />05 FILLER PIC X(4).<br />03 TWA-TP-REQUEST.<br />05 TWA-TP-OP PIC XXX.<br />05 TWA-TP-TRM PIC XXX.<br />05 TWA-MSK-T-OR-P PIC X.<br />03 TWA-PROGRAM PIC X(8).<br />03 TWA-SUB-MMP.<br />05 TWA-SUB-LIT PIC X(3).<br />05 TWA-SUB-MMP-NUM.<br />07 FILLER PIC X(3).<br />07 TWA-SUB-FIL PIC XX.<br />03 TWA-NONTP-REQUEST REDEFINES TWA-SUB-MMP.<br />05 TWA-NONTP-OP PIC X(3).<br />05 TWA-NONTP-MMP PIC X(5).<br />```** <br />TWA-LINE-TYPE indicates the type of connection this terminal uses. You may interrogate this. You might want some extra (cont.)<br />Custom security on Dial-Up terminals, etc. TWA-BIG-INDICATOR indicates whether this MMP uses a "small" or "large" (cont.)<br />amount of the TWA space. Small means 8K or less, Large means more than 8K. MAGEC will save and restore either 8K or 12K (cont.)<br />of the TWA depending on how much is needed. This field is set by the MMP in the standard exit logic which is generated (cont.)<br />into it. You may interrogate it (if you can think of a reason to).<br />TWA-REG-SAVE-AREA and TWA-IOMOD-WORK-AREA are used by MAGEC and should be left alone by you. Same is true for (cont.)<br />TWA-PARM-LIST except that the field TWA-DB-AREA-A is used by you to tell MAGECIO where to Read into or Write from. You (cont.)<br />use the MAGECSET subroutine to do that. Refer to the MAGEC "Database Administration" chapter.<br />TWA-TP-REQUEST is used by the MMP to call for a Mask to be initialized by MAGECIO. MAGECIO reads the Mask (cont.)<br />Initialization record from the MSK file when the "MSK" command is set here. The Mask record is read into the (cont.)<br />TWA-MSK-AREA above. TWA-PROGRAM is used to indicate the program name currently being executed, (cont.)<br />"MMPnnn".<br />TWA-SUB-MMP is used to indicate the program name for "subroutine" calls to the Monitor (CICS, WESTI, etc.). The most (cont.)<br />common such subroutine call is for the I/O module, done in AA840-CALL-MAGEC-IO thru AA899-EXIT.<br />TWA-NONTP-REQUEST redefines TWA-SUB-MMP, it is used for passing a command to the MAGEC Control Program, such as the (cont.)<br />FTH-FUNCT command to tell MAGEC to "fetch" another Function when this MMP exits instead of just sending the message to (cont.)<br />the terminal and terminating the task. In a WESTI environment the "RELEASE" command may be set here to tell MAGEC to (cont.)<br />release all resources upon terminating this task, MAGEC will do a "SignOff Leave" after sending the message. The (cont.)<br />"TRANSFER" command allows you to transfer to a non-MAGEC Program or TranID.<br /><br />next: genmmp06.md.txt