IBCESRV1 ;ALB/TMP - Server interface to IB from Austin ;03/05/96
Source file <IBCESRV1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PERROR(IBERR,IBTDA,IBEMG,IBXMZ) | ; Process Errors - Send bulletin to mail group
; IBERR = Error text array ; IBTDA = Message File Entry # array ; IBEMG = name of the mail group to which these errors should be sent ; IBXMZ = the internal entry # of the mailman message (file 3.9) |
|
EMFORM(CT,IBERR,IBXM,IBXMZ) | ;
; INPUT: ; CT = the number of lines previously populated in error message ; IBERR = the array of errors |
|
ERROR | ;
|
|
EXTERR(IBERR,IBTDA,IBE) | ; Put error into error array
|
|
ERRUPD(IBGBL,IBERR) | ; Set up global array to hold message data
|
|
DKILL(IBXMZ) | ; Delete server mail message from postmaster mailbox
|
|
TRTN(IBTDA) | ; Process incoming EDI message
; IBTDA = internal entry # of message (file 364.2) ; This procedure is called from ADD^IBCESRV with variable IBRTN holding the TAG^ROUTINE to be invoked |
|
TRADEL(X) | ; Process to delete message from temporary message holding file
|
FileNo | Call Tags |
---|---|
^IBA(364.2 - [#364.2] | Classic Fileman Calls |