IBE585PO ;DAL/JCH - Patch IB*2.0*585 Post Install ;22-JUN-17
Source file <IBE585PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;MAIN ENTRY POINT
|
|
| HDIS(FIL,DOMPTR,DOMAIN) | ; do HDIS "seeding"
|
|
| PSEED(FIL,DOMPTR,DOMAIN) | ||
| PSTDONE(MSG) | ; display FINISHED message
|
|
| PSTHALT(MSG) | ; display error message
|
|
| DUMSEED | ; New file 355.99 contains no data, can't be seeded unless there is at least one entry?
|
|
| INSREC(IBFILE,IBIEN,IBFDA,IBFDAIEN) | ; Insert IBIEN into file IBFILE with data in IBFDA
|
|
| DAT35599 | ; Data to populate the MASTER TYPE OF PLAN (#355.99) file
|
