MACRO                                                          02000020
&NAME     CUTOFF &LEN                                                   04000020
         GBLA  &IEDQZE(64)                                              06000020
         GBLB  &IEDQZA(64)                                              08000020
         LCLA  &L                                                       10000020
         LCLB  &NOGO                                                    11000020
         LCLC  &C                                                       12000020
.*  CHANGE ACTIVITY AS FOLLOWS                                          14000010
.******************* MICROFICHE FLAGS *********************** SUPT CODE 14000110
.*C 140000,160000,200000                                        SA63017 14000210
.******     TCAM  LEVEL  5B    *********                                16000010
         AIF   (&IEDQZA(14)).CHECK                              SA63017 17000010
         AIF   (&IEDQZA(1) AND NOT &IEDQZA(3) AND NOT &IEDQZA(5)).CHECK 18000020
         MNOTE 12,'***  IHB070  SEQUENCE ERROR-MUST FOLLOW INBLOCK OR I*20000010
               NBUF MACRO'                                      SA63017 21000010
&NOGO    SETB  1                                                        22000020
.CHECK   AIF   ('&LEN' EQ '').LENERR                                    24000020
         AIF   ('&LEN'(K'&LEN,1) EQ ')').LENERR                         26000020
         AIF   (K'&LEN EQ 1 AND '&LEN' EQ '0').LENERR                   28000020
         AIF   ('&LEN' EQ 'X''0000''' OR '&LEN' EQ 'XL2''0000''' OR '&L*30000020
               EN' EQ 'X''00''' OR '&LEN' EQ 'XL1''00''').LENERR        32000020
         IEDQMASK &LEN,2                                                34000020
         AIF   (NOT &IEDQZA(24)).ORG                                    36000020
.LENERR  MNOTE 12,'***  IHB300  LENGTH OPERAND INVALID AS SPECIFIED'    38000020
&NOGO    SETB  1                                                        39000020
.ORG     AIF   (&NOGO).MEND                                             40000020
         IEDQVCON 10,IEDQAU                                             41000020
&NAME    BAL   1,*+8 .                  SKIP AROUND PARMLIST            44000020
         DC    AL1(&IEDQZE(10)),AL1(4)                                  46000020
         AIF   ('&LEN'(K'&LEN,1) EQ '''').HEX                           48000020
         DC    AL2(&LEN) .              MAXIMUM MESSAGE LENGTH          50000020
         AGO   .OUT                                                     52000020
.HEX     AIF   ('&LEN'(2,1) EQ 'L').XL                                  54000020
&L       SETA  (K'&LEN-3+1)/2                                           56000020
         AGO   .DC                                                      58000020
.XL      ANOP                                                           60000020
&C       SETC  '&LEN'(3,1)                                              62000020
&L       SETA  &C                                                       64000020
.DC      AIF   (&L EQ 2).SET                                            66000020
         DC    AL1(0)                                                   68000020
.SET     DC    &LEN .                   MAXIMUM MESSAGE LENGTH          70000020
.OUT     L     15,IEDUI .               TO CUTOFF ROUTINE               73000020
         BALR  14,15                                                    76000020
.MEND    SPACE 2                                                        78000020
         MEND                                                           80000020