*COMDECK BPIPBUF
   COMMON BPIPBUF;
                             BEGIN
                             CONTROL IFEQ ZZDN,1;                      #
 TR1      IFEQ   ZZDN,1                                                #
   ARRAY BPIP P(1);              # MARKS POSITION OF COMDECK IN DUMP   #
                             BEGIN
      ITEM BPIPM#C,0,0,7#                                              #
*#                           C(0,0,7)=["BPIPBUF"];
      ITEM BPIP7#U,0,42,18#                                            #
*#                           U(0,42,18)=[O"777777"];
                             END
                                                                       #
          BSS    1
                                                                       #
   ARRAY BPFET S(6);
                             BEGIN # FET FOR ZZZZZDN CIO BUFFER        #
   ITEM BPNAME#C,0,0,NC#     C(0,0,NC);     # FILE NAME                #
   ITEM BPAT#U,0,46,5#       U(0,46,5);     # ABNORMAL TERINATION CODE #
   ITEM BPUP#B,1,14,1#       B(1,14,1);     # USER PROCESSING FLAG     #
   ITEM BPEP#B,1,15,1#       B(1,15,1);     # ERROR PROCESSING FLAG    #
   ITEM BPFLUS#I,1,36,1#     I(1,36,1);     # FLUSH CIO BUFFER BIT     #
   ITEM BPFIRS#I,1,42,AL#    I(1,42,AL);    # FIRST POINTER            #
   ITEM BPIN#I,2,42,AL#      I(2,42,AL);    # IN POINTER               #
   ITEM BPOUT#I,3,42,AL#     I(3,42,AL);    # OUT POINTER              #
   ITEM BPLIMT#I,4,42,AL#    I(4,42,AL);    # LIMIT POINTER            #
   ITEM BPPRUS#U,4,24,AL#    U(4,24,AL);    # PRU SIZE                 #
   ITEM BPFET5#I,5,0,WL#     I(5,0,WL);     # 5TH WORD                 #
                                                                       #
 ZZZZZDN  FILEC  BPCIOB,1026,FET=6,EPR,UPR                             #
                             END
   ARRAY BPCIOB [0:1025] S(1);
                             BEGIN
   ITEM BPWD#U,0,0,WL#       U(0,0,WL);     # ZZZZZDN CIO BUFFER       #
                                                                       #
          BSS    1026                                                  #
                             END
                                                                       #
 TR1      ENDIF                                                        #
                             CONTROL FI;
                             END
                                                                       #
          USE    *                                                     #
