/*‚******************************************************************/
/*‚* 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 : 08/07/2007 Scan: Bm01 **/
/*‚* DESCRIPTION : Change company variables to 3 positions **/
/*‚* **/
/*‚* MODIFIED BY : Bob Moloney Log: Rel 5.0 **/
/*‚* DATE : 09/11/2007 Scan: Bm02 **/
/*‚* DESCRIPTION : Add company to parm list as required **/
/*‚* **/
/*‚* MODIFIED BY : Bob Moloney Log: 281042 (61VQ) **/
/*‚* DATE : 02/10/2011 PTF: **/
/*‚* DESCRIPTION : Add sbmjob for communications if so flagged **/
/*‚*---------------------------------------------------------------**/
/*‚* SYSTEM NAME : AS/400 **/
/*‚*---------------------------------------------------------------**/
/*‚* Description : EDI Outbound Partner Document TRANSLATION **/
/*‚******************************************************************/
PGM PARM( +
&JOB_DATE +
&JOB_TIME +
&JOB_NAME +
&JOB_USER +
&JOB_NUMBER +
&DOC_ID +
&DOC_DIR +
&DOC_LIB +
&DOC_PGM +
&CMP +
&ATYP +
&ACCT +
&NETWORK +
&FRDTE +
&TRDTE +
&FREF +
&TREF +
&FORD +
&TORD +
&FBOCD +
&TBOCD +
&FAREF +
&TAREF +
&XXPREV +
&XXTRANS +
&XXSEND +
&RPT_DATE +
&PRT_ID +
&COPIES +
)
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(&DOC_DIR) TYPE(*CHAR) LEN(1)
DCL VAR(&DOC_LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&DOC_PGM) TYPE(*CHAR) LEN(10)
DCL VAR(&CMP ) TYPE(*CHAR) LEN(3) /* BM01 */
DCL VAR(&ATYP ) TYPE(*CHAR) LEN(1)
DCL VAR(&ACCT ) TYPE(*CHAR) LEN(7)
DCL VAR(&NETWORK) TYPE(*CHAR) LEN(4)
DCL VAR(&FRDTE) TYPE(*CHAR) LEN(8)
DCL VAR(&TRDTE) TYPE(*CHAR) LEN(8)
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(&RPT_DATE) TYPE(*CHAR) LEN(6)
DCL VAR(&PRT_ID ) TYPE(*CHAR) LEN(10)
DCL VAR(&COPIES ) TYPE(*CHAR) LEN(2)
DCL VAR(&WWSPC10) TYPE(*CHAR) LEN(10) VALUE(' ')
DCL VAR(&WWLIB ) TYPE(*CHAR) LEN(10)
/* DCL VAR(&WWMSGTEXT) TYPE(*CHAR) LEN(132) 61VQ */
/* DCL VAR(&WWMSGID) TYPE(*CHAR) LEN(7) 61VQ */
/* DCL VAR(&WWMSGDATA) TYPE(*CHAR) LEN(24) 61VQ */
/* DCL VAR(&WWCMP ) TYPE(*CHAR) LEN(3) 61VQ */
DCL VAR(&WWNET) TYPE(*CHAR) LEN(2) VALUE('{}')
DCL VAR(&WWLOG) TYPE(*CHAR) LEN(1) VALUE('U')
DCL VAR(&FSJDAT_A) TYPE(*CHAR) LEN(8)
DCL VAR(&FSJTIM_A) TYPE(*CHAR) LEN(8)
DCLF FILE(*LIBL/VEDOTFS) RCDFMT(*ALL)
/* PRE-TRANSLATION------------------------------------------------- */
/* Execute Pre-translation program(if any) for all Partners for the Document */
CALL PGM(*LIBL/EDOTPDOCC1) PARM( +
&JOB_DATE +
&JOB_TIME +
&JOB_NAME +
&JOB_USER +
&JOB_NUMBER +
&DOC_ID +
&DOC_DIR +
&DOC_LIB +
&DOC_PGM +
&CMP +
&ATYP +
&ACCT +
&NETWORK +
&FRDTE +
&TRDTE +
&FREF +
&TREF +
&FORD +
&TORD +
&FBOCD +
&TBOCD +
&FAREF +
&TAREF +
&XXPREV +
&XXTRANS +
&XXSEND +
&RPT_DATE +
&PRT_ID +
&COPIES +
)
/* START TRANSLATION JOBS FOR EACH APPLICATION FILE SET IN THIS JOB */
/* THERE MUST BE A NON-BLANK APPLICATION FILE SET */
OVRDBF FILE(VEDOTFS) SHARE(*YES)
OPNQRYF FILE((VEDOTFS)) OPTION(*ALL) QRYSLT(' +
FSAFS *NE "' || &WWSPC10 || '" *AND +
FSJDAT *EQ ' || &JOB_DATE || ' *AND +
FSJTIM *EQ ' || &JOB_TIME || ' *AND +
FSJNAM *LE "' || &JOB_NAME || '" *AND +
FSJUSR *EQ "' || &JOB_USER || '" *AND +
FSJNBR *EQ "' || &JOB_NUMBER || '"') +
KEYFLD((FSJDAT) (FSJTIM) (FSJNAM) (FSJUSR) (FSJNBR) +
(FSDOCID) (FSAFS) (FSGRP))
READ_AFS:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END_AFS))
CALL PGM(EDIFTRCL) PARM( +
&JOB_DATE +
&JOB_TIME +
&JOB_NAME +
&JOB_USER +
&JOB_NUMBER +
&FSDOCID +
&FSAFS +
&FSGRP +
&CMP +
) /*bm02*/
CHGVAR VAR(&FSJDAT_A) VALUE(&FSJDAT)
CHGVAR VAR(&FSJTIM_A) VALUE(&FSJTIM)
CALL PGM(EDUPDSNTFS) PARM( +
&FSJDAT_A +
&FSJTIM_A +
&FSJNAM +
&FSJUSR +
&FSJNBR +
&FSDOCID +
&FSAFS +
&FSGRP +
&WWNET +
&WWLOG )
GOTO CMDLBL(READ_AFS)
END_AFS:
CLOF OPNID(VEDOTFS)
DLTOVR FILE(VEDOTFS)
/* POST-TRANSLATION------------------------------------------------- */
/* Execute Post-translation program(if any) for all Partners for the Document */
CALL PGM(*LIBL/EDOTPDOCC4) PARM( +
&JOB_DATE +
&JOB_TIME +
&JOB_NAME +
&JOB_USER +
&JOB_NUMBER +
&DOC_ID +
&DOC_DIR +
&DOC_LIB +
&DOC_PGM +
&CMP +
&ATYP +
&ACCT +
&NETWORK +
&FRDTE +
&TRDTE +
&FREF +
&TREF +
&FORD +
&TORD +
&FBOCD +
&TBOCD +
&FAREF +
&TAREF +
&XXPREV +
&XXTRANS +
&XXSEND +
&RPT_DATE +
&PRT_ID +
&COPIES +
)
/********************************************************************** 61VQ */
/* START THE SEND PROCESS NOW (IF SELECTED) 61VQ */
/********************************************************************** 61VQ */
IF COND(&XXSEND *EQ 'Y') THEN(DO) /* 61VQ */
SBMJOB CMD(CALL PGM(*LIBL/EDOTPDOCC6) +
PARM(&JOB_DATE &JOB_TIME &JOB_NAME +
&JOB_USER &JOB_NUMBER &DOC_ID &DOC_DIR +
&DOC_LIB &DOC_PGM &CMP &ATYP &ACCT +
&NETWORK &FRDTE &TRDTE &FREF &TREF &FORD +
&TORD &FBOCD &TBOCD &FAREF &TAREF &XXPREV +
&XXTRANS &XXSEND &RPT_DATE &PRT_ID +
&COPIES)) JOB(ED_SEND) +
JOBD(*LIBL/EDIJOBD) JOBQ(*LIBL/EDIJOBS) +
/* 61VQ OA01*/
ENDDO
ENDPGM
By: Sean Hoppe on
