ABSVSER3 ;VAMC ALTOONA/CTB - SERVER TO FILE DATA FROM AUSTIN ;11/4/99 1:19 PM
Source file <ABSVSER3.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 |
---|---|---|
V | ;;4.0;VOLUNTARY TIMEKEEPING;**3,9,18**;JULY 6, 1994
|
|
HDR | ||
ONE(X,SITE,DEL) | ||
YEAR(X) | ;CONVERT COBOL YEAR TO FM YEAR EG 89 TO 289
|
|
STRIP(X) | ;STRIP TRAILING BLANKS
|
|
BLANK(X) | ;SET 0 TO BLANKS
|
|
ERR | ;PROCESS ERROR MESSAGE
|
|
MSG | ||
AWD(X,Y,Z) | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABS(503330 - [#503330] | ONE+5, ONE+7, ONE+8, ONE+9, ONE+12*, ONE+14 |
^ABS(503338 - [#503338] | ONE+3 |
^ABS(503339.1 - [#503339.1] | HDR+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DEL | ONE~, ONE+1 |
DELIM | HDR!, HDR+1*, HDR+5, HDR+6 |
>> DONE | HDR+12* |
DPURGED | ONE~, ONE+1*, ONE+9, ONE+10 |
>> ERRCOUNT | HDR+11, ERR+1* |
>> MFILEDA | HDR+8 |
MSG | HDR+2*, HDR+3*, ONE~, ONE+3*, ONE+5*, ONE+7*, ONE+8*, ONE+11*, MSG+1 |
MSGDATE | HDR!, HDR+1* |
>> MSGLINE | HDR+9*, HDR+10*, HDR+11, MSG*, MSG+1 |
PSEUDO | ONE~, ONE+1* |
>> RECCOUNT | HDR+10, ONE+13* |
SITE | HDR!, HDR+1*, HDR+6, HDR+9, ONE~, ONE+3, ONE+7 |
SITEDA | ONE~, ONE+3*, ONE+7, ONE+8, ONE+9, ONE+12, ONE+14 |
SSN | ONE~, ONE+1*, ONE+3, ONE+5, ONE+7, ONE+8, ONE+11 |
>> TYPE | HDR+5*, HDR+6 |
>> VOLDA | ONE+5*, ONE+7, ONE+8, ONE+9, ONE+12, ONE+14 |
X | HDR!, HDR+1*, HDR+5*, HDR+6, ONE~, ONE+1, ONE+9*, ONE+10*, ONE+12, YEAR~ , YEAR+1, STRIP~, STRIP+1*, STRIP+2, BLANK~, BLANK+1*, BLANK+2, AWD~, AWD+1*, AWD+2 , AWD+3, AWD+5 |
>> XMER | HDR+4 |
>> XMREC | HDR+4 |
>> XMRG | HDR+1, HDR+5 |
>> XQSTXT( | HDR+10*, HDR+11*, MSG+1* |
>> XQSTXT(1 | HDR+9* |
>> XQSTXT(2 | HDR+9* |
Y | AWD~, AWD+2, AWD+3, AWD+4*, AWD+5 |
Z | AWD~, AWD+2, AWD+3, AWD+5 |