DEL Function — Delete Record logic flow diagram. Allows an authorised operator to remove a record from the primary Data Class. Processing has two phases: New Transaction Mode (key entry, read, and display for confirmation) and Continuation Mode (operator confirms and the system performs the actual deletion). The referential integrity rule RULDELT is inserted immediately after %DELEDIT. If RULDELT sets the ERROR-FOUND flag, processing follows the error path out of BB400-EDIT-FOR-DELETE rather than proceeding to the actual delete. Entry into the DEL Function (SFUNCT = xxxDEL). The very first execution point for every transaction, regardless of function or mode. %PREINIT is called before VARIABLE-STORAGE is initialised and before TEST-FUNCT / TEST-KEY are set. No 88-level condition names are yet reliable unless SFUNCT is first MOVEd to TEST-FUNCT. Commonly used for database binding (DL/1 PCB scheduling, SQL CONNECT) or to alter the key delimiter character. AA100-CHECK-FUNCTION insert_main.htm#insert001029 MAIN Narrative for function. https://www.magec.com/DOC/genmmp_main.htm#genmmp002007 MAIN Initialisation routine for all MAINT-FUNCTIONs. VARIABLE-STORAGE is set to LOW-VALUES immediately before %INIT executes. Use to initialise custom COMP-3 work fields or other variables defined in %VARSTOR or %DATADEF. BA100-INIT-STORAGE insert_main.htm#insert001016 MAIN Mainline logic for all maintenance functions. https://www.magec.com/DOC/genmmp_main.htm#genmmp004057 MAIN Top of the maintenance mainline. Executed for every MAINT transaction in both modes. Default logic handles PF7/PF8 (browse backward/forward), PF4 (transfer to LOC), PF1/PF2/PF11 (help), PF16/PF17 (copy/paste), and cursor-movement detection. Developers can intercept or override PF-key handling here. insert_main.htm#insert001028 MAIN AAM200-MAINTENANCE-MAINLINE First 10-bytes of Mask Area give Mask ID, Cursor position, Entry key detection (ENTER, CLEAR, PF1, PA1, etc.). TWA-MSK-AREA https://www.magec.com/DOC/genmmp_main.htm#genmmp004025 MAIN Attribute initialisation for MAINT functions only. Fires at the end of the attribute-init routine, just before BA299-EXIT. Developers may override 3270 field attributes or set variable screen headings based on function code, operator ID, or other criteria. BA210-MAINT-SCREEN insert_main.htm#insert001017 MAIN list of 3270 attributes and their meanings. 3270 Attributes https://www.magec.com/DOC/magref_main.htm#MAGREF001001 MAIN Normalises the operator's key entry from SKEY into FILE-KEY, then MOVEs FILE-KEY to NORMALIZED-KEY. %NORMKEY fires after standard editing and reformatting, and only if no key errors were detected. Branching to BA480-BAD-KEY raises the INVALID-KEY condition. insert_main.htm#insert001026 MAIN BA400-NORMALIZE-MAINT-KEY Determines the read path after normalization: New Transaction Mode reads the record fresh by key (non-exclusive); Continuation Mode reads the record for update (exclusive control); Invalid Key blanks the screen. AA800-SEND-SCREEN insert_main.htm#insert001039 MAIN Read the primary Data Class by key (non-exclusive) in new-transaction mode. Default logic: FSTAT to check file status, REDKY to read using NORMALIZED-KEY, then PERFORMs JA100-LOGICAL-JOIN. Also saves the Audit-Stamp for later comparison in %RDUKY. Must exit to AAM440-TEST-RETURN-CODE. AAM410-READ-BY-KEY insert_main.htm#insert001031 MAIN Read the primary Data Class with EXCLUSIVE CONTROL in preparation for delete. Default logic: RDUKY command, then PERFORMs JA100-LOGICAL-JOIN, then compares the current Audit-Stamp against the saved one to detect concurrent updates. Must exit to AAM440-TEST-RETURN-CODE. insert_main.htm#insert001030 MAIN AAM420-READ-BY-KEY-FOR-UPDAT PERFORMed after every primary read. Reads secondary Data Classes and/or computes derived fields to build the MMP's Logical Record. Executed for both MAINT and BROWS functions. Exit via GO TO JA900-RETURN (not JA999-EXIT). MAGEC may auto-generate join code here from Screen Painting definitions or SQL. JA100-LOGICAL-JOIN insert_main.htm#insert001018 MAIN Tests whether the primary read returned a record. NOT FOUND routes to the blank-screen path. Found routes to the new-transaction-vs-continuation mode decision. Mode decision point after a successful read and join. In NEW-TRANSACTION MODE, flow goes to %COMP (BB200-FILL-SCREEN) to display the record for operator confirmation. In CONTINUATION MODE, flow goes to %DELEDIT (BB400-EDIT-FOR-DELETE) to validate the deletion. Fires in NEW-TRANSACTION-MODE after a successful read, when REC-FOUND. Default logic MOVEs all database fields to their corresponding screen fields. %COMP fires at the end, before BB299-EXIT, allowing the developer to translate codes, compute derived display values, or set 3270 colour attributes. BB200-FILL-SCREEN insert_main.htm#insert001005 MAIN AA800-SEND-SCREEN insert_main.htm#insert001039 MAIN Entire BB400-EDIT-FOR-DELETE routine is composed of %DELEDIT logic (no default generated code). Only executed in CONTINUATION-MODE for DEL functions. Developer may check for subordinate records, non-zero balances, or require a specific PF key before allowing deletion. The MAGEC referential integrity rule RULDELT is inserted immediately after %DELEDIT — if either sets FATAL-ERR = E / ERROR-FOUND, the error path is taken. TWA-DB-REQ-SAV holds the saved TWA-DB-REQUEST; do not corrupt it. BB400-EDIT-FOR-DELETE insert_main.htm#insert001007 MAIN Evaluates the result of %DELEDIT and the RULDELT referential-integrity rule. If ERROR FOUND, the delete is suppressed and the flow routes to SEND-SCREEN with an error message. If no error, the flow proceeds to the actual delete. AA800-SEND-SCREEN insert_main.htm#insert001039 MAIN Performs the actual physical deletion of the primary Data Class record. Default logic calls the MAGEC I/O module with the DELET command. Only executed in CONTINUATION-MODE and only when ERROR-FOUND is NOT set. Developer may override to access non-MAGEC files/DBMS. Must exit to AAM750-TEST-RETURN-CODE. insert_main.htm#insert001008 MAIN AAM730-DELETE-FROM-DATABASE Tests the return code from the DELET I/O call. A failure routes to the update-error paragraph; success routes to the good-delete paragraph. Executed when the DELET I/O fails (bad return code from MAGEC I/O module). Default logic: MOVE DB-ERR-MSG to SCOMPL, GO TO AA800-SEND-SCREEN. Developer may attempt custom recovery but this is rarely necessary; true I/O errors are usually handled by MAGEC itself. AAM751-UPDERR insert_main.htm#insert001044 MAIN I/O fail (bad return code from MAGEC I/O module). AAM751-UPDERR insert_main.htm#insert001044 MAIN Executed only after a SUCCESSFUL delete of the primary record. Default logic: MOVE DELETED-MSG to SCOMPL. Developer may update related files, post to a control record, or FETCH to another function/screen after the deletion. Must exit to AA800-SEND-SCREEN or AA900-GOBACK. AAM757-GOODDEL insert_main.htm#insert001015 MAIN Reached when the key is INVALID or the record is NOT FOUND. Default logic MOVEs underscores to all screen variables. %BLNKSCR fires at the very end, allowing the developer to override individual field values, display a custom error message, or look up related data based on any partial key entered. BB100-BLANK-SCREEN insert_main.htm#insert001003 MAIN Last execution point before the MMP returns to MAGECCP. Fired for all functions and both modes. Developer may make final screen adjustments — blanking zero-value fields, highlighting out-of-range values, or massaging SKEY — before the screen is sent or a FETCH command is executed. Exit via GO TO AA900-GOBACK. AA800-SEND-SCREEN insert_main.htm#insert001039 MAIN Last execution point before the MMP returns to MAGECCP. Fired for all functions and both modes. Developer may make final screen adjustments — blanking zero-value fields, highlighting out-of-range values, or massaging SKEY — before the screen is sent or a FETCH command is executed. Exit via GO TO AA900-GOBACK. AA800-SEND-SCREEN insert_main.htm#insert001039 MAIN Absolute last execution point for ALL functions in ALL modes. No default code. Developer may insert final housekeeping — for example, TERMINATE for an IMS PCB. Screen Mask context must be tested before referencing screen fields. AA900-GOBACK insert_main.htm#insert001012 MAIN DEL Function processing complete. Figure 04 - DEL Function