after the extended figures have been computed, we must add the extended figures to their corresponding "ALL" fields. We (cont.)<br />also must bypass displaying each individual employee's VAC data, and display only the final totals.<br />There are strategically placed *Insertion Points *which make all this quite easy and straight forward.<br />**<br />NOTE:<br />**<br />Once you have become more familiar with MAGEC's online editor facility, you will be able to reduce your work by using (cont.)<br />the duplication and copying features. For example, in this step of the tutorial project you could copy lines 01 through (cont.)<br />04 from the pre-existing text and paste them just below, starting on line 05. (Line numbers are shown on the right (cont.)<br />margin of the screen). To copy lines you would overtype the line numbers with a "CC" to indicate the starting and (cont.)<br />ending lines to be copied, then press the PF16 key. To paste those lines you would position the cursor to the first (cont.)<br />blank line after the existing text (line 05), and press PF17. You could then modify the newly pasted lines and press (cont.)<br />ENTER to update. You could also type more lines of text below them.<br />If you wished to copy only one line it is not necessary to type "CC" over any of the line numbers, you simply place the (cont.)<br />cursor onto the line to be copied and press PF16. PF16 and PF17 are the standard copy/paste keys throughout MAGEC, they (cont.)<br />work in your generated applications as well.<br />| ```<br />**<br />ALGNXT 600/VARSTOR<br />SEARCH ARG:..................................................................<br />Password: M A G E C VARSTOR page<br />CUSTOM ALGORITHM DEFINITION FOR MSK600 (000)<br />add items to VARIABLE STORAGE TAB Option (PF14=ON/OFF): ON<br />....+..;10.;..+;..20....+...30....+..40 ....;+...50....+...60....+...70..<br />05 VACATION-DUE PIC S9(7)V99 COMP-3 01<br />05 SICK-DUE PIC S9(7)V99 COMP-3 02<br />05 COMP-DUE PIC S9(7)V99 COMP-3 03<br />05 TOTAL-DUE PIC S9(7)V99 COMP-3 04<br />;;05 VACATION-DUE-ALL;PIC S9(7)V99 COMP-3 05<br />;;05 SICK-DUE-ALL;PIC S9(7)V99 COMP-3 06<br />;;05 COMP-DUE-ALL;PIC S9(7)V99 COMP-3 07<br />;;05 TOTAL-DUE-ALL;PIC S9(7)V99 COMP-3 08<br />;;05 DISPLAY-LINE. 09<br />;; 07 DISPLAY-TITLE;PIC X(20). 10<br />;; 07 DISPLAY-TOTAL;PIC ZZZ,ZZZ,ZZ9.99-. 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 />Figure 34 -- More Variable-Storage Custom Code<br />## <br />Controlling the Browse Display<br />The %SELECT Insertion Point is provided to allow you to control what will be displayed on the browse screens. All of (cont.)<br />the browse functions (VACLOC, VACSCN, VACFND, and VACTOT) can be controlled by your Custom coding (cont.)<br />here.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Enter the command: ALGADD 600/SELECT/VACTOT/1 . . . press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Press ENTER again to add the code from the screen to the dictionary as customization<br />code--this puts you into "edit mode" rather than "add mode".<br />&nbsp;&nbsp;&nbsp;<br />```** <br />Coding for %SELECT is inserted just before the MMP builds the line of display data for each item (employee).<br />There is an indicator which you can set to tell the MMP to:<br />Bypass displaying this item (B)<br />Simulate END-OF-DATA (E)<br />Process this item normally (P)<br />The name of it is PROCESS-INDICATOR.<br />You are going to enter Custom coding here to bypass displaying any items and accumulate and display the totals (if the (cont.)<br />function is VACTOT). There will be more than one page (15 lines) of coding needed. You will, therefore, add two pages (cont.)<br />of Customization for %SELECT.<br />| ```<br />**<br />ALGADD 600/SELECT/VACTOT/1<br />SEARCH ARG: ................................................................<br />...<br />Password: M A G E C SELECT page<br />New Password: CUSTOM ALGORITHM DEFINITION FOR MSK600 VACTOT (000)<br />SELECTION CRITERIA FOR BROWSES TAB Option (PF14=ON/OFF): ON<br />....+..;10.;..+;..20....+...30....+...40....;+...50....+...60....+...70..<br />if (----function) 01<br />if ------------ greater ---------------- 02<br />move e to process-indicator 03<br />else 04<br />if -------------- = -------------- 05<br />move b to process-indicator. 06<br />07<br />08<br />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 Press PF4 for menu of Named Proformas<br />```** <br />Figure 35 -- Proforma for %SELECT<br />## <br />Custom Browse Display<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Key in the code shown for the first page - press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />The ALGNXT screen will be returned showing your first page of coding.<br />| ```<br />**<br />ALGNXT 600/SELECT/VACTOT/1<br />SEARCH ARG:............................................................<br />......<br />Password: M A G E C SELECT page<br />CUSTOM ALGORITHM DEFINITION FOR MSK600 VACTOT (001)<br />SELECTION CRITERIA FOR BROWSES TAB Option (PF14=ON/OFF): ON<br />....+..;10.;..+;..20....+...30....+...40....+...50....+...60....+...70..<br />IF SFUNCT = 'VACTOT' 01<br />MOVE B TO PROCESS-INDICATOR 02<br />ADD VACATION-DUE TO VACATION-DUE-ALL 03<br />ADD SICK-DUE TO SICK-DUE-ALL 04<br />ADD COMP-DUE TO COMP-DUE-ALL 05<br />ADD TOTAL-DUE TO TOTAL-DUE-ALL 06<br />MOVE 'VACATION DAYS ======' TO DISPLAY-TITLE 07<br />MOVE VACATION-DUE-ALL TO DISPLAY-TOTAL 08<br />MOVE DISPLAY-LINE TO MSK652-SLINE (1) 09<br />MOVE 'SICK DAYS ==========' TO DISPLAY-TITLE 10<br />MOVE SICK-DUE-ALL TO DISPLAY-TOTAL 11<br />MOVE DISPLAY-LINE TO MSK652-SLINE (2) 12<br />MOVE 'COMP DAYS ==========' TO DISPLAY-TITLE 13<br />MOVE COMP-DUE-ALL TO DISPLAY-TOTAL 14<br />MOVE DISPLAY-LINE TO MSK652-SLINE (3) 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 36 -- First Page of Custom Code for %SELECT<br />Next, use ALGADD again to add page 2.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Alter the command to: ALGADD 600/SELECT/VACTOT/2 . . . press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />The %SELECT Proforma will reappear (not shown on opposite page) ready for you to enter more Custom coding to be inserted into the SELECT Insertion Point.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Overkey the Proforma exactly as shown - press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />Again, the ALGNXT screen will display your second page of Custom code. You can page forward and backward to visually scan your coding, by pressing the PF8 and PF7 keys, respectively.<br />**<br />**<br />**<br />NOTE:<br />**<br />After you have keyed in the first page of text (as in Figure 36) you could cause MAGEC to automatically create page 2 (cont.)<br />rather than having to manually type the ALGADD command as above. To do that you would place the cursor anywhere in the (cont.)<br />body of your text, but above line 15, and press PF20. PF20 is the insert key, it causes the screen to "open up" in (cont.)<br />preparation for you to insert more text after the line your cursor was on and before the line following it. When you do (cont.)<br />that on a screen which is already full (all 15 lines used) MAGEC will automatically add another page to contain the (cont.)<br />overflow, even if you do not key any more lines into the opened up screen. Then just pressing ENTER will update the (cont.)<br />member; the last line from page 1 will be overflowed to the new page 2. Now, pressing PF8, or just ENTER again, will (cont.)<br />page forward to page 2. Since you would not be doing the ALGADD function MAGEC would not present the proforma, (cont.)<br />either.<br />**<br />NOTE:<br />**<br />The work field named LIN-CTR is a subscript used by the standard logic when it moves the display lines into the screen. It is also tested in the mainline to determine whether the screen is full.<br />| ```<br />**<br />ALGNXT 600/SELECT/VACTOT/2 Data ADDED to Database<br />SEARCH ARG:............................................................<br />......<br />Password: M A G E C SELECT page<br />CUSTOM ALGORITHM DEFINITION FOR MSK600 VACTOT (002)<br />SELECTION CRITERIA FOR BROWSES TAB Option (PF14=ON/OFF): ON<br />....+..;10.;..+;..20....+...30....+...40....+...50....+...60....+...70..<br />MOVE 'TOTAL DAYS =========' TO DISPLAY-TITLE 01<br />MOVE TOTAL-DUE-ALL TO DISPLAY-TOTAL 02<br />MOVE DISPLAY-LINE TO MSK652-SLINE (4) 03<br />MOVE FIVE TO LIN-CTR 04<br />MOVE 'TOTALS - ALL EMPLOYEES' TO MSK652-SHDG. 05<br />06<br />07<br />08<br />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 />Figure 37 -- Second Page of Custom Code for %SELECT<br />## <br />Recompile and Test<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Press PF15 to exit MAGEC. Resubmit MMPCREAT. Check the listing.<br /><br />next: cstm11.md.txt