Routine: DIQG

Information

DIQG ;SFISC/DCL - DATA RETRIEVAL PRIMITIVE ;7AUG2015

Source file <DIQG.m>

Name	Comments	DBIA/ICR reference
GET(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR)	; file,rec,fld,parm,targetarray,errarray,int
DDENTRY
DA
DFF
D0
DD
FIELD
TRYCOMP
GIVEUP
DIQ
C
CP
REAL
AUDIT
OUT
BMW	;PUT WORD-PROCESSING FIELD INTO @DIQGETA
CREF(X)
WP(DIQGSA,DIQGTA,DIQGZN,DIQGP)
DY(Y)
IEN(IEN,DA)
DDROOT(X)
CMPAUD(DEXPR,DIQGS)	;DEXPR is Expression, DIQGS is string of Fields used
EXPR(DIFILE,DIEXPR)
F(DIQGEY,X)
FE
TXT	;;