/*‚******************************************************************/
/*‚*   DEVELOPED BY : VAI COMPUTER SYSTEMS INC. Copyright 1998, 2004 **/
/*‚*                                                               **/
/*‚*   FOR          : System 2000                                  **/
/*‚*   PROGRAMMER   : Chand Babu          Log: 150054              **/
/*‚*   DATE WRITTEN : 01/18/2005                                   **/
/*‚*   MODULE       : EDI                                          **/
/*‚*                                                               **/
/*‚*---------------------------------------------------------------**/
/*‚*   SYSTEM NAME  : AS/400                                       **/
/*‚*---------------------------------------------------------------**/
/*‚*   DESCRIPTION  : Extract EDI Documents to Send                **/
/*‚*---------------------------------------------------------------**/
/*‚******************************************************************/
             PGM        PARM(                    +
                                   &JOB_DATE     +
                                   &JOB_TIME     +
                                   &JOB_NAME     +
                                   &JOB_USER     +
                                   &JOB_NUMBER   +
                                   &CMP          +
                                   &ATYP         +
                                   &ACCT         +
                                   &EDST         +
                                   &XXNETW       +
                                   &FRDTE        +
                                   &TRDTE        +
                                   &FREF         +
                                   &TREF         +
                                   &FORD         +
                                   &TORD         +
                                   &FBOCD        +
                                   &TBOCD        +
                                   &FAREF        +
                                   &TAREF        +
                                   &XXPREV       +
                                   &XXTRANS      +
                                   &XXSEND       +
                                   &RPTDT        +
                                   &PRTID        +
                                   &NRCPY        +
                            )


             DCL        VAR(&JOB_DATE  ) TYPE(*CHAR) LEN(8)
             DCL        VAR(&JOB_TIME  ) TYPE(*CHAR) LEN(8)
             DCL        VAR(&JOB_NAME  ) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOB_USER  ) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOB_NUMBER) TYPE(*CHAR) LEN(6)
             DCL        VAR(&CMP)    TYPE(*CHAR) LEN(3)              /* BM01 */
             DCL        VAR(&ATYP)   TYPE(*CHAR) LEN(1)
             DCL        VAR(&ACCT)   TYPE(*CHAR) LEN(7)
             DCL        VAR(&EDST)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&XXNETW) TYPE(*CHAR) LEN(4)
             DCL        VAR(&FRDTE)  TYPE(*CHAR) LEN(6)
             DCL        VAR(&TRDTE)  TYPE(*CHAR) LEN(6)
             DCL        VAR(&FREF )  TYPE(*CHAR) LEN(9)
             DCL        VAR(&TREF )  TYPE(*CHAR) LEN(9)
             DCL        VAR(&FORD )  TYPE(*CHAR) LEN(9)
             DCL        VAR(&TORD )  TYPE(*CHAR) LEN(9)
             DCL        VAR(&FBOCD)  TYPE(*CHAR) LEN(3)
             DCL        VAR(&TBOCD)  TYPE(*CHAR) LEN(3)
             DCL        VAR(&FAREF)  TYPE(*CHAR) LEN(20)
             DCL        VAR(&TAREF)  TYPE(*CHAR) LEN(20)
             DCL        VAR(&XXPREV) TYPE(*CHAR) LEN(1)
             DCL        VAR(&XXTRANS) TYPE(*CHAR) LEN(1)
             DCL        VAR(&XXSEND ) TYPE(*CHAR) LEN(1)
             DCL        VAR(&RPTDT)   TYPE(*CHAR) LEN(6)
             DCL        VAR(&PRTID)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&NRCPY)   TYPE(*CHAR) LEN(2)


             DCL        VAR(&CNTRY)   TYPE(*CHAR) LEN(2)
             DCL        VAR(&YEAR)    TYPE(*CHAR) LEN(2)
             DCL        VAR(&FCYM)    TYPE(*CHAR) LEN(8)
             DCL        VAR(&TCYM)    TYPE(*CHAR) LEN(8)

/* CONVERT MMDDYY TO YYYYMMDD */
             CHGVAR     VAR(&FCYM)  VALUE('00000000')
             CHGVAR     VAR(&TCYM)  VALUE('99999999')

             IF         COND(&FRDTE *NE '000000') THEN(DO)
             CHGVAR     VAR(&CNTRY) VALUE(19)
             CHGVAR     VAR(&YEAR) VALUE(%SST(&FRDTE 5 2))
             IF         COND(&YEAR *LT '49') THEN(DO)
             CHGVAR     VAR(&CNTRY) VALUE(20)
             ENDDO
             CHGVAR     VAR(%SST(&FCYM 1 2)) VALUE(&CNTRY)
             CHGVAR     VAR(%SST(&FCYM 3 2)) VALUE(%SST(&FRDTE 5 2))
             CHGVAR     VAR(%SST(&FCYM 5 2)) VALUE(%SST(&FRDTE 1 2))
             CHGVAR     VAR(%SST(&FCYM 7 2)) VALUE(%SST(&FRDTE 3 2))
             ENDDO

             IF         COND(&TRDTE *NE '999999') THEN(DO)
             CHGVAR     VAR(&CNTRY) VALUE(19)
             CHGVAR     VAR(&YEAR) VALUE(%SST(&TRDTE 5 2))
             IF         COND(&YEAR *LT '49') THEN(DO)
             CHGVAR     VAR(&CNTRY) VALUE(20)
             ENDDO
             CHGVAR     VAR(%SST(&TCYM 1 2)) VALUE(&CNTRY)
             CHGVAR     VAR(%SST(&TCYM 3 2)) VALUE(%SST(&TRDTE 5 2))
             CHGVAR     VAR(%SST(&TCYM 5 2)) VALUE(%SST(&TRDTE 1 2))
             CHGVAR     VAR(%SST(&TCYM 7 2)) VALUE(%SST(&TRDTE 3 2))
             ENDDO



             CALL       PGM(*LIBL/EDOTDOCCL) PARM(                +
                                                    &JOB_DATE     +
                                                    &JOB_TIME     +
                                                    &JOB_NAME     +
                                                    &JOB_USER     +
                                                    &JOB_NUMBER   +
                                                    &CMP          +
                                                    &ATYP         +
                                                    &ACCT         +
                                                    &EDST         +
                                                    &XXNETW       +
                                                    &FCYM         +
                                                    &TCYM         +
                                                    &FREF         +
                                                    &TREF         +
                                                    &FORD         +
                                                    &TORD         +
                                                    &FBOCD        +
                                                    &TBOCD        +
                                                    &FAREF        +
                                                    &TAREF        +
                                                    &XXPREV       +
                                                    &XXTRANS      +
                                                    &XXSEND       +
                                                    &RPTDT        +
                                                    &PRTID        +
                                                    &NRCPY        +
                                                   )


             ENDPGM