/*================================================================================================*/
/*  Source:   distendqcm - End Distribution Queue Job                                             */
/*                                                                                                */
/*  Desc:     This module sends data queue entries designed to end report distribution job.       */
/*                                                                                                */
/*  Input parms:                                                                                  */
/*            Data Queue Name                                                                     */
/*            Data Queue Library                                                                  */
/*                                                                                                */
/*  Output parms:                                                                                 */
/*            None                                                                                */
/*                                                                                                */
/*================================================================================================*/
             PGM        PARM(&DQNAME &DQLIB)

             DCL        VAR(&DQNAME) TYPE(*CHAR) LEN(10)
             DCL        VAR(&DQLIB) TYPE(*CHAR) LEN(10)

             DCL        VAR(&DTALEN) TYPE(*DEC) LEN(5 0) VALUE(222)
             DCL        VAR(&DATA) TYPE(*CHAR) LEN(222) VALUE(' ')

/*================================================================================================*/
/*  Send "END" entries to Data Queues.                                                            */
/*================================================================================================*/
             CALL       PGM(QSNDDTAQ) PARM(&DQNAME &DQLIB +
                          &DTALEN &DATA)

ENDPGM:
             ENDPGM

       /*    CRTCLMOD MODULE(LIBRARY/DISTENDQCM)      */
       /*             SRCFILE(LIBRARY/QCLLESRC)       */
       /*             SRCMBR(DISTENDQCM)              */

       /*    CRTPGM PGM(LIBRARY/DISTENDQPG)           */
       /*           MODULE(LIBRARY/DISTENDQCM)        */
       /*           ACTGRP(ACTGRP)                    */