CA ADS Batch Sample Applications › Employee-record Archive Application › Step 5: Define the Dialogs › Dialog ARCD4

Dialog ARCD4

Dialog ARCD4 executes when it receives control from ARCD1. ARCD4 prepares report lines to be written to the report file and passes control to ARCD5, which actually writes the lines to the output file.

The dialog definition for ARCD4 is illustrated below:

The premap process is shown below.

Dialog ARCD4: Premap Process

!**********************************************************************
!*ARCD4-PM                                                            *
!*  -EXECUTED AT THE BEGINNING OF DLG ARCD4.                          *
!*  -DETERMINES REPORT LINE(S) TO BE WRITTEN.                         *
!*  -THE REPORT RECORD CONSISTS OF THE FOLLOWING FIELDS:              *
!*       -REPORT-CC ── CARRIAGE CONTROL CHARACTER                     *
!*       -REPORT-LINE ── ACTUAL REPORT LINE                           *
!*  -THIS PROCESS MOVES THE PROPER DATA INTO THESE FIELDS, THEN       *
!*   PASSES CONTROL TO ARCD5, WHICH WRITES A LINE.                    *
!**********************************************************************
ADD 1 TO WORK-LINE-CTR.
!
!
!*************************************************
!*-IF LINE COUNTER > 55, CALL A ROUTINE THAT     *
!* PRINTS HEADING LINES, THEN MOVE 0 TO          *
!* REPORT-CC, SO THAT THE FIRST DETAIL LINE      *
!* IS DOUBLE SPACED.                             *
!*-IF LINE COUNTER IS NOT > 55, MOVE ' ' TO      *
!* REPORT-CC, SO THAT THE DETAIL LINE IS         *
!* SINGLE SPACED.                                *
!*************************************************
IF WORK-LINE-CTR > 55
  DO.
  CALL PRINTHDR.
  MOVE '0' TO REPORT-CC.
  END.
ELSE
  MOVE ' ' TO REPORT-CC.
!
!
!*************************************************
!*-MOVE THE DETAIL LINE TO REPORT-LINE.          *
!*-PASS CONTROL TO ARCD5, WHICH WRITES THE       *
!* LINE.                                         *
!*-RETURN CONTROL TO ARCD1.                      *
!*************************************************
MOVE REPORT-DTL TO REPORT-LINE.
LINK NOSAVE 'ARCD5'.
RETURN.
!

!
!*************************************************
!*SUBROUTINE PRINTHDR                            *
!*-CALLED WHEN PAGE HEADERS ARE TO BE PRINTED    *
!*-SET UP FIRST HEADING LINE, THEN PASS          *
!* CONTROL TO ARCD5, WHICH WRITES IT.            *
!*-SET UP SECOND HEADING LINE, THEN PASS         *
!* CONTROL TO ARCD5, WHICH WRITES IT.            *
!*-GO BACK TO MAIN ROUTINE TO WRITE THE          *
!* DETAIL LINE.                                  *
!*************************************************
DEFINE PRINTHDR.
  MOVE 1 TO WORK-LINE-CTR.
  ADD 1 TO WORK-PAGE-CTR.
  MOVE WORK-PAGE-CTR TO REPORT-PAGE.
  MOVE REPORT-HDR1 TO REPORT-LINE.
  MOVE '1' TO REPORT-CC.
  LINK NOSAVE 'ARCD5'.
  MOVE REPORT-HDR2 TO REPORT-LINE.
  MOVE '-' TO REPORT-CC.
  LINK NOSAVE 'ARCD5'.
  GOBACK.