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 |
