DIQGDD ;SFISC/DCL - DATA DICTIONARY ATTRIBUTE RETRIEVER ;7FEB2017
Source file <DIQGDD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR) | ;
|
|
| EN3 | ||
| FIELD(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) | ;
|
|
| EN1 | ||
| ONEATT(DIQGR,DA,DIQGSAL,DIQGTA) | ;FOR FIELD DA IN FILE DIQGR, GET ATTRIBUTE 'DIQGSAL'
|
|
| BLDSAL(DIQGTYPE,DIQGDR,DIQGVALA) | ;DIQGTYPE=1 for FILE and 0 for FIELD, DIQGDR=string/array, DIQGVALA= OUTPUT: valid attribute list array
; If DIQGDR is an array pass by reference |
|
| XDR(DIQGR,DR,DIQGERR) | ;DIQGR DD FILE NUMBER EITHER 1 OR 0
|
|
| ATRBT(TYPE,ATRIB) | ;EXTRINSIC FUNCTION $$TEST IF VALID ATTRIBUTE
|
|
| DR(TYPE) | ;TYPE=1,FILE OR 0,FIELD AND RETURNS DR STRING FOR ALL ATTRIBUTES IN INTERNAL FORM (ATTRIBUTE FIELD NUMBERS 3RD ;-PIECE
|
|
| FILELST(DIDARRAY) | ;PASS TARGET ARRAY BY REFERENCE * * LIST FILE ATTRIBUTES * *
|
|
| EN4 | ||
| FIELDLST(DIDARRAY) | ;PASS TARGET ARRAY BY REFERENCE * * LIST FIELD ATTRIBUTES * *
|
|
| EN5 | ||
| OREF(X) | ||
| OR2(%) | ||
| Q(%Z) | ||
| 200 | ||
| 202(E) | ||
| FE |
