         PROC  &P,0                                                         0010
ZM#DIMH  NAME  0                                                            0020
ZA#IMH   DSECT                                                              0030
*                                                                           0040
*  INPUT MESSAGE HEADER                                                     0050
*                                                                           0060
ZA#ISTID DS    CL4                 SOURCE TERMINAL ID                       0070
ZA#IDTS  DS    XL8                 DATE/TIME STAMP                          0080
ZA#IMHL  EQU   *-ZA#IMH            INPUT MESSAGE AREA HEADER LENGTH         0090
ZA#ITL   DS    H                   TEXT LENGTH                              0100
         DS    H                   RESERVED FOR SYSTEM USE                  0110
         END                                                                0120
