MACRO                                                          00001000
&LABEL   GENROUTE &PARM1,&PARM2                                         00002000
         LCLC  &DEST,&NEXT                                              00003000
&DEST    SETC  ' '                                                      00004000
&NEXT    SETC  ' '                                                      00005000
         AIF   (T'&PARM1 EQ 'O').NOID                                   00006000
&DEST    SETC  '&PARM1'                                                 00007000
         AIF   (T'&PARM2 EQ 'O').NOID                                   00008000
&NEXT    SETC  '&PARM2'                                                 00009000
.NOID    ANOP                                                           00010000
&LABEL   DC    0F'0',CL8'&DEST',CL8'&NEXT' DESTINATION, NEXT LINK       00011000
         SPACE                                                          00012000
         MEND                                                           00013000