MAGECCP checks whether the FATAL-ERR flag has been set indicating that errors were detected by either the Automatic (cont.)<br />Editing or by the Business Rule processing, or by the MMP's Custom editing. It sets the appropriate Error Messages (cont.)<br />(from the ERR file) into the screen area if so. It then performs a compression routine to optimize the message (cont.)<br />transmission and reformat it into the proper outgoing 3270, or other, format and then sends it to the Operator's (cont.)<br />terminal.<br />The work of the MMP is greatly simplified because it is relieved of the burdens of handling terminal message (cont.)<br />peculiarities and because all the needed resources are gathered together and passed to it in the TWA area. If the (cont.)<br />Operator is not authorized to do the Function he/she is attempting, then the MMP does not even receive control, a (cont.)<br />Security Violation message is sent to the Operator instead.<br /># <br />Program Code<br />## <br />ID Division<br />| ```<br />**<br />ID DIVISION.<br />PROGRAM-ID. MMP600.<br />*** VAC FILE MAINTENANCE AND BROWSE.<br />AUTHOR. YOUR.NAME<br />INSTALLATION. MAGEC.GENERATED.MMP<br />DATE-COMPILED. 01/01/95-13:00:08.<br />*REMARKS.<br />*************************************************<br />* THIS MMP GENERATED BY *<br />* MAGEC MMPCRE - A PROPRIETARY PRODUCT *<br />* OF AL LEE & ASSOCIATES, INC. *<br />* (214) 202-4965 *<br />* THIS PROGRAM WAS CREATED, USING SHD *<br />* NUMBER (MSK) 600,ON 06/01/25 AT *<br />* 13:00:08 TO USE THE CICS MONITOR.*<br />* "COPY BOOKS" ARE TO BE EXPANDED *<br />* FROM THE MAGEC LIBRARY WHEN COMPILED.*<br />* *<br />* *<br />* - - - GENERATED USING 'MODELMMP' - - - *<br />* IT PROVIDES UPDATE AND DISPLAY FUNCTIONS *<br />* AND BROWSES THE DATA CLASS VAC *<br />* *<br />* IT WILL PRODUCE A HARDCOPY OF THE SCREEN *<br />* OR BROWSE LIST IF THE OPERATOR PRESSES *<br />* THE PF13 KEY. *<br />* *<br />* *<br />* BROWSES MAY BE DONE IN SEQUENCE BY: *<br />* VACK1 - Employee# (9-digits) *<br />* * * DEFAULT ALGORITHM %REMARKS STARTS HERE<br />* * * DEFAULT ALGORITHM %REMARKS ENDS HERE<br />*************************************************<br />```** <br />The Identification Division of the generated MMP is largely remarks. It gives an audit trail of what parameters were (cont.)<br />used into the MMPCREAT Job Stream and when the MMP was generated and Compiled. The insertion point %REMARKS is where (cont.)<br />you may insert your own comments to be generated into the MMP.<br />## <br />Environment Division<br />| ```<br />**<br />ENVIRONMENT DIVISION.<br />CONFIGURATION SECTION.<br />SOURCE-COMPUTER. IBM-370.<br />OBJECT-COMPUTER. IBM-370.<br />****************************************************************<br />* *<br />* NO ADDITIONAL CODING IS DONE IN THIS DIVISION FOR MMP'S *<br />* *<br />****************************************************************<br />```** <br />The Environment Division contains no coding for online MMP's and you may not add any coding of your own since there is no insertion point provided.<br />## <br />Working Storage<br />| ```<br />**<br />DATA DIVISION.<br />* * * DEFAULT ALGORITHM %SCHEMA STARTS HERE<br />* * * NO STANDARD DEFAULT CODE FOR THIS INSERTION POINT * * *<br />* * * DEFAULT ALGORITHM %SCHEMA ENDS HERE<br />WORKING-STORAGE SECTION.<br />SKIP2<br />01 CORE-MARK.<br />SKIP2<br />****************************************************************<br />* *<br />* THIS AREA IS GENERATED TO PROVIDE AN ID FOR EASIER *<br />* LOCATION IN CORE DUMPS AND TO PROVIDE CONSTANTS FOR *<br />* MMP, MSK, AND ELEMENT NAMES AND THE MASTER-KEY NAME. *<br />* *<br />****************************************************************<br />SKIP2<br />03 MMP-LIT PIC XXX VALUE 'MMP'.<br />03 THIS-MMP PIC XXX VALUE '600'.<br />03 DATE-TIME-GENERATED PIC X(18) VALUE '06/01/25-13:00:08'.<br />03 FILLER REDEFINES DATE-TIME-GENERATED.<br />05 DATE-GENERATED PIC X(9).<br />05 TIME-GENERATED PIC X(9).<br />03 MSK-CMD PIC XXX VALUE 'MSK'.<br />03 THIS-PGMS-MSK PIC XXX VALUE '600'.<br />03 COMMON-LOC-MSK PIC XXX VALUE '652'.<br />03 COMMON-POP-MSK PIC XXX VALUE '6PU'.<br />03 FILLER PIC X(32) VALUE<br />'VAC MAINT/LOCAT'.<br />03 MASTER-KEY-NAME PIC X(5) VALUE 'VACK1'.<br />03 FILLER REDEFINES MASTER-KEY-NAME.<br />05 FILLER PIC X(4).<br />05 MASTER-KEY-NO PIC X.<br />03 THIS-PGMS-ELEMENTS.<br />05 ELT-01 PIC X(6) VALUE 'VAC01 '.<br />05 FILLER PIC X(6) VALUE ' '.<br />* * * BELOW IS FOR SPOOLER<br />01 SPOOL-ERR-MSG.<br />03 FILLER PIC X(06) VALUE 'ERROR '.<br />03 SPOOL-ERR-COD PIC X VALUE SPACE.<br />03 FILLER PIC X(20) VALUE<br />' FROM SPOOL-SUB ON '.<br />03 SPOOL-ERR-CMD PIC X(05) VALUE SPACE.<br />03 FILLER PIC X(12) VALUE ' FOR REPORT '.<br />03 SPOOL-ERR-RPT PIC X(4) VALUE SPACE.<br />SKIP1<br />01 WS-TEST-REPORT-MSG.<br />03 FILLER PIC X(18) VALUE<br />'&& REPORT NUMBER'.<br />03 WTR-REPORT-NO PIC X(4) VALUE SPACE.<br />03 FILLER PIC X(20) VALUE<br />' GENERATED &&'.<br />SKIP2<br />01 PF-KEY-INSTRUCTIONS.<br />03 FILLER PIC X(40) VALUE SPACE.<br />03 FILLER PIC X(40) VALUE<br />* 'Press PF13 for Hardcopy'.<br />03 FILLER PIC X(40) VALUE<br />* ' You may Position the CURSOR on an item '.<br />03 FILLER PIC X(40) VALUE<br />* 'and Press ENTER to "SEE" it'.<br />03 PFK-BROWSE-DIR PIC X(40) VALUE SPACE.<br />03 FILLER PIC X(40) VALUE<br />* 'or Press PF4 to "CHG" it'.<br />```** <br />The Working Storage section is used to contain literal constants only. The MMP never alters the data in Working (cont.)<br />Storage. Any fields which are used as work areas or as the target fields for MOVE's or COMPUTE's must be in the TWA in (cont.)<br />the Linkage Section. The exception to this rule is those cases in which the program will MOVE to a field in Working (cont.)<br />Storage and will then access it without ever exiting (to do an I/O, for example) in between. In a fully reentrant (cont.)<br />environment (see explanation below). the program should assume that Working Storage will be re-initialized when the (cont.)<br />program receives control back after having exited. If you have trouble understanding this concept, play it safe. Don't (cont.)<br />MOVE to Working Storage fields.<br />**Reentrancy<br />**<br />There are three(3) classes of programs in CICS (or any interactive transaction environment). First, there are (cont.)<br />'non-reusable' programs. This class must be loaded fresh from the loadlibrary for every transaction--not very efficient (cont.)<br />for high-volume tasks. Second there are 'serially-reusable' programs. They can be reused for multiple transactions, for (cont.)<br />multiple users, but only one at a time. Third, there are 'reentrant' programs. These programs can be used by multiple (cont.)<br />transactions, for multiple users, without being reloaded from the loadlibrary and with a single copy loaded in memory. (cont.)<br />This is obviously the most efficient class of programs.<br />MAGEC MMP`s are generated to the standard for full reentrancy. To be reentrant, the program must NEVER modify any (cont.)<br />portion of itself so that it is always identical. If may only modify memory that is NOT a part of its code, such as (cont.)<br />fields in the Linkage Section. Please keep in mind that this means not only that the program must be identical each (cont.)<br />time it is entered at the top of the PROCEDURE DIVISION , but also whenever it is returned to after a link to a (cont.)<br />subroutine or an I/O event.**<br />| ```<br />* * * * * * * * * * * * * * * * * * * * * * * * * *<br />* THE FOLLOWING IS THE HEADING TO BE DISPLAYED *<br />* ON THE 'TOP' LINE OF THE SCREEN... *<br />* * * * * * * * * * * * * * * * * * * * * * * * * *<br />01 HDG-LINE PIC X(80) VALUE<br />* 'Emp# First Name Last Name Hire D<br />* - 'ate Earned Vacation'.<br />SKIP2<br />01 KEY-NO-EDIT-PARMS.<br />03 FILLER PIC X(26) VALUE '10902N0900A '.<br />03 END-OF-KEY-PARMS.<br />05 FILLER PIC X VALUE HIGH-VALUES.<br />05 FILLER PIC X(25) VALUE ALL '0000A'.<br />01 FILLER REDEFINES KEY-NO-EDIT-PARMS.<br />03 KEY-NO-EDIT-PARM OCCURS 2 TIMES.<br />05 KEY-NO PIC X.<br />05 KEY-PARMS PIC X(25).<br />01 FILLER REDEFINES KEY-NO-EDIT-PARMS.<br />03 FILLER PIC X.<br />03 KEY-LITERAL OCCURS 5 TIMES.<br />05 KEY-MAX-LGTH PIC S99.<br />05 KEY-MIN-LGTH PIC S99.<br />05 KEY-TYPE PIC X.<br />```** <br />The Heading Line is to be used on the Browse screens (LOC, SCN, and FND). It contains the Locate Heading literal (cont.)<br />provided by the Developer using the SCDLST, SCDCHG Functions online. If the Developer did not give any Locate Headings (cont.)<br />then MMPCREAT would have generated its own from the Cobol data names of the fields being displayed (with the standard (cont.)<br />Element-Name prefix stripped off).<br />The Key Editing Parms were generated from the definition for the key (VACK1) on the KYF file. They control the logic (cont.)<br />and processing of the Normalize-Key routines which edit and reformat the entered key into proper format to read the (cont.)<br />file with.<br />## <br />Short List<br />| ```<br />**<br />01 WS-SHORT-LIST-PAGE-MSG<br />* 03 FILLER PIC X(3) VALUE '(# '.<br />03 WS-SL-THIS-ITEM PIC 99 VALUE ZERO.<br />* 03 FILLER PIC X(4) VALUE ' of '.<br />03 WS-SL-LAST-ITEM PIC 99 VALUE ZERO.<br />* 03 FILLER PIC X(3) VALUE ' of'.<br />03 WS-SHORT-LIST-HDG.<br />05 FILLER PIC X(17) VALUE<br />* ' Short List from '.<br /><br />next: genmmp04.md.txt