/* Program Id        -  AAC9420                                     **/
/* Description       -  E3ASR Multiple Error Correction Driver      **/
/* Application       -  XYZ Store Management System                 **/
/* Business Unit     -  Merchandising                               **/
/* Developer         -  Don Waterfield                              **/
/* Date              -  09/17/2004                                  **/
/* Purpose           -  Drives E3ASR Multiple Error Correction      **/
/* Notes             -  SYNCE3T is the a multi-member temporary     **/
/*                      work file.  Each member is named            **/
/*                      according to the user.                      **/
/*                                                                  **/
/*********************************************************************/
/*  REVISION HISTORY:                                               **/
/*  DATE     DEVELOPER    REASON/PROJECT NAME                       **/
/*  -------  ----------   ------------------------------------      **/
/*                                                                  **/
/*********************************************************************/
             PGM    PARM(&USR &ICN &PSWT)

             DCL        VAR(&USR)       TYPE(*CHAR) LEN(10)
             DCL        VAR(&ICN)       TYPE(*CHAR) LEN(9)
             DCL        VAR(&PSWT)      TYPE(*CHAR) LEN(3)
             DCL        VAR(&PROC)      TYPE(*CHAR) LEN(30)
             DCL        VAR(&PROCDSC)   TYPE(*CHAR) LEN(100)
             DCL        VAR(&SPROC)     TYPE(*CHAR) LEN(30)
             DCL        VAR(&SPROCDSC)  TYPE(*CHAR) LEN(100)
             DCL        VAR(&TSTEPS)    TYPE(*CHAR) LEN(3)
             DCL        VAR(&CSTEP)     TYPE(*CHAR) LEN(3)
             DCL        VAR(&CMSG)      TYPE(*CHAR) LEN(255)
             DCL        VAR(&CPGM)      TYPE(*CHAR) LEN(30)
             DCL        VAR(&SWT)       TYPE(*CHAR) LEN(1)
             DCL        VAR(&ERROR)     TYPE(*DEC) LEN(1)

/* Override to the member needed                                     */
             OVRDBF     FILE(SYNCE3T) TOFILE(*LIBL/SYNCE3T) +
                          MBR(&USR) SHARE(*YES) SEQONLY(*NO)

/* Process                                                           */
             CALL       PGM(AAR9420) PARM(&USR &ICN &PSWT)

/* Re-index SYNCE3T                                                  */
             CALL       PGM(AAR9428)

/*  Mark Users Process Record as Complete                            */
             CHGVAR VAR(&PROC) VALUE('E3ASRAUDIT')
             CHGVAR VAR(&TSTEPS) VALUE('  1')
             CHGVAR VAR(&CSTEP) VALUE('  1')
             CHGVAR VAR(&CPGM) VALUE('AAC9420')
             CHGVAR VAR(&SWT) VALUE('C')
             CHGVAR VAR(&ERROR) VALUE(0)

             CALL       *LIBL/AAC9244 PARM(&USR &PROC &PROCDSC +
                        &SPROC &SPROCDSC &TSTEPS &CSTEP &CMSG +
                        &CPGM &SWT &ERROR)

/* Clean up                                                          */
             DLTOVR     *ALL

ENDPGM:
             RCLRSC
             ENDPGM