DG53654P ;ALB/BAJ - Synchronize the PERIOD OF SERVICE file (#21);09/01/2005
Source file <DG53654P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Driver - Initialize variables and populate file
|
|
| UPDATE | ; update records
|
|
| SETUP | ; setup message and data arrays
; PBNAME = Data Index pointer in "B" x-ref ; POS = Data Index (D0 value) ; PFNUM = Field number ; PBDATA = New data to change/insert (per table in DATA tag) ; ; Arrays created ; MSGARR array contains a pointer to the index record ; MSGARR(POS) = PBNAME ; ; XDATA array contains the items to change ; XDATA(POS,PFNUM) = PDATA ; |
|
| LOOKUP(PBNAME) | ; Return IEN for POS File #21, using the "B" x-ref
|
|
| DATA | ; POS values to lookup *** Data table, DO NOT ADJUST ***
|
