ASUUDATE ; IHS/ITSC/LMH -DATE UTILITY FUNCTIONS ;
Source file <ASUUDATE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETRUN | ;EP ; -SET RUN DATE EQUAL DATE
|
|
| DAYTIM | ;EP; -SET DATE AND TIME
|
|
| GETRUN | ;EP ; -GET RUN FISCAL YEAR AND MONTH
|
|
| SETQTR | ;EP ;INPUT- DT AND ASUP("MO") OUTPUT- ASUP("QTR") IN YRQT FORMAT
|
|
| ASKDATE | ;EP -ASK FOR A DATE AND SET ASUK("DT") ARRAY
|
|
| SETDT(X) | ||
| TIME | ;EP; -SET ASUK("TIME")
|
|
| DATE | ;EP; -SET ASUK("DT")
|
|
| SETMO(X) | ;EP ; -SET MONTHLY RUN PARAMETERS
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ASUSITE(1 | SETRUN+15 |
| ^DD("DD" | DATE+3, ASKDATE+2 |
| Name | Line Occurrences |
|---|---|
| DATE | DAYTIM+1, GETRUN+1, SETRUN+1, SETQTR+1 |
| SETDT | DATE+4, ASKDATE+3 |
| TIME | DAYTIM+2, ASKDATE+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DATE+3 |
| %DT | ASKDATE+1~* |
| >> %H | SETDT+22, SETDT+23, TIME+2*, TIME+3 |
| >> ASUK("DT" | DAYTIM+3, DATE+2, SETDT+1*, SETDT+2*, SETDT+3*, SETDT+4*, SETDT+5*, SETDT+6*, SETDT+7*, SETDT+8* , SETDT+9*, SETDT+10*, SETDT+11*, SETDT+12, SETDT+13*, SETDT+14*, SETDT+15*, SETDT+16*, SETDT+17*, SETDT+18* , SETDT+19*, SETDT+20, SETDT+21*, SETDT+23*, TIME+5, TIME+6*, TIME+8*, GETRUN+1, GETRUN+4*, GETRUN+5* , GETRUN+6*, GETRUN+7*, GETRUN+8, GETRUN+9*, SETMO+2, SETMO+5, SETMO+6, SETMO+7, SETMO+8, SETRUN+1 , SETRUN+2*, SETRUN+5, SETRUN+6, SETRUN+7*, SETRUN+8*, SETRUN+9*, SETRUN+10*, SETRUN+12*, SETRUN+13*, SETRUN+14* , SETRUN+15*, SETRUN+16*, SETRUN+17, SETRUN+18, SETRUN+20, SETRUN+23, SETRUN+24, SETRUN+25, SETRUN+26, SETRUN+28 , SETQTR+1 |
| >> ASUK("TIME" | DAYTIM+3, SETDT+23*, SETDT+24*, TIME+3*, TIME+4*, TIME+6 |
| >> ASUP("ERR" | SETMO+4*, SETMO+8*, SETMO+9* |
| >> ASUP("LSMO" | SETRUN+5 |
| >> ASUP("MO" | SETMO+1*, SETMO+3, SETMO+5, SETMO+6, SETMO+7, SETMO+8, SETQTR+2, SETQTR+5 |
| >> ASUP("MOE" | SETRUN+5 |
| >> ASUP("MOL" | SETMO+5, SETMO+7, SETRUN+5 |
| >> ASUP("MOYR" | SETMO+3* |
| >> ASUP("QTR" | SETQTR+5* |
| >> ASUP("TYP" | SETRUN+20 |
| >> ASUP("YR" | SETMO+2*, SETMO+3, SETQTR+4 |
| >> ASUT | DAYTIM+3 |
| >> ASUT( | DAYTIM+3* |
| >> ASUV("YR" | SETQTR+4*, SETQTR+5, SETQTR+6! |
| DIR | GETRUN+2!, SETRUN+33! |
| DIR("A" | SETQTR+2* |
| DIR(0 | GETRUN+2*, SETRUN+33* |
| >> DTOUT | GETRUN+3, SETQTR+3 |
| >> DUOUT | GETRUN+3, SETRUN+34*, SETQTR+3 |
| DUZ | DAYTIM+3 |
| U | SETRUN+15 |
| X | DATE+1~, DATE+4, SETDT~, SETDT+1, SETDT+3, SETDT+4, SETDT+5, SETDT+6, SETDT+8, SETDT+21 , ASKDATE+1*, ASKDATE+3, TIME+1~, SETMO~, SETMO+1, SETMO+2, SETRUN+6*, SETRUN+7 |
| >> X1 | SETDT+20* |
| >> X2 | SETDT+20* |
| >> Y | DATE+3*, SETDT+1, SETDT+24, ASKDATE+1, TIME+3, TIME+8, GETRUN+5 |