* %GOTO PLSBFLD; /* 03000010 MACRO 06000010 TXBFLD 09000010 * NO ASSEMBLER VERSION FOR THIS DSECT 12000010 MEND */ 15000010 *%PLSBFLD:; 18000010 */* */ 21000010 */* BIND FAILURE REQUEST DSECT */ 24000010 */* */ 27000010 *DCL 1 IEDXBFLD BASED(XBFLPTR), /* BIND FAILED */ 30000010 * 2 XBFLCMD , 33000010 * 3 XBFLCODE CHAR(3), /* COMMAND CODE */ 36000010 * 4 XBFLNETS CHAR(1), /* NETWORK SERVICES */ 39000010 * 4 XBFLSESS CHAR(1), /* SESSION SERVICES */ 42000010 * 4 XBFLREQ CHAR(1), /* BIND FAILED REQUEST */ 45000010 * 3 XBFLSNS CHAR(4), /* SENSE */ 48000010 * 3 XBFLRSN CHAR(1), /* REASON */ 51000010 * 3 XBFLKEY CHAR(1), /* KEY */ 54000010 * 3 XBFLPNA CHAR(2), /* PRIMARY LU ID */ 57000010 * 3 XBFLSNA CHAR(2); /* SECONDARY LU ID */ 60000010