PRS8HD ;HISC/MGD-DECOMPOSITION, DETERMINE HOLIDAYS ;12/17/2008
Source file <PRS8HD.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;--- entry point
; pass PRS8D as date you want in VA FileMan format ; - where only year, i.e., 92 is passed, the first day is presumed ; pass PRS8D(0) containing a holiday code if specific one wanted ; if neither PRS8D or PRS8D(0) passed DT is assumed and all ; holidays for next year are returned |
|
| PASS | ;--- come back here for a second pass if necessary
|
|
| END | ;--- That's all folks
|
|
| SET | ;--- set nodes
|
|
| H | ;--- Actual Holidays
; PIECE1 PIECE2 PIECE3 PIECE4 PIECE5 PIECE6 ; actual month exact day 0=exact holiday how ; holiday day-of-week 1=1st wk code deter- ; 2=last wk mined ; - pc3 and 4 are used in concert 3=3rd wk ; 4=2nd wk,5=4th wk |
|
| EHOL | ;
|
|
| EHOLDC | ;
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | EN+11!, END+1! |
| %Y | EN+7~, PASS+6, PASS+11, PASS+25, PASS+31, PASS+34 |
| CT | EN+7~, EN+19*, PASS+55*, PASS+67*, PASS+69, SET+1* |
| D | EN+7~, PASS+3*, PASS+5, PASS+10 |
| D(1 | PASS+1*, PASS+3 |
| D(2 | PASS+1*, PASS+2, PASS+3, PASS+28, PASS+36 |
| D(3 | PASS+1*, PASS+2, PASS+36, SET+1 |
| DD | EN+7~, PASS+2*, PASS+4, PASS+5, PASS+12, PASS+13, PASS+14, PASS+16, PASS+21, PASS+22 , PASS+23, PASS+28, SET+1 |
| DD(1 | PASS+17*, PASS+18, PASS+20*, PASS+24 |
| DD(2 | PASS+17*, PASS+19* |
| DD(3 | PASS+17*, PASS+21*, PASS+22, PASS+23 |
| DDQ | EN+7~, PASS+17*, PASS+19*, PASS+20*, PASS+21*, PASS+22*, PASS+23* |
| DN | EN+7~, PASS+1*, PASS+3, PASS+26, PASS+28, PASS+30, PASS+38, PASS+40 |
| DT | EN+9, EN+10 |
| DX | EN+7~, PASS+5*, PASS+6, PASS+10*, PASS+11, PASS+16*, PASS+24*, PASS+25, PASS+30*, PASS+31 , PASS+33*, PASS+34 |
| H | END+1! |
| H( | EN+20*, EN+21*, PASS+1, PASS+2, PASS+36! |
| H(0 | PASS+37 |
| HD | EN+8! |
| HD( | PASS+53*, PASS+65*, SET+1* |
| HO | EN+8! |
| HO( | SET+1* |
| HO("E" | PASS+54*, PASS+66* |
| I | EN+21*, END+1! |
| J | EN+20*, EN+21*, END+1! |
| NY | EN+7~, EN+19*, PASS+29* |
| PRS8D | PRS8HD+11!, EN+10 |
| PRS8D(0 | EN+19, PASS+44 |
| PRS8D(1 | EN+8!, EN+11*, PASS+69* |
| PRSDT1 | EN+7~, EN+13*, PASS+46, PASS+50, PASS+62 |
| PRSDT2 | PASS+45~, PASS+46*, PASS+51, PASS+63 |
| PRSI | PASS+45~, PASS+49*, PASS+61* |
| PRSX | PASS+45~, PASS+49*, PASS+50, PASS+51, PASS+53, PASS+54, PASS+61*, PASS+62, PASS+63, PASS+65 , PASS+66 |
| U | PASS+50, PASS+51, PASS+53, PASS+54, PASS+58, PASS+62, PASS+63, PASS+65, PASS+66 |
| X | EN+10*, EN+11*, EN+12*, EN+13, PASS+1, PASS+5*, PASS+6*, PASS+8, PASS+10*, PASS+11* , PASS+15, PASS+16, PASS+17, PASS+19, PASS+20, PASS+24*, PASS+25*, PASS+26, PASS+30*, PASS+31* , PASS+33, PASS+34*, PASS+38*, PASS+39*, PASS+40*, END+1!, SET+1 |
| X1 | EN+19*, EN+20*, EN+21, PASS+8*, PASS+15*, PASS+18*, PASS+33*, PASS+40*, END+1! |
| X2 | EN+19*, EN+20, PASS+8*, PASS+13*, PASS+14*, PASS+18*, PASS+33*, END+1! |
| Y | EN+11, PASS+6*, PASS+8, PASS+11*, PASS+12, PASS+13, PASS+14, PASS+25*, PASS+31*, PASS+34* , END+1!, SET+1 |
