GMRCTU1 ; SLC/KR Get DD Info ; [11/8/99 1:57pm]
Source file <GMRCTU1.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 |
|---|---|---|
| INFO(FILE,FIELD,ORA) | ;
; ; DIC Global Root for <FILE> ; LOC Global Subscript Location (#;#) for <FIELD> ; ; INFO(<file #>,<field #>,.ARRAY) ; ; Returns ; ; ARRAY("DIC",0)=Global Root ; ARRAY("DIC",1)=File Root ; ARRAY("DIC",2)=Subfile Root ; ARRAY("DIC",..)=Subfile Root ; ARRAY("FILE")=Target File/Subfile Number ; ARRAY("FIELD")=Target Field ; ARRAY("NAME")=Target Field Name ; ARRAY("LOC")=Subscript and Piece ; |
|
| GETDD | ; Get file roots from DD
; ; FILE Current File # ; FIELD Current Field # ; DIC Current Global Root ; LOC Current Global Subscript Location (#;#) ; ARY( Temporay Storage Array (contains DD) ; ORA( Output Array ; |
|
| CURRDD | ; Current DD
; ; FILE Current File # ; DIC Current Global Root ; SFS Subfile Specifier Array ; ARY( Temporary Storage Array (contains DD) ; |
|
| NEXTDD | ; Next DD Level (for subfiles)
; ; OLDFILE Previous File # ; OLDFIELD Previous Field # ; OLDDIC Previous Global Root ; OLDLOC Previous Global Subscript Location (#;#) ; FILE Current File # ; FIELD Current Field # ; DIC Current Global Root ; SNS Subfile Number and Subfile Specifier ; LOC Current Global Subscript Location (#;#) ; ARY( Temporay Storage Array (contains DD) ; ORA( Output Array ; SUB( Subscript Array ; SFS( Subfile Specifier Array ; SUBI Subscript Counter ; SS Subscript ; DA Internal Entry Number Array ; CT1 Miscellaneous Counter #1 ; CT2 Miscellaneous Counter #2 ; |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | GETDD+9~, NEXTDD+24~ |
| ARY( | GETDD+9*, GETDD+10*, GETDD+11, GETDD+12, GETDD+13, NEXTDD+23, NEXTDD+24*, NEXTDD+25, NEXTDD+26*, NEXTDD+27 , NEXTDD+29 |
| CT1 | NEXTDD+21~, NEXTDD+34* |
| CT2 | NEXTDD+21~, NEXTDD+35*, NEXTDD+36 |
| DA | NEXTDD+34~* |
| DIC | INFO+18~*, INFO+22, CURRDD+7*, NEXTDD+22~, NEXTDD+29*, NEXTDD+32, NEXTDD+33, NEXTDD+34*, NEXTDD+36* |
| DIC2 | NEXTDD+21~ |
| FIELD | INFO~, INFO+18*, INFO+19, INFO+20, GETDD+9, GETDD+11, GETDD+12, NEXTDD+22~, NEXTDD+25*, NEXTDD+26 , NEXTDD+27, NEXTDD+29 |
| FIELD2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+24 |
| FILE | INFO~, INFO+18*, INFO+19, INFO+20, GETDD+9, GETDD+10, GETDD+11, GETDD+12, GETDD+13, CURRDD+7 , CURRDD+8, NEXTDD+22~, NEXTDD+23*, NEXTDD+24, NEXTDD+25, NEXTDD+26, NEXTDD+27, NEXTDD+29 |
| FILE2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+23, NEXTDD+25 |
| LOC | INFO+18~*, INFO+24, GETDD+12*, NEXTDD+22, NEXTDD+32* |
| LOC2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+32 |
| ORA | INFO~ |
| ORA("DIC" | INFO+22*, INFO+23*, NEXTDD+33*, NEXTDD+36* |
| ORA("FIELD" | INFO+20* |
| ORA("FILE" | INFO+20* |
| ORA("LOC" | INFO+24* |
| ORA("NAME" | GETDD+11* |
| SFS | INFO+18~, INFO+23, CURRDD+8* |
| SFS( | NEXTDD+30*, NEXTDD+36 |
| SNS | INFO+18~, NEXTDD+27*, NEXTDD+30 |
| SS | NEXTDD+34~, NEXTDD+36* |
| SUB | INFO+18~ |
| SUB( | NEXTDD+29*, NEXTDD+36 |
| SUB(" " | NEXTDD+28 |
| SUBI | INFO+18~, NEXTDD+28*, NEXTDD+29, NEXTDD+30, NEXTDD+34, NEXTDD+35 |
