&DL      PROC  &P,3                                                     00000000
XERRMSG  NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
ERRMSG   NAME  0    . MPPS ERROR MESSAGE (PACKET)                       00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XE                                                      00001100
         DO    ''='&XE'                                                 00001200
&XE      SET   0                                                        00001300
         ENDO                                                           00001400
&XE      SET   &XE+1                                                    00001500
         DO    ''='&P(1)'                                               00001600
         PNOTE 'TK009','ERRMSG MASK NOT SPECIFIED'                      00001700
         GOTO  .A                                                       00001800
         ENDO                                                           00001900
         DO    ''='&P(2)'                                               00002000
         PNOTE 'TK010','TERMINAL TO RECEIVE ERROR MSG NOT SPECIFIED'    00002100
         GOTO  .A                                                       00002200
         ENDO                                                           00002300
         DO    ''='&P(3)'                                               00002400
         PNOTE 'TK011','ERROR MESSAGE TEXT NOT SPECIFIED'               00002500
         GOTO  .A                                                       00002600
         ENDO                                                           00002700
         DO    1-(''='&DL')                                             00002800
&DL      EQU   *                                                        00002900
         ENDO                                                           00003000
TK#LEB&XE EQU  *                                                        00003100
         DC    Y(TK#LERR-TK#LMPPS)    . ERRMSG FUCTION CODE             00003200
         DC    Y(TK#LEE&XE-TK#LEB&XE) . LENGTH                          00003300
         DC    AL2(&P(1))          . ERROR MASK                         00003400
         DC    Y(0)                . RESERVED                           00003500
         DC    CL4'&P(2)'          . TERM NAME - DEST                   00003600
TK#LEC&XE DC   C&P(3)              . ERROR TEXT                         00003700
         DC    CL3' '                                                   00003800
         ORG   *-3                                                      00003900
         DS    0F'0'               . FULL WORD AJUSTMENT                00004000
TK#LEE&XE EQU  *                                                        00004100
.A       LABEL                                                          00004200
         END                                                            00004300
