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 |