DG933PO ;DAL/JCH - PATCH DG*5.3*933 POST INSTALL ;06/18/2017
Source file <DG933PO.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;MAIN ENTRY POINT
|
|
HDIS(FIL,DOMPTR,DOMAIN) | ; Do dummy 'seeding'
|
|
PSEED(FIL,DOMPTR,DOMAIN) | ||
PSTDONE(MSG) | ; display FINISHED message
|
|
DUMSEED(DGMFILE,DGDTAG) | ; New file <#nn.99> contains no data, can't be seeded unless there is at least one entry
; RACE MASTER (#10.99) file initial population data elements from DAT1099 line tag ; MASTER MARITAL STATUS (#11.99) file initial population data elements from DAT1199 line tag; ; MASTER RELIGION (#13.99) file initial population data elements from DAT1399 line tag; |
|
INSREC(DGFILE,DGIEN,DGFDA) | ; Insert DGIEN into file DGFILE with data in DGFDA
|
|
PSTHALT(MSG) | ; display error message
|
|
SEEDGRAM | ||
SEEDGMMS | ||
SEEDGMR |