* %GOTO PLSPLBM; /* 00050010 MACRO 00100010 TPLBMD 00150010 .*A000000-999999 @Y17XAXF 00200010 * 00250010 * PARAMETER LIST FOR BRACKET MANAGEMENT INTERFACE 00300010 * 00350010 IEDPLBM DSECT 00400010 PLBMFLG1 DS XL1 FLAG BYTE 00450010 PLBMSNDI EQU X'80' ON-SENDING(OUTBOUND FLOW) 00500010 * OFF-RECEIVING(INBOUND FLOW) 00550010 *PLBMSTAT EQU X'40'-X'20' SPECIAL STATUS INDICATOR 00600010 PLBMERR EQU X'60' . AN ERROR HAS BEEN DETECTED ON 00606010 * THIS REQUEST 00612010 PLBMPURG EQU X'20' . THIS REQUEST WAS RECEIVED 00618010 * (INBOUND) WHIL PURGING CHAIN 00624010 * STATE 00630010 PLBMNORM EQU X'00' . NOT ANY OF ABOVE CONDITIONS 00636010 * EQU X'10'-X'01' RESERVED 00642010 DS XL1 RESERVED 00650010 PLBMSNC DS CL2 1ST 2 BYTES OF SNA SENSE DATA 00700010 * (ONLY PRESENT WHEN TRHSDI=ON) 00750010 * THIS FIELD IS ALSO USED TO 00770010 * PASS SENSE ON ERRORS DETECTED 00790010 * BY BRACKET MANAGER 00810010 PLBMRH DS CL3 RH 00850010 PLBMCMD DS CL1 COMMAND CODE BYTE(0 FOR FMD) 00900010 PLBMSIB DS A POINTER TO SIB 00950010 PLBMLCB DS A POINTER TO LCB 01000010 MEND */ 01050010 *%PLSPLBM : ; 01100010 */* */ 01150010 */* PARAMETER LIST FOR BRACKET MANAGEMENT INTERFACE */ 01200010 */* */ 01250010 * DECLARE 01300010 * 1 IEDPLBM BASED(PLBMPTR), 01350010 * 2 PLBMFLG1 CHAR(1), /* FLAG BYTE */ 01400010 * 3 PLBMSNDI BIT(1), /* ON-SENDING(OUTBOUND FLOW) 01450010 * OFF-RECEIVING(INBOUND FLOW) */ 01500010 * 3 PLBMSTAT BIT(2), /* SPECIAL STATUS INDICATOR */ 01550010 * 3 * BIT(5), /* RESERVED */ 01570010 * 2 * CHAR(1), /* RESERVED */ 01600010 * 2 PLBMSNC CHAR(2), /* 1ST 2 BYTES OF SNA SENSE 01650010 * DATA (ONLY PRESENT WHEN TRHSDI 01700010 * =ON) */ 01720010 * /*THIS FIELD IS ALSO USED TO 01740010 * PASS SENSE ON ERRORS DETECTED 01760010 * BY BRACKET MANAGER */ 01780010 * 2 PLBMRH CHAR(3), /* RH */ 01800010 * 2 PLBMCMD CHAR(1), /* CMD CODE BYTE(0 FOR FMD) */ 01850010 * 2 PLBMSIB PTR(31), /* POINTER TO SIB */ 01900010 * 2 PLBMLCB PTR(31); /* POINTER TO LCB */ 01950010 */*PLBMSTAT VALUES */ 04950010 * DCL PLBMERR BIT(2) CONSTANT('11'B); /*AN ERROR HAS BEEN DETECTED 07950010 * ON THIS REQUEST */ 10950010 * DCL PLBMPURG BIT(2) CONSTANT('01'B); /*THIS REQUEST WAS RECEIVED 13950010 * (INBOUND) WHILE IN PURGING 16950010 * CHAIN STATE */ 19950010 * DCL PLBMNORM BIT(2) CONSTANT('00'B); /*NOT ANY OF ABOVE CONDITIONS*/ 22950010