| <br />PF10 | go to Auto-Paint sequence<br />| **<br />PF Keys (in PAINT2)<br />** <br />| <br />ENTER | select item<br />| <br />PF4 | unselect item<br />| <br />PF10 | unselect all items<br />| <br />PF3 | return to PAINT1 (Element selection)<br />| <br />PF6 | Auto-Paint using selected items<br />| **<br />PF Keys (in DBDITO, DBUTIL)<br />** <br />| <br />PF22 | display next 280 bytes of data<br />| <br />PF23 | display preceding 280 bytes of data<br />| <br />PF8 | read next record and display<br />| <br />PF7 | read previous record and display<br />| **<br />PF Keys (in LBRxxx and ALGxxx)<br />** <br />| <br />PF7 | page backwards thru member<br />| <br />PF8 | page forward thru member<br />| <br />PF20 | insert after line on which cursor is<br />| <br />ERASE&nbsp;EOF | delete from cursor position to EOL<br />(blank lines are deleted automatically)<br />| <br />PF5 | bypass warning-level error<br />| **<br />PF Keys (in PAINT1)<br />** <br />| <br />PF14 | bypass warning-level error, continue to PAINT2<br /># <br />Universal Functions<br />## <br />Logical Application 00's Functions<br />[](#MAGREF004000)<br />[](#MAGREF006000)<br />These functions are universal throughout MAGEC and are used by the Developers as well as by the Application Users. They (cont.)<br />are in Logical Application 00 and appear on the Menu screens of all the other (01 - 50) Logical (cont.)<br />Applications.<br />| <br />**DUAL | Split the Screen<br />| <br />**MENU | High-Level Menu screen<br />| <br />$$MENU | Detail Menu screen for a LAP<br />| <br />**ERR1 | Display HELP (same as pressing PA2)<br />| <br />**SWAP | Swap Windows (same as pressing PF11)<br />| <br />**EXIT | Exit Split-screen mode or Exit MAGEC<br />| <br />**HELP | Menu'd access to documentation online (same as pressing PF9)<br />| <br />MSGSEE | Display Broadcast Message<br />| <br />CLEARS | &quot;Clear screen&quot; by displaying logo<br />| <br />SYSLOG ON | Log onto MAGEC<br />| <br />SYSLOG OFF | Log off of MAGEC<br />| <br />OPTION | set/alter session option for CLEAR key and PA1 key meanings<br /># <br />Program to Program Linkages<br />[](#MAGREF005000)<br />[](#MAGREF007000)<br />## <br />To CALL a Sub-Task MMP<br />MOVE 'nnn' TO TWA-NONTP-MMP.<br />PERFORM AA850-SUB-CALL THRU AA899-EXIT.<br />where 'nnn' is the MMP number of the sub program. Control will return to the next-sequential-instruction after the (cont.)<br />PERFORM. The TWA will be passed from the calling MMP to the sub-program and back. It can be used as the medium of (cont.)<br />communication between them.<br />## <br />To Chain Functions (Screens)<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST.<br />MOVE 'xxxxxx' TO SFUNCT.<br />GO TO AA900-GOBACK.<br />where 'xxxxxx' is the six-character Function Code you wish to transfer to. The entire TWA and all Mask data is passed (cont.)<br />to the "fetched" MMP intact. You can also move a value into the Screen Key field (SKEY) to be passed to the fetched (cont.)<br />MMP. It is also permissable for the Function Code specified to be one of the functions handled by this same MMP; for (cont.)<br />instance VACLOC could legally fetch to VACSEE. Indeed, when you use the Cursor-selection feature of VACLOC that is (cont.)<br />exactly what happens.<br />## <br />To Fetch a Specific MMP<br />MOVE FTH-CMD TO TWA-NONTP-REQUEST.<br />MOVE 'mmm' TO TWA-NONTP-MMP.<br />GO TO AA900-GOBACK.<br />where 'mmm' is the MMP number of the program to be fetched.<br /># <br />Miscellaneous Customization<br />[](#MAGREF006000)<br />[](#MAGREF008000)<br />## <br />To Initialize TWA-MSK-AREA<br />MOVE MSK-CMD TO TWA-TP-REQUEST.<br />MOVE 'nnn' TO TWA-TP-TRM.<br />PERFORM AA800-CALL-MONITOR THRU AA899-EXIT.<br />IF (GET-MSK-ERR)<br />&nbsp; &nbsp; PERFORM BB800-MSK-ERR-MSG THRU BB899-EXIT<br />&nbsp; &nbsp; GO TO AA800-SEND-SCREEN.<br />where nnn = the desired Mask number.<br />## <br />To Fetch the Clear (Logo) Screen<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST.<br />MOVE CLEAR-FUNCT TO SFUNCT.<br />GO TO AA900-GOBACK.<br />You must not GO TO AA900-GOBACK from within a PERFORM'ed routine. For a thorough explanation refer to [IBM's (cont.)<br />discussions on reentrancy and multi-thread applications in (cont.)<br />CICS](https://www.ibm.com/docs/en/cics-ts).<br />## <br />To Fetch Clear Screen with Message<br />MOVE MSG-LIT TO TWA-TP-OP.<br />MOVE message TO TWA-MSK-AREA.<br />MOVE FTH-FUNCT TO TWA-NONTP-REQUEST.<br />MOVE CLEAR-FUNCT TO SFUNCT.<br />GO TO AA900-GOBACK.<br />where 'message' is any 40-character literal.<br /># <br />Editing & PF Keys<br />[](#MAGREF007000)<br />[](#MAGREF009000)<br />## <br />To Code a Field Edit/Validation<br />IF Sfield -----error condition---------<br />&nbsp; &nbsp; MOVE E TO SfieldE<br />&nbsp; &nbsp; MOVE 'nnn' TO ERROR-NUMBER<br />&nbsp; &nbsp; PERFORM CA100-LOAD-ERR-CODE-TBL THRU CA199-EXIT.<br />where Sfield = the name of a screen field, 'nnn' = an Error Number that is defined on the MAGECERR file. In the %EDIT (cont.)<br />Insertion Point this code will cause the MMP to bypass updating the file(s) and just return to MAGECCP to have the (cont.)<br />Error Messages issued.<br />If you wish to flag a non-fatal (warning level) error, code:<br />IF Sfield -----error condition---------<br />&nbsp; &nbsp; MOVE E TO SfieldE<br />&nbsp; &nbsp; MOVE 'nnn' TO ERROR-NUMBER<br />&nbsp; &nbsp; PERFORM CA400-LOAD-WARNING-TO-TBL THRU CA499-EXIT.<br />The above code will allow the MMP's updating to occur but will tell MAGECCP to also* place the specified Warning Message into the screen.<br />## <br />To Add an Error Message<br />| ```<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DO THIS:<br />Enter the command: ERRADD nnn - press ENTER.<br />&nbsp;&nbsp;&nbsp;<br />```** <br />The ERRADD screen will be presented. You must enter two things.<br />1) 33-character Error Message<br />2) 4-line (320-character) Narrative "HELP" text<br />## <br />To Test Which Key Was Hit<br />IF (TWA-MSK-PF5-HIT) .....<br />IF (TWA-MSK-ENTER-HIT) .....<br />IF (TWA-MSK-PF10-HIT) .....<br />- et cetera<br />You can do this at any time in the processing logic. There is an 88-level value under TWA-MSK-AID for every possible key.<br /># <br />Insertion Points<br />## <br />Where to do Customization<br />[](#MAGREF008000)<br />[](#MAGREF009002)<br />Below is a list of the Customization Insertion Points where you can enter Custom coding. Beside each is a brief list of some of the most common types of coding done there.<br />| <br />%REMARKS | comments to be inserted into the REMARKS section of the Cobol MMP<br />| <br />%LITERAL<br />or<br />%LOCLITS | WORKING-STORAGE constants with VALUE clause<br />| <br />%DATADEF | MAGECINC's for secondary Data-Class's elements. work areas to be saved or passed to another (FTH'd) function (MMP) or to the next transaction at this terminal.<br />| <br />%FUNCT | code to override the standard list of Function codes for this MMP.<br />| <br />%VARSTOR | definitions of work fields to be used by the MMP. these will be inserted into the VARIABLE-STORAGE area of (cont.)<br />the TWA and will be initialized to LOW-VALUES immediately upon entry of each transaction. data in this area (or (cont.)<br />%LOCVARS) this area cannot be passed to another MMP or transaction, it is not saved.<br />| <br />%PFKEYL | code to be inserted at the very start of<br />the mainline logic for browse functions. possibly to test for PF keys or to alter the key value that the Operator entered; maybe to prefix a Client#, etc..<br />| <br />%LOCKY | code to override the logic used to start a browse (generically), possibly to force a certain starting key (cont.)<br />value, possibly to code the I/O access bypassing the MAGEC I/O module (Primary Data-Class).<br />| <br />%REDLE | code to override the logic for reading the first record after starting a browse via the %LOCKY coding (Primary Data-Class).<br />| <br /><br />next: magref03.md.txt