09 MSK652-SHDG-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK652-SHDGA PIC X(0001).<br />07 MSK652-SHDG PIC X(0079).<br />05 MSK652-SLISTG.<br />07 MSK652-SLISTS.<br />09 FILLER PIC X(0001).<br />09 MSK652-SLIST-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK652-SLISTA PIC X(0001).<br />07 MSK652-SLIST PIC X(1359).<br />07 FILLER REDEFINES MSK652-SLIST.<br />09 MSK652-QTR-LINE OCCURS 64 TIMES PIC X(20).<br />07 FILLER REDEFINES MSK652-SLIST.<br />09 MSK652-SLINE OCCURS 16 TIMES.<br />11 MSK652-SLINE-SHORT PIC X(79).<br />11 FILLER PIC X.<br />05 MSK652-SSARGLTG.<br />07 MSK652-SSARGLTS.<br />09 FILLER PIC X(0001).<br />09 MSK652-SSARGLT-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK652-SSARGLTA PIC X(0001).<br />07 MSK652-SSARGLT PIC X(0011).<br />05 MSK652-SSEARCHG.<br />07 MSK652-SSEARCHS.<br />09 FILLER PIC X(0001).<br />09 MSK652-SSEARCH-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK652-SSEARCHA PIC X(0001).<br />07 MSK652-SSEARCH PIC X(0066).<br />```** <br />All the standard Browse Functions use the same Mask, MSK652. Above is the portion of the MSK652 copybook which actually (cont.)<br />redefines TWA-MSK-DETAIL. It has all the data fields and control fields for the LOC, SCN, and FND Functions screens. (cont.)<br />Notice that, just like in all other Masks, the standard screen fields SERRMSG, SFUNCT, SKEY, and SCOMPL are defined at (cont.)<br />the beginning. They always occupy the same place on the screen and the same place in the TWA. The rest of the data (cont.)<br />fields are organized in order of their data names, not in the order they occupy on the screen.<br />| ```<br />**<br />02 MSK652-PARMS REDEFINES TWA-STRT.<br />03 FILLER PIC X(2778).<br />03 FILLER PIC XX.<br />03 FILLER.<br />05 MSK652-SPARM001.<br />07 FILLER PIC X(0005).<br />07 MSK652-SERRMSGE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 FILLER PIC X(0006).<br />05 MSK652-SPARM002.<br />07 FILLER PIC X(0005).<br />07 MSK652-SFUNCTE PIC X(0001).<br />07 FILLER PIC X(0004).<br />07 MSK652-VERSION-NO PIC S9(9) COMP.<br />88 MSK652-IS-CURRENT-VERSION VALUE +406154502.<br />07 FILLER PIC X(0001).<br />05 MSK652-SPARM003.<br />07 FILLER PIC X(0005).<br />07 MSK652-SKEYE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 FILLER PIC X(0006).<br />05 MSK652-SPARM004.<br />07 FILLER PIC X(0005).<br />07 MSK652-SCOMPLE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 FILLER PIC X(0006).<br />05 MSK652-SPARM005.<br />07 FILLER PIC X(0005).<br />07 MSK652-SDOTMSKE PIC X(0001).<br />05 MSK652-SPARM006.<br />07 FILLER PIC X(0005).<br />07 MSK652-SHDGE PIC X(0001).<br />05 MSK652-SPARM007.<br />07 FILLER PIC X(0005).<br />07 MSK652-SLISTE PIC X(0001).<br />05 MSK652-SPARM008.<br />07 FILLER PIC X(0005).<br />07 MSK652-SSARGLTE PIC X(0001).<br />05 MSK652-SPARM009.<br />07 FILLER PIC X(0005).<br />07 MSK652-SSEARCHE PIC X(0001).<br />```** <br />Here we see the portion of the MSK652 copybook which redefines the TWA-EDIT-WORDS area of the TWA.<br />**<br />NOTE:<br />**<br />The copybook for MSK652 is special, copybooks generated for your Masks will look similar, but not identical, to it. (cont.)<br />Data names in the MSK652 copybook are all prefixed with "MSK652-" to avoid name conflicts with your Mask's data names. (cont.)<br />The MMP includes both the MSK652 copybook and the copybook for the Mask created by you. Notice that they redefine the (cont.)<br />same area in the TWA.<br />| ```<br />**<br />***** CURRENT VERSION NUMBER IS 04 04 10 03 0<br />02 MSK6PU REDEFINES TWA-STRT.<br />03 FILLER<br />PIC X(274).<br />03 MSK6PU-SMSKAREA.<br />05 MSK6PU-SCREEN-HEADER PIC X(10).<br />05 MSK6PU-SERRMSGG.<br />07 MSK6PU-SERRMSGS.<br />09 FILLER PIC X(0001).<br />09 MSK6PU-SERRMSG-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK6PU-SERRMSGA PIC X(0001).<br />07 MSK6PU-SERRMSG PIC X(0240).<br />05 MSK6PU-SFUNCTG.<br />07 MSK6PU-SFUNCTS.<br />09 FILLER PIC X(0001).<br />09 MSK6PU-SFUNCT-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK6PU-SFUNCTA PIC X(0001).<br />07 MSK6PU-SFUNCT PIC X(0006).<br />05 MSK6PU-SKEYG.<br />07 MSK6PU-SKEYS.<br />09 FILLER PIC X(0001).<br />09 MSK6PU-SKEY-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK6PU-SKEYA PIC X(0001).<br />07 MSK6PU-SKEY PIC X(0031).<br />05 MSK6PU-SCOMPLG.<br />07 MSK6PU-SCOMPLS.<br />09 FILLER PIC X(0001).<br />09 MSK6PU-SCOMPL-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 MSK6PU-SCOMPLA PIC X(0001).<br />07 MSK6PU-SCOMPL PIC X(0040).<br />05 MSK6PU-SLINEG OCCURS 10 TIMES.<br />07 MSK6PU-SLINES.<br />09 FILLER PIC X(0001).<br />09 MSK6PU-SLINE-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0003).<br />09 MSK6PU-SLINEH PIC X(0001).<br />09 FILLER PIC X(0001).<br />09 MSK6PU-SLINE-COLOR PIC X(0001).<br />09 FILLER PIC X(0001).<br />07 MSK6PU-SLINEA PIC X(0001).<br />07 MSK6PU-SLINE PIC X(0078).<br />05 MSK6PU-SCREEN-CONSTANTS PIC X(0050).<br />02 MSK6PU-PARMS REDEFINES TWA-STRT.<br />03 FILLER PIC X(2778).<br />03 FILLER PIC XX.<br />03 FILLER.<br />05 MSK6PU-SPARM001.<br />07 FILLER PIC X(0005).<br />07 MSK6PU-SERRMSGE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 FILLER PIC X(0006).<br />05 MSK6PU-SPARM002.<br />07 FILLER PIC X(0005).<br />07 MSK6PU-SFUNCTE PIC X(0001).<br />07 FILLER PIC X(0004).<br />07 MSK6PU-MSK-VERSION-NO PIC S9(9) COMP.<br />88 MSK6PU-MSK-IS-CURRENT-VERSION VALUE +040410030.<br />07 FILLER PIC X(0001).<br />05 MSK6PU-SPARM003.<br />07 FILLER PIC X(0005).<br />07 MSK6PU-SKEYE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 FILLER PIC X(0006).<br />05 MSK6PU-SPARM004.<br />07 FILLER PIC X(0005).<br />07 MSK6PU-SCOMPLE PIC X(0001).<br />07 FILLER PIC X(0003).<br />07 FILLER PIC X(0006).<br />05 MSK6PU-SPARM005 OCCURS 10 TIMES.<br />07 FILLER PIC X(0005).<br />07 MSK6PU-SLINEE PIC X(0001).<br />```** <br />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.)<br />use for your own custom pop-up windows if you wish. The default logic generates a pop-up Short-List (see the AP100 (cont.)<br />paragraph).<br />| ```<br />**<br />***** CURRENT VERSION NUMBER IS 09 06 22 00 1<br />02 MSK600 REDEFINES TWA-STRT.<br />03 FILLER<br />PIC X(182).<br />03 SMSKAREA.<br />05 SCREEN-HEADER PIC X(10).<br />05 SERRMSGG.<br />07 SERRMSGS.<br />09 FILLER PIC X(0001).<br />09 SERRMSG-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 SERRMSGA PIC X(0001).<br />07 SERRMSG PIC X(0240).<br />05 SFUNCTG.<br />07 SFUNCTS.<br />09 FILLER PIC X(0001).<br />09 SFUNCT-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 SFUNCTA PIC X(0001).<br />07 SFUNCT PIC X(0006).<br />05 SKEYG.<br />07 SKEYS.<br />09 FILLER PIC X(0001).<br />09 SKEY-POSN PIC S9999 COMP.<br />09 FILLER PIC X(0001).<br />07 SKEYA PIC X(0001).<br />07 SKEY PIC X(0031).<br />05 SCOMPLG.<br /><br />next: genmmp11.md.txt