XUPSGS ;ALB/CMC - GET, COMPARE/SET FOR FILE 200;DEC 31 2008
Source file <XUPSGS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(EN,ARRAY) | ;GET DATA FROM FILE 200 AND SET INTO ARRAY
|
|
| UPD(EN,ARRAY,ERROR) | ;update New Person entry EN
; Input: EN is the IEN in file 200 to be updated ; ARRAY is an array with the values to be updated ; ERROR is an array that will return any error messages for any field that fails to update ; Returns: -1^error text if unsuccessful ; 0 if OK - doesn't mean ERROR isn't defined |
|
| LOGERR(XUERR) | ;build error array from fileman's error array
|
|
| BLDFDA(NEWCOR,COR,FDA) |
