Dialog ARCD3 executes when it receives control from ARCD1. ARCD3 archives all coverage records associated with the employee record being archived.
The dialog definition for ARCD3 is illustrated below:
The premap process and mapout operation are shown below.
Dialog ARCD3: Premap Process
!********************************************************************** !*ARCD3-PM * !* -EXECUTED AT THE BEGINNING OF DLG ARCD3. * !* -ARCHIVES ALL ASSOCIATED COVERAGE RECORDS. * !* -THE COVERAGE ARCHIVE REC CONSISTS OF THE FOLLOWING FIELDS: * !* -TYPE FIELD (INTERNAL FIELD IS $RESPONSE) * !* -COVERAGE RECORD * !********************************************************************** ! ! !************************************************* !*-MOVE RECORD TYPE TO $RESPONSE. * !************************************************* MOVE 'C' TO $RESPONSE. ! ! !************************************************* !*-RETRIEVE A COVERAGE RECORD. * !*-ON END-OF-SET, RETURN TO ARCD1. * !*-IF ANY OTHER DB ERROR, ABORT APPL. * !************************************************* IF FIRST-TIME OBTAIN FIRST COVERAGE WITH EMP-COVERAGE. ELSE OBTAIN NEXT COVERAGE WITHIN EMP-COVERAGE. IF DB-END-OF-SET RETURN. IF DB-ANY-ERROR ABORT TEXT 'DB ERROR ON COVERAGE OBTAIN'. ! ! !************************************************* !*-MOVE COVERAGE RECORD TO ARCHIVE RECORD * !************************************************* MOVE COVERAGE TO ARCHIVE-COVERAGE-RECORD. ! ! !************************************************* !*-WRITE THE RECORD, THEN REEXECUTE THE * !* PROCESS TO ARCHIVE THE NEXT COVERAGE REC. * !************************************************* WRITE TRANSACTION CONTINUE.
Dialog ARCD3: Mapout Operation
Internal field External field $RESPONSE......................>ARCHIVE-TYPE ARCHIVE-COVERAGE-RECORD........>ARCHIVE-COVERAGE-RECORD
|
Copyright © 2013 CA.
All rights reserved.
|
|