CA ADS Batch Sample Applications › Employee-Record Restore Application › Step 3: Define the Dialogs › Dialog RESD3

Dialog RESD3

Dialog RESD3 restores coverage records associated with the restored employee record. If an employee record is read, control passes back automatically to dialog RESD2.

The dialog definition for RESD2 is illustrated below:

The mapin operation and response process are shown below.

Dialog RESD3: Mapin Operation

External field                  Internal field
ARCHIVE-TYPE...................>$RESPONSE
ARCHIVE-COVERAGE-RECORD........>ARCHIVE-COVERAGE-RECORD

Dialog RESD3: Response Process

!**********************************************************************
!*RESD3-RESPONSE                                                      *
!*  -EXECUTED AFTER A COVERAGE RECORD HAS BEEN READ FROM THE          *
!*   ARCHIVE FILE, OR AFTER AN ARCHIVE FILE EOF.  RESD3'S DEFAULT     *
!*   RESPONSE PROCESS.                                                *
!*  -PROCESSES THE COVERAGE RECORD OR EOF CONDITION.                  *
!**********************************************************************
READY USAGE-MODE UPDATE.
!
!
!*************************************************
!*-ON ARCHIVE FILE EOF, MOVE EOF TO WORK-        *
!* ARCFILE-STATUS.                               *
!*-IF THE REQUESTED EMPLOYEE HAS NOT BEEN RE-    *
!* STORED, MOVE 'NOT FOUND' TO WORK-STATUS.      *
!*-RETURN TO RESD1.                              *
!*************************************************
IF $EOF
  DO.
  MOVE 'EOF' TO WORK-ARCFILE-STATUS.
  IF WORK-STATUS NE 'RESTORED'
    MOVE 'NOT FOUND' TO WORK-STATUS.
  ELSE
    NEXT.
  RETURN.
  END.
!
!
!*************************************************
!*-IF WORK-STATUS NE 'RESTORED', THEN THE        *
!* COVERAGE RECORD SHOULDN'T BE RESTORED.        *
!* COVERAGE RECORDS ARE RESTORED ONLY IF         *
!* THEIR ASSOCIATED EMPLOYEE RECORDS ARE ALSO    *
!* RESTORED, AS INDICATED BY WORK-STATUS.        *
!*-INSTEAD, READ THE NEXT ARCHIVE FILE RECORD    *
!*************************************************
IF WORK-STATUS NE 'RESTORED'
  READ TRANSACTION.
!
!
!*************************************************
!*-MOVE THE ARCHIVE COVERAGE RECORD TO THE       *
!* COVERAGE DATABASE RECORD, SET CURRENCY        *
!* ON THE ASSOCIATED EMPLOYEE, AND STORE THE     *
!* RECORD.                                       *
!*-ON ANY DB ERROR, ABORT THE APPL.              *
!*-READ THE NEXT ARCHIVE FILE RECORD.            *
!*************************************************
MOVE ARCHIVE-COVERAGE-RECORD TO COVERAGE.
FIND CALC EMPLOYEE.
STORE COVERAGE.
IF DB-ANY-ERROR
  ABORT TEXT '***DB ERROR ON STORE COVERAGE***'.
READ TRANSACTION.
!
!