IVMCME2 ;ALB/SEK,BRM - CHECK ANNUAL INCOME DATA ; 12/18/01 2:19pm
Source file <IVMCME2.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 |
|---|---|---|
| ZIC(STRING,DEPIEN) | ; check validity of ZIC segment
|
|
| ZICQ | ||
| NUM(NUMBER,DIGIT,DECIMAL) | ; function to determine if valid numeric value
; ; Input: NUMBER as data element to evaluate ; DIGIT as number of digits allowed ; DECIMAL as number of decimal places |
|
| NUMQ | ||
| ZICFLD | ; ZIC field names
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | ZIC+17 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | ZIC+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ARRAY( | ZIC+16, ZIC+25 |
| >> ARRAY("ZMT" | ZIC+23 |
| DECIMAL | NUM~ |
| DEPIEN | ZIC~, ZIC+12, ZIC+14, ZIC+15, ZIC+16, ZIC+21 |
| DIGIT | NUM~, NUM+9 |
| ERROR | ZIC+7~, ZIC+8*, ZIC+9*, ZIC+10*, ZIC+11, ZIC+12, ZIC+13*, ZIC+14*, ZIC+15, ZIC+16* , ZIC+18*, ZIC+19*, ZIC+20*, ZIC+21, ZICQ, NUM+6~, NUM+7*, NUM+8*, NUM+9*, NUM+10* , NUMQ |
| FLAG | ZIC+7~, ZIC+8*, ZIC+24*, ZIC+25* |
| >> HLFS | ZIC+8, ZIC+10, ZIC+13, ZIC+14, ZIC+16, ZIC+17, ZIC+18, ZIC+19, ZIC+20, ZIC+23 , ZIC+24, ZIC+25 |
| I | ZIC+7~, ZIC+10*, ZIC+13*, ZIC+19*, ZIC+24*, ZIC+25* |
| >> IVMTYPE | ZIC+22 |
| NUMBER | NUM~, NUM+8, NUM+9, NUM+10 |
| >> SPOUSE | ZIC+14, ZIC+15, ZIC+25 |
| STRING | ZIC~, ZIC+8, ZIC+10, ZIC+13, ZIC+14, ZIC+16, ZIC+17, ZIC+18, ZIC+19, ZIC+20 , ZIC+24 |
| U | ZIC+16, ZIC+18 |
| X | ZIC+7~, ZIC+8*, ZIC+9, ZIC+17*, ZIC+18* |
| Y | ZIC+7~, ZIC+17 |
| Name | Field # of Occurrence |
|---|---|
| $T(ZICFLD+I | ZIC+10 |
