DIQGDD ;SFISC/DCL - DATA DICTIONARY ATTRIBUTE RETRIEVER ;7FEB2017
Source file <DIQGDD.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| BLD^DIALOG | EN1+9, ONEATT+3, 200, 202+1 |
| CALLOUT^DIEFU | FE |
| $$GETMETH^DIETLIBF | ONEATT+5 |
| $$GETPROP^DIETLIBF | ONEATT+6 |
| $$F^DIQG | EN3+2, EN3+4 |
| $$GET^DIQG | ONEATT+20 |
| DDENTRY^DIQG | EN3+15 |
| ENLST^DIQGDDT | EN4+2, EN5+2 |
| LIST^DIQGDDT | BLDSAL+2, BLDSAL+3, XDR+3, ATRBT+4, DR+3 |
| $$FL^DIQGDDU | ONEATT+19 |
| RI^DIQGDDU | EN3+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | OR2~* |
| %Z | Q~* |
| %Z( | Q* |
| %Z("" | Q |
| A | ONEATT+1~, ONEATT+5*, ONEATT+6*, ONEATT+8*, ONEATT+11, ONEATT+12, ONEATT+13, ONEATT+14, ONEATT+15, ONEATT+16 , ONEATT+17, ONEATT+18 |
| ATRIB | ATRBT~, ATRBT+3, ATRBT+5 |
| DA | GET~, EN3+3*, EN3+4*, EN3+6*, EN3+7, EN3+12, FIELD~, EN1+5, EN1+9*, EN1+10 , EN1+11, EN1+16, ONEATT~, ONEATT+3, ONEATT+4, ONEATT+5, ONEATT+6, ONEATT+7, ONEATT+8, ONEATT+19 , ONEATT+20 |
| DIDARRAY | FILELST~, FIELDLST~ |
| DIERR | EN3+1!, EN1+3!, EN1+13 |
| DIFILE | EN3+4~*, EN3+10, EN3+12 |
| DIQGDFLG | EN4~, EN4+1*, EN5~, EN5+1* |
| DIQGDR | BLDSAL~, BLDSAL+2, BLDSAL+5 |
| DIQGDR( | BLDSAL+9 |
| DIQGER | BLDSAL+3~ |
| DIQGER(4 | BLDSAL+6*, BLDSAL+10* |
| DIQGERR | EN1~, XDR~ |
| DIQGERR( | XDR+5*, XDR+8* |
| DIQGERRA | GET~, FIELD~, FE |
| DIQGETA | GET~, EN3+12 |
| DIQGEY | EN1~ |
| DIQGEY(1 | EN1+1* |
| DIQGEY(3 | EN1+10*, EN1+11* |
| DIQGFNUL | EN1~, EN1+8*, EN1+18 |
| DIQGI | BLDSAL+3~, BLDSAL+5* |
| DIQGIPAR | GET~, EN3+1, FIELD~, EN1+3 |
| DIQGPARM | GET~, EN3+12*, FIELD~, EN1+8*, ONEATT+20 |
| DIQGR | GET~, EN3+2, EN3+3*, EN3+4*, EN3+6, EN3+12, FIELD~, EN1+1, EN1+4, EN1+6 , EN1+9, EN1+11, EN1+16, ONEATT~, ONEATT+3, ONEATT+4, ONEATT+5, ONEATT+6, ONEATT+7, ONEATT+8 , ONEATT+19, ONEATT+20, XDR~, XDR+2*, XDR+3 |
| DIQGSAL | EN3+9~, EN3+10, EN3+11*, EN3+12, EN1~, EN1+12, EN1+13, EN1+14, EN1+15*, EN1+16 , EN1+17, EN1+19, ONEATT~, ONEATT+2, ONEATT+5, ONEATT+6, ONEATT+7, ONEATT+11, ONEATT+12, ONEATT+13 , ONEATT+14, ONEATT+15, ONEATT+16, ONEATT+17, ONEATT+18, ONEATT+19, ONEATT+20 |
| DIQGSAL( | EN1+15, ONEATT+2, ONEATT+20 |
| DIQGSALX | EN1~, EN1+16*, EN1+17, EN1+19, ONEATT+1~, ONEATT+4, ONEATT+5*, ONEATT+6*, ONEATT+7*, ONEATT+21 |
| DIQGTA | FIELD~, EN1+7, EN1+16, EN1+17, EN1+19, ONEATT~, ONEATT+2 |
| DIQGTAXX | ONEATT+1~, ONEATT+2*, ONEATT+20 |
| DIQGTYPE | BLDSAL~, BLDSAL+2, BLDSAL+3 |
| DIQGVALA | BLDSAL~, BLDSAL+2*, BLDSAL+8 |
| DIQGVALA( | BLDSAL+7*, BLDSAL+11* |
| DIQGX | BLDSAL+3~, BLDSAL+4* |
| DIQGX( | BLDSAL+6, BLDSAL+7, BLDSAL+10, BLDSAL+11 |
| DIQGY | BLDSAL+3~, BLDSAL+5*, BLDSAL+6, BLDSAL+7, BLDSAL+9*, BLDSAL+10, BLDSAL+11 |
| DR | GET~, EN3+8, EN3+10, EN3+11, EN3+12~, EN3+14*, FIELD~, EN1+12, XDR~, XDR+2* , XDR+4, XDR+7 |
| DR( | XDR+7 |
| E | 202~ |
| EQL | EN4~, EN5~ |
| I | XDR+3~, XDR+4* |
| T | ONEATT+1~, ONEATT+8*, ONEATT+13, ONEATT+14, ONEATT+15, ONEATT+16, ONEATT+17 |
| TP | EN4~, EN5~ |
| TYPE | ATRBT~, ATRBT+4, DR~, DR+1*, DR+3, EN4~, EN4+1*, EN5~, EN5+1* |
| U | EN3~*, EN1+2~*, ONEATT+4, ONEATT+7, ONEATT+8, ONEATT+11, ONEATT+14, ONEATT+15, ONEATT+16, ONEATT+17 |
| X | EN3+2~, EN3+4, 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+4*, EN1+9*, 202* |
| X1 | OREF~* |
| X2 | OREF~* |
| XDR | XDR+3~, XDR+4*, XDR+6*, XDR+7*, XDR+9*, XDR+10 |
| Y | ONEATT+13~*, DR+2~, DR+4* |
