88 NOT-FOUND VALUE '14'. 88 DUP-ERROR VALUE '10'. 88 GET-MSK-ERR VALUE '01' THRU '99'. 88 FILE-CLOSED VALUE '01' THRU '13' '15' THRU '99'.. 05 FILLER PIC X(61). ```** You may want to refer to the MAGEC "Database Administration" chapter for more information regarding the use of the MAGEC I/O module. These areas are discussed there. TWA-ELT-LIST is where the MMP (and your Customization) sets the Element Names of the Elements it wants to read or (cont.) write. Since the list is terminated by an Element Name of spaces you may read or write up to 15 Elements in a single (cont.) request, the 16th being reserved for the dummy "stopper" of spaces. The TWA-ELT-SECURITY fields should be left blank (cont.) (space). TWA-ERR-CODES is where the MMP, or MAGEC Automatic Editing, sets the list of up to six (6) Error numbers to be (cont.) displayed to the Operator. These are normally set in the CA100-LOAD-ERR-CODE-TBL routine which is PERFORMed by your (cont.) Custom Editing when errors are detected in the Operator's entries. TWA-KEY-VALUE is where the MMP sets the actual file key to be used to read the file. MAGECIO expects it to be here when it is called. TWA-DB-REQUEST is the area in which the MMP "builds" its request to be passed to MAGECIO. Some areas within it are used (cont.) by MAGECIO or the Access Method software to save information between requests. You should use this area as described in (cont.) the "Database Administration" chapter. | ``` ** 03 TWA-IO-REC. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ELT00-C,COPY * * THIS IS THE Cobol DEFINITION OF THE DATABASE * * AUDIT STAMP ELEMENT WHICH IS COMMON TO ALL FILES. * * IT IS MAINTAINED BY THE MAGEC I/O MODULE. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 04 AUDIT-STAMP. 05 AS-FILE-NAME PIC X(3). 05 AS-DATE-TIME. 07 AS-DATE-UPDATED. 09 AS-YY PIC XX. 09 AS-MM PIC XX. 09 AS-DD PIC XX. 07 AS-TIME-UPDATED. 09 AS-HH PIC XX. 09 AS-MN PIC XX. 09 AS-SS PIC XX. 05 AS-TERM-LAST-UPDATED PIC X(4). 05 AS-OPER-LAST-UPDATED PIC X(3). 05 AS-PROGRAM-LAST-UPDATED PIC X(8). 05 AS-EMPNO PIC S9(9) COMP. 05 AS-FILLER PIC X. 05 AS-INACTIVE-FLAG PIC X. 88 AS-INACTIVE-RECORD VALUE HIGH-VALUE. * * * END OF ELT00-C 03 TWA-LONG-KEY. 05 TWA-KEY-1ST-36 PIC X(36). 05 TWA-KEY-REMAIN PIC X(64). 03 TWA-DB-DATA. * * * * * * * * * * * * * * * * * * * * * * * * * * * * THE -MAGECINC STMTS TO INCLUDE THE DEFINITIONS * * FOR THE DB ELEMENTS TO BE USED BY THE PROGRAM * * ARE TO BE INSERTED BEHIND HERE. * * * * * * * * * * * * * * * * * * * * * * * * * * * * ```** TWA-IO-REC is a 36-byte area used to hold the Audit Stamp data if the Data Class accessed is specified for Audit (cont.) Stamping. The copybook ELT00-C is automatically included into it to define the Audit Stamp. You may interrogate the (cont.) Audit Stamp but are not allowed to modify it. You are also not allowed to update the Audit Stamp Element of any Data (cont.) Class, MAGECIO handles all maintenance of Audit Stamps. TWA-LONG-KEY is an obsolete field which was used to hold keys longer than 36 bytes in previous versions of MAGEC. TWA-KEY-VALUE now supports keys up to 256 bytes long. TWA-DB-DATA is the area in which the MMPCREAT process inserts the copybook "includes" for your Elements specified in (cont.) the SHD definition and in the Automatic Logical Join process. The size of this area depends on the sizes of the (cont.) Elements defined here. Next you will see the VAC01 Element definition expanded in TWA-DB-DATA and the insertion point defined for you to add your own additional definitions or -MAGECINC's. | ``` ** * * * THIS COPYBOOK GENERATED BY "DITGEN" * * * FROM TEST VERSION 25/06/01 13:00:08 * * * PRIMARY KEY FIELD IS VAC01-KEY 04 VAC01-ELEMENT PIC X(00198). 04 FILLER REDEFINES VAC01-ELEMENT. KEY==> 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). 06 SIF01-TERMINATION-DT4-YY PIC X(00002). 06 SIF01-TERMINATION-DT4-MM PIC X(00002). 06 SIF01-TERMINATION-DT4-DD PIC X(00002). 05 SIF01-STACK-OPTION PIC X(00001). 05 FILLER PIC X(00047). * * MAGEC-GENERATED, DO NOT ALTER *the above line is repeated several times!* * * * CUSTOM ALGORITHM %DATADEF ENDS HERE ```** **The %DATADEF insertion point allows you to add any of your own additional data definitions behind the ones (cont.) automatically generated. The most common way to insert additional data definitions is simply to put -MAGECINC (cont.) statements in %DATADEF to include more copybooks from the MAGEC Library. The automatic screen painter and automatic logical join facilities generate the first page of %DATADEF with whatever (cont.) -MAGECINC statements are necessary for them. They fill the remainder of that first page with comments telling you not (cont.) to modify it since that page will be re-generated if you re-do the automatic process. You can add subsequent pages as (cont.) you desire. It is permissible for you to insert a Cobol 03 level into %DATADEF so that your additional data definitions are not (cont.) actually within the TWA-DB-DATA area. One reason for doing this is because the standard code in the generated MMP will (cont.) MOVE SPACES TO TWA-DB-DATA to initialize the area before building the Elements to be Added on an ADD Function. You may (cont.) not want your data definitions initialized. For example: 03 FILLER. -MAGECINC xxxxx-C (your additional data definition) This area is just behind the Element data definition area and they are used to hold data which will be passed from (cont.) transaction to transaction. These areas are not initialized by the MMP like the VARIABLE-STORAGE areas below (cont.) are. | ``` ****** VS-MARKER IS TO DETECT CLOBBERING OF TWA SAVED DATA ****** BY READING LONGER DATA THAN EXPECTED, ETC. 03 VS-MARKER PIC X(6). 03 TWA-SV-M-SUB PIC S9(4) COMP SYNC. 03 TWA-SHORT-LIST-SOURCE PIC X(6). 03 TWA-SAVE-MST-KEYS-AREA. Next: https://magec.com/DOC/markdown/genmmp03.md.txt