&DL      PROC  &P,1,&ERROR=,&DELAY=                                     00000000
XJOURN   NAME  X   . 07/31/74 ICAM/7 CONVERSION                         00000100
JOURN    NAME  0   . MPPS JOURNAL FUNCTION (PACKET)                     00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBLA  &XJP                                                     00001100
&XJP     SETA  &XJP+1
         DO    ''='&P(1)'                                               00001700
         PNOTE 'TK013','JOURNAL FILE NAME NOT SPECIFIED'                00001800
         GOTO  .B                                                       00001900
         ENDO                                                           00002000
         DO    1-(''='&DL')                                             00002100
&DL      EQU   *                                                        00002200
         ENDO                                                           00002300
TK#LJB&XJP EQU *                                                        00002400
         DC    Y(TK#LJR-TK#LMPPS)  . JOURNAL FUNCTION CODE              00002500
         DC    Y(TK#LJE&XJP-TK#LJB&XJP) . LENGTH                        00002600
         DC    A(&P(1)-20)       . ADDRESS OF JOURNAL ADDRESS TABLE     00002700
         DC    XL1'01'           . JOURN JEC
         DO    ''='&DELAY'
         DC    XL3'00'           . DEFAULT DELAY VALUE
         GOTO  .A
         ENDO
         DC    XL3'&DELAY'       . USER SPECIFIED DELAY
.A       LABEL
         DO    (''='&ERROR')=0
         DC    A(&ERROR)         . USER SPECIFIED ERROR ADDRESS
         ENDO
         EXTRN &P(1)                                                    00002800
TK#LJE&XJP EQU *                                                        00002900
.B       LABEL                                                          00003000
         END                                                            00003100
