/*‚******************************************************************/
/*‚* 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: 200058                **/
/*‚* DATE         : 02/22/2007         Scan: 4A06                  **/
/*‚* DESCRIPTION  : Add monitor message for UEX0605 - No records   **/
/*‚*                found in file.                                 **/
/*‚*                                                               **/
/*‚* MODIFIED BY  : Bob Moloney         Log: 21530                 **/
/*‚* DATE         : 10/18/2007         Scan: 5M6I                  **/
/*‚* DESCRIPTION  : Monitor Message UEX0199 - No Messages Marked   **/
/*‚*                for translation.                               **/
/*‚*                                                               **/
/*‚* MODIFIED BY  :                     Log:                       **/
/*‚* DATE         :                                                **/
/*‚* DESCRIPTION  :                                                **/
/*‚*                                                               **/
/*‚*---------------------------------------------------------------**/
/*‚* SYSTEM NAME  : AS/400                                         **/
/*‚*---------------------------------------------------------------**/
/*‚* DESCRIPTION  : Start Outbound Translation - Extol             **/
/*‚******************************************************************/

             PGM        PARM(            +
                             &JOB_DATE   +
                             &JOB_TIME   +
                             &JOB_NAME   +
                             &JOB_USER   +
                             &JOB_NUMBER +
                             &DOC_ID     +
                             &AFS        +
                             &GRP        +
                            )

             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(&JOB_TYPE) TYPE(*CHAR) LEN(1)
             DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)
             DCL        VAR(&WWMSGTEXT) TYPE(*CHAR) LEN(132)
             DCL        VAR(&WWMSGID) TYPE(*CHAR) LEN(7)
             DCL        VAR(&WWMSGDATA) TYPE(*CHAR) LEN(24)


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

TRANSLATE:

             CHGVAR     VAR(&TEXT) VALUE(&JOB_NUMBER *TCAT '/' *TCAT +
                          &JOB_USER *TCAT '/' *TCAT &JOB_NAME *TCAT +
                          '-' *TCAT &JOB_DATE *BCAT &JOB_TIME)

             IF         COND(&JOB_TYPE = '1') THEN(DO)/* Interactive */
             CRTAPPDTA  FSET(&AFS) TEXT(&TEXT) ERROPT(*NO) +
                          MSGID(&DOC_ID) RSLTMETHOD(*RUNTIME) +
                          PARCHLDREL(*YES)
             MONMSG     MSGID(UEX0124 UEX0292 UEX0605 UEX0199) /* +
                          File application set not found, no data +
                          in file, or no messages marked for +
                          translation (5M6I) */
             ENDDO

             IF         COND(&JOB_TYPE = '0') THEN(DO)/* Batch */
             CRTAPPDTAB FSET(&AFS) TEXT(&TEXT) ERROPT(*NO) +
                          MSGID(&DOC_ID) RSLTMETHOD(*RUNTIME) +
                          PARCHLDREL(*YES)
             MONMSG     MSGID(UEX0124 UEX0292 UEX0605 UEX0199) /* +
                          File application set not found, no data +
                          in file, or no messages marked for +
                          translation (5M6I) */
             ENDDO

             ENDPGM