DG53970P ;ALB/JAM - REGISTRATION EMERGENCY PATCH POST-INSTALL TO FIX BLANK SSN IN PERSON INCOME FILE ;9/4/2018 3:21pm
Source file <DG53970P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EP | ; Entry Point
|
|
| CLEANUP | ; Entry point
; sweep through 408.13 file looking at SSN field (Piece 9) for values " " OR " P" ; - modify the SSN field to NULL ; - clean up the xrefs ; - get the associated DFN and store it |
|
| XREF(IEN,DGFIL) | ; clean "SSN", "BS" and "BS5" xrefs for this INCOME PERSON file (#408.13) record
|
|
| GETDFN(IEN) | ; retrieve DFN for this IEN from 408.12
|
|
| SENDMSG | ;Send MailMan message when process completes
|
|
| LN() | ;Increment line counter
|
