MACRO                                                          00001000
&NAME    CLUSTER &CUTYPE=,&GPOLL=,&LINE=,&DIAL=NO                       00002100
         GBLA  &RCUCNT,&RCHCNT,&RDVCNT,&DIAL75(16)                      00002200
         GBLA  &RPCCNT,&RPCLST(16)                                      00004000
         GBLC  &RPCCU(16),&CUPOLL                                       00005000
         LCLA  &NICNAME,&DIAL375                                        00006100
         LCLC  &TYPE                                                    00007000
         AIF   (&RCUCNT NE 0 OR &RCHCNT NE 0 OR &RDVCNT NE 0).ERR9      00008000
         AIF   ('&NAME' EQ '').ERR1                                     00009000
         AIF   (T'&CUTYPE EQ 'O').ERR3                                  00010000
         AIF   (('&CUTYPE' NE '3271') AND ('&CUTYPE' NE '3275')).ERR4   00011000
         AIF   ('&DIAL' NE 'NO').NGPDISP                                00011050
         AIF   (K'&DIAL GT 2).NGPERR                                    00011075
         AGO   .NGP                                                     00011100
.NGPDISP ANOP                                                           00011125
         AIF   ('&CUTYPE' NE '3275').NGPERR                             00011150
         AIF   ('&DIAL' NE 'YES').NGPERR                                00011175
         AIF   (K'&DIAL GT 3).NGPERR                                    00011200
&DIAL375 SETA  1                                                        00011225
         AGO   .NGP1                                                    00011250
.NGPERR  MNOTE 8,'INVALID DIAL OPERAND, NO ASSUMED'                     00011275
.NGP     ANOP                                                           00011300
         AIF   (T'&GPOLL EQ 'O').ERR5                                   00012000
         AIF   (K'&GPOLL NE 4).ERR6                                     00013000
.NGP1    ANOP                                                           00013100
         AIF   (T'&LINE EQ 'O').ERR7                                    00014000
         AIF   (K'&LINE NE 3).ERR8                                      00015000
&TYPE    SETC  'NICLGRP+NIC&CUTYPE'                                     00016000
         AIF   (&RPCCNT EQ 0).SET1                                      00017000
         AIF   ('&LINE' EQ '&RPCCU(&RPCCNT)').ADD1                      00018000
         AIF   (&RPCCNT EQ 16 ).ERR2                                    00019000
.SET1    ANOP                                                           00020000
&RPCCNT  SETA  &RPCCNT+1                                                00021000
         AIF   (&DIAL375 EQ 0).NGP2                                     00021100
&DIAL75(&RPCCNT) SETA 1                                                 00021200
.NGP2    ANOP                                                           00021300
&RPCCU(&RPCCNT)  SETC  '&LINE'                                          00022000
.ADD1    ANOP                                                           00023000
&NICNAME SETA  &RPCLST(&RPCCNT)                                         00024000
&RPCLST(&RPCCNT) SETA  &RPCLST(&RPCCNT)+1                               00025000
         AIF   (&DIAL75(&RPCCNT) NE 0).NGP3                             00025500
&CUPOLL  SETC  '&GPOLL'(1,2)                                            00026000
.NGP3    ANOP                                                           00026500
&NAME    DS    0D                                                       00027000
         DC    AL2(&NICNAME),AL2(0)     NICNAME, NICCORD                00028000
         DC    AL1(NICDISA,0)           NICSTAT, NICFLAG                00029000
         DC    AL1(80),AL1(&TYPE)       NICLLEN, NICTYPE                00030000
         AIF   (&DIAL75(&RPCCNT) EQ 0).NGP4                             00030100
         DC    XL2'00',XL2'00'          NICSELT, NICPOLL                00030200
         AGO   .NGP5                                                    00030300
.NGP4    ANOP                                                           00030400
         DC    XL2'00',XL2'&GPOLL'      NICSELT, NICPOLL                00031000
.NGP5    ANOP                                                           00031100
         DC    A(0)                     NICATRB                         00032000
         DC    V(DMKSYSVM)              NICUSER                         00033000
         DC    A(0)                     NICQPNT                         00034000
         DC    8X'00'                   NICRSV                 @VA09296 00034100
         SPACE                                                          00035000
         MEXIT                                                          00036000
.ERR1    MNOTE 8,'NAME FIELD NOT SPECIFIED'                             00037000
         MEXIT                                                          00038000
.ERR2    MNOTE 8,'MORE THAN 16 LINES FOR REMOTE CLUSTERS'               00039000
         MEXIT                                                          00040000
.ERR3    MNOTE 8,'CUTYPE NOT SPECIFIED'                                 00041000
         MEXIT                                                          00042000
.ERR4    MNOTE 8,'INVALID CUTYPE OPERAND'                               00043000
         MEXIT                                                          00044000
.ERR5    MNOTE 8,'GPOLL NOT SPECIFIED'                                  00045000
         MEXIT                                                          00046000
.ERR6    MNOTE 8,'INVALID GPOLL OPERAND'                                00047000
         MEXIT                                                          00048000
.ERR7    MNOTE 8,'LINE NOT SPECIFIED'                                   00049000
         MEXIT                                                          00050000
.ERR8    MNOTE 8,'INVALID LINE OPERAND'                                 00051000
         MEXIT                                                          00052000
.ERR9    MNOTE 12,'CLUSTER MACRO OUT OF SEQUENCE'                       00053000
         MEND                                                           00054000