05 GOIN-NOWHERE-MSG PIC X(40) VALUE * '** You are going NOWHERE **'. 05 DELETE-PENDING-MSG PIC X(26) VALUE * 'DUP RECORD Pending Delete'. 05 MSK-ERR-MSG PIC X(40) VALUE * 'Error Retrieving MSK600 -or- MSK652'. 05 SEE-FIRST-MSG PIC X(30) VALUE * 'Prior function was not a "SEE"'. 05 ENTER-KEY-MSG PIC X(40) VALUE * 'Enter "KEY" info. -or- PF1 for HELP'. 05 INVALID-FUNCT-MSG PIC X(40) VALUE * 'MMP600 illegally entered'. 05 VARSTG-MSG PIC X(40) VALUE * '++ TWA area clobbered by I/O ++'. 05 ENTER-DOTMSK-MSG PIC X(40) VALUE * 'Enter Selection mask -or- PF1 for HELP'. 05 SHORT-SCAN-AREA-MSG PIC X(40) VALUE * '++ Search area smaller than argument ++'. 05 ENTER-SEARCH-MSG. 07 FILLER PIC X(13) VALUE SPACE. 07 FILLER PIC X(80) VALUE * 'Enter the character sequence you wish to search for on'. 07 FILLER PIC X(160) VALUE * 'the 2nd line of the screen beside "SEARCH ARG:" '. 07 FILLER PIC X(80) VALUE * 'Then, you may use PARENTHESES to bracket the portion of'. 07 FILLER PIC X(80) VALUE * 'the display line in which you wish the search to be done.'. 07 FILLER PIC X(80) VALUE * 'Enter the PARENTHESES on the 4th line, below the heading.'. 07 FILLER PIC X(80) VALUE * 'Use ONLY ONE LEFT and/or ONE RIGHT parenthesis, NO OTHER'. 07 FILLER PIC X(80) VALUE * 'CHARACTERS on that line. Omitting them results in a'. 07 FILLER PIC X(80) VALUE * 'search of the entire line.'. 07 ESM-ERRMSG PIC X(84) VALUE LOW-VALUES. 07 FILLER PIC X(80) VALUE SPACE. 07 FILLER PIC X(80) VALUE * 'You may Press PF1 for complete instructions. '. 05 CURSOR-POINTING-MSG. 07 FILLER PIC S9(4) COMP VALUE +29. 07 CPM-ATTRIBUTE-1 PIC X VALUE '8'. 07 FILLER PIC X(70) VALUE * 'The CURSOR is pointing to an error'. 07 FILLER PIC S9(4) COMP VALUE +29. 07 CPM-ATTRIBUTE-2 PIC X VALUE '_'. 05 SCAN-LIMIT-MSG. 07 FILLER PIC S9(4) COMP VALUE +29. 07 SLM-ATTRIBUTE PIC X VALUE '8'. 07 FILLER PIC X(10) VALUE ' ++++ '. 07 SLM-CTR PIC ZZZ,Z99 VALUE ZERO. 07 SLM-CTR-X REDEFINES SLM-CTR PIC X(7). 07 FILLER PIC X(18) VALUE * ' Records Scanned, '. 07 SLM-DSP-CTR PIC ZZZ,Z99 VALUE ZERO. 07 SLM-DSP-CTR-X REDEFINES SLM-DSP-CTR PIC X(7). 07 FILLER PIC X(22) VALUE * ' Displayed so far - '. * 07 FILLER PIC X(5) VALUE 'Page '. 07 SLM-PAGE PIC ---9 VALUE ZERO. 07 FILLER PIC X(6) VALUE ' ++++ '. 05 OLD-MSK-COPYBOOK-MSG PIC X(40) VALUE * '-MSK600 Altered -- ReCompile MMP600-'. 05 CHG-KEY-TO-DUP PIC X(40) VALUE * '++Enter NEW key value to DUP to++'. 05 DID-YOU-INTEND-MSG PIC X(40) VALUE * ''. 05 UNABLE-TO-RESUME-BR PIC X(40) VALUE * '******* Unable to Resume BROWSE ******* '. 05 RE-ENTER-KEY-MSG PIC X(80) VALUE * '* * * Enter a New KEY VALUE - or - Press ENTER K * - 'ey to RESTART Browse * * *'. ``` The above is an expansion of the Member MAGEC017 which was included into the MMP. It contains all the messages which (cont.) 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.) Numbers which might be used. ``` 03 SCAN-LIMIT PIC S9(9) COMP SYNC VALUE +1000. 03 WS-SEE-FUNCT PIC X(6) VALUE 'VACSEE'. 03 WS-CHG-FUNCT PIC X(6) VALUE 'VACCHG'. ``` The Scan Limit is the maximum number of records which the MMP will read while searching for a Selection Mask or Search (cont.) Argument in the SCN and FND Functions. If the MMP reads this many records without finding enough "hits" to fill the (cont.) screen (NUMBER-OF-RECORDS) then it will exit and display what it has found so far. If the Operator hits ENTER again it (cont.) will resume from where it left off, etc. The purpose for the Scan Limit is to prevent a transaction from "hogging" the (cont.) system's resources to process one user's request. 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. WS-CHG-FUNCT is the Function it will transfer to if the Operator Cursor-Selects and presses PF4 from a Browse screen. ``` **************************************************************** * * * -MAGECINC MAGEC003 * * THIS MODULE IS A TABLE OF ALL FIELD ATTRIBUTES * * LEGAL TO MAGEC 327X SCREEN MANAGEMENT MASKING. * * THE DATA NAMES INDICATE THE ATTRIBUTE: * * POSN 1-2 = AT (ATTRIBUTE) * * POSN 3 = PROTECT/UNPROTECT * * POSN 4 = ALPHA/NUMERIC * * POSN 5 = DISPLAY/NON-DISPLAY * * POSN 6 = REGULAR/HIGH INTENSITY * * POSN 7 = DETECTABLE NON/ATT/MODIFY * * POSN 8 = MDT ON/OFF * * * **************************************************************** 01 ATTRIBUTES. 03 ATUANRNF PIC X VALUE ' 05 VAC01-KEY. 07 VAC01-EMPNUM PIC 9(09). 07 FILLER PIC X(00009). 05 VAC01-DATE-HIRED. 06 VAC01-DATE-HIRED-YY PIC XX. 06 VAC01-DATE-HIRED-MM PIC XX. 06 VAC01-DATE-HIRED-DD PIC XX. 05 VAC01-EARNED-VACATION PIC S9(05)V9(02) COMP-3. 05 VAC01-TAKEN-VACATION PIC S9(05)V9(02) COMP-3. 05 VAC01-EARNED-SICK-DAYS PIC S9(05)V9(02) COMP-3. 05 VAC01-TAKEN-SICK-DAYS PIC S9(05)V9(02) COMP-3. 05 VAC01-EARNED-COMP-DAYS PIC S9(05)V9(02) COMP-3. 05 VAC01-TAKEN-COMP-DAYS PIC S9(05)V9(02) COMP-3. 05 VAC01-COMMENT OCCURS 3 TIMES PIC X(00050). * * * CUSTOM ALGORITHM %DATADEF STARTS HERE * * * THIS COPYBOOK GENERATED BY "DITGEN" * * * FROM TEST VERSION 25/06/01 13:00:08 * * * PRIMARY KEY FIELD IS SIF01-MASTER-KEY 04 SIF01-ELEMENT PIC X(00264). 04 FILLER REDEFINES SIF01-ELEMENT. KEY==> 05 SIF01-MASTER-KEY. 07 SIF01-LOVALU. 09 SIF01-KEY-PREFIX PIC S9(04) COMP. 07 SIF01-EMPNO. 09 SIF01-EMPNUM PIC S9(09) COMP. 05 SIF01-FIRST-NAME. 07 SIF01-F-INIT PIC X(00001). 07 FILLER PIC X(00014). 05 SIF01-LAST-NAME. 07 SIF01-L-INIT PIC X(00001). 07 FILLER PIC X(00024). 05 SIF01-LAST-ON-DT. 06 SIF01-LAST-ON-DT-YY PIC X(00002). 06 SIF01-LAST-ON-DT-MM PIC X(00002). 06 SIF01-LAST-ON-DT-DD PIC X(00002). 05 SIF01-LAST-ON-TM. 07 SIF01-LAST-ON-TM-HH PIC X(00002). 07 SIF01-LAST-ON-TM-MM PIC X(00002). 07 SIF01-LAST-ON-TM-SS PIC X(00002). 05 SIF01-LAST-ON-TM-N REDEFINES SIF01-LAST-ON-TM PIC 9(06). 05 SIF01-LAST-ON-CRT PIC X(00004). 05 SIF01-PASSWORD PIC X(00004). 05 SIF01-USER-VIEWS. 07 SIF01-PROD-UV PIC X(00001). 07 SIF01-TEST-UV PIC X(00001). 05 SIF01-LAP-AUTHS. 07 SIF01-LAP-AUTH OCCURS 50 TIMES PIC X(00001). 05 SIF01-TIME-LIMIT PIC 9(03). 05 SIF01-SESSION-OPTION PIC X(00001). 05 SIF01-NR-LOGONS PIC S9(05) COMP-3. 05 SIF01-LAST-CHG-PSWD-DT. 06 SIF01-LAST-CHG-PSWD-DT-YY PIC X(00002). 06 SIF01-LAST-CHG-PSWD-DT-MM PIC X(00002). 06 SIF01-LAST-CHG-PSWD-DT-DD PIC X(00002). 05 SIF01-NR-DAYS-PSWD-GOOD PIC S9(03). 05 SIF01-OK-LOGON-MULTI-TRMS PIC X(00001). 88 SIF01-MULTI-TRM-OK VALUE 'Y'. 88 SIF01-MULTI-TRM-NOT-OK VALUE 'N'. 05 SIF01-NR-LOGON-ATTEMPTS PIC S9(03). 05 SIF01-NR-UNAUTH-FUNCT PIC S9(03). 05 SIF01-LOC. 07 SIF01-LOC-BYTE OCCURS 3 TIMES PIC X(00001). 05 SIF01-NR-INACT-DAYS PIC S9(03). 05 SIF01-SHIFT-START-TM. 07 SIF01-SHIFT-START-TM-HH PIC X(00002). 07 SIF01-SHIFT-START-TM-MM PIC X(00002). 05 SIF01-SHIFT-END-TR. 07 SIF01-SHIFT-END-TM-HH PIC X(00002). 07 SIF01-SHIFT-END-TM-MM PIC X(00002). 05 SIF01-TERMINATION-DT. 06 SIF01-TERMINATION-DT-YY PIC X(00002). 06 SIF01-TERMINATION-DT-MM PIC X(00002). 06 SIF01-TERMINATION-DT-DD PIC X(00002). 05 SIF01-HOLD PIC X(00001). 05 SIF01-LABOR-STRIKE-GROUP PIC X(00010). 05 SIF01-NR-LOGONS-ATTEMPTED PIC S9(03). 05 SIF01-LOGON-ATTEMPTED-TRM PIC X(00004). 05 SIF01-DAYS-OF-WEEK PIC X(00001). 05 SIF01-OLD-PSWD PIC X(00004). 05 SIF01-OLDER-PSWD PIC X(00004). 05 SIF01-OLDEST-PSWD PIC X(00004). 05 SIF01-LAST-ON-DT4. 06 SIF01-LAST-ON-DT4-CC PIC X(00002). 06 SIF01-LAST-ON-DT4-YY PIC X(00002). 06 SIF01-LAST-ON-DT4-MM PIC X(00002). 06 SIF01-LAST-ON-DT4-DD PIC X(00002). 05 SIF01-LAST-CHG-PSWD-DT4. 06 SIF01-LAST-CHG-PSWD-DT4-CC PIC X(00002). 06 SIF01-LAST-CHG-PSWD-DT4-YY PIC X(00002). 06 SIF01-LAST-CHG-PSWD-DT4-MM PIC X(00002). 06 SIF01-LAST-CHG-PSWD-DT4-DD PIC X(00002). 05 SIF01-TERMINATION-DT4. 06 SIF01-TERMINATION-DT4-CC PIC X(00002). Next: https://magec.com/DOC/markdown/genmmp05.md.txt