&DL      PROC  &P,1                                                     00000000
XDATSTP  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
DATSTP   NAME  0    . MPPS DATE STAMP (PACKET)                          00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XD                                                      00001100
.* .                                                                    00001200
         DO    ''='&XD'                                                 00001300
&XD      SET   0                                                        00001400
         ENDO                                                           00001500
&XD      SET   &XD+1                                                    00001600
         DO    1-((''='&P(1)')++('N'='&P(1)')++('J'='&P(1)'))           00001700
         PNOTE 'TK004W','''N'' ASSUMED. PARAMETER NOT ''N'' OR ''J'''   00001800
         ENDO                                                           00001900
         DO    1-(''='&DL')                                             00002000
&DL      EQU   *                                                        00002100
         ENDO                                                           00002200
TK#LDB&XD EQU  *                                                        00002300
         DC    Y(TK#LDAT-TK#LMPPS)    . DATSTP FUNCTION CODE            00002400
         DC    Y(TK#LDE&XD-TK#LDB&XD) . LENGTH                          00002500
         DO    ('J'='&P(1)')                                            00002600
         DC    Y(6)                . 6 CHARS                            00002700
         DC    CL1'J'              . JULIAN DATE                        00002800
         GOTO  .B                                                       00002900
         ENDO                                                           00003000
         DC    Y(9)                . 9 CHARS                            00003100
         DC    CL1'N'              . GREGORIAN DATE                     00003200
.B       LABEL                                                          00003300
         DC    XL1'00'                 . RESERVED                       00003400
TK#LDE&XD EQU  *                                                        00003500
         END                                                            00003600
