DIQGDD ;SFISC/DCL-DATA DICTIONARY ATTRIBUTE RETRIEVER ;10:55 AM 8 Nov 2000 [ 04/02/2003 8:25 AM ]
Source file <DIQGDD.m>
Package | Total | Caller Graph |
---|---|---|
VA Fileman | 4 | DDBR3 DID DIQGDD0 DIQGDDF |
Name | Comments | DBIA/ICR reference |
---|---|---|
200 | ||
SET | ||
GET(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR) | ;
|
|
DR(TYPE) | ;TYPE=1,FILE OR 0,FIELD AND RETURNS DR STRING FOR ALL ATTRIBUTES IN INTERNAL FORM (ATTRIBUTE FIELD NUMBERS 3RD ;-PIECE
|
|
FIELD(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) | ;
|
|
ATRBT(TYPE,ATRIB) | ;EXTRINSIC FUNCTION $$TEST IF VALID ATTRIBUTE
|
|
XDR(DIQGR,DR,DIQGERR) | ;DIQGR DD FILE NUMBER EITHER 1 OR 0
|
|
EN1 | ||
BLDSAL(DIQGTYPE,DIQGDR,DIQGVALA) | ;DIQGTYPE=1 for FILE and 0 for FIELD, DIQGDR=string/array, DIQGVALA=valid attribute list array
; * If DIQGDR is an array pass by reference * |
|
EN3 | ||
EN4 | ||
FILELST(DIDARRAY) | ;PASS TARGET ARRAY BY REFERENCE * * LIST FILE ATTRIBUTES * *
|
|
FE | ||
202(E) | ||
FIELDLST(DIDARRAY) | ;PASS TARGET ARRAY BY REFERENCE * * LIST FIELD ATTRIBUTES * *
|
|
OREF(X) | ||
Q(%Z) | ||
OR2(%) | ||
EN5 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | EN3+5, EN1+6, EN1+9, EN1+11 |
^DIC - [#1] | EN3+3 |
^TMP("DIERR" | EN3+1!, EN1+3! |
Name | Line Occurrences |
---|---|
$$ATRBT | EN3+10 |
$$OR2 | OREF |
$$OREF | EN1+16 |
$$Q | EN1+16 |
200 | EN3+5, EN3+6, EN1+10, EN1+11, EN1+13, BLDSAL+5, BLDSAL+9 |
202 | EN3+10, EN1+4, EN1+5, EN1+6, EN1+7 |
BLDSAL | EN1+12 |
FE | EN1+9, 200, 202+1 |
SET | EN1+17 |
Name | Field # of Occurrence |
---|---|
^( | EN3+5, EN1+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | OR2~* |
%Z | Q~* |
%Z( | Q* |
%Z("" | Q |
ATRIB | ATRBT~, ATRBT+3, ATRBT+5 |
DA | GET~, EN3+3*, EN3+5*, EN3+6, EN3+7, FIELD~, EN1+5, EN1+9*, EN1+10, EN1+11 , EN1+17, EN1+18 |
DIDARRAY | FILELST~, FIELDLST~ |
DIERR | EN3+1!, EN1+3!, EN1+13 |
DIQGDFLG | EN4~, EN4+1*, EN5~, EN5+1* |
DIQGDR | BLDSAL~, BLDSAL+2, BLDSAL+4 |
DIQGDR( | BLDSAL+8 |
DIQGER | BLDSAL+3~ |
DIQGER(4 | BLDSAL+5*, BLDSAL+9* |
DIQGERR | EN1~, XDR~ |
DIQGERR( | XDR+5*, XDR+8* |
DIQGERRA | GET~, FIELD~, FE |
DIQGETA | GET~ |
DIQGEY | EN1~ |
DIQGEY(1 | EN1+1* |
DIQGEY(3 | EN1+10*, EN1+11* |
DIQGFNUL | EN1~, EN1+8*, SET+1 |
DIQGI | BLDSAL+3~, BLDSAL+4* |
DIQGIPAR | GET~, EN3+1, FIELD~, EN1+3 |
DIQGPARM | GET~, EN3+4*, FIELD~, EN1+8*, EN1+18 |
DIQGR | GET~, EN3+2, EN3+3*, EN3+4, EN3+5, EN3+7, EN3+10, FIELD~, EN1+1, EN1+4 , EN1+6, EN1+9, EN1+11, EN1+17, EN1+18, XDR~, XDR+2*, XDR+3 |
DIQGSAL | EN1~, EN1+12, EN1+13, EN1+14, EN1+15*, EN1+16, EN1+17, EN1+18, SET, SET+2 |
DIQGSAL( | EN1+15, EN1+16, EN1+18 |
DIQGSALX | EN1~, EN1+17*, EN1+18*, SET, SET+2 |
DIQGTA | FIELD~, EN1+7, EN1+16, SET, SET+2 |
DIQGTAXX | EN1~, EN1+16*, EN1+18 |
DIQGTYPE | BLDSAL~, BLDSAL+2, BLDSAL+3 |
DIQGVALA | BLDSAL~, BLDSAL+2, BLDSAL+7 |
DIQGVALA( | BLDSAL+6*, BLDSAL+10* |
DIQGX | BLDSAL+3~ |
DIQGX( | BLDSAL+5, BLDSAL+6, BLDSAL+9, BLDSAL+10 |
DIQGY | BLDSAL+3~, BLDSAL+4*, BLDSAL+5, BLDSAL+6, BLDSAL+8*, BLDSAL+9, BLDSAL+10 |
DR | GET~, EN3+7, EN3+8, EN3+9~, EN3+10*, FIELD~, EN1+12, XDR~, XDR+2*, XDR+4 , XDR+7 |
DR( | XDR+7 |
DRSV | EN3+9~*, EN3+10 |
E | 202~ |
EQL | EN4~, EN5~ |
I | XDR+3~, XDR+4* |
TP | EN4~, EN5~ |
TYPE | ATRBT~, ATRBT+4, DR~, DR+1*, DR+3, EN4~, EN4+1*, EN5~, EN5+1* |
U | EN3~*, EN1+2~* |
X | EN3+2~, EN3+3, EN1+9~, XDR+3~, XDR+4*, XDR+5, XDR+6, XDR+7*, XDR+8, XDR+9 , ATRBT+4~, DR+2~, DR+3, DR+4*, DR+5, OREF~, 202~, 202+1 |
X( | XDR+5, XDR+6, XDR+7, XDR+8, XDR+9, ATRBT+5, DR+4 |
X("FILE" | EN1+9* |
X(1 | EN3+2*, EN3+3*, EN1+9*, 202* |
X1 | OREF~* |
X2 | OREF~* |
XDR | XDR+3~, XDR+4*, XDR+6*, XDR+7*, XDR+9*, XDR+10 |
Y | DR+2~, DR+4* |