Routine: DDS5

Information

DDS5 ;SFISC/MKO-MULTS,NEXT/PREV PAGE,NEXT BLOCK ;9:53 AM 1 Oct 1999

Source file <DDS5.m>

Name	Comments	DBIA/ICR reference
MULT	;
LST(DA,DDSDL,DDP,DDSDA,DDSFLD)	;Save last edited subrecord
SEL	;Issue the read at the Select mult prompt
DDA(Y,DA,DL)	;Push Y onto DA array
UDA(DA,DL)	;Pop DA array
NP(Y)	;Returns: Next page ; (Y=1 if found, 0 if not found)
PP(Y)	;
NB(Y)	;