IBCEPTU ;ALB/TMK-TEST TRANSMIT CLAIMS UTILITIES ;25-JAN-2005
Source file <IBCEPTU.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 |
|---|---|---|
| PURGE | ; Purge test claim transmit records over 60 days old
|
|
| LASTDT(DA) | ; Get last txmt dt file 361.4 for xref
; DA = array of iens from Fileman |
| FileNo | Call Tags |
|---|---|
| ^IBM(361.4 - [#361.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBM(361.4 - [#361.4] | PURGE+5, LASTDT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PURGE+1~, PURGE+5*, LASTDT~, LASTDT+4 |
| DA(1 | LASTDT+4 |
| DIK | PURGE+1~, PURGE+4* |
| DT | PURGE+3 |
| IBDAYS | PURGE+1~, PURGE+2*, PURGE+3 |
| IBDELDT | PURGE+1~, PURGE+3*, PURGE+5 |
| IBDT | PURGE+1~, PURGE+5* |
| X | PURGE+1~, PURGE+3, LASTDT+2~, LASTDT+3*, LASTDT+4*, LASTDT+5 |
| >> X1 | PURGE+3* |
| >> X2 | PURGE+3* |
| Z | LASTDT+2~, LASTDT+4* |
| Z0 | LASTDT+2~, LASTDT+4* |