07 FILLER PIC X(0005).
07 MSK652-SFUNCTE PIC X(0001).
07 FILLER PIC X(0004).
07 MSK652-VERSION-NO PIC S9(9) COMP.
88 MSK652-IS-CURRENT-VERSION VALUE +406154502.
07 FILLER PIC X(0001).
05 MSK652-SPARM003.
07 FILLER PIC X(0005).
07 MSK652-SKEYE PIC X(0001).
07 FILLER PIC X(0003).
07 FILLER PIC X(0006).
05 MSK652-SPARM004.
07 FILLER PIC X(0005).
07 MSK652-SCOMPLE PIC X(0001).
07 FILLER PIC X(0003).
07 FILLER PIC X(0006).
05 MSK652-SPARM005.
07 FILLER PIC X(0005).
07 MSK652-SDOTMSKE PIC X(0001).
05 MSK652-SPARM006.
07 FILLER PIC X(0005).
07 MSK652-SHDGE PIC X(0001).
05 MSK652-SPARM007.
07 FILLER PIC X(0005).
07 MSK652-SLISTE PIC X(0001).
05 MSK652-SPARM008.
07 FILLER PIC X(0005).
07 MSK652-SSARGLTE PIC X(0001).
05 MSK652-SPARM009.
07 FILLER PIC X(0005).
07 MSK652-SSEARCHE PIC X(0001).
```** 
Here we see the portion of the MSK652 copybook which redefines the TWA-EDIT-WORDS area of the TWA.
**
NOTE:
**
The copybook for MSK652 is special, copybooks generated for your Masks will look similar, but not identical, to it. (cont.)
Data names in the MSK652 copybook are all prefixed with "MSK652-" to avoid name conflicts with your Mask's data names. (cont.)
The MMP includes both the MSK652 copybook and the copybook for the Mask created by you. Notice that they redefine the (cont.)
same area in the TWA.
| ```
**
***** CURRENT VERSION NUMBER IS 04 04 10 03 0
02 MSK6PU REDEFINES TWA-STRT.
03 FILLER
PIC X(274).
03 MSK6PU-SMSKAREA.
05 MSK6PU-SCREEN-HEADER PIC X(10).
05 MSK6PU-SERRMSGG.
07 MSK6PU-SERRMSGS.
09 FILLER PIC X(0001).
09 MSK6PU-SERRMSG-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 MSK6PU-SERRMSGA PIC X(0001).
07 MSK6PU-SERRMSG PIC X(0240).
05 MSK6PU-SFUNCTG.
07 MSK6PU-SFUNCTS.
09 FILLER PIC X(0001).
09 MSK6PU-SFUNCT-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 MSK6PU-SFUNCTA PIC X(0001).
07 MSK6PU-SFUNCT PIC X(0006).
05 MSK6PU-SKEYG.
07 MSK6PU-SKEYS.
09 FILLER PIC X(0001).
09 MSK6PU-SKEY-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 MSK6PU-SKEYA PIC X(0001).
07 MSK6PU-SKEY PIC X(0031).
05 MSK6PU-SCOMPLG.
07 MSK6PU-SCOMPLS.
09 FILLER PIC X(0001).
09 MSK6PU-SCOMPL-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 MSK6PU-SCOMPLA PIC X(0001).
07 MSK6PU-SCOMPL PIC X(0040).
05 MSK6PU-SLINEG OCCURS 10 TIMES.
07 MSK6PU-SLINES.
09 FILLER PIC X(0001).
09 MSK6PU-SLINE-POSN PIC S9999 COMP.
09 FILLER PIC X(0003).
09 MSK6PU-SLINEH PIC X(0001).
09 FILLER PIC X(0001).
09 MSK6PU-SLINE-COLOR PIC X(0001).
09 FILLER PIC X(0001).
07 MSK6PU-SLINEA PIC X(0001).
07 MSK6PU-SLINE PIC X(0078).
05 MSK6PU-SCREEN-CONSTANTS PIC X(0050).
02 MSK6PU-PARMS REDEFINES TWA-STRT.
03 FILLER PIC X(2778).
03 FILLER PIC XX.
03 FILLER.
05 MSK6PU-SPARM001.
07 FILLER PIC X(0005).
07 MSK6PU-SERRMSGE PIC X(0001).
07 FILLER PIC X(0003).
07 FILLER PIC X(0006).
05 MSK6PU-SPARM002.
07 FILLER PIC X(0005).
07 MSK6PU-SFUNCTE PIC X(0001).
07 FILLER PIC X(0004).
07 MSK6PU-MSK-VERSION-NO PIC S9(9) COMP.
88 MSK6PU-MSK-IS-CURRENT-VERSION VALUE +040410030.
07 FILLER PIC X(0001).
05 MSK6PU-SPARM003.
07 FILLER PIC X(0005).
07 MSK6PU-SKEYE PIC X(0001).
07 FILLER PIC X(0003).
07 FILLER PIC X(0006).
05 MSK6PU-SPARM004.
07 FILLER PIC X(0005).
07 MSK6PU-SCOMPLE PIC X(0001).
07 FILLER PIC X(0003).
07 FILLER PIC X(0006).
05 MSK6PU-SPARM005 OCCURS 10 TIMES.
07 FILLER PIC X(0005).
07 MSK6PU-SLINEE PIC X(0001).
```** 
The above description of MSK6PU is used by the pop-up window feature. This is the common pop-up mask which you can also (cont.)
use for your own custom pop-up windows if you wish. The default logic generates a pop-up Short-List (see the AP100 (cont.)
paragraph).
| ```
**
***** CURRENT VERSION NUMBER IS 09 06 22 00 1
02 MSK600 REDEFINES TWA-STRT.
03 FILLER
PIC X(182).
03 SMSKAREA.
05 SCREEN-HEADER PIC X(10).
05 SERRMSGG.
07 SERRMSGS.
09 FILLER PIC X(0001).
09 SERRMSG-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SERRMSGA PIC X(0001).
07 SERRMSG PIC X(0240).
05 SFUNCTG.
07 SFUNCTS.
09 FILLER PIC X(0001).
09 SFUNCT-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SFUNCTA PIC X(0001).
07 SFUNCT PIC X(0006).
05 SKEYG.
07 SKEYS.
09 FILLER PIC X(0001).
09 SKEY-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SKEYA PIC X(0001).
07 SKEY PIC X(0031).
05 SCOMPLG.
07 SCOMPLS.
09 FILLER PIC X(0001).
09 SCOMPL-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SCOMPLA PIC X(0001).
07 SCOMPL PIC X(0040).
05 SCOMMENG OCCURS 3 TIMES INDEXED BY SCOMMEN-INDEX.
07 SCOMMENS.
09 FILLER PIC X(0001).
09 SCOMMEN-POSN PIC S9999 COMP.
09 FILLE PIC X(0001).
07 SCOMMENA PIC X(0001).
07 SCOMMEN PIC X(0050).
05 SDATE-HG.
07 SDATE-HS.
09 FILLER PIC X(0001).
09 SDATE-H-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SDATE-HA PIC X(0001).
07 SDATE-H.
09 SDATE-H-MM PIC X(0002).
09 SDATE-H-SLASH-1 PIC X(0001).
09 SDATE-H-DD PIC X(0002).
09 SDATE-H-SLASH-2 PIC X(0001).
09 SDATE-H-YY PIC X(0002).
05 SEARN07G.
07 SEARN07S.
09 FILLER PIC X(0001).
09 SEARN07-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SEARN07A PIC X(0001).
07 SEARN07.
09 SEARN07-ED
PIC ZZ,ZZZ.99-.
05 SEARN09G.
07 SEARN09S.
09 FILLER PIC X(0001).
09 SEARN09-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SEARN09A PIC X(0001).
07 SEARN09.
09 SEARN09-ED
PIC ZZ,ZZZ.99-.
05 SEARNEDG.
07 SEARNEDS.
09 FILLER PIC X(0001).
09 SEARNED-POSN PIC S9999 COMP.
09 FILLER PIC X(0001).
07 SEARNEDA PIC X(0001).

Next: <a href="https://magec.com/DOC/markdown/genmmp07.md.txt">https://magec.com/DOC/markdown/genmmp07.md.txt</a>