CL :: EDIFTRCL

EXTOL/VAI ::R50MODS CL :: EDIFTRCL -- Start Outbound Translation

/*‚******************************************************************/
/*‚* DEVELOPED BY : VAI COMPUTER SYSTEMS INC. Copyright 1998, 2004 **/
/*‚*                                                               **/
/*‚* FOR          : System 2000                                    **/
/*‚* PROGRAMMER   : Chand Babu          Log: 150054                **/
/*‚* DATE WRITTEN : 01/20/2005                                     **/
/*‚* MODULE       : EDI                                            **/
/*‚*                                                               **/
/*‚* MODIFIED BY  : Bob Moloney         Log: Rel 5.0               **/
/*‚* DATE         : 09/11/2007         Scan: bm01                  **/
/*‚* DESCRIPTION  : Add company to parm list as required           **/
/*‚*                                                               **/
/*‚*---------------------------------------------------------------**/
/*‚* SYSTEM NAME  : AS/400                                         **/
/*‚*---------------------------------------------------------------**/
/*‚* DESCRIPTION  : Start Outbound Translation                     **/
/*‚******************************************************************/

             PGM        PARM(            +
                             &JOB_DATE   +
                             &JOB_TIME   +
                             &JOB_NAME   +
                             &JOB_USER   +
                             &JOB_NUMBER +
                             &DOC_ID     +
                             &AFS        +
                             &GRP        +
                             &CMP        +
                            )                                        /*bm01*/

             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(&DOC_ID    ) TYPE(*CHAR) LEN(10)
             DCL VAR(&AFS       ) TYPE(*CHAR) LEN(10)
             DCL VAR(&GRP       ) TYPE(*CHAR) LEN(10)
             DCL VAR(&CMP       ) TYPE(*CHAR) LEN(3)                 /*bm01*/

             DCL        VAR(&JOB_NAME) TYPE(*CHAR) LEN(10)
             DCL        VAR(&EDI_SFT)  TYPE(*CHAR) LEN(1)

/* Determine the EDI Software in use X=Extol, P=Premenos, G=Gentran */
             CALL       PGM(EDEINTF) PARM(&EDI_SFT &CMP)             /*bm01*/

/* Call program to add EDI Translator Libraries */
             CALL       PGM(XAADDLIB) PARM('A')


/* Extol */
             IF         COND(&EDI_SFT = 'X') THEN(DO)

             SBMJOB     CMD(CALL PGM(*LIBL/EDIFTREXCL) +
                          PARM(&JOB_DATE &JOB_TIME &JOB_NAME +
                          &JOB_USER &JOB_NUMBER &DOC_ID &AFS &GRP)) +
                          JOB(&AFS) JOBD(*LIBL/EDIJOBD) +
                          JOBQ(*LIBL/EDIJOBS)        /*oa01*/

             ENDDO

/* Premenos */
             IF         COND(&EDI_SFT = 'P') THEN(DO)

             CHGVAR     VAR(&JOB_NAME) VALUE('PR_' *TCAT &AFS)

             SBMJOB     CMD(CALL PGM(*LIBL/EDIFTRPRCL) +
                          PARM(&JOB_DATE &JOB_TIME &JOB_NAME +
                          &JOB_USER &JOB_NUMBER &DOC_ID &AFS &GRP)) +
                          JOB(&JOB_NAME)

             ENDDO

/* Gentran */
             IF         COND(&EDI_SFT = 'G') THEN(DO)

             CHGVAR     VAR(&JOB_NAME) VALUE('GE_' *TCAT &AFS)

             SBMJOB     CMD(CALL PGM(*LIBL/EDIFTRGECL) +
                          PARM(&JOB_DATE &JOB_TIME &JOB_NAME +
                          &JOB_USER &JOB_NUMBER &DOC_ID &AFS &GRP)) +
                          JOB(&JOB_NAME)

             ENDDO

             ENDPGM



By: on