This handles pick up and send of documents, typically to Pacstream (ECN). Note those electronic carriers manifests are not part of this standard send/receive.
/* Copy Outbound Invoice data */
RTVMBRD FILE(EDO331W1) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
RGZPFM FILE(EDO331W1) KEYFILE(*FILE)
CALL PGM(EDO350B) PARM(‘INVOIC’ ‘EDO331W1’)
ENDDO
/* Copy Outbound Response data */
RTVMBRD FILE(DSEAA00P) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
CALL PGM(EDO350B) PARM(‘ORDRSP’ ‘DSEAA00P’)
ENDDO
/* Copy Outbound ASN data */
RTVMBRD FILE(EDO600W1) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
CALL PGM(EDO350B) PARM(‘DESADV’ ‘EDO600W1’)
ENDDO
/* Copy Outbound P.O. data */
RTVMBRD FILE(EDO432W1) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
CALL PGM(EDO350B) PARM(‘SUPPO ‘ ‘EDO432W1’)
ENDDO
/* Copy Outbound Catalogue data */
RTVMBRD FILE(EDCAT00P) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
CALL PGM(EDO350B) PARM(‘PRDCAT’ ‘EDCAT00P’)
ENDDO
CALL PGM(EDO350B) PARM(‘ONIX ‘ ”)
/* Copy Outbound POA data(Bisac) */
RTVMBRD FILE(DSEBA00P) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
CALL PGM(EDO350B) PARM(‘POACK ‘ ‘DSEBA00P’)
ENDDO
/* Copy Outbound PO data(Bisac) */
RTVMBRD FILE(EDPO00P) NBRCURRCD(&RECNO)
IF COND(&RECNO *GT 0) THEN(DO)
CALL PGM(EDO350B) PARM(‘PO-OUT’ ‘EDPO00P’)
ENDDO
/* Copy Inbound P.O. data */
CALL PGM(EDO350B) PARM(‘PO-IN ‘ ”)
/* Copy Inbound Ship invoice data */
CALL PGM(EDO350B) PARM(‘SHIPIN’ ”)
/* Copy Inbound RCTI data */
CALL PGM(EDO350B) PARM(‘RCTIIN’ ”)
/* Copy Inbound BDASE data */
CALL PGM(EDO350B) PARM(‘DB-IN ‘ ”)
/* Copy Inbound PAD data */
CALL PGM(EDO350B) PARM(‘PAD-IN’ ”)
