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