MACRO                                                          GEN00010
&LABEL   GENLINK &ID=,&CLASS=*,&KEEP=2,                                XGEN00020
               &LINE=0000,&TASK=,&TYPE=,&ZONE=0                         GEN00030
         GBLA  &LINKTOT                                                 GEN00040
         AIF   (T'&TYPE EQ 'O' AND NOT T'&ID EQ 'O').NOTYPE             GEN00050
         AIF   (&LINKTOT GE 64).NOMORE                                  GEN00060
&LINKTOT SETA  &LINKTOT+1                                               GEN00070
&LABEL   DC    0D'0'                                                    GEN00080
         DC    CL8'&ID '           LINKID                               GEN00090
         AIF   (T'&TASK EQ 'O').SET1                                    GEN00100
         DC    CL4'&TASK '         DEFAULT TASK NAME                    GEN00110
         AGO   .SET2                                                    GEN00120
.SET1    ANOP                                                           GEN00130
         DC    CL4'&ID '           DEFAULT TASK NAME                    GEN00140
.SET2    ANOP                                                           GEN00150
         DC    CL4' '              ACTIVE TASK NAME                     GEN00160
         DC    CL8'&TYPE '         DEFAULT DRIVER TYPE                  GEN00170
         DC    CL8' '              ACTIVE DRIVER TYPE                   GEN00180
         DC    XL2'&LINE'          DEFAULT VIRTUAL LINE ADDRESS         GEN00190
         DC    XL2'0000'           ACTIVE VIRTUAL LINE ADDRESS          GEN00200
         DC    A(0)                LINE DRIVER VARIABLE INFO            GEN00210
         DC    CL4'&CLASS'         DEFAULT CLASS SPECIFICATION          GEN00220
         DC    CL4' '              ACTIVE CLASS SPECIFICATION           GEN00230
         DC    AL1(&ZONE)          TIME ZONE DISPLACEMENT FROM GMT      GEN00240
         DC    AL1(0)              LINK FLAG                            GEN00250
         DC    AL2(&KEEP)          RESERVED HOLDSLOT COUNT              GEN00260
         DC    AL2(0)              UNACCEPTED (PENDING) FILE COUNT      GEN00270
         DC    AL2(0)              TAG SLOTS IN USE                     GEN00280
         DC    A(0)                TAG QUEUE ADDRESS                    GEN00290
         DC    A(0)                MSG QUEUE ADDRESS                    GEN00300
         DC    H'0'                LINK TRANSACTION COUNT               GEN00310
         DC    H'0'                ERROR COUNT                          GEN00320
         DC    H'0'                TIMEOUT COUNT                        GEN00330
         DC    AL2(0)              UNUSED                               GEN00340
         DC    2F'0'          CLOCK COMP VALUE FOR THIS LINK   @VA03349 GEN00350
         SPACE                                                          GEN00360
         MEXIT                                                          GEN00370
.NOTYPE  ANOP                                                           GEN00380
         MNOTE 16,'DRIVER TYPE NOT SPECIFIED'                           GEN00390
         SPACE                                                          GEN00400
         MEXIT                                                          GEN00410
.NOMORE  ANOP                                                           GEN00420
         MNOTE 16,'MAX LINKS (64) ALREADY DEFINED'                      GEN00430
         SPACE                                                          GEN00440
         MEND                                                           GEN00450