*DECK C$ACCDY 
          IDENT  C$ACCDY
          TITLE  CBACCDY - ACCEPT FROM DAY
          MACHINE  ANY,I
          COMMENT  ACCEPT FROM DAY
          SST 
          B1=1
          SPACE  4
**        C.ACCDY - ACCEPT FROM DAY 
* 
*         CALLING SEQUENCE- 
*                RJ   C.ACCDY 
* 
*         INPUT-
*                NONE 
* 
*         OUTPUT- 
*                DAY IN FORMAT YYDDD IN X1 RIGHT-JUSTIFIED AND DISPLAY
*                CODE ZERO FILLED 
* 
*         DOES- 
*                GETS DATE USING SYSTEM MACRO JDATE AND APPENDS ZEROS 
* 
*         USES- 
*                A3,A1,X0,X1,X3 
*                C.TEMP,C.ZERO
* 
          SPACE  4
          ENTRY  C.ACCDY
 C.ACCDY  DATA   0
          JDATE  =XC.TEMP    GET DATE FROM SYSTEM 
          SA3    =XC.ZERO    WORD OF DISPLAY CODE ZEROS 
          MX0    30 
          BX3    X0*X3       MASK OFF LOWER 5 CHARS 
          SA1    =XC.TEMP 
          BX1    X1+X3       APPEND ZEROS TO DATE 
          EQ     C.ACCDY
          END 
