* %GOTO BNDPLS; /* BILINGUAL HEADER 00600010 MACRO 01200010 TBNDD 02400010 .*A000000-999999 @Y17XAXF 03000010 IEDBNDD DSECT 04200010 * 04800010 * BIND IMAGE DSECT 06000010 * 06600010 BNDRUCDE DS XL1 . ALWAYS X'31' 07800010 BNDFORMT DS XL1 . FORMAT/TYPE 08100010 BNDFMPRF DS XL1 . FM PROFILE 08400010 BNDTSPRF DS XL1 . TS PROFILE 09600010 BNDPRIM DS XL1 . PRIMARY LU PROTOCOLS FOR FM DATA 10200010 BNDPCHN EQU X'80' . CHAINING USE 11400010 BNDPRQM EQU X'40' . REQUEST MODE SELECTION 12000010 BNDPDEF EQU X'20' . DEFINITE RESPONSE 13200010 BNDPEXC EQU X'10' . EXCEPTION RESPONSE 13800010 * EQU X'08' . RESERVED 15000010 * EQU X'04' . RESERVED 15600010 BNDPCMP EQU X'02' . COMPRESSION INDICATOR 16800010 BNDPEBI EQU X'01' . EB INDICATOR 17400010 BNDSECD DS XL1 . SECONDARY LU PROTOCOLS FOR FM DATA 18600010 BNDSCHN EQU X'80' . CHAINING USE 19200010 BNDSRQM EQU X'40' . REQUEST MODE SELECTION 20400010 BNDSDEF EQU X'20' . DEFINITE RESPONSE 21000010 BNDSEXC EQU X'10' . EXCEPTION RESPONSE 22200010 * EQU X'08' . RESERVED 22800010 * EQU X'04' . RESERVED 24000010 BNDSCMP EQU X'02' . COMPRESSION INDICATOR 24600010 BNDSEBI EQU X'01' . EB INDICATOR 25800010 BNDCOMMI DS XL1 . COMMON LU PROTOCOLS (1ST BYTE) 26400010 * EQU X'80' . RESERVED 27600010 BNDFMUSE EQU X'40' . FM HEADER USAGE 28200010 BNDBRACK EQU X'20' . BRACKETS 29400010 BNDBTERM EQU X'10' . BRACKET TERMINATION RULES 30000010 BNDALT EQU X'08' . ALTERNATE CODE 31200010 * EQU X'04' . RESERVED 31800010 * EQU X'02' . RESERVED 33000010 * EQU X'01' . RESERVED 33600010 BNDCOMM2 DS XL1 . COMMON LU PROTOCOLS (2ND BYTE) 34800010 *BNDFMODE BITS 0-1 . FM TRANSACTION MODE 35400010 BNDHDX EQU X'40' . HDX CONTENTION 36600010 BNDHDXFF EQU X'80' . HDX FLIP-FLOP 37200010 BNDMSLVE EQU X'C0' . MASTER SLAVE 38400010 BNDRECOV EQU X'20' . RECOVERY RESPONSIBILITY 39000010 BNDSPKR EQU X'10' . BCKTS FIRSTSPKR 40200010 * EQU X'08' . RESERVED 40800010 * EQU X'04' . RESERVED 42000010 * EQU X'02' . RESERVED 42600010 BNDCRES EQU X'01' . CONTENTION RESOLUTION 43800010 BNDSSPC DS XL1 . SEC SEND PACING COUNT 43810010 BNDSRPC DS XL1 . SEC RECEIVE PACING COUNT 43820010 BNDSMSRU DS XL1 . SLU MAX SEND RU SIZE 43830010 BNDNMAX EQU X'80' . NO MAX SPECIFIED 43840010 * EQU X'40'-X'01' . RESERVED 43850010 BNDPMSRU DS XL1 . PLU MAX SEND RU SIZE 43860010 BNDNMAXP EQU X'80' . NO MAX SPECIFIED 43870010 * EQU X'40'-X'01' . RESERVED 43880010 BNDPSPC DS XL1 . PRI SEND PACING COUNT 43890010 DS XL1 . RESERVED 43900010 BNDLUPFL DS XL1 . LU PROFILE 43910010 BNDPSF EQU X'80' . PRESENTATION SERVICES FORMAT 43920010 *BNDLUTYP EQU X'40'-X'01' . LU TYPE 43930010 BNDLU0 EQU X'00' LU TYPE 0 43940010 BNDLU1 EQU X'01' LU TYPE 1 43950010 BNDLU2 EQU X'02' LU TYPE 2 43960010 BNDPSCH DS 0CL10 . PRESENTATION SERVICE CHARACTERISTICS 43970010 DS CL9 . RESERVED 43972010 BNDSCSZE DS CL1 . SCREEN SIZE 43974010 DS CL1 . RESERVED @YM07298 43975010 BND12X40 EQU X'01' . 12 X 40 SIZE 43976010 BND24X80 EQU X'02' . 24 X 80 SIZE 43978010 BNDCRYP DS XL1 . ALWAYS X'00' 43980010 BNDPLUNL DS XL1 . LENGTH OF LU NAME (ALWAYS X'08') 43990010 BNDPLUN DS CL8 . PRIMARY LU NAME 44000010 BNDUDFL DS XL1 . USER DATA FIELD LENGTH 44010010 BNDUSD EQU * . USER DATA FIELD 44020010 BNDBLEN EQU *-IEDBNDD . LENGTH OF BIND IMAGE WITHOUT USER 44130010 * DATA 44830010 MEND 45600010 * */ 46200010 *%BNDPLS:; 47400010 *DECLARE 48000010 * 1 IEDBNDD BASED(RBND), 49200010 */* */ 49800010 */* BIND IMAGE DSECT */ 51000010 */* */ 51600010 * 2 BNDRUCDE BIT(8), /* ALWAYS X'31' */ 52800010 * 2 BNDFORMT BIT(8), /* FORMAT/TYPE */ 53100010 * 2 BNDFMPRF FIXED(8), /* FM PROFILE */ 53400010 * 2 BNDTSPRF FIXED(8), /* TS PROFILE */ 54600010 * 2 BNDPRIM BIT(8), /* PRIMARY LU PROTOCOLS */ 55200010 * 3 BNDPCHN BIT(1), /* CHAINING USE */ 56400010 * 3 BNDPRQM BIT(1), /* REQUEST MODE SELECTION */ 57000010 * 3 BNDPDEF BIT(1), /* DEFINITE RESPONSE */ 58200010 * 3 BNDPEXC BIT(1), /* EXCEPTION RESPONSE */ 58800010 * 3 * BIT(1), /* RESERVED */ 60000010 * 3 * BIT(1), /* RESERVED */ 60600010 * 3 BNDPCMP BIT(1), /* COMPRESSION INDICATOR */ 61800010 * 3 BNDPEBI BIT(1), /* EB INDICATOR */ 62400010 * 2 BNDSECD BIT(8), /* SECONDARY LU PROTOCOLS */ 63600010 * 3 BNDSCHN BIT(1), /* CHAINING USE */ 64200010 * 3 BNDSRQM BIT(1), /* REQUEST MODE SELECTION */ 65400010 * 3 BNDSDEF BIT(1), /* EXCEPTION RESPONSE */ 66000010 * 3 BNDSEXC BIT(1), /* DEFINITE RESPONSE */ 67200010 * 3 * BIT(1), /* RESERVED */ 67800010 * 3 * BIT(1), /* RESERVED */ 69000010 * 3 BNDSCMP BIT(1), /* COMPRESSION INDICATOR */ 69600010 * 3 BNDSEBI BIT(1), /* EB INDICATOR */ 70800010 * 2 BNDCOMM1 BIT(8), /* COMMON LU PROTOCOLS BYTE 1*/ 71400010 * 3 * BIT(1), /* RESERVED */ 72600010 * 3 BNDFMUSE BIT(1), /* FM HEADER USAGE */ 73200010 * 3 BNDBRACK BIT(1), /* BRACKETS */ 74400010 * 3 BNDBTERM BIT(1), /* BRACKET TERMINATION RULE*/ 75000010 * 3 BNDALT BIT(1), /* ALTERNATE CODE */ 76200010 * 3 * BIT(1), /* RESERVED */ 76800010 * 3 * BIT(1), /* RESERVED */ 78000010 * 3 * BIT(1), /* RESERVED */ 78600010 * 2 BNDCOMM2 BIT(8), /* COMMON LU PROTOCOLS BYTE 2*/ 79800010 * 3 BNDFMODE BIT(2), /* FM TRANSACTION MODE */ 80400010 * 3 BNDRECOV BIT(1), /* RECOVERY RESPONSIBILITY */ 81600010 * 3 BNDSPKR BIT(1), /* BCKTS FIRST SPKR */ 82200010 * 3 * BIT(1), /* RESERVED */ 83400010 * 3 * BIT(1), /* RESERVED */ 84000010 * 3 * BIT(1), /* RESERVED */ 85200010 * 3 BNDCRES BIT(1), /* CONTENTION RESOLUTION */ 85800010 * 2 BNDSSPC FIXED(8), /* SEC SEND PACING COUNT */ 85820010 * 2 BNDSRPC FIXED(8), /* SEC RECEIVE PACING COUNT */ 85840010 * 2 BNDSMSRU FIXED(8), /* SLU MAX SEND RU SIZE */ 85860010 * 3 BNDNMAX BIT(1), /* NO MAX SPECIFIED */ 85880010 * 3 * BIT(7), /* RESERVED */ 85900010 * 2 BNDPMSRU FIXED(8), /* PLU MAX SEND RU SIZE */ 85920010 * 3 BNDNMAXP BIT(1), /* NO MAX SPECIFIED */ 85940010 * 3 * BIT(7), /* RESERVED */ 85960010 * 2 BNDPSPC FIXED(8), /* PRI SEND PACING COUNT */ 85980010 * 2 * CHAR(1), /* RESERVED */ 86000010 * 2 BNDLUPFL FIXED(8), /* LU PROFILE */ 86020010 * 3 BNDPSF BIT(1), /* PRESENTATION SERVICE FORMAT 86040010 * */ 86060010 * 3 BNDLUTYP BIT(7), /* LU TYPE */ 86080010 * 2 BNDPSCH CHAR(10), /* PRESERNTATION SERVICE 86100010 * CHARACTERISTICS */ 86120010 * 3 * CHAR(9), /* RESERVED */ 86140010 * 3 BNDSCSZE CHAR(1), /* SCREEN SIZE */ 86146010 * 2 * CHAR(1), /* RESERVED @YM07298*/ 86149010 * 2 BNDCRYP FIXED(8), /* ALWAYS X'00' */ 86152010 * 2 BNDPLUNL FIXED(8), /* LENGTH OF PRIMARY LU NAME 86160010 * (ALWAYS X'08') */ 86180010 * 2 BNDPLUN CHAR(8), /* PRIMARY LU NAME */ 86200010 * 2 BNDUDFL FIXED(8), /* USER DATA FIELD LENGTH */ 86220010 * 2 BNDUSD CHAR(0); /* USER DATA FIELD */ 86240010 * %BNDLEN='LENGTH(IEDBNDD)'; /* LENGTH OF BIND ENTRY */ 86450010 * %BNDBLEN='LENGTH(IEDBNDD)'; /* LEN OF BIND ENTRY @YM07701*/ 86950010 */*BNDSCSZE VLAUES */ 87450010 * DCL BND12X40 BIT(8) CONSTANT('01'X); /* 12 X 40 SIZE */ 87750010 * DCL BND24X80 BIT(8) CONSTANT('02'X); /* 24 X 80 SIZE */ 88050010 */*BNDFMODE VLAUES */ 88350010 * DCL BNDHDX BIT(2) CONSTANT('01'B); /* HDX CONTENTION */ 89000010 * DCL BNDHDXFF BIT(2) CONSTANT('10'B); /* HDX FLIP-FLOP */ 89200010 * DCL BNDMSLVE BIT(2) CONSTANT('11'B); /* MASTER SLAVE */ 89400010 */*BNDLUTYP VALUES */ 89600010 * DCL BNDLU0 BIT(7) CONSTANT('0000000'B); /* LU TYPE 0 */ 89800010 * DCL BNDLU1 BIT(7) CONSTANT('0000001'B); /* LU TYPE 1 */ 90000010 * DCL BNDLU2 BIT(7) CONSTANT('0000010'B); /* LU TYPE 2 */ 90200010