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* |