ASUCOHKP ; IHS/ITSC/LMH -UPDATE HOUSEKEEPING ;
Source file <ASUCOHKP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SELSTA | ;
|
|
IBMCLR | ;CLEAR ISSUE BOOK MASTERS FOR PREVIOUSLY DELETED RECORDS
|
|
LOADDAY | ;
|
|
LOAD(Y) | ;EP; LOAD BEGINNING BALANCES
|
|
MSTLOOP | ;
|
|
RPTCLR | ;UPDATE CLEAR REPORT GLOBALS
|
|
BALANCE | ;UPDATE ACTIVE/INACTIVE OPENING BALANCE FILE AND REPORT 1 BALANCES
|
|
VOUCHER | ;RESET VOUCHER NUMBER
|
Name | Field # of Occurrence |
---|---|
READ^ASU0TRRD | LOAD+19 |
SETSP^ASUCOSTS | ASUCOHKP+15, ASUCOHKP+17, ASUCOHKP+19 |
SETST^ASUCOSTS | ASUCOHKP+9 |
^ASUMCUPD | BALANCE+2 |
^ASUMSTRD | MSTLOOP+7 |
READ^ASUMSTRD | LOAD+31 |
^ASUMXDIO | MSTLOOP+7 |
IDX^ASUMXDIO | LOAD+31 |
READ^ASUMXDIO | IBMCLR+36 |
WRITE^ASUMXDIO | IBMCLR+36 |
DATE^ASUUDATE | ASUCOHKP+10, ASUCOHKP+20 |
TIME^ASUUDATE | ASUCOHKP+10, ASUCOHKP+20 |
^ASUUPLOG | ASUCOHKP+11, ASUCOHKP+21, IBMCLR+2, IBMCLR+27, IBMCLR+28, IBMCLR+29, RPTCLR+3, SELSTA+3, MSTLOOP+2, LOADDAY+1 |
^ASUURANG | ASUCOHKP+12 |
RANGE^ASUURANG | LOADDAY+3 |
^XBKVAR | IBMCLR+1 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ASUH - [#9002036] | LOAD+18 |
^ASUH("I" | LOAD+7, LOAD+8, LOAD+13 |
^ASUMK - [#9002033] | IBMCLR+11!, IBMCLR+12!, IBMCLR+14, IBMCLR+16*, IBMCLR+18, IBMCLR+21!, IBMCLR+22!, IBMCLR+23, IBMCLR+25* |
^ASUMK("C" | IBMCLR+5, IBMCLR+8, IBMCLR+9, IBMCLR+13! |
^ASUMS - [#9002031] | SELSTA+5, MSTLOOP+4, MSTLOOP+5 |
^ASUMX - [#9002032] | IBMCLR+35 |
^ASUMX("B" | IBMCLR+4 |
^ASUMX("D" | IBMCLR+33, IBMCLR+34 |
^ASUSITE(1 | VOUCHER+1* |
^TMP("ASUMC" | MSTLOOP+9*, LOAD+37* |
^XTMP("ASUMA" | RPTCLR+4!, RPTCLR+5*, MSTLOOP+1!, MSTLOOP+8*, LOAD+2, LOAD+4, LOAD+5, LOAD+35* |
^XTMP("ASUR" | RPTCLR+7!* |
Name | Line Occurrences |
---|---|
BALANCE | ASUCOHKP+19 |
IBMCLR | ASUCOHKP+15 |
LOAD | LOADDAY+4 |
LOADDAY | BALANCE+1 |
MSTLOOP | SELSTA+4, SELSTA+5 |
RPTCLR | ASUCOHKP+17 |
SELSTA | BALANCE+1 |
VOUCHER | RPTCLR+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ASUC("ACT" | SELSTA+1* |
>> ASUC("CLRU" | IBMCLR+20*, IBMCLR+29 |
>> ASUC("CLRX" | IBMCLR+10*, IBMCLR+28, IBMCLR+30! |
>> ASUC("IDX" | IBMCLR+14*, IBMCLR+15*, IBMCLR+16, IBMCLR+17, IBMCLR+30! |
>> ASUC("REQ" | IBMCLR+23*, IBMCLR+24*, IBMCLR+25, IBMCLR+26 |
>> ASUC("STA" | SELSTA+1* |
>> ASUFB | LOAD+15*, LOAD+16*, LOAD+25, LOAD+34 |
>> ASUK("DT" | ASUCOHKP+11, ASUCOHKP+21, IBMCLR+36, RPTCLR+5 |
>> ASUK("HDG" | ASUCOHKP+8 |
>> ASUL(2 | SELSTA+4, LOADDAY+2, LOAD+18 |
>> ASUL(9 | MSTLOOP+8, MSTLOOP+9, LOAD+35, LOAD+37 |
ASUMK | IBMCLR+30! |
ASUMK("REQ" | IBMCLR+9*, IBMCLR+11, IBMCLR+12, IBMCLR+13, IBMCLR+14, IBMCLR+16, IBMCLR+18, IBMCLR+21, IBMCLR+22 |
ASUMK("SST" | IBMCLR+5*, IBMCLR+6, IBMCLR+7*, IBMCLR+8*, IBMCLR+9, IBMCLR+11, IBMCLR+12, IBMCLR+13, IBMCLR+14, IBMCLR+16 , IBMCLR+18, IBMCLR+21, IBMCLR+22, IBMCLR+23, IBMCLR+25, IBMCLR+27 |
ASUMS | LOAD+31! |
ASUMS("D/I" | LOAD+32 |
ASUMS("E#" | SELSTA+2*, SELSTA+4*, SELSTA+5*, MSTLOOP+3*, MSTLOOP+4*, MSTLOOP+5, MSTLOOP+6, MSTLOOP+8, MSTLOOP+9, LOADDAY+2* , LOAD+2, LOAD+4, LOAD+5, LOAD+35 |
ASUMS("QTY" | LOAD+32 |
ASUMS("VAL" | LOAD+32 |
ASUMX | IBMCLR+3!, LOAD+31! |
ASUMX("ACC" | LOAD+32 |
ASUMX("DELDT" | IBMCLR+36* |
ASUMX("E#" | IBMCLR+34*, IBMCLR+35, SELSTA+2*, MSTLOOP+6* |
ASUMX("IDX" | IBMCLR+3*, IBMCLR+4*, IBMCLR+5, IBMCLR+8, IBMCLR+9, IBMCLR+11, IBMCLR+12, IBMCLR+13 |
>> ASUN | LOADDAY+4 |
>> ASUN("TYP" | ASUCOHKP+12, LOADDAY+3 |
>> ASUP("CKP" | ASUCOHKP+13*, ASUCOHKP+14, ASUCOHKP+15*, ASUCOHKP+16, ASUCOHKP+17*, ASUCOHKP+18, ASUCOHKP+19* |
>> ASUP("CKT" | ASUCOHKP+4*, ASUCOHKP+7*, ASUCOHKP+8* |
>> ASUP("HLT" | ASUCOHKP+15, ASUCOHKP+17, ASUCOHKP+19 |
>> ASUP("OLIB" | RPTCLR+8 |
>> ASUP("TYP" | RPTCLR+8 |
ASURX | ASUCOHKP+11*, ASUCOHKP+21*, IBMCLR+2*, IBMCLR+27*, IBMCLR+28*, IBMCLR+29*, IBMCLR+30!, RPTCLR+3*, SELSTA+3*, MSTLOOP+2* , LOADDAY+1* |
>> ASUT | LOAD+21, LOAD+22, LOAD+23, LOAD+24, LOAD+27, LOAD+28, LOAD+29 |
>> ASUT( | LOAD+21, LOAD+22, LOAD+23, LOAD+24, LOAD+27, LOAD+28, LOAD+29 |
>> ASUT("TYPE" | LOAD+20, LOAD+26, LOAD+27, LOAD+28 |
>> ASUV("IDX" | IBMCLR+32*, IBMCLR+33*, IBMCLR+34 |
>> ASUV("RDT" | RPTCLR+5*, RPTCLR+7 |
U | IBMCLR+1, IBMCLR+14, IBMCLR+16, IBMCLR+23, IBMCLR+25, IBMCLR+35, RPTCLR+5, VOUCHER+1, MSTLOOP+5, LOAD+18 , LOAD+34 |
X | IBMCLR+11*, IBMCLR+18*, IBMCLR+19, IBMCLR+27, RPTCLR+6~*, RPTCLR+7*, LOAD+5~*, LOAD+10*, LOAD+11*, LOAD+16 , LOAD+34*, LOAD+35 |
X("ACC" | LOAD+24*, LOAD+32*, LOAD+34 |
X("D/I" | LOAD+23*, LOAD+27*, LOAD+32*, LOAD+34 |
X("DA" | LOAD+10*, LOAD+16, LOAD+34 |
X("QTY" | LOAD+22*, LOAD+28*, LOAD+29*, LOAD+32*, LOAD+34 |
X("VAL" | LOAD+21*, LOAD+28*, LOAD+29*, LOAD+32*, LOAD+34, LOAD+37 |
Y | LOAD~, LOAD+7*, LOAD+8*, LOAD+9*, LOAD+10, LOAD+13*, LOAD+14*, LOAD+15, LOAD+16*, LOAD+17 , LOAD+18, LOAD+19 |
Y("ACC" | LOAD+1*, LOAD+2*, LOAD+4, LOAD+5, LOAD+34 |
Y("B#" | LOAD+6, LOAD+7, LOAD+8, LOAD+12, LOAD+13 |
Y("E#" | LOAD+10 |
Y("IDX" | LOAD+3*, LOAD+4*, LOAD+5, LOAD+7, LOAD+8, LOAD+13, LOAD+31, LOAD+35, LOAD+37 |
Y("TYP" | LOAD+33 |