 FTN4,Q,C 
* 
*     DATE: MARCH 15, 1979
*     NAME: IWRZZ 
*     SOURCE: 91711-18028 
*     RELOC:  91711-16028 
*     PGMR:  R.T.A. 
* 
*  *******************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS         *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,          *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT    *
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.           *
*  *******************************************************************
* 
* 
* 
      PROGRAM IWRZZ (5,89),91711-16028  REV 1926  790906
C     31.08.79
C     THIS SEGMENT DISPLAYS THE MEMBERS OF AN ACTIVE GROUP OF 
C     3075A, 3076A, 3077A TERMINALS.
C     WHEN RETURNING, IGID IS THE ACCEPTED VALUE ENTERED WHICH WAS USED 
C     IN THE "WHO ARE YOU" CALL, AND INAT TELLS HOW MANY TERMINALS
C     RESPONDED TO THE CALL.  IF NO TERMINALS RESPOND, THE DEVICE ID
C     IS ENTERED, AND XGRUP HAS ONE NON-ZERO WORD, IGID IN THE UPPER BYTE,
C     IDID IN THE LOWER BYTE, WITH INAT BEING ZERO. 
C 
C     ILU  = CONSOLE LU 
C     INLU = LINE LU
C     ILLU = LIST LU
C     ITLU = TERMINAL LU
C     KY  = SELECTS MODE OF WHO ARE YOU 
C 
C     CALLS:   LUCHK   DETERMINE THE MULTIPOINT (SYSTEM) LU ASSIGNMENT, 
C                      RETURN A COMPLETION CODE TO THE CALLER.
C     CALLS:   IMSG7   READS ACTIVE TRML LU (SYSTEM) FROM ILU 
C     CALLS:   ILINA   GET THE LINE NUMBER, LIST LINK POINTER, AND ID 
C                      USING AN LU NUMBER 
C 
C 
C 
C 
C     A KY VALUE IS PASSED THAT ALLOWS IWRU TO GENERATE ALL POSSIBLE
C     IGID VALUES AND REPORT WHICH IGID HAVE RESPONDED TO THE 
C     "WHO ARE YOU".
C 
C 
C 
      COMMON IARAY(3),ILU(1),ILLU(1),INLU(1),ITLU(1),IXLU(1), 
     +IBUFR(128),IGRUP(30),IOFLN(30),IBUFV(60)
      DIMENSION IREG(2),ICWORD(2),IPARM(5)
      DIMENSION INAM1(3)
      EQUIVALENCE (IREG(1),IA,REG),(IREG(2),IB) 
      DATA ICWORD/0,0/,IREG/0,0/
      DATA INAM1/2HTX,2HTD,2H3 /
C 
C 
C 
C 
      CALL RMPAR(IPARM) 
      KY = IPARM(1) 
C 
C 
C 
C   CHECK INLU
C 
      IF(INLU.GT.0) GO TO 401 
400   CALL IMSG7(ILU,INLU,IARAY,1,11) 
      IF(INLU.EQ.0) GO TO 900 
C 
401   ICCC = 11 
      CALL LUCHK(ILLU,INLU,IERCD,IARAY,ICCC)
      IF(IERCD.EQ.7) GO TO 402
      IF(IERCD.NE.9) GO TO 400
402   ICWORD(1) = IOR(100000B,INLU) 
C 
C 
C   FOR ALL GROUPS POLLED, GO TO 9
C 
      IF(KY.EQ.3) GO TO 9 
C 
C   KY = 5, WHO ARE YOU ON CURRENT TERMINAL'S GROUP 
C   CHECK ITLU. GET AN ACTIVE TERMINAL LU FOR THIS IF POSSIBLE
C 
5     IF(ITLU.GT.0) GO TO 404 
C 
403   CALL IMSG7(ILU,ITLU,IARAY,3,11) 
      IF(ITLU.EQ.0) GO TO 900 
404   ICCC = 6
      CALL LUCHK(ILLU,ITLU,IERCD,IARAY,ICCC)
      IF(IERCD.NE.6) GO TO 403
C 
C   GET THE TERMINAL'S GROUP CHARACTER
C 
31    CALL ILINA(ITLU,ILNN,IE16,IE11) 
      KGID = IOR(IAND(IE16,057400B),40B)
      ID = IOR(KGID,175B) 
      IF(IERCD.EQ.6) 22,900 
C 
C   KY = 3, WHO ARE YOU FOR ALL GROUPS ON INLU
C 
9     ICWORD(1) = IOR(100000B,INLU) 
C 
10    CALL ILINA(INLU,ILNN,IE16,IE11) 
C 
C   DO WHO ARE YOU ON ALL GROUPS ON CURRENT LINE
C 
      ID  =  040175B
C 
C 
      J = 1 
20    KGID = IOR(IAND(ID,57400B),40B) 
C 
C 
C 
21    CONTINUE
22    CALL SFILL(IGRUP,1,60,000B) 
      CALL SFILL(IOFLN,1,60,000B) 
      IOFLN(1) = -1 
      IXLU = 0
C 
C 
C   POLL THE LINE  AND VERIFY THE GROUP 
C 
      CALL LUVFY(INLU,ILLU,ITLU,IGRUP,IOFLN,ID,KGID,-1,IXLU,IARAY)
C 
C 
C 
C   UPDATE THE GROUP POLL CHARACTER IF ITERATING HERE 
C 
574   IF(KY.EQ.5) GO TO 900 
C 
      J = J + 1 
      ID = ID + 400B
C 
60    IF(J.NE.28) GO TO 20
C 
C 
C 
900   REG = EXEC(8,INAM1,IPARM) 
      END 
      END$
                                  