Routine: DDS10

Information

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