CA ADS Batch Sample Applications › Employee-Record Report Application › Step 4: Define the Dialogs › Dialog COLMHDR

Dialog COLMHDR

Dialog COLMHDR executes when it receives control from REPTEDIT. COLMHDR writes detail column header lines to the report file.

The dialog definition for COLMHDR is illustrated below:

Note: EMPL-DETAIL should be associated with the dialog as a new copy record.

The premap process and mapout operation are shown below.

Dialog COLMHDR: Premap Process

!**********************************************************************
!*COLM-HDR-EDIT                                                       *
!**********************************************************************
MOVE '0' TO DTL-CTRL-CHAR.
MOVE 'EMP ID' TO DTL-EMPL.
MOVE SPACES TO DTL-NAME.
MOVE INSERT(DTL-NAME,'--NAME--',2) TO DTL-NAME.
MOVE 'STATUS' TO DTL-STATUS.
MOVE ' SOC SEC ' TO DTL-SS-TITLE.
MOVE 'START DATE' TO DTL-START.
MOVE 'TERM DATE' TO DTL-TERM.
ADD 2 TO WK-LINE-NBR.
WRITE TRANSACTION RETURN.

Dialog COLMHDR: Mapout Operation

Internal field                  External field
DTL-CTRL-CHAR..................>DTL-CTRL-CHAR
DTL-EMPL.......................>DTL-EMPL
DTL-NAME.......................>DTL-NAME
DTL-STATUS.....................>DTL-STATUS
DTL-SS-NBR.....................>DTL-SS-NBR
DTL-SS-TITLE...................>DTL-SS-TITLE
DTL-START......................>DTL-START
DTL-TERM.......................>DTL-TERM