VAQUTL95 ;ALB/JFP/JRP - SETS COMMONLY USED VARIABLES;01-APR-93
Source file <VAQUTL95.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 |
|---|---|---|
| STATPTR | ; -- Sets PDX status pointers
|
|
| PAUSE | ; -- Pauses the screen
|
|
| END | ; -- End of code
|
|
| IMPDTE(XMITDATE) | ;CHECK DATE USED IN PDX TRANSMISSIONS FOR PRECISENESS
|
|
| AMPMTIME(XMITTIME) | ;PLACE AM/PM ON END OF TIME USED IN PDX TRANSMISSIONS
|
|
| CHCKDT(XMITDT) | ;CHECK DATE AND TIME OF PDX TRANSMISSION
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VAT(394.85 - [#394.85] | STATPTR+2, STATPTR+3 |
| Name | Line Occurrences |
|---|---|
| $$AMPMTIME | CHCKDT+14 |
| $$IMPDTE | CHCKDT+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE | CHCKDT+11~, CHCKDT+12*, CHCKDT+13, CHCKDT+16 |
| DAY | IMPDTE+12~, IMPDTE+15*, IMPDTE+22 |
| DIR | PAUSE+1! |
| DIR("A" | PAUSE+1* |
| DIR(0 | PAUSE+1* |
| HOUR | AMPMTIME+20~, AMPMTIME+21*, AMPMTIME+24, AMPMTIME+25, AMPMTIME+26, AMPMTIME+28 |
| MONTH | IMPDTE+12~, IMPDTE+14*, IMPDTE+20, IMPDTE+22 |
| OUTPUT | AMPMTIME+20~, AMPMTIME+22*, AMPMTIME+25*, AMPMTIME+26*, AMPMTIME+28*, AMPMTIME+29 |
| TIME | CHCKDT+11~, CHCKDT+14*, CHCKDT+15, CHCKDT+16 |
| >> VAQRSLT | STATPTR+1*, STATPTR+2* |
| >> VAQUNSOL | STATPTR+1*, STATPTR+3* |
| XMITDATE | IMPDTE~, IMPDTE+9, IMPDTE+10, IMPDTE+14, IMPDTE+15, IMPDTE+16, IMPDTE+24 |
| XMITDT | CHCKDT~, CHCKDT+9, CHCKDT+12, CHCKDT+14 |
| XMITTIME | AMPMTIME~, AMPMTIME+14, AMPMTIME+15*, AMPMTIME+16*, AMPMTIME+17, AMPMTIME+18*, AMPMTIME+21, AMPMTIME+25, AMPMTIME+26, AMPMTIME+28 |
| YEAR | IMPDTE+12~, IMPDTE+16*, IMPDTE+18, IMPDTE+20, IMPDTE+22 |