Dialog ARCD2 executes when it receives control from ARCD1. ARCD2 archives an employee record.
The dialog definition for ARCD2 is illustrated below:
The premap process and mapout operation are shown below,
Dialog ARCD2: Premap Process
!********************************************************************** !*ARCD2-PM * !* -EXECUTED AT THE BEGINNING OF DLG ARCD2. * !* -ARCHIVES AN EMPLOYEE RECORD. * !* -THE EMP ARCHIVE REC CONSISTS OF THE FOLLOWING FIELDS: * !* -TYPE FIELD (INTERNAL FIELD IS $RESPONSE) * !* -DEPARTMENT ID * !* -OFFICE ID * !* -EMPLOYEE RECORD * !********************************************************************** ! ! !************************************************* !*-MOVE RECORD TYPE TO $RESPONSE. * !************************************************* MOVE 'E' TO $RESPONSE. ! ! !************************************************* !*-RETRIEVE THE EMPLOYEE'S OFFICE AND * !* DEPARTMENT IDS. * !*-ON ANY DATABASE ERROR, ABORT APPL. * !************************************************* OBTAIN OWNER WITHIN OFFICE-EMPLOYEE. IF DB-ANY-ERROR ABORT TEXT 'DB ERROR ON OFFICE OBTAIN'. OBTAIN OWNER WITHIN DEPT-EMPLOYEE. IF DB-ANY-ERROR ABORT TEXT 'DB ERROR ON DEPARTMENT OBTAIN'. ! ! !************************************************* !*-MOVE EMPLOYEE RECORD TO ARCHIVE RECORD * !************************************************* MOVE EMPLOYEE TO ARCHIVE-EMPLOYEE-RECORD. ! ! !************************************************* !*-WRITE THE RECORD, THEN RETURN TO ARCD1. * !************************************************* WRITE TRANSACTION RETURN.
Dialog ARCD2: Mapout Operation
Internal field External field $RESPONSE......................>ARCHIVE-TYPE DEPT-ID-0410...................>ARCHIVE-DEPT-ID OFFICE-CODE-0450...............>ARCHIVE-OFFICE-CODE ARCHIVE-EMPLOYEE-RECORD........>ARCHIVE-EMPLOYEE-RECORD
|
Copyright © 2013 CA.
All rights reserved.
|
|