*COMDECK COMAPDT
# 
**    APDT - AI/PI PROTOCOL BLOCK FORMAT SPECIFICATION
# 
      BASED ARRAY APDT [00:00] S(1);
        BEGIN 
        ITEM AIPI$FC     U(00,00,60);  # FUNCTION CODE                 #
        ITEM AIPI$ID     U(01,00,60);  # CONNECTION IDENTIFIER         #
        ITEM AIPI$TEXT   U(02,00,60);  # TEXT IN DATA BLOCK            #
        ITEM AIPI$NORM   B(02,00,01);  # NORMAL RESPONSE BIT           #
        ITEM AIPI$JSN    U(02,36,24);  # JOB SEQUENCE NUMBER           #
        ITEM AIPI$PFP    U(03,00,60);  # PERMANENT FILE PARAMETER BLOCK#
        ITEM AIPI$CN     U(06,00,60);  # CHARGE NUMBER PARAMETER BLOCK #
        END 
