MOVE 'SIF01' TO TWA-ELT-LIST. 04<br />MOVE LOW-VALUES 05<br />TO SIF01-LOVALU. 06<br />MOVE VAC01-EMPNUM 07<br />TO SIF01-EMPNUM. 08<br />MOVE SIF01-MASTER-KEY TO TWA-KEY-VALUE. 09<br />CALL 'MAGECSET' USING TWA-DB-AREA-A SIF01-ELEMENT. 10<br />PERFORM AA840-CALL-MAGEC-IO THRU AA899-EXIT. 11<br />IF (NOT-FOUND) 12<br />MOVE SPACES TO SIFO1-ELEMENT 13<br />GO TO JA900-RETURN. 14<br />15<br />Move CURSOR to a line, use ERASE EOF to Delete it -or- PF20 to Insert After it<br />Semicolon (;) is the TAB Character Asterisk (*) in col. 1 = suppress upcase<br />Press PF24 for Instructions<br />```** <br />Figure 07 -- Code Created by Automatic Logical Join<br />## <br />Coding Computations<br />The MAGEC Online Librarian permits you to use the semicolon ( ; ) as a TAB character. On the ruler line you will notice (cont.)<br />semicolons showing where the TAB positions are set. You could just key semicolons on the ruler line, overriding the (cont.)<br />ones that are shown, to alter the TAB position to suit yourself. There is no need to do that now, (cont.)<br />though.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Key in the coding exactly as shown and press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />The semicolons will cause your coding to be aligned to the pre-set TAB positions (columns 12, 16, etc.). It is not (cont.)<br />necessary for you to use the TAB's; you could just space over to the desired column. TAB's make entering Cobol coding a (cont.)<br />little easier, though.<br />| ```<br />**<br />ALGNXT 600/JOIN/01-SIF/000 Press ENTER to Update<br />SEARCH ARG:............................................................<br />......<br />Password: M A G E C JOIN page<br />CUSTOM ALGORITHM DEFINITION FOR MSK 600 01-SIF (000)<br />Logical Join - secondary files TAB Option (PF14=ON/OFF): ON<br />....+..;10.;..+;..20....+...30....+...40....;+...50....+...60....+...70..<br />IF (NOT-FOUND) GO TO JA900-RETURN. 01<br />;;COMPUTE VACATION-DUE = 02<br />;;;VAC01-EARNED-VACATION - VAC01-TAKEN-VACATION. 03<br />;;COMPUTE SICK-DUE = 04<br />;;;VAC01-EARNED-SICK-DAYS - VAC01-TAKEN-SICK-DAYS. 05<br />;;COMPUTE COMP-DUE = 06<br />;;;VAC01-EARNED-COMP-DAYS - VAC01-TAKEN-COMP-DAYS. 07<br />;;COMPUTE TOTAL-DUE = 08<br />;;;VACATION-DUE + SICK-DUE + COMP-DUE. 09<br />10<br />11<br />12<br />13<br />14<br />15<br />Move CURSOR to a line, use ERASE EOF to Delete it -or- PF20 to Insert After it<br />Semicolon (;) is the TAB Character Asterisk (*) in col. 1 = suppress upcase<br />Press PF24 for Instructions<br />```** <br />** NOTE: The semicolon (;) is the tab character. You can set the tab positions merely by typing semicolons into the (cont.)<br />ruler line which is immediately above the first line of Cobol code. The default positions for the tabs are oriented to (cont.)<br />most Cobol programmers' preferences. You can adjust according to your own taste. To remove a tab position, just (cont.)<br />overtype the semicolon in the ruler line with any other character, such as a dot (.).<br />Figure 08 -- Inserting More Custom Coding in %JOIN<br />## <br />New Customized %JOIN Algorithm<br />Notice that the display now shows your new Cobol coding inserted into the old code, just like you intended it to be. (cont.)<br />When you inserted your new code, MAGEC had to add another "page" to the %JOIN member since there are now more lines of (cont.)<br />code than can fit onto one "page". Each "page" holds 15 lines, one screenful. If you wish to see the rest of the Cobol (cont.)<br />code you can press PF8 to page forward.<br />| ```<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Press PF12 (Shift-F2, on a PC) now to return to the TSKLST.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />| ```<br />**<br />ALGNXT 600/JOIN/01-SIF/000<br />SEARCH ARG:............................................................<br />......<br />Password: M A G E C JOIN page<br />CUSTOM ALGORITHM DEFINITION FOR MSK 600 01-SIF (000)<br />Logical Join - secondary files TAB Option (PF14=ON/OFF): ON<br />....+..;10.;..+;..20....+...30....+...40....;+...50....+...60....+...70..<br />IF (NOT-FOUND) GO TO JA900-RETURN. 01<br />COMPUTE VACATION-DUE = 02<br />VAC01-EARNED-VACATION - VAC01-TAKEN-VACATION. 03<br />COMPUTE SICK-DUE = 04<br />VAC01-EARNED-SICK-DAYS - VAC01-TAKEN-SICK-DAYS. 05<br />COMPUTE COMP-DUE = 06<br />VAC01-EARNED-COMP-DAYS - VAC01-TAKEN-COMP-DAYS. 07<br />COMPUTE TOTAL-DUE = 08<br />VACATION-DUE + SICK-DUE + COMP-DUE. 09<br />MOVE REDKY TO TWA-DB-KEY-CMD. 10<br />MOVE 'SIFK1' TO TWA-DB-KEY-NAME. 11<br />MOVE 'SIF01' TO TWA-ELT-LIST. 12<br />MOVE LOW-VALUES 13<br />TO SIF01-LOVALU. 14<br />MOVE VAC01-EMPNUM 15<br />Move CURSOR to a line, use ERASE EOF to Delete it -or- PF20 to Insert After it<br />Semicolon (;) is the TAB Character Asterisk (*) in col. 1 = suppress upcase<br />Press PF24 for Instructions<br />```** <br />Figure 09 -- New Customized %JOIN Algorithm<br />## <br />Adding Fields to Mask<br />Next you must return to the "manual" Screen Painting function to add four new screen fields to Mask 600. The four new fields are to display the four calculated figures.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Position the cursor down to PAINT SCREEN, and press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />You will be immediately transferred to the MSKDEF screen.<br />| ```<br />**<br />TSKLST 600 PF8 = next page -- PF5 = Page 1<br />M A G E C TASK LIST FOR MSK600<br />...............T A S K......................... PAGE 1 .....STATUS......<br />I. DEFINE APPLICATION TO DICTIONARY<br />1. DEFINE SCREEN HEADER DONE<br />2. DEFINE MMP DONE<br />II. VERIFY THAT FILES/DATABASE ARE DEFINED<br />1. DEFINE MASTER KEY & NORMALIZATION RULES DONE<br />2. DEFINE SUBORDINATE KEY(S) NOT DONE<br />III. DEFINE SCREENS<br />_1. PAINT SCREEN / DEFINE MASK DETAIL 29 DONE<br />2. SELECT FIELDS FOR LOCATE SCREEN 5 DONE<br />3. SPECIFY LOCATE HEADINGS 5 DONE<br />4. GENERATE MASK (EXECUTE MSKCREAT) DONE<br />IV. CODE CUSTOMIZATION ALGORITHMS<br />A. DATA DIVISION<br />1. DATA DEFINITIONS %DATADEF 1 DONE<br />2. ADD/MODIFY FUNCTION CODES %FUNCT DEFAULT LOGIC USED<br />3. MODIFY (MODMAINT) FUNCTION CODES %FUNCTM DEFAULT LOGIC USED<br />Position the Cursor on an Item and Press ENTER to Select it, Press PF2 for<br />Item Description -OR- PF1 FOR HELP<br />KEY = MASK NUMBER<br />```** <br />Figure 10 -- Task List Screen, page 1<br />## <br />Manual Screen Painting<br />Mask 600 will be displayed. On the MSKDEF screen you can make any changes or additions that you wish. You can modify or (cont.)<br />delete existing screen fields or you can add new ones by simply drawing them just as you want them to (cont.)<br />look.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Turn to the next page in this book.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />| ```<br />**<br />MSKDEF 600 Press PF10 to MSKCREAT<br />Date:@ > @VACATION/SICK/COMP DAYS> @Time:@XX:XX:XX><br />@Emp#@999-99-9999><br />@First Name@---------------><br />@Last Name@------------------------><br />@Hire Date@--------><br />@Earned Vacation@----------><br />@Vacation Taken@----------><br />@Sick Days Earned@----------><br />@Sick Days Taken@----------><br />@Comp Days Earned@----------><br />@Comp Days Taken@----------><br />@Comments (3 lines)@----------------------------------------------><br />@----------------------------------------------><br />@----------------------------------------------><br />MAGEC SCREEN PAINTER (PFKEYS) --FIELD: 18=CHG 19=DEL 20=DUP 21=MOVE<br />LAST GEN=93 08 05 --LINE: 4=DUP 5=ERASE 6=MOVE 13=DEL 15=INS<br />LAST UPD=93 06 22 2494 BYTES MAX, 1016 USED, 1478 LEFT PF24=POP-UP HELP<br />```** <br />Figure 11 -- Mask 600 Displayed<br />## <br />Drawing New Fields onto MSKDEF<br />You can use the symbols < and > to show where each new field starts and ends respectively. If one field immediately (cont.)<br />follows another then you do not need to "stop" the first one since MAGEC knows that they are not allowed to overlap and (cont.)<br />it assumes that the first one ends before the following one starts.<br />When you draw the fields, you can just key in the actual literal value you wish them to contain (for screen headings (cont.)<br />and constants). If you draw them with all X's or all 9's then MAGEC assumes that they are to be "variable"* (enterable, (cont.)<br />unprotected) fields and changes the X's or 9's to underscores as well as setting appropriate Attributes, etc. If you (cont.)<br />draw the field using a literal value (such as Due, in the example), MAGEC assumes that the field is a *constant* (cont.)<br />(non-enterable, protected), rather than a variable.<br />There are many more things you can do on MSKDEF. For full instructions you can press the HELP key (PF1).<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Draw the 8 new screen fields exactly as shown on the opposite page.<br />Each variable field consists of thirteen 9's. Then press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />You could draw the new fields one at a time or all at once. There are eight (8) new fields, four constants and four (cont.)<br />variables. We will want to make these variables display-only, so we will need to modify the Attribute from what MSKDEF (cont.)<br />defaulted to. We also need to specify the database source/target names for these variables. They will be the work (cont.)<br />fields we defined earlier in %VARSTOR.<br />**<br />NOTE:<br />**<br />You might say that we have created "virtual database fields" in this exercise since we have defined four work fields (cont.)<br />and, in %JOIN, we computed into them. The program logic can now treat them as if they were actually part of the input (cont.)<br />data.<br />In the basic application development process we let the Automatic Logical Join feature "logically join" the SIF01 (cont.)<br />Element from the SIF Data Class to the data from the Primary Data Class (VAC). Now you have logically joined some (cont.)<br /><br />next: cstm04.md.txt