DECLARE 1 AIB , 00010000 3 AIB_ID CHAR(8) INIT('DFSAIB'), 00020000 3 AIB_LENGTH FIXED BINARY(31) INIT(+128), 00030000 3 AIB_SUB_FUNCTION CHAR(8), 00040000 3 AIB_PCB_NAME CHAR(8), 00050000 3 AIB_RESOURCE_NAME2 CHAR(8), 00060000 3 AIB_RESERVE1 , 00070000 5 FILL1 FIXED BINARY(31), 00080000 5 FILL2 FIXED BINARY(31), 00090000 3 AIB_IOAREA_LENGTH FIXED BINARY(31), 00100000 3 AIB_IOAREA_USED FIXED BINARY(31), 00110000 3 AIB_RESERVE2 , 00120000 5 FILL3 FIXED BINARY(31), 00130000 5 FILL4 FIXED BINARY(31), 00140000 3 FILL5 FIXED BINARY(15), 00150000 3 FILL6 FIXED BINARY(15), 00160000 3 AIB_RETURN_CODE FIXED BINARY(31), 00170000 3 AIB_REASON_CODE FIXED BINARY(31), 00180000 3 AIB_RESERVE3 , 00190000 5 FILL7 FIXED BINARY(31), 00200000 3 AIB_PCB_POINTER PTR, 00210000 3 AIB_RESERVE4 , 00220000 5 FILL8 PTR, 00230000 5 FILL9 PTR, 00240000 5 FILL10 PTR, 00250000 5 FILL11 PTR, 00260000 5 FILL12 PTR, 00270000 5 FILL13 PTR, 00280000 5 FILL14 PTR, 00290000 5 FILL15 PTR, 00300000 5 FILL16 PTR, 00310000 5 FILL17 PTR, 00320000 5 FILL18 PTR, 00330000 5 FILL19 PTR; 00340000