* %GOTO PLSSIB; /* BILINGUAL HEADER 01000000 MACRO 02000000 TSIBD 03000000 SPACE 04000000 .* CHANGE ACTIVITY AS FOLLOWS: 05000000 .*A000000-999999 @Y17XAXU 06000000 .*A110000,340000 @Y17XAXF 06300000 .*D130000,360000 @Y17XAXF 06600000 SPACE 07000000 IEDSIBD DSECT 08000000 * 09000000 * DSECT FOR SESSION INFORMATION BLOCK (SIB) 10000000 * 11000000 SIBRUSEQ DS A . RU SEGMENT CHAIN @Y17XAXF 11500000 SIBCHAIN DS A . NEXT SIB ADDRESS 12000000 SIBINDEX DS H . TNT/MH INDEX 14000000 SIBSESSN DS XL1 . SESSION INFO FLAG 15000000 SIBLGOFF EQU X'80' . LOGOFF REQUESTED 16000000 SIBSHUTC EQU X'40' . SHUTDOWN COMPLETE 17000000 * RECEIVED 18000000 SIBINBIU EQU X'20' . ON - IN BIU STATE 18500000 * OFF-BETWEEN BIU STATE 18600000 *SIBSSTAT X'10'-X'04' SESSION STATE 18700000 SIBSRSET EQU X'0C' . RESET 21180000 SIBSAPND EQU X'04' . ACTIVE PENDING 21270000 SIBSRPND EQU X'08' . RESET PENDING 21330000 SIBSACTV EQU X'1C' . ACTIVE 21390000 SIBSFINL EQU X'10' . FINAL 21392000 SIBSINIT EQU X'00' . INITIAL 21394000 *SIBDSTAT X'02'-X'01' DATA TRAFFIC STATE 21396000 SIBDRSET EQU X'00' . RESET 21630000 SIBDAPND EQU X'01' . ACTIVE PENDING 21720000 SIBDRPND EQU X'02' . RESET PENDING 21740000 SIBDACTV EQU X'03' . ACTIVE 21760000 SIBPACIN DS XL1 . PACING COUNT 21780000 SIBSEQN DS 0F . SEQUENCE NUMBERS 21800000 SIBSEQI DS H . INBOUND SEQ NUMBER 21820000 SIBSEQO DS H . OUTBOUND SEQ NUMBER 21840000 SIBSTAT1 DS XL1 . SNA STATE FLAG (TCAM) 21860000 SIBRQSHT EQU X'80' . SHUTDOWN REQUEST ENQUEUED 21880000 SIBRQEND EQU X'40' . END-SESSION REQUEST ENQUEUED 21885000 SIBFTERM EQU X'20' . FORCED TERMINATE IN @YM08991 21890010 * PROGRESS @YM08991 21910010 SIBRTRP EQU X'10' . RTR PENDING STATE 21930000 *SIBBSTAT X'08'-X'01' . BRACKET STATES 21980000 SIBBETB EQU X'00' . BETWEEN BRACKET STATE(BETB) 21980900 SIBPINB EQU X'01' . PENDING IN BRACKETS(PEND.INQ) @YM06886 21981800 SIBINB EQU X'02' . IN BRACKET STATE(INC) @YM06886 21982200 SIBPBB EQU X'03' . PENDING BEGIN BRACKETS @YM06886 21982700 * (PEND.BB) 21983600 SIBRSPR EQU X'04' . PENDING BETWEEN BRACKETS @YM06886 21984500 * WAITING FOR RESPONSE TO BE 21985400 * SENT(PEND.BETB.PSR.R) 21986300 SIBECR EQU X'05' . PENDING BETWEEN BRACKETS @YM06886 21987200 * WAITING TO RECEIVE END CHAIN 21988100 * (PEND.BETB.EC.R) 21989000 SIBPURGR EQU X'06' . PENDING BETWEEN BRACKETS @YM06886 21989900 * IN PURGING CHAIN STATE AND 21990800 * WAITING TO RECEIVE END 21991700 * CHAIN(PEND.BETB.PURGE.R) 21992600 SIBRSPS EQU X'07' . PENDING BETWEEN BRACKETS @YM06886 21993500 * WAITING TO RECEIVE RESPONSE 21994400 * (PEND.BETB.RSP.S) 21995300 SIBECS EQU X'08' . PENDING BETWEEN BRACKETS @YM06886 21996200 * WAITING FOR END CHAIN TO 21997100 * BE SENT(PEND.BETB.EC.S) 21998000 SIBSTAT2 DS XL1 . SNA STATE FLAG (OP CONTROL) 22000000 SIBUSS EQU X'80' . ORIGINAL BUFFER WAS UNFORMAT 22200000 SIBTERM EQU X'40' . TERM IN PROGRESS 22400000 SIBRDSCN EQU X'20' . REQUEST DISCONTACT (NORMAL) 22600000 * IN PROGRESS 22800000 SIBDACLU EQU X'10' . DACTLU PENDING 22802000 * EQU X'08'-X'01' RESERVED 22804000 SIBTSPRO DS XL1 . TS PROFILE 22806000 SIBFMPRO DS XL1 . FM PROFILE 24000000 SIBBIND DS 0XL3 . BIND PARAMETERS 25000000 SIBBIND1 DS XL1 . BYTE ONE 25001000 SIBPCHN EQU X'80' . PLU CHAINING USE 25002000 SIBPRQM EQU X'40' . PLU REQUEST MODE 25003000 SIBPDEF EQU X'20' . PLU DEFINITE RESPONSE 25004000 SIBPEXC EQU X'10' . PLU EXCEPTION RESPONSE 25005000 SIBPCMP EQU X'08' . PLU COMPRESSION 25006000 SIBPEBI EQU X'04' . PLU EB INDICATOR 25007000 SIBSCHNG EQU X'02' . SLU CHAINING USE 25008000 SIBSRQM EQU X'01' . SLU REQUEST MODE 25009000 SIBBIND2 DS XL1 . BYTE TWO 25010000 SIBSDEF EQU X'80' . SLU DEFINITE RESPONSE 25011000 SIBSEXC EQU X'40' . SLU EXCEPTION RESPONSE 25012000 SIBSCMP EQU X'20' . SLU COMPRESSION 25013000 SIBSEBI EQU X'10' . SLU EB INDICATOR 25014000 SIBFMUSE EQU X'08' . FM HEADER USAGE 25015000 SIBBRACK EQU X'04' . BRACKETS 25016000 SIBBTERM EQU X'02' . BRACKET TERMINATION 25017000 SIBALT EQU X'01' . ALTERNATE CODE 25018000 SIBBIND3 DS XL1 . BYTE THREE 25019000 *SIBFMODE EQU X'80'-X'40' FM TRANSACTION MODE 25020000 SIBHDXFF EQU X'80' . HALF DUPLEX FLIP-FLOP 25020300 SIBHDXCN EQU X'40' . HALF DUPLEX CONTENTION 25020600 SIBRECV EQU X'20' . RECOVERY RESPONSIBILITY 25021000 SIBSPKR EQU X'10' . BRACKETS 1ST SPEAKER 25022000 SIBCRES EQU X'08' . CONTENTION RESOLUTION 25023000 * EQU X'04'-X'01' . RESERVED 25024000 SIBSTAT0 DS XL1 . SNA STATE FLAG(TCAM) 25025000 SIBCD EQU X'80' TERMINAL HAS CD STATE 25026000 *SIBLUTYP X'40'-X'01' LU TYPE 25027000 SIBLU0 EQU X'00' . LU TYPE 0 25027700 SIBLU1 EQU X'01' . LU TYPE 1 25028400 SIBLU2 EQU X'02' . LU TYPE 2 25029100 SIBLEN EQU *-IEDSIBD . LENGTH OF SIB 25030000 SPACE 2 27000000 MEND */ 28000000 *%PLSSIB : ; 29000000 *DECLARE 30000000 * 1 IEDSIBD BDY(WORD) BASED, 31000000 */* */ 32000000 */* DSECT FOR SESSION INFORMATION BLOCK (SIB) */ 33000000 */* */ 34000000 * 2 SIBRUSEG PTR(31), /* RU SEGMENT CHAIN @Y17XAXF*/ 34500000 * 2 SIBCHAIN PTR(31), /* NEXT SIB ADDRESS */ 35000000 * 2 SIBINDEX FIXED(16), /* TNT/MH INDEX */ 37000000 * 2 SIBSESSN CHAR(1), /* SESSION INFO FLAG */ 38000000 * 3 SIBLGOFF BIT(1), /* LOGOFF REQUESTED */ 39000000 * 3 SIBSHUTC BIT(1), /* SHUTDOWN COMPLETE 40000000 * RECEIVED */ 41000000 * 3 SIBINBIU BIT(1), /* ON -IN BIU STATE */ 42000000 * /* OFF-BETWEEN BIU STATE */ 42600000 * 3 SIBSSTAT BIT(3), /* SESSION STATE */ 42700000 * 3 SIBDSTAT BIT(2), /* DATA TRAFFIC STATE */ 42800000 * 2 SIBPACIN BIT (8), /* PACING COUNT */ 43000000 * 3 SIBMCNT BIT(4), /* M COUNT */ 43300000 * 3 SIBNCNT BIT(4), /* N COUNT */ 43600000 * 2 SIBSEQN FIXED(32), /* SEQUENCE NUMBER */ 44000000 * 3 SIBSEQI FIXED(16), /* INBOUND SEQ NUMBER */ 44300000 * 3 SIBSEQO FIXED(16), /* OUTBOUND SEQ NUMBER */ 44600000 * 2 SIBSTAT1 BIT(8), /* SNA STATE FLAG (TCAM) */ 45000000 * 3 SIBRQSHT BIT(1), /* SHUTDOWN REQUEST ENQUEUED 45600000 * */ 45605000 * 3 SIBRQEND BIT(1), /* END-SESSION REQUEST 45610000 * */ 45615000 * 3 SIBFTERM BIT(1), /* FORCD TERMINATE @YM08991*/ 45620010 * /* IN PROGRESS @YM08991*/ 45660010 * 3 SIBRTRP BIT(1), /* RTR PENDING STATE */ 45710000 * 3 SIBBSTAT BIT(4), /* BRACKET STATES */ 45800000 * 2 SIBSTAT2 BIT(8), /* SNA STATE FLAG (OP CTL) */ 46000000 * 3 SIBUSS BIT(1), /* ORIGINAL BUFFER WAS 46200000 * UNFORMATTED */ 46300000 * 3 SIBTERM BIT(1), /* TERM IN PROGRESS */ 46400000 * 3 SIBRDSCN BIT(1), /* REQUEST DISCONTACT (NORM) 46600000 * IN PROGRESS */ 46800000 * 3 SIBDACLU BIT(1), /* DEACTLU PENDING */ 46802000 * 3 * BIT(4), /* RESERVED */ 46804000 * 2 SIBTSPRO FIXED(8), /* TS PROFILE */ 46806000 * 2 SIBFMPRO FIXED(8), /* FM PROFILE */ 48000000 * 2 SIBBIND CHAR(3), /* BIND PARAMETERS */ 49000000 * 3 SIBBIND1 CHAR(1), /* BYTE 1 */ 49001000 * 4 SIBPCHN BIT(1), /* PLU CHAINING USE */ 49002000 * 4 SIBPRQM BIT(1), /* PLU REQUEST MODE */ 49003000 * 4 SIBPDEF BIT(1), /* PLU DEFINITE RESPONSE */ 49004000 * 4 SIBPEXC BIT(1), /* PLU EXCEPTION RESPONSE */ 49005000 * 4 SIBPCMP BIT(1), /* PLU COMPRESSION */ 49006000 * 4 SIBPEBI BIT(1), /* PLU EB INDICATOR */ 49007000 * 4 SIBSCHNG BIT(1), /* SLU CHAINING USE */ 49008000 * 4 SIBSRQM BIT(1), /* SLU REQUEST MODE */ 49009000 * 3 SIBBIND2 CHAR(1), /* BYTE 2 */ 49010000 * 4 SIBSDEF BIT(1), /* SLU DEFINITE RESPONSE */ 49011000 * 4 SIBSEXC BIT(1), /* SLU EXCEPTION RESPONSE */ 49012000 * 4 SIBSCMP BIT(1), /* SLU COMPRESSION */ 49013000 * 4 SIBSEBI BIT(1), /* SLU EB INDICATOR */ 49014000 * 4 SIBFMUSE BIT(1), /* FM HEADER USAGE */ 49015000 * 4 SIBBRACK BIT(1), /* BRACKETS */ 49016000 * 4 SIBBTERM BIT(1), /* BRACKET TERMINATION */ 49017000 * 4 SIBALT BIT(1), /* ALTERNATE CODE */ 49018000 * 3 SIBBIND3 CHAR(1), /* BYTE 3 */ 49019000 * 4 SIBFMODE BIT(2), /* FM TRANSACTION MODE */ 49020000 * 4 SIBRECOV BIT(1), /* RECOVERY RESPONSIBILITY */ 49021000 * 4 SIBSPKR BIT(1), /* BRACKETS 1ST SPEAKER */ 49022000 * 4 SIBCRES BIT(1), /* CONTENTION RESOLUTION */ 49023000 * 4 * BIT(3), /* RESERVED */ 49024000 * 2 SIBSTAT0 BIT(8), /* SNA STATE FLAG (TCAM) */ 49025000 * 3 SIBCD BIT(1), /* TERMINAL HAS CD STATE */ 49026000 * 3 SIBLUTYP BIT(7); /* LU TYPE */ 49027000 * %SIBLEN='LENGTH(IEDSIBD)'; /* LENGTH OF SIB */ 49030000 * 50080000 */* SIBLUTYP VALUES */ 50090000 * DCL SIBLU0 BIT(7) CONSTANT('0000000'B); /* LU TYPE 0 */ 50100000 * DCL SIBLU1 BIT(7) CONSTANT('0000001'B); /* LU TYPE 1 */ 50110000 * DCL SIBLU2 BIT(7) CONSTANT('0000010'B); /* LU TYPE 2 */ 50120000 */* SIBFMODE VALUES */ 50130000 * DCL SIBHDXFF BIT(2) CONSTANT('10'B); /* HALF DUPLEX FLIP-FLOP */ 50140000 * DCL SIBHDXCN BIT(2) CONSTANT('01'B); /* HALF DUPLEX CONTENTION */ 50150000 */* SIBSSTAT FLAGS */ 50160000 * DCL SIBSINIT BIT(3) CONSTANT('000'B); /* INITIAL */ 50240000 * DCL SIBSAPND BIT(3) CONSTANT('001'B); /* ACTIVE PENDING */ 50320000 * DCL SIBSRPND BIT(3) CONSTANT('010'B); /* RESET PENDING */ 50400000 * DCL SIBSRSET BIT(3) CONSTANT('011'B); /* RESET */ 50480000 * DCL SIBSFINL BIT(3) CONSTANT('100'B); /* FINAL */ 50482000 * DCL SIBSACTV BIT(3) CONSTANT('111'B); /* ACTIVE */ 50484000 */* SIBBSTAT VALUES */ 50484100 * DCL SIBBETB BIT(4) CONSTANT('0000'B); /* BETWEEN BRACKET STATE 50484200 * (BETB) */ 50484300 * DCL SIBPINB BIT(4) CONSTANT('0001'B); /* PENDING IN BRACKETS 50484400 * (PEND.IND) */ 50484500 * DCL SIBPBB BIT(4) CONSTANT('0011'B); /* PENDING BEGIN BRACKETS 50484600 * (PEND.BB) */ 50484700 * DCL SIBRSPR BIT(4) CONSTANT('0100'B); /* PENDING BETWEEN BRACKETS 50484800 * WAITING FOR RESPONSE TO BE 50484900 * SENT (PEND.BETB.RSP.R) */ 50485000 * DCL SIBECR BIT(4) CONSTANT('0101'B); /* PENDING BETWEEN BRACKETS 50485100 * WAITING TO RECEIVE END 50485200 * CHAIN(PEND.BETB.EC.R) */ 50485300 * DCL SIBPURGR BIT(4) CONSTANT('0110'B); /* PENDING BETWEEN BRACKETS 50485400 * IN PURGING CHAIN STATE AND 50486000 * WAITING TO RECEIVE END 50496000 * CHAIN(PEND.BETB.PURGE.R) */ 50506000 * DCL SIBRSPS BIT(4) CONSTANT('0111'B); /* PENDING BETWEEN BRACKETS 50516000 * WAITING TO RECEIVE RESPONSE 50526000 * (PEND.BETB.RSP.S) */ 50536000 * DCL SIBECS BIT(4) CONSTANT('1000'B); /* PENDING BETWEEN BRACKETS 50546000 * WAITING FOR END CHAIN TO 50556000 * BE SENT(PEND.BETB.EC.S) */ 50566000 * DCL SIBINB BIT(4) CONSTANT('0010'B); /* IN BRACKET STATE(INC) */ 50576000 */* SIBDSTAT FLAGS */ 50586000 * DCL SIBDRSET BIT(2) CONSTANT('00'B); /* RESET */ 50640000 * DCL SIBDAPND BIT(2) CONSTANT('01'B); /* ACTIVE PENDING */ 50720000 * DCL SIBDRPND BIT(2) CONSTANT('10'B); /* RESET PENDING */ 50800000 * DCL SIBDACTV BIT(2) CONSTANT('11'B); /* ACTIVE */ 50880000 * 51000000 *%SIBEND: ; /* END OF SIB */ 52000000 * 53000000