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 |