*DECK     APFTCH
USETEXT COMCBEG 
    PROC APFTCH (BUFF1,ATTR1,QUAL1,TEXTL1,TEXT1); 
      BEGIN    # APFTCH # 
# 
**    APFTCH     GET ATTRIBUTE FROM NETWORK MESSAGE.
* 
*     APFTCH GETS THE SPECIFIED ATTRIBUTE FROM THE NETWORK MESSAGE BEING
*     OBTAIN FOR A CONNECTION.
* 
*     PROC APFTCH 
* 
*     ENTRY      BUFF1 = CURRENT BUFFER.
* 
*     EXIT       ATTR1 = ATTRIBUTE. 
*                QUAL1 = ATTRIBUTE QUALIFIER. 
*                TEXTL1 = TEXT LENGTH.
*                TEXT1 = TEXT.
# 
  
      ITEM ATTR1      U;             # ATTRIBUTE #
      ITEM BUFF1      U;             # NETWORK TEXT BUFFER #
      ITEM QUAL1      C(1);          # QUALIFIER #
      ITEM TEXTL1     U;             # LENGTH OF TEXT # 
      ITEM TEXT1      C(240);        # TEXT # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC APFETCH; 
        PROC NAME;                 # DEBUG CODE # 
        PROC MESSAGE;              # DAYFILE MESSAGE #
        FUNC YCDZ C(10);           # CONVERT NUMBER TO DISPLAY #
        END 
# 
****  XREF END
# 
  
  
      $BEGIN
      ARRAY DEBUGM S(5);
        BEGIN 
        ITEM DEBUGM0 C(0,00,10) = ["APFTCH ATT"]; 
        ITEM DEBUGM1 C(1,00,10) = ["RIBUTE =  "]; 
        ITEM DEBUGAT C(2,00,02);
        ITEM DEBUGM2 C(2,12,08) = [", QUAL ="]; 
        ITEM DEBUGM3 C(3,00,01) = [" "];
        ITEM DEBUGQL C(3,06,01);
        ITEM DEBUGM4 C(3,12,08) = [", LENGTH"]; 
        ITEM DEBUGM5 C(4,00,03) = [" = "];
        ITEM DEBUGLN C(4,18,03);
        ITEM DEBUGM6 C(4,36,01) = ["."];
        ITEM DEBUGM7 U(4,42,18) = [0];
        END 
      $END
  
      APFETCH(BUFF1,ATTR1,QUAL1,TEXTL1,TEXT1);  # GET ATTRIBUTE # 
      $BEGIN
        DEBUGAT = YCDZ(ATTR1, 2); 
        DEBUGQL[0] = QUAL1;        # QUALIFIER #
        DEBUGLN = YCDZ(TEXTL1, 3);
        MESSAGE(DEBUGM,3);         # DEBUG CODE # 
        MESSAGE(TEXT1,3);         # DEBUG PROTOCOL DATA # 
      $END
  
      END      # APFTCH # 
    TERM
