DDS10 ;SFISC/MKO-BLOCK SETUP ;21SEP2006
Source file <DDS10.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SET(DDS1B,DDS1E,DA,DDP,DIE,DL,DDSDA) | ;Get values for pointed-to block
|
|
BK(DDSBK,DDP) | ;Lookup block, get file number
|
|
GDA(DDS1B,DDS1E,DA) | ;Find new DA
|
|
GL(F,DA,DIE,DL,DDSDA,DDSL) | ;Get global root, level, and IEN
|
|
SUBGL | ;Get root and level for subfile
|
|
SUBER | ;Come here if an error is encountered in GL
|
|
DDSDA(DA,DL,DDSDA) | ;Determine DDSDA
|