ASURM17P ; IHS/ITSC/LMH - REPORT 17 AREA MONTHLY SUB-SUB-ACTIVITY ;
Source file <ASURM17P.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
QUIT | ;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
|
|
SET | ;----- SETS DATA INTO ^XTMP("ASUR","R17") GLOBAL
|
|
GET | ;EP ; GATHER DATA
|
|
1 | ;----- LOOP THROUGH AREA SUBSCRIPT
|
|
PRT | ;----- PRINT THE DATA
|
|
3 | ;----- LOOP THROUGH GENERAL LEDGER ACCOUNT SUBSCRIPT
|
|
EN | ;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
|
|
EN1(ASUDT,ASUTYP) | ||
LOOPS | ;----- LOOPS THROUGH ^XTMP("ASUR","R17") GLOBAL AND PRINTS THE
; REPORT |
|
2 | ;----- LOOP THROUGH SUB-SUB-ACTIVITY SUBSCRIPT
|
|
DQ | ;EP -- QUEUED JOB STARTS HERE
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ASUH - [#9002036] | GET+28 |
^ASUTH("AX" | GET+26, GET+27 |
^XTMP("ASUR" | GET+18!, SET+20*, SET+21*, SET+22*, SET+23*, PRT+11, 1+3, 1+8, 1+11, 1+15 , 2+2, 3+3, 3+5, QUIT+3! |
Name | Line Occurrences |
---|---|
2 | 1+6 |
3 | 2+4 |
GET | DQ+7 |
LOOPS | PRT+19 |
PRT | DQ+7 |
QUIT | EN+4, EN+8, DQ+7 |
SET | GET+34 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ASU | DQ+5~ |
ASU("DT" | GET+21*, GET+22*, GET+23*, GET+25, GET+26 |
ASU("TC" | GET+31, SET+17, SET+18 |
ASU0 | GET+17~, GET+28*, GET+29 |
ASU1 | GET+17~, GET+25*, GET+26*, GET+27, SET+18 |
ASU2 | GET+17~, GET+27*, GET+28, GET+30 |
ASUD | DQ+5~ |
ASUD("ACC" | SET+20, SET+23, 1+8*, 1+10, 1+11 |
ASUD("AREA" | SET+20, SET+21, SET+22, SET+23, PRT+14 |
ASUD("SSA" | SET+22, SET+23 |
ASUD("STATUS" | GET+32, GET+33 |
ASUD("TRANS" | GET+28*, GET+31, SET+17, SET+18 |
ASUD("VAL" | SET+20, SET+21, SET+22, SET+23 |
ASUDATA | 1+2~, 1+11*, 1+12, 1+15*, 1+16, 3+2~, 3+5*, 3+8 |
ASUDT | EN+2~, EN+4, EN1~, GET+19, 1+5, 1+7, 1+9, 1+13, 3+6 |
ASUDT("DXTRACT" | GET+20, SET+18 |
ASUHDR | PRT+9~, 1+5, 1+7, 1+9, 1+13, 3+6 |
ASUHDR(1 | PRT+13* |
ASUHDR(2 | PRT+14* |
ASUHDR(4 | PRT+15* |
ASUHDR(5 | PRT+16* |
ASUHDR(6 | PRT+17* |
>> ASUK("PTRSEL" | QUIT+4 |
ASUL | PRT+9~ |
ASUL(1 | 1+3*, 1+4, 1+8, 1+11, 1+15, 2+2, 3+3, 3+5 |
ASUL(2 | 2+2*, 2+3, 3+3, 3+5, 3+7 |
ASUL(3 | 3+3*, 3+4, 3+5, 3+7 |
ASUOUT | PRT+9~, PRT+10*, 1+3, 1+5, 1+6, 1+7, 1+8, 1+9, 1+13, 2+2 , 2+4, 3+3, 3+6 |
ASUPAGE | PRT+9~, 1+5, 1+7, 1+9, 1+13, 3+6 |
ASUPC | SET+16~, SET+19*, SET+20, SET+21, SET+22, SET+23 |
ASUPCM | SET+16~, SET+18*, SET+19 |
ASUPCY | SET+16~, SET+17*, SET+19 |
ASUTYP | EN+2~, EN1~, GET+19, 1+5, 1+7, 1+9, 1+13, 3+6 |
IOF | QUIT+4 |
IOSL | 1+9, 1+13, 3+6 |
U | GET+28, SET+20, SET+21, SET+22, SET+23 |
ZTSAVE | EN+7, QUIT+2! |
ZTSAVE("ASUDT" | EN+6* |
ZTSAVE("ASUTYP" | EN+6* |