*DECK C$DTCMP 
          IDENT  C$DTCMP
          TITLE  C.DTCMP - RETURN DATE-COMPILED 
          COMMENT  RETURN DATE-COMPILED 
          SST 
          B1=1
**        C.DTCMP - RETURN DATE-COMPILED
* 
*         CALLED VIA ENTER "C.DTCMP" USING NAME 
* 
          ENTRY  C.DTCMP
 C.DTCMP  DATA   0
          SB3    X1          ADDRESS OF RECEIVER
          AX1    21 
          MX4    60-3 
          BX5    -X4*X1      CLASS
          SX5    X5-3 
          NG     X5,PARAMER  ERROR IF NOT ALPHANUMERIC OR GROUP 
          AX1    30-21
          MX4    60-6 
          BX5    -X4*X1      BCP
          SB4    X5          RECEIVER OFFSET
          AX1    36-30
          MX4    60-17
          BX5    -X4*X1      SIZE 
          SX2    X5-8        NBR SPACES TO APPEND (FOR C.MOVE)
          NG     X2,PARAMER  ERROR IF LESS THAN 8 CHARACTERS
          BX2    -X2         CHARS TO APPEND MUST BE NEGATIVE 
          SB5    =XC.DTCMD   ADDRESS OF DATE
          SB6    B1          BCP OF SENDER
          SB7    8           NBR CHARACTERS TO MOVE 
          RJ     =XC.MOVE    MOVE TO RECEIVER 
          EQ     C.DTCMP     EXIT 
 PARAMER  BSS    0           ERROR IN PARAMETER 
          SX1    #CBDTC1
          SA3    C.DTCMP
          MX2    0
          SX3    X3-1        LINE NBR WORD
          MX6    0           RETURN 
          RJ     =XC.MSG     OUTPUT ERROR MESSAGE 
          EQ     C.DTCMP     EXIT 
          END 
