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