IBCEST1 ;ALB/ESG - IB 837 EDI Status Message Processing Cont ;18-JUL-2005
Source file <IBCEST1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKSUM(IBARRAY) | ; Incoming 277STAT status message checksum calculation
; This function calculates the checksum of the raw 277stat data from ; the data in array IBARRAY. This is done to prevent duplicates. ; Input parameter IBARRAY is the array reference where the data exists ; at @IBARRAY@(n,0) where n is a sequential # ; For file 364.2, IBARRAY = "^IBA(364.2,IBTDA,2)" where IBTDA = the ien ; of the entry in file 364.2 being evaluated |
|
| EXT(DATA) | ; Extracts from the text in DATA if the text contains
; "##RAW DATA: " |
|
| SCODE(Z0) | ; status code for message
|
|
| CODE | ; *397
|
| Name | Line Occurrences |
|---|---|
| $$EXT | CHKSUM+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | CHKSUM+8~, CHKSUM+12*, CHKSUM+13, CHKSUM+19, EXT~, EXT+2 |
| IBARRAY | CHKSUM~, CHKSUM+11, CHKSUM+12 |
| IBFD | SCODE+1~*, SCODE+2, SCODE+3*, SCODE+4 |
| IBI | SCODE+1~, SCODE+2* |
| IBRD | SCODE+1~, SCODE+2*, SCODE+3 |
| IBREC | CHKSUM+8~, CHKSUM+13*, CHKSUM+14, CHKSUM+16, CHKSUM+17, CHKSUM+18 |
| LN | CHKSUM+8~, CHKSUM+10*, CHKSUM+11*, CHKSUM+12 |
| POS | CHKSUM+8~, CHKSUM+19* |
| STSFLG | CHKSUM+8~, CHKSUM+9*, CHKSUM+14*, CHKSUM+22 |
| U | CHKSUM+13 |
| Y | CHKSUM+8~, CHKSUM+9*, CHKSUM+19*, CHKSUM+22*, CHKSUM+23 |
| Z0 | SCODE~, SCODE+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(CODE+IBI | SCODE+2 |