virtual database fields to it.<br />The result is a "Logical Record" made up of data from the VAC and SIF Data Classes (two files) and some work fields. (cont.)<br />The MMP will use the Logical Record as if it were one large record read from one file. You could easily have joined (cont.)<br />many more Elements of data from other Data Classes which might even use other access methods. Your MMP's are very (cont.)<br />highly isolated from the physical attributes of your database.<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@----------> < Due< 9999999999999><br />@Sick Days Earned@----------><br />@Sick Days Taken@----------> < Due< 9999999999999><br />@Comp Days Earned@----------><br />@Comp Days Taken@----------> < Due< 9999999999999><br />@Comments (3 lines)@----------------------------------------------><br />@----------------------------------------------><br />@----------------------------------------------><br />< Total Days Due< 9999999999999><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 12 -- Drawing New Screen Fields<br />**<br />NOTE:<br />**<br />If your browser is displaying a space after each less-than symbol above, ignore it--there is no space!<br />## <br />MSKDEF Recognizes Your New Fields<br />Notice that MSKDEF recognized the newly drawn fields and added the definitions for them to the Dictionary. It also re-drew the Mask to show you how it now looks.<br />The "Attribute positions" for the new fields have been altered from the < symbol which you keyed to either the<br />d was a constant then the iel<br />le then the | symbol appears. The | symbol indicates that this is a "virgin variable", one which has been added but whose field characteristics have not yet been updated.<br />The default field characteristics which MAGEC sets for screen constants are almost always 100% correct and need no modification. You can, of course, modify them if you like.<br />The default characteristics MAGEC sets for new screen variables often need to be reviewed and modified or added to by (cont.)<br />you. That is why the virgin variables are brought to your attention by the | symbol and the cursor "homes" to them. (cont.)<br />Notice the cursor position.<br />The "homing" cursor makes it easy for you to select the new variables to change their characteristics.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />With cursor on first new variable, press PF18.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />You have selected the first variable for change.<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@----------> @Due|-------------><br />@Sick Days Earned@----------><br />@Sick Days Taken@----------> @Due|-------------><br />@Comp Days Earned@----------><br />@Comp Days Taken@----------> @Due|-------------><br />@Comments (3 lines)@----------------------------------------------><br />@----------------------------------------------><br />@----------------------------------------------><br />@Total Days Due|------------><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, 1151 USED, 1343 LEFT PF24=POP-UP HELP<br />```** <br />Figure 13 -- Virgin Variables Displayed<br />## <br />Updating Field Characteristics<br />The pop-up windoiw now shows the field characteristics for the selected field. You can overkey any of them to change them. You can even change the ROW and COLumn to move the screen field.<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Notice the pop-up window -- turn to next page in this book.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />| ```<br />**<br />MSKDEF 600 -- HIT ENTER TO CHANGE --<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@----------> @Due|-------------><br />@Sick Days Earned@----------><br />@Sick Days Taken@----------> @Due|-------------><br />@Comp Days Earned@----------><br />@Comp Days Taken@----------> @Due|-------------><br />@Comments (3 lines)@----------------------------------------------><br />@----------------------------------------------><br />@----------------------------------------------><br />@Total Days Due|-------------><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, 1151 USED, 1343 LEFT PF24=POP-UP HELP<br />```** <br />*<br />Figure 14 -- Selected Field's Default Characteristics<br />You will now change the specifications for the first variable to:<br />1) Give it a Cobol name: SVACDUE<br />2) Alter its Attribute to Skip-protected: SADRNF<br />3) Alter its Edit-Type to: "<br />" (minus-sign)<br />4) Define its dimensions: PIC S9(7)V9(2)<br />5) Define it as an "optional" field.<br />6) Specify its Source/Target: VACATION-DUE<br />| ```<br />**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Key the specifications as shown, press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />**<br />NOTE:<br />**<br />If you are using MAGEC in a GUI (Graphical User Interface) environment, the pop-up windows can be dragged (using the (cont.)<br />mouse) to anywhere on the screen. In a character (text) environment, the pop-up window appears in a fixed position and (cont.)<br />cannot be moved using a mouse.<br />| ```<br />**<br />MSKDEF 600 -- HIT ENTER TO CHANGE --<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@----------> @Due|-------------><br />@Sick Days Earned@----------><br />@Sick Days Taken@----------> @Due|-------------><br />@Comp Days Earned@----------><br />@Comp Days Taken@----------> @Due|-------------><br />@Comments (3 lines)@----------------------------------------------><br />@----------------------------------------------><br />@----------------------------------------------><br />@Total Days Due|-------------><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, 1151 USED, 1343 LEFT PF24=POP-UP HELP<br />```** <br />** <br />Figure 15 -- Modified Field Characteristics<br />## <br />Modify Remaining 3 Fields' Characteristics<br />Notice that you specified a Cobol screen field name of: SVACDUE and the SOURCE/TARGET field is VACATION-DUE. If you had (cont.)<br />not given any screen field name then MAGEC would generate a unique name for that field using the ROW and COLumn numbers (cont.)<br />(for example: S10-037). If you do not intend to see the Cobol compiler listing then you may not mind the "ugly" (cont.)<br />generated name. If you expect to sometimes look at the listing then you will likely prefer to give your own symbolic (cont.)<br />names to screen fields. In this exercise we will always give our own names to the variable fields. The screen constants (cont.)<br />need no names since the MMP never will reference them.<br />For consistency we will use the following names:<br />"screen field&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"source/target<br />SVACDUE VACATION-DUE<br />&nbsp;<br />&nbsp;<br />SSICDUE SICK-DUE<br />&nbsp;<br />&nbsp;<br />SCMPDUE COMP-DUE<br />&nbsp;<br />&nbsp;<br />STOTDUE TOTAL-DUE<br />&nbsp;<br />&nbsp;<br />Notice that the Attribute position for the screen variable you just modified now appears as @. The cursor is positioned (cont.)<br />at the next new variable to prompt you to select it and update its characteristics.<br />| ```<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Select and update the other three screen variables using the appropriate screen field<br />names and source/target names. The attributes for each are the same as for the field<br />SVACDUE. Press PF18 for the next field, update it and, repeat for remaining two variables.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />**<br />**<br />**<br />**<br />**<br />NOTE:<br />**<br />In order to acquaint you with some of the details about updating the screen field characteristics we had you do this (cont.)<br />the "hard way". Instead of just drawing: and then having to modify so many field characteristics you could have used a (cont.)<br />Cobol-like edit pattern, such as: Z,ZZZ,ZZZ.99- and MAGEC would have interpreted it and set the Edit-type, Significant (cont.)<br />Digits, and Decimal Places correctly for you. You would still need to specify the Source/Target and the screen field (cont.)<br />name (optional).<br />You could also have saved even more work by drawing and entering specifications for only the first variable field (cont.)<br />(SVACDUE), then using the field duplicate key (PF20) to copy it 3 times, making the appropriate changes to the (cont.)<br />specifications as you do the duplication.<br />| ```<br />**<br />MSKDEF 600 ++ FIELD DATA CHANGED ++<br />Date:@ > @VACATION/SICK/COMP DAYS> @Time:@XX:XX:XX><br />@Emp#@999-99-9999><br />@First Name@---------------><br />@Last Name@------------------------><br /><br />next: cstm05.md.txt