* %GOTO BSLLCB; /* 00090000 MACRO 00180000 TLCBD 00270000 .*A000000-999999 @X20X5X0 00360000 .*D062000,122000,266000,338000,384000,386000,422000,434000 @Y17XAXF 00450000 .*D562600-564400, @Y17XAXF 00540000 .*D914900,930800,931000,935600,935800,940000,941600, @Y17XAXF 00630000 .*D954400-955200,935100 @Y17XAXF 00720000 .*D300000,560000-564000,600000 S22026 00810000 .*A120000,182000,241000-243000,450000,542000,5561000 S22026 00900000 .*A562000-565000, S22026 00990000 .*A243200-243800, S99238 01080000 .*A241000,243000, SA58994 01170000 .*A184000,216000,252000,224000,922200,929800,950400, @Y17XAXF 01260000 .*C548000,578000-579000,918800-919000,922000,923800-926800, @Y17XAXF 01350000 .*C956600-957400,938400-93856,304000,344000,352000,356000, @Y17XAXF 01440000 .*C430000,933200,936400-936800,941200, @Y17XAXF 01530000 .*A060000,216000,228000,570000,579200,914800,923600,956000, @Y17XAXF 01620000 .*C576000,922320-923400,927200-929600,957600,957800, @Y17XAXF 01710000 .*C956200-956600,372000,426000,937600,940400-940600,330000, @Y17XAXF 01800000 .*A958900,584000 @Y17XAXF 01890000 .*A056000,509400 @OY14092 01920000 .*C200700,201600,509400,621000,621900 @OY14092 01950000 .*A603000,C188100 @OY18040 01951000 .*A357350,357400,357450,357500,821750,821800,821850,821900 @G36XRXG 01955000 .*C358200,822600 @G36XRXG 01960000 .*A127400,550400 @G36XRXG 01965000 .*C550800,551700,552600,553500,554400,555300 @G36XRXG 01970000 .*C556200,557100,558000,558900,559800,560700 @G36XRXG 01975000 .*C366300 @G36XRXG 01976000 .*A366400-366600,732400,372700 @G36XRXG 01977000 *A246600,681300 @OY20488 01977182 .*C772200 @OY20411 01977282 IEDQLCB DSECT 01980000 SPACE 02070000 .* CONVERTED TO BILINGUAL ON 07/18/72 S22024 02160000 * UPDATED 01/05/73 S22024 02250000 SPACE 02340000 LCBRCB DS 0D . RESOURCE CONTROL BLOCK 02430000 LCBKEY DS XL1 . ELEMENT KEY OF BUFFER 02520000 LCBQCBA DS AL3 . QCB ADDRESS 02610000 LCBPRI DS XL1 . PRIORITY OF BUFFER 02700000 LCBLINK DS AL3 . LINK FIELD OF BUFFER 02790000 LCBRSKEY DS XL1 . RECEIVE SCHEDULER KEY 02880000 LCBSTCBA DS AL3 . ADDRESS OF FIRST STCB WHEN 02970000 * LCB IS A QCB. 03060000 LCBRSPRI DS XL1 . RECEIVE SCHEDULER PRIORITY 03150000 LCBRSLNK DS AL3 . ADDR NEXT ITEM IN CHAIN 03240000 LCBEOLTD DS XL2 . END OF LIST TIME DELAY 03330000 LCBTDL DS XL1 . TIME DELAY QUEUE OFFSET TO 03420000 * QCB ADDRESS. FOR LCB = X'14' 03510000 LCBTSOB DS XL1 . TSO STATUS BITS TSO 03600000 * BIT DEFINITIONS TSO 03690000 LCBWRBRK EQU X'80' . WRITE BREAK IN PROGRESS@Y17XAXF 03780000 LCBTSBUF EQU X'40' . BUFFER HAS TS PREFIX TSO 03870000 LCBSATRD EQU X'20' . SIMULATED ATTN READ REQUEST TSO 03960000 LCBSOPL EQU X'10' . START OF POLLING LIST TSO 04050000 LCBPREP EQU X'08' . PREPARE ON LINE @Y17XAXF 04140000 LCBCIRCD EQU X'04' . CIRCLE D SENT TO 2741 TSO 04230000 LCBINHBN EQU X'02' . USE INHIBITS FOR THIS TERM TSO 04320000 LCB2741N EQU X'01' . 2741 ON THIS LINE TSO 04410000 * 04500000 LCBCHAIN DS XL1 . DISPOSITION STATUS BITS 04590000 * BIT DEFINITIONS 04680000 * 04770000 LCBSCRNN EQU X'80' . SCREEN CHANGE REQUESTED 04860000 LCBINVRQ EQU X'80' INITIAL INVITE REQUEST S22024 04950000 LCBSCRNF EQU X'7F' . NO SCREEN CHANGE REQUESTED 05040000 LCBEXCP EQU X'40' . DELAY EXCP TILL ASSOCIATION 05130000 LCBERMSG EQU X'20' . ERP MESSAGE WAITING 05220000 LCBNORTY EQU X'10' . TEXT RETRY NOT POSSIBLE 05310000 LCBUREQN EQU X'08' . UNIT REQUEST IN PROGRESS 05400000 LCBUREQF EQU X'FF'-LCBUREQN . UNIT REQUEST NOT IN PROGRESS 05490000 LCBBFRSZ EQU X'04' . QUEUE MANAGEMENT FLAG 05580000 LCBTETEN EQU X'02' . USER REQUESTED TETE A TETE 05670000 LCBCTLMD EQU LCBTETEN . LINE IN CONTROL MODE @OY14092 05710000 LCBTETEF EQU X'FD' . TETE A TETE NOT REQUESTED 05760000 LCBABRTN EQU X'01' . ABORT SEQUENCE MUST BE SENT 05870000 LCBABRTF EQU X'FE' . ABORT SEQUENCE NOT REQUIRED 05940000 * 06030000 LCBINSRC DS 0AL3 . IN-SOURCE CHAIN @Y17XAXF 06120000 DS XL2 . @Y17XAXF 06210000 LCBLKMDE DS XL1 . LOCKMODE INDICATORS @Y17XAXF 06300000 LCBBDFLG EQU X'80' . IEDQBD HAS NOT FINISHED INMSG 06390000 * PROCESSING @Y17XAXF 06480000 LCBHMFLG EQU X'40' . MSG HAS NOT BEEN PUT ON QUE 06570000 * WAITING FOR LINE TO BECOME 06660000 * READY TO START A SEND 06750000 * OPERATION @Y17XAXF 06840000 LCBLOCKR EQU X'20' . LOCK RESPONSE FROM A PUT 06930000 * @Y17XAXF 07020000 LCBLOCKI EQU X'10' . LOCK INQUIRY @Y17XAXF 07110000 * EQU X'08'-'X01' RESERVED @Y17XAXF 07200000 LCBSTAT4 DS 0XL1 . FOURTH STATUS BYTE @Y17XAXF 07290000 LCBDMPRQ EQU X'80' . 3705 NEEDS DUMPING @Y17XAXF 07380000 LCBDACRQ EQU X'40' . 3705 NEEDS DEACT'ING @Y17XAXF 07470000 LCBIPLRQ EQU X'20' . 3705 NEEDS IPLING @Y17XAXF 07560000 LCBACTRQ EQU X'10' . 3705 NEEDS ACTIVATING@Y17XAXF 07650000 * EQU X'08' RESERVED @YM08120 07740000 * LCBPHASE BITS 5&6 PIU PHASE INFO @Y17XAXF 07830000 LCBREAL EQU X'04' . CCW'S IN 3705 LCB HAVE @YM04622 07860000 * BEEN TRANSLATED 07890000 LCBCPGMH EQU X'01' . MH CHAIN PURGE @Y17XAXF 07920000 LCBNTXT DS XL1 . PRFNTXT SAVE 08010000 LCBSCBDA DS AL3 . ADDR SCB DIRECTORY 08100000 LCBLNENT EQU LCBSCBDA+1 . TNT OFFSET TO LINE ENTRY 08190000 LCBISZE DS XL1 . COUNT OF IDLES RESERVED 08280000 LCBMHA DS 0AL3 . MH QCB ADDR FOR NCP @YM06085 08310000 * RESOURCES @YM06085 08340000 LCBFSBFR DS AL3 . FIRST BFR ASSIGNED TO @Y17XAXF 08370000 * LCB @Y17XAXF 08460000 LCBFLAG1 DS XL1 . IOS FLAGS 1 08550000 * EQU X'80'-X'40' RESERVED @Y17XAXF 08640000 LCBERPIN EQU X'20' . ERP IN CONTROL @Y17XAXF 08730000 * EQU X'10'-X'08' RESERVED @Y17XAXF 08820000 LCBEXCPN EQU X'04' . IOB EXCEPTION FLAG @Y17XAXF 08910000 LCBUNREL EQU X'02' . UNRELATED REQUEST FLAG @Y17XAXG 09000000 * EQU X'01' RESERVED @Y17XAXF 09090000 LCBPLCB EQU X'00' PLCB INDICATOR @Y17XAXF 09110000 LCBPRFSZ EQU LCBFLAG1-IEDQLCB . LCB PREFIX SIZE @Y17XAXF 09180000 * @Y17XAXF 09270000 * SNA RESPONSE INFO @Y17XAXF 09360000 * @Y17XAXF 09450000 LCBRSPIN DS 0CL19 . SNA RESPONSE INFO @Y17XAXF 09540000 DS XL1 . RESERVED @YM06118 09630000 LCBSNS0 DS XL1 . SAME BYTE AS LCBSENS0- @YM06118 09660000 * MUST BE 0 FOR SNA @YM06118 09690000 LCBRHSV DS XL3 . RESPONSE RH @YM07705 09720000 LCBLUSNS DS 0CL4 . RESPONSE SENSE @Y17XAXF 11250000 LCBSMAJ DS XL1 . MAJOR SENSE BYTE @Y17XAXG 11340000 LCBSMIN DS XL1 . MINOR SENSE BYTE @Y17XAXG 11430000 LCBUSER DS XL2 . USER SENSE BYTES @Y17XAXG 11520000 LCBSCPRS DS 0XL3 . SSCP RESPONSE BYTES @Y17XAXF 11560000 LCBDFCMD DS XL1 . DFC COMMAND RSP BYTE @Y17XAXF 11610000 DS XL1 . RESERVED @Y17XAXF 11700000 LCBCSWU1 DS XL1 . SAME BYTE AS LCBCSWUS @Y17XAXF 11706000 * EQU X'80'-X'02' . RESERVED @Y17XAXF 11712000 LCBUSUE1 EQU X'01' . SAME BIT AS LCBUSUE- @Y17XAXF 11718000 * INDICATES END OF @Y17XAXF 11724000 * MESSAGE SENT OR RCV'D @Y17XAXF 11730000 DS XL3 . RESERVED @Y17XAXF 11740000 LCBRSPFG DS XL1 . FLAG BYTE USED IN RESPONSE 11790000 * GENERATION @Y17XAXF 11830000 LCBEXPI EQU X'80' RESPONSE IS EXPEDITED @Y17XAXG 11880000 LCBRSRH EQU X'40' . EXCEPTION RESP GEN'D @YM07705 11920000 * EQU X'20-01' RESERVED @YM07705 11970000 LCBPAKCH DS AL3 . BACK BUFFER CHAIN @Y17XAXF 12060000 ORG LCBRSPIN 12240000 * @Y17XAXF 12330000 * IOB SENSE INFORMATION @Y17XAXF 12420000 * @Y17XAXF 12510000 LCBIOBSN DS 0CL19 IOB SENSE @Y17XAXF 12600000 LCBFLAG2 DS XL1 . IOS FLAGS 2 12690000 LCBSNS DS 0XL2 . SENSE BYTES @G36XRXG 12730000 LCBSENS0 DS XL1 . SENSE BYTE 0 12780000 LCBCMDRJ EQU X'80' . COMMAND REJECT @Y17XAXF 12870000 LCBINTRQ EQU X'40' . INTERVENTION REQUIRED@Y17XAXF 12960000 LCBBUSCK EQU X'20' . BUSOUT CHECK @Y17XAXF 13050000 LCBEQUCK EQU X'10' . EQUIPMENT CHECK @Y17XAXF 13140000 LCBDATCK EQU X'08' . DATA CHECK @Y17XAXF 13230000 LCBOVRUN EQU X'04' . OVERRUN @Y17XAXF 13320000 LCBLOSDT EQU X'02' . LOST DATA @Y17XAXF 13410000 LCBNOTIN EQU X'02' . NOT INITIALIZED @Y17XAXF 13500000 LCBTMOUT EQU X'01' . TIME-OUT EXCEEDED @Y17XAXF 13590000 LCBABORT EQU X'01' . ABORT @Y17XAXF 13680000 LCBSENS1 DS XL1 . SENSE BYTE 1 13770000 LCBECBCC DS XL1 . COMPLETION CODE 13860000 LCBECB41 EQU X'41' . PERMANENT ERROR @Y17XAXF 13950000 LCBECB48 EQU X'48' . I/O ENDED W/ HALT I/O @Y17XAXF 14040000 LCBECB7F EQU X'7F' . NORMAL COMPLETION @Y17XAXF 14130000 LCBECBPT DS AL3 . ADDR OF ECB 14220000 LCBFLAG3 DS XL1 . IOS FLAGS 3 14310000 * BIT DEFINITIONS S22026 14400000 LCBOBR EQU X'01' OBR RECORDING FLAG SA58994 14490000 * 14580000 * 14670000 LCBOBRRD EQU X'02' . TPER RECORD PROCESSING S22026 14760000 * S22026 14850000 LCBIOMSG EQU X'04' I/O MESSAGE FLAG SA58994 14940000 * 15030000 * 15120000 LCBSOHC EQU X'08' . SOH % C FLAG BIT S99238 15210000 LCBSOHR EQU X'20' . SOH % R FLAG BIT S99228 15300000 * IF R & C FLAG BITS OFF S99238 15390000 * SOH % E MSG IS ASSUMED S99238 15480000 LCBRLAD EQU X'10' INDICATES REAL ADDRESSES IN 15570000 * LCB CHANNEL PROGRAM AREA X01004 15660000 LCBCSW DS 0XL7 . LAST CSW @Y17XAXF 15750000 LCBCSWCA DS AL3 . CCW ADDR @Y17XAXF 15840000 LCBCSWST DS 0XL2 . STATUS @Y17XAXF 15930000 LCBCSWUS DS XL1 . UNIT STATUS @Y17XAXF 16020000 LCBUSAT EQU X'80' . ATTENTION @Y17XAXF 16110000 LCBUSSM EQU X'40' . STATUS MODIFIER @Y17XAXF 16200000 LCBUSCUE EQU X'20' . CONTROL UNIT END @Y17XAXF 16290000 LCBUSBSY EQU X'10' . BUSY @Y17XAXF 16380000 LCBUSCE EQU X'08' . CHANNEL END @Y17XAXF 16470000 LCBUSDE EQU X'04' . DEVICE END @Y17XAXF 16560000 LCBUSUC EQU X'02' . UNIT CHECK @Y17XAXF 16650000 LCBUSUE EQU X'01' . UNIT EXCEPTION @Y17XAXF 16740000 LCBCSWCS DS XL1 . CHANNEL STATUS @Y17XAXF 16830000 LCBCSPCI EQU X'80' . PROGRAM CONTROL INT @Y17XAXF 16920000 LCBCSIL EQU X'40' . INCORRECT LENGTH @Y17XAXF 17010000 LCBCSPGC EQU X'20' . PROGRAM CHECK @Y17XAXF 17100000 LCBCSPTC EQU X'10' . PROTECTION CHECK @Y17XAXF 17190000 LCBCSCDC EQU X'08' . CHANNEL DATA CHECK @Y17XAXF 17280000 LCBCSCCC EQU X'04' . CHANNEL CONTROL CHK @Y17XAXF 17370000 LCBCSICC EQU X'02' INTERFACE CTL CHK @Y17XAXF 17460000 LCBCSCHC EQU X'01' . CHAINING CHECK @Y17XAXF 17550000 LCBCSWRC DS XL2 . RESIDUAL COUNT @Y17XAXF 17640000 LCBSIOCC DS XL1 . SIO CONDITION CODE 17730000 * EQU X'80'-X'40' . RESERVED @Y17XAXF 17820000 LCBSIOC1 EQU X'20' . CONDITION CODE..... @Y17XAXF 17910000 LCBSIOC2 EQU X'10' . .....SETTING FOR 3705 @Y17XAXF 18000000 LCBAP1OL EQU X'08' . ALTERNATE PATH 1 OFFLINE @Y17XAXG 18090000 LCBAP2OL EQU X'04' . ALTERNATE PATH 2 OFFLINE @Y17XAXG 18180000 LCBAP3OL EQU X'02' . ALTERNATE PATH 3 OFFLINE @Y17XAXG 18270000 LCBAP4OL EQU X'01' . ALTERNATE PATH 4 OFFLINE @Y17XAXG 18360000 LCBSTART DS AL3 . ADDR OF CHANNEL PROGRAM 18450000 LCBPCILK DS 0AL4 . PCI LOCK FOR MP SYSTEM @Y17XAXF 18540000 LCBDCBPT DS A . ADDRESS OF DCB 18630000 LCBRESTR DS 0A . ERROR MESSAGE DATA 18720000 LCBRCQCB DS 0A . QCB TO POST RECALL BUFF@OY18040 18810000 LCBCMDSV DS CL1 . COMMAND CODE SAVE @OY18040 18820000 DS AL3 . @OY18040 18830000 LCBTHSQ DS 0H . TH SEQ NUMBER @YM06118 18850000 LCBINCAM DS H . ERP RETRY COUNTS @Y17XAXF 18900000 LCBGETMN EQU X'80' . GETMAINED STORAGE AREA 18930000 * EXIST IS 904I/904H @Y17XAXF 18960000 LCBTTBIN DS 0H . TERM TO BE CONNECTED INDEX 18990000 LCBERRCT DS H . IOS ERROR COUNTERS 19080000 LCBUCBX DS XL1 . UCB INDEX 19170000 LCBRCBFR DS 0AL3 . POINTER TO RECALLED BUFFER 19260000 LCBRDBFR DS 0AL3 . START OF READ CHAN PROG S22024 19350000 LCBLSPCI DS AL3 . ADDR OF LAST SRVCD PCI 19440000 LCBRECOF DS H . OFFSET INTO CURRENT BLOCK 19530000 LCBSTATE DS 0H . STATUS BITS 19620000 LCBSTAT1 DS XL1 . FIRST STATUS BYTE @Y17XAXF 19710000 * BIT DEFINITIONS 19800000 LCBRCLLN EQU X'80' . RECALL BEING PERFORMED 19890000 LCBRCLLF EQU X'FF'-LCBRCLLN . NO RECALL 19980000 LCBOCWTN EQU X'40' . NON-IMMEDIATE OPERATOR @OY14092 20070000 * COMMAND WAITING @OY14092 20160000 LCBOCNI EQU X'20' . NON-IMEDIATE OPERATOR CONTROL 20250000 * OPERATION IN PROGRESS @Y17XAXF 20340000 LCBINITN EQU X'10' . RECEIVING INITIATE MODE MSG 20430000 LCBINITF EQU X'FF'-LCBINITN . NO INITIATE MODE 20520000 LCBCONT EQU X'08' . CONTINUE OR RESET OPERATION 20610000 LCBFREEN EQU X'04' . LINE FREE @Y17XAXF 20700000 LCBFREEF EQU X'FF'-LCBFREEN . LINE NOT FREE 20790000 LCBRECVN EQU X'02' . LINE IS RECEIVING @Y17XAXF 20880000 LCBSENDN EQU X'01' . ON = LINE SENDING @Y17XAXF 20970000 * BOTH SEND AND RECEIVE BITS 21060000 * OFF INDICATE LINE IS STOPPED 21150000 * 21240000 LCBSTAT2 DS XL1 . SECOND STATUS BYTE @Y17XAXF 21330000 * BIT DEFINITIONS 21420000 LCBTRACE EQU X'80' . I/O TRACE ACTIVE FOR THIS LINE 21510000 LCBTRCOF EQU X'FF'-LCBTRACE . TRACE NOT ACTIVE 21600000 LCBMSGNN EQU X'40' . MSGEN/STARTUP MESSAGE 21690000 LCBMSGNF EQU X'FF'-LCBMSGNN . NOT MSGEN/STARTUP MESSAGE 21780000 LCBBEOTN EQU X'20' . EOT FROM BFRED TERM -NO EOM 21870000 LCBCONNN EQU X'20' . ERROR ON DIAL CONTACT @YM08436 21910000 LCBBEOTF EQU X'DF' . REGULAR EOM IF EOT 21960000 LCBSNDPR EQU X'10' . SEND PRIORITY SWITCH SET BY 22050000 * SEND SCHEDULER 22140000 LCBNEGRP EQU X'08' . NEGATIVE RESPONSE TO POLLING 22230000 * RECEIVED 22320000 LCBSYNC EQU X'04' . LINE IS BISYNC 22410000 LCBATTN EQU X'04' . 3705 ATTENTION RECEIVED@Y17XAXF 22500000 LCBDIAL EQU X'02' . DIAL LCB 22590000 LCBBFRAV EQU X'02' . 3705 BUFFER AVAILABLE @Y17XAXF 22680000 LCBRESP EQU X'01' . A RESPONSE IS OWED @Y17XAXF 22770000 * 22860000 LCBTSTSW DS XL1 . TEST-AND-SET SWITCH 22950000 * BIT DEFINITIONS 23040000 LCBCONCT EQU X'80' . CONNECTION ESTABLISHED 23130000 * 23220000 LCBRECAD DS AL3 . ADDRESS CURRENT MSG BLOCK 23310000 LCBERB DS 0A . ERB 23400000 LCBERBKY DS XL1 . ELEMENT REQUEST BLOCK KEY 23490000 LCBERBQB DS AL3 . ERB QCB 23580000 LCBERBPY DS XL1 . ERB PRIORITY 23670000 LCBERBLK DS AL3 . ADDR NEXT ITEM IN CHAIN 23760000 LCBERBST DS XL1 . STATUS OF ERB 23850000 * THE X'08' BIT MUST NEVER BE ON 23940000 * IN THE STATUS BYTE. IT MUST 24030000 * REMAIN THE 9TH BYTE OF YHE ERB 24120000 * BIT DEFINITIONS 24210000 LCBINQ EQU X'10' . ERB IS WAITING-BFRS FROM HM 24300000 LCBEOMSG EQU X'40' . END OF MESSAGE READ FROM DISK 24390000 LCBRDERR EQU X'20' . LOGICAL READ ERROR 24480000 LCBRDERF EQU X'FF'-LCBRDERR . NO READ ERROR 24570000 LCBMSG EQU X'80' . END OF INITIATE MODE TO HM 24660000 LCBLOGDV EQU X'08' LOGGING REQUESTED @OY20488 24700082 LCBERROR EQU X'04' . ERROR ON SEND SIDE 24750000 LCBPRCPG EQU X'02' . AFTER INITIAL REQUEST IS 24840000 * SATISFIED, ERB WILL BE POSTED 24930000 * TO QCB INDICATED IN LCBRCQCB 25020000 LCBCOMPL EQU X'02' . DISK REQUEST IS COMPLETE 25110000 LCBDLNKN EQU X'01' . DELINK SWITCH ON-ERB NOT POSTED 25200000 * IF ON THE ERB CAN BE POSTED 25290000 LCBDLNKF EQU X'FE' . ERB POSTED 25380000 * PCI CAN NOT POST ERB 25470000 * 25560000 LCBERBCH DS AL3 . ADDR CHAIN ASSIGNED BFRS 25650000 LCBERBCT DS 0H . COUNT FIELDS @Y17XAXF 25740000 LCBRBCT1 DS CL1 . ENABLED COUNT FIELDS @Y17XAXF 25830000 LCBRBCT2 DS CL1 . DISABLED COUNT FIELDS@Y17XAXF 25920000 LCBDCNT EQU X'80' . DISABLED CNT INUSE@Y17XAXF 26010000 * RESERVED @Y17XAXF 26100000 LCBTTCIN DS H . TERM CURR CONNECTED INDEX 26190000 LCBMSGFM DS XL1 . BITS TO CONTROL BSC LINE 26280000 * BIT DEFINITIONS 26370000 LCBNAK EQU X'80' . REQUEST TO SEND NAK RESPONSE 26460000 LCBACKI EQU X'40' . ACK COUNTER - SEND/RECEIVE 26550000 * FOLLOWING TWO BITS INDICATE WHETHER A SCAN OF LINE CONTROL 26640000 * HAS BEEN ACCOMPLISHED AND TYPE OF LINE CONTROL RECEIVED. 26730000 LCBVSTRT EQU X'20' . VALID START SEQUENCE 26820000 LCBRSTRT EQU X'10' . ERROR START SEQUENCE 26910000 LCBTTD EQU X'08' . TTD RECEIVED 27000000 LCBENQ EQU X'04' . ENQ RECEIVED 27090000 LCBEOT EQU X'02' . EOT FIRST CHARACTER 27180000 LCBOLT EQU X'01' . TOTE REQUEST 27270000 * 27360000 LCBSCBA DS AL3 . ADDRESS OF CURRENT SCB 27450000 LCBOBRCH DS 0A . 3705 OBR/SDR/MDR CHAIN @Y17XAXF 27540000 LCBERMSK DS XL1 . ERROR RECORDING MACK @Y17XAXF 27630000 LCBBFRW DS 0AL3 . ADDR OF BSC STATUS @Y17XAXF 27720000 * PENDING BUFFER @Y17XAXF 27810000 LCBINVPT DS 0AL3 . ADDR CURR ENTRY IN INV LIST 27900000 LCBNXCMD DS CL3 . SNA COMMAND TYPE @Y17XAXF 27990000 * @Y17XAXF 28080000 * 3705 CORE QUEUE INFO @Y17XAXF 28170000 * @Y17XAXF 28260000 LCBCOREQ DS 0CL12 . 3705 OUTPUT CORE QUEUE @Y17XAXF 28350000 LCBCQELE DS AL4 . ELEMENT CHAIN @Y17XAXF 28440000 LCBCQLNK DS AL4 . LINK @Y17XAXF 28530000 LCBWRSCH DS AL4 . ADDR OF WRITE SCHD'S @Y17XAXF 28620000 * STCB @Y17XAXF 28710000 ORG LCBCOREQ @Y17XAXF 28800000 * @Y17XAXF 28890000 * PLCB STATUS INFO @Y17XAXF 28980000 * @Y17XAXF 29070000 LCBTPCD DS 0CL12 . TP OP CODES S22024 29160000 LCBSTAT5 DS CL1 . FIFTH STATUS BYTE @Y17XAXF 29250000 LCBPERM EQU X'80' . PLCB PERMANENTLY @Y17XAXF 29340000 * ASSIGNED @Y17XAXF 29430000 LCBLUNIT EQU X'40' . SNA LOGICAL UNIT @Y17XAXF 29520000 LCBLUS EQU X'20' . RETURN PLCB TO LUS @Y17XAXF 29610000 * EQU X'10'-X'01' . RESERVED @Y17XAXF 29700000 LCBBFRSV DS AL3 PTR TO SAVED BUF CHAIN @Y17XAXF 29790000 LCBSTAT6 DS XL1 . SNA STATUS @Y17XAXF 29880000 *LCBCHN EQU X'80'-X'10' CHAINING STATE @Y17XAXF 29970000 * THE FOLLOWING VALUES ARE VALID WHEN LCBRECVN=1 OR LCBSENDN=1 30060000 LCBBETC EQU X'00' . BETWEEN CHAIN STATE(WAITING 30150000 * FOR NO RESPONSE) @Y17XAXF 30240000 LCBINC EQU X'10' . IN CHAIN STATE @Y17XAXF 30330000 LCBPURG EQU X'20' . PURGING CHAIN STATE @Y17XAXF 30420000 LCBWMG EQU X'30' . BETWEEN CHAIN-WAITING FOR 30510000 * MSGGEN RSP STATE @Y17XAXF 30600000 * THE FOLLOWING VALUES ARE VALID ONLY WHEN LCBRECVN=1 @Y17XAXF 30610000 LCBWERAS EQU X'70' . BETWEEN CHAIN STATE-WAITING 30620000 * FOR SCREEN ERASURE RESPONSE 30630000 * (TSO STATE ONLY) @Y17XAXF 30640000 LCBWSMI EQU X'80' . BETWEEN CHAIN STATE-WAITING 30650000 * START MI RESPONSE 30660000 * (TSO STATE ONLY) @Y17XAXF 30670000 * 30680000 * THE FOLLOWING VALUES ARE VALID ONLY WHEN LCBSENDN=1 30690000 LCBWFMD EQU X'40' . BETWEEN CHAIN-WAITING FOR FM 30780000 * DATA RSP STATE @Y17XAXF 30870000 LCBWCAN EQU X'50' . BETWEEN CHAIN-WAITING FOR FM 30960000 * CANCEL RSP STATE @Y17XAXF 31050000 LCBWBID EQU X'60' . BETWEEN CHAIN-WAITING FOR FM 31140000 * BID RSP STATE @Y17XAXF 31230000 * 31270000 LCBHDRPD EQU X'08' . ON-HDR HAS BEEN POSTED TO MH 31590000 * OFF-HDR HAS NOT BEEN POSTED 31680000 * TO MH @Y17XAXF 31770000 LCBRTRRO EQU X'04' . RESPONSE OWED TO RTR @Y17XAXF 31860000 LCBMHBID EQU X'02' . BID COMMAND TO BE BUILT 31950000 * @Y17XAXF 32040000 LCBINPAK EQU X'01' . ON-IN PACK STATE 32130000 * OFF-BETWEEN PACK STATE 32160000 * @Y17XAXF 32190000 LCBWAITC DS AL3 . PIU WAIT CHAIN @Y17XAXF 32220000 LCBBFSNS DS 0CL4 . BIND-FAILED SENSE DATA @Y17XAXF 32310000 LCBRSPSV DS AL4 . PTR TO SAVED RSP BUFFER@Y17XAXF 32350000 * @Y17XAXF 32400000 * RH CANCEL INFO @Y17XAXF 32490000 * @Y17XAXF 32580000 LCBCANCL DS 0CL8 . CANCEL INFO @Y17XAXF 32670000 LCBCANFG DS XL1 . CANCEL RH FLAGS @Y17XAXF 32760000 LCBCANXT EQU X'80' . CANCEL MUST BE @Y17XAXF 32850000 * RESPONDED TO @Y17XAXF 32940000 LCBCANEB EQU X'40' . CANCEL RH END BKT @Y17XAXF 33030000 * EQU X'20' . RESERVED @Y17XAXF 33120000 LCBCANCD EQU X'10' . CANCEL RH CHGE DIRECT @Y17XAXF 33210000 * EQU X'08'-X'01' . RESERVED @Y17XAXF 33300000 LCBCANTH DS XL2 . CANCEL TH SEQ @Y17XAXF 33390000 DS XL2 . RESERVED @Y17XAXF 33480000 * 33570000 * ================================================================ 33580000 * IGG019RP USES LCB+X'73' TO LCB+ X'97' AS WORK AREA 33590000 * ================================================================ 33600000 * 33610000 ORG LCBCANCL @Y17XAXF 33660000 * @Y17XAXF 33750000 * SAVE AREA FOR SENSE @Y17XAXF 33840000 * @Y17XAXF 33930000 LCBSAVSN DS 0CL8 . SAVE SENSE @Y17XAXF 34020000 LCBSNSV DS XL1 . SAVE AREA FOR SENSE BYTE 34110000 LCBCSWSV DS XL7 . SAVE AREA FOR CSW 34200000 * @YM08142 34202000 * IEDQNX INTERFACE AREA (3705 LCB ONLY) @YM08142 34204000 * @YM08142 34206000 LCBQNX DS 0CL24 IEDQNX INTERFACE AREA @YM08142 34208000 LCBQNXMN DS XL1 MESSAGE NUMBER FOR QNX @YM08142 34210000 LCBNX064 EQU X'80' WRITE MSG IED064I @YM08142 34212000 LCBNX142 EQU X'40' WRITE MSG IED142I @YM08142 34214000 LCBNX162 EQU X'20' WRITE MSG IED162I @YM08142 34216000 LCBNX509 EQU X'10' WRITE MSG IED509I @YM08142 34218000 * EQU X'08'-X'01' RESERVED @YM08142 34220000 LCBSTSAV DS AL3 SAVE AREA FOR LCBSTART @Y17XAXF 35640000 * DURING RETRY @Y17XAXF 35730000 DS XL1 RESERVED @ZM46833 35760000 LCBIOSBS DS AL3 SAVE AREA FOR IOSB @ZM46833 35790000 DS 2F RESERVED @ZM46833 35820000 LCBDSTEA DS A DEVICE STATISTIC TAB @Y17XAXF 35910000 * ENTRY ADDRESS @Y17XAXF 36000000 LCBUASZE DS XL1 UNIT NAME ADDRESS SIZ @Y17XAXF 36090000 LCBUNADD DS AL3 UNIT NAME ADDRESS @Y17XAXF 36180000 * @Y17XAXF 36270000 * ERP COMMAND AREA @Y17XAXF 36360000 * @Y17XAXF 36450000 ORG LCBQNX @Y17XAXF 36540000 LCBERCCW DS 3D 3 ERP COMMANDS @G36XRXG 36630000 ORG LCBERCCW+8 @G36XRXG 36640000 LCBATL05 DS CL8 3705 ATTEN ELEMENT @G36XRXG 36650000 DS CL8 @G36XRXG 36660000 LCBSTICS EQU LCBERCCW+21 . CHRACTERISTCIS WORK AREA 36720000 LCBCPA DS 0D . CHANNEL PROGRAM AREA 36810000 LCBCCW1 EQU IEDQLCB+144 * @Y17XAXF 36900000 LCBCCW2 EQU IEDQLCB+152 * @Y17XAXF 36990000 LCBCCW3 EQU IEDQLCB+160 * C C W @Y17XAXF 37080000 LCBCCW4 EQU IEDQLCB+168 * @Y17XAXF 37170000 LCBCCW5 EQU IEDQLCB+176 * B U I L D @Y17XAXF 37260000 LCBATTEL EQU LCBCCW5 * @G36XRXG 37280000 ORG LCBCCW5 @ZM46675 37290000 LCBQEBPL DS 0CL8 PARM LIST FOR QEB @ZM46675 37300000 LCBSIO DS C FUNCTION CODE FOR QEB @ZM46675 37310000 LCBIOSB DS AL3 IOSB PTR @ZM46675 37320000 LCBCP DS A PTR TO CHAN PRM START @ZM46675 37330000 LCBCCW6 EQU IEDQLCB+184 * @Y17XAXF 37350000 LCBCCW7 EQU IEDQLCB+192 * A R E A @Y17XAXF 37440000 LCBCCW8 EQU IEDQLCB+200 * @Y17XAXF 37530000 LCBCCW9 EQU IEDQLCB+208 * @Y17XAXF 37620000 LCBCCW10 EQU IEDQLCB+216 * @Y17XAXF 37710000 LCBERBFS EQU LCBERBKY-IEDQLCB . OFFSET INTO LCB OF ERB 37800000 LCBPLCBL EQU LCBCPA-IEDQLCB+48 LENGTH OF PLCB @YM08062 37890000 * @YM08062 37897000 * FOR PLCB'S ONLY THE FOLLOWING FIELDS EXIST @YM08062 37904000 * @YM08062 37911000 ORG LCBCPA+40 @YM08062 37918000 DS XL1 @YM08062 37925000 LCBNCPPT DS AL3 NCP TTE ADDRESS @YM08062 37967000 * S99228 37980000 * S99228 38070000 * DSECT FOR LCB EXTENSION AT TOP OF CHANNEL PROGRAM AREA S99228 38160000 * S99228 38250000 IEDQLCBX DSECT LCB EXTENSION S99228 38340000 LCBXCON DS 0D START OF CONTROL FIELDS S99228 38430000 LCBXFLAG DS XL1 DEV DEP FLAGS S99228 38520000 LCBGPCTV EQU X'08' ETX RECD GENERAL POLL S99228 38610000 LCBGPSTP EQU X'FF'-X'08' GENERAL POLL RESET S99228 38700000 LCBSRCPF EQU X'04' SOURCE DETERM PERFORMED S99228 38790000 LCBSRSTP EQU X'FF'-X'04' SOURCE DETERM RESET S99228 38880000 LCBERPND EQU X'02' SOH%R MESSAGE PENDING S99228 38970000 LCBERSTP EQU X'FF'-X'02' ERP POLL RESET S99228 39060000 LCBXDCT DS XL3 DCT STORAGE AREA S99228 39150000 LCBDCT1 EQU LCBXDCT DCT BYTE 1 S99228 39240000 LCBDCT2 EQU LCBXDCT+1 DCT BYTE 2 S99228 39330000 LCBDCT3 EQU LCBXDCT+2 DCT BYTE 3 S99228 39420000 LCBXRADR DS F ERP POLL CHARS ADDRESS S99228 39510000 LCBPCIRC EQU LCBXRADR 3270 LOCAL PCI RETRY CNTRS99228 39600000 LCBERADR EQU LCBXRADR+1 POLL CHARS ADDR FIELD S99228 39690000 IEDQLCB DSECT S99228 39780000 * 39870000 * 39960000 * ******************************************************* 40050000 * 0 * KEY ** QCBA * 40140000 * ******************************************************* 40230000 * 4 * PRI ** LINK * 40320000 * ******************************************************* 40410000 * 8 * RSKEY ** STCBA * 40500000 * ******************************************************* 40590000 * 12 * RSPRI ** RSLNK * 40680000 * ******************************************************* 40770000 * 16 * EOLDT ** TDL ** TSOB * 40860000 * ******************************************************* 40950000 * 20 * CHAIN ** INSRC * 41040000 * ******************************************************* 41130000 * 24 * NTXT ** SCBDA * 41220000 * ******************************************************* 41310000 * 28 * ISZE ** FSBFR/LSBFR * 41400000 * ******************************************************* 41490000 * 32 * FLAG1 ** FLAG2 ** SENS0 ** SENS1 * 41580000 * ******************************************************* 41670000 * 36 * ECBCC ** ECBPT * 41760000 * ******************************************************* 41850000 * 40 * FLAG3 ** CSW * 41940000 * ******************************************************* 42030000 * 44 * CSW * 42120000 * ******************************************************* 42210000 * 48 * SIOCC ** START * 42300000 * ******************************************************* 42390000 * 52 * DCBPT * 42480000 * ******************************************************* 42570000 * 56 * RCQCB/RESTR * 42660000 * ******************************************************* 42750000 * 60 * INCAM ** ERRCT/TTBIN * 42840000 * ******************************************************* 42930000 * 64 * UCBX ** RCBFR/LSPCI * 43020000 * ******************************************************* 43110000 * 68 * RECOF ** STATE * 43200000 * ******************************************************* 43290000 * 72 * TSTSW ** RECAD * 43380000 * ******************************************************* 43470000 * 76 * ERBKY ** ERBQB * 43560000 * ******************************************************* 43650000 * 80 * ERBPY ** ERBLK * 43740000 * ******************************************************* 43830000 * 84 * ERBIN ** ERBCH * 43920000 * ******************************************************* 44010000 * 88 * ERBCT ** TTCIN * 44100000 * ******************************************************* 44190000 * 92 * MSGFM ** SCBA * 44280000 * ******************************************************* 44370000 * 96 * ERMSK ** INVPT * 44460000 * ******************************************************* 44550000 * 100 * TPCD * 44640000 * ******************************************************* 44730000 * 104 * TPCD * 44820000 * ******************************************************* 44910000 * 108 * TPCD * 45000000 * ******************************************************* 45090000 * 112 * SNSV ** CSWSV * 45180000 * ******************************************************* 45270000 * 116 * CSWSV * 45360000 * ******************************************************* 45450000 * 120 * ERCCW * 45540000 * ******************************************************* 45630000 * 124 * * 45720000 * ******************************************************* 45810000 * 128 * * 45900000 * ******************************************************* 45990000 * 132 * * 46080000 * ******************************************************* 46170000 * 136 * * 46260000 * ******************************************************* 46350000 * 140 * * 46440000 * ******************************************************* 46530000 * 46620000 MEND , */ 46710000 *%BSLLCB : ; 46800000 *DECLARE 46890000 * 1 IEDQLCB BDY(DWORD) BASED(IEDQLPTR), 46980000 * 47070000 * 2 LCBRCB CHAR(8) BDY(DWORD), /* RESOURCE CONTROL BLOCK */ 47160000 * 3 LCBKEY CHAR(1), /* ELEMENT KEY OF BUFFER */ 47250000 * 3 LCBQCBA PTR(24), /* QCB ADDRESS @Y17XAXF*/ 47340000 * 3 LCBPRI CHAR(1), /* PRIORITY OF BUFFER */ 47430000 * 3 LCBLINK PTR(24), /* LINK FIELD OF BUFFER */ 47520000 * /* @Y17XAXF*/ 47610000 * 2 LCBRSKEY CHAR(1), /* RECEIVE SCHEDULER KEY */ 47700000 * 2 LCBSTCBA PTR(24), /* ADDRESS OF FIRST STCB 47790000 * WHEN LCB IS A QCB @Y17XAXF*/ 47880000 * 2 LCBRSPRI CHAR(1), /* RECEIVE SCHED PRIORITY */ 47970000 * 2 LCBRSLNK PTR(24), /* ADDR NEXT ITEM IN CHAIN */ 48060000 * /* @Y17XAXF*/ 48150000 * 2 LCBEOLTD FIXED(15), /* END OF LIST TIME DELAY */ 48240000 * 2 LCBTDL PTR(8), /* TIME DELAY OFFSET TO QCB 48330000 * ADDRESS FOR LCB = X'14' */ 48420000 * 2 LCBTSOB CHAR(1), /* TSO STATUS BITS TSO*/ 48510000 * 48600000 */* BIT DEFINITIONS TSO*/ 48690000 * 48780000 * 3 LCBWRBRK BIT(1), /* WRITE BRK INPRG @Y17XAXF*/ 48870000 * 3 LCBTSBUF BIT(1), /* BUFFER HAS TS PREFIX TSO*/ 48960000 * 3 LCBSATRD BIT(1), /* SIMULATED ATTN READ 49050000 * REQUEST TSO*/ 49140000 * 3 LCBSOPL BIT(1), /* START OF POLLING LIST TSO*/ 49230000 * 3 LCBPREP BIT(1), /* PREPARE ON LINE @Y17XAXF*/ 49320000 * 3 LCBCIRCD BIT(1), /* CIRCLE D SENT TO 2741 TSO*/ 49410000 * 3 LCBINHBN BIT(1), /* USE INHIBITS FOR THIS 49500000 * TERM TSO*/ 49590000 * 3 LCB2741N BIT(1), /* 2741 ON THIS LINE TSO*/ 49680000 * 49770000 * 2 LCBCHAIN CHAR(1), /* DISP STATUS BITS @Y17XAXF*/ 49860000 * 49950000 */* BIT DEFINITIONS */ 50040000 * 50130000 * 4 LCBSCRNN BIT(1), /* SCREEN CHANGE REQUESTED */ 50220000 * 5 LCBINVRQ BIT(1), /* INITIAL INVITE REQ S22024*/ 50310000 * 4 LCBEXCP BIT(1), /* DELAY EXCP UNTIL 50400000 * ASSOCIATION */ 50490000 * 4 LCBERMSG BIT(1), /* ERP MESSAGE WAITING */ 50580000 * 4 LCBNORTY BIT(1), /* TEXT RETRY NOT POSSIBLE */ 50670000 * 4 LCBUREQN BIT(1), /* UNIT REQUEST IN PROGRESS */ 50760000 * 4 LCBBFRSZ BIT(1), /* QUEUE MANAGEMENT FLAG */ 50850000 * 4 LCBTETEN BIT(1), /* TETE A TETE REQSTD @OY14092*/ 50940000 * 5 LCBCTLMD BIT(1), /* LINE IN CONTROL MODE @OY14092*/ 50980000 * 4 LCBABRTN BIT(1), /* ABORT SEQUENCE MUST BE 51030000 * SENT */ 51120000 * 2 LCBINSRC PTR(24), /* IN SOURCE CHAIN @Y17XAXF*/ 51300000 * 3 * CHAR(2), /* @Y17XAXF*/ 51390000 * 3 LCBLKMDE BIT(8), /* LOCKMODE INDICATORS 51480000 * @Y17XAXF*/ 51570000 * 4 LCBBDFLG BIT(1), /* IEDQBD HAS NOT FINISHED IN- 51660000 * MESSAGE PROCESSING 51750000 * @Y17XAXF*/ 51840000 * 4 LCBHMFLG BIT(1), /* MSG HAS NOT BEEN PUT ON QUE 51930000 * WAITING FOR LINE TO BECOME 52020000 * READY TO START A SEND 52110000 * OPERATION @Y17XAXF*/ 52200000 * 4 LCBLOCKR BIT(1), /* LOCK RESPONSE FROM A PUT 52290000 * @Y17XAXF*/ 52380000 * 4 LCBLOCKI BIT(1), /* LOCK INQUIRY @Y17XAXF*/ 52470000 * 4 * BIT(4), /* RESERVED @Y17XAXF*/ 52560000 * 2 LCBNTXT CHAR(1), /* PRFNTXT SAVE */ 52650000 * 3 LCBSTAT4 CHAR(1), /* 4TH STATUS BYTE @Y17XAXF*/ 52740000 * 4 LCBDMPRQ BIT(1), /* 3705 NEEDS DMP'G @Y17XAXF*/ 52830000 * 4 LCBDACRQ BIT(1), /* 3705 NEEDS DAC'G @Y17XAXF*/ 52920000 * 4 LCBIPLRQ BIT(1), /* 3705 NEEDS IPL'G @Y17XAXF*/ 53010000 * 4 LCBACTRQ BIT(1), /* 3705 NEEDS ACT'G @Y17XAXF*/ 53100000 * 4 * BIT(1), /* RESERVED @YM08120*/ 53190000 * 4 LCBPHASE BIT(2), /* PIU PHASE INFO @Y17XAXF*/ 53280000 * 5 LCBREAL BIT(1), /* CCW'S IN 3705 LCB @YM04622*/ 53310000 * /* HAVE BEEN TRANSLATED */ 53340000 * 4 LCBCPGMH BIT(1), /* MH CHAIN PURGE @Y17XAXF*/ 53370000 * 2 LCBSCBDA PTR(24), /* ADDR SCB DIRECTRY @Y17XAXF*/ 53460000 * 3 * CHAR(1), 53550000 * 3 LCBLNENT FIXED(16), /* TNT OFFSET TO LINE ENTRY */ 53640000 * /* @Y17XAXF*/ 53730000 * 2 LCBISZE PTR(8), /* COUNT OF IDLES RESERVED */ 53820000 * 2 LCBMHA PTR(24), /* MH QCB ADDR FOR NCP 53850000 * RESOURCES @YM06085*/ 53880000 * 3 LCBFSBFR PTR(24), /* FIRST BUF ASSGNED @YM06085*/ 53910000 * 2 LCBFLAG1 CHAR(1), /* IOS FLAGS 1 */ 54000000 * 3 * BIT(2), /* RESERVED @Y17XAXF*/ 54090000 * 3 LCBERPIN BIT(1), /* ERP IN CTL @Y17XAXF*/ 54180000 * 3 * BIT(2), /* RESERVED @Y17XAXF*/ 54270000 * 3 LCBEXCPN BIT(1), /* IOB EXCEP FLG @Y17XAXF*/ 54360000 * 3 LCBUNREL BIT(1), /* UNRELATED REQUEST @Y17XAFG*/ 54450000 * 3 * BIT(1), /* RESERVED @Y17XAXF*/ 54540000 */* @Y17XAXF*/ 54630000 */* IOB SENSE INFO @Y17XAXF*/ 54720000 */* @Y17XAXF*/ 54810000 * 2 LCBIOBSN CHAR(19) BDY(DWORD,2), /* IOB SENSE @Y17XAXF*/ 54900000 * 3 LCBFLAG2 CHAR(1), /* IDS FLAGS 2 @Y17XAXF*/ 54990000 * 3 LCBSNS BIT(16), /* SENSE BYTES @G36XRXG*/ 55030000 * 4 LCBSENS0 CHAR(1), /* SENSE BYTE 0 @G36XRXG*/ 55080000 * 5 LCBCMDRJ BIT(1), /* COMMAND REJECT @G36XRXG*/ 55170000 * 5 LCBINTRQ BIT(1), /* INTERVENTION REQ @G36XRXG*/ 55260000 * 5 LCBBUSCK BIT(1), /* BUSOUT CHECK @G36XRXG*/ 55350000 * 5 LCBEQUCK BIT(1), /* EQUIPMENT CHECK @G36XRXG*/ 55440000 * 5 LCBDATCK BIT(1), /* DATA CHECK @G36XRXG*/ 55530000 * 5 LCBOVRUN BIT(1), /* OVERRUN @G36XRXG*/ 55620000 * 5 LCBLOSDT BIT(1), /* LOST DATA @G36XRXG*/ 55710000 * 6 LCBNOTIN BIT(1), /* NOT INITIALIZED @G36XRXG*/ 55800000 * 5 LCBTMOUT BIT(1), /* TME-OUT EXCEEDED @G36XRXG*/ 55890000 * 6 LCBABORT BIT(1), /* ABORT @G36XRXG*/ 55980000 * 4 LCBSENS1 CHAR(1), /* SENSE BYTE 1 @G36XRXG*/ 56070000 * 3 LCBECBCC CHAR(1), /* COMPLETION CODE @Y17XAXF*/ 56160000 * 3 LCBECBPT PTR(24), /* ADDR OF ECB @Y17XAXF*/ 56250000 * 3 LCBFLAG3 CHAR(1), /* IDS FLAGS 3 @Y17XAXF*/ 56340000 * 4 * BIT(2), /* RESERVED @Y17XAXF*/ 56430000 * 4 LCBSOHR BIT(1), /* SOH% R FLAG BIT @Y17XAXF*/ 56520000 * 4 LCBRLAD BIT(1), /* REAL ADDR IN CPA @Y17XAXF*/ 56610000 * 4 LCBSOHC BIT(1), /* SOH% C FLAG BIT @Y17XAXF*/ 56700000 * 4 LCBIOMSG BIT(1), /* I/O MESS FLAG @Y17XAXF*/ 56790000 * 4 LCBOBRRD BIT(1), /* TPER REC PROC @Y17XAXF*/ 56880000 * 4 LCBOBR BIT(1), /* OBR REC FLAG @Y17XAXF*/ 56970000 * 3 LCBCSW CHAR(7) BDY(DWORD,2), /* LAST CSW @Y17XAXF*/ 57060000 * 4 LCBCSWCA PTR(24), /* CCW ADDR @Y17XAXF*/ 57150000 * 4 LCBCSWST BIT(16), /* STATUS @Y17XAXF*/ 57240000 * 5 LCBCSWUS BIT(8), /* UNIT STATUS @Y17XAXF*/ 57330000 * 6 LCBUSAT BIT(1), /* ATTENTION @Y17XAXF*/ 57420000 * 6 LCBUSSM BIT(1), /* STATUS MODF @Y17XAXF*/ 57510000 * 6 LCBUSCUE BIT(1), /* CTL UNIT END @Y17XAXF*/ 57600000 * 6 LCBUSBSY BIT(1), /* BUSY @Y17XAXF*/ 57690000 * 6 LCBUSCE BIT(1), /* CHANNEL END @Y17XAXF*/ 57780000 * 6 LCBUSDE BIT(1), /* DEVICE END @Y17XAXF*/ 57870000 * 6 LCBUSUC BIT(1), /* UNIT CHECK @Y17XAXF*/ 57960000 * 6 LCBUSUE BIT(1), /* UNIT EXCEPTION @Y17XAXF*/ 58050000 * 5 LCBCSWCS BIT(8), /* CHANNEL STATUS @Y17XAXF*/ 58140000 * 6 LCBCSPCI BIT(1), /* PRG CTL INT @Y17XAXF*/ 58230000 * 6 LCBCSIL BIT(1), /* INCORRECT LEN @Y17XAXF*/ 58320000 * 6 LCBCSPGC BIT(1), /* PRG CHECK @Y17XAXF*/ 58410000 * 6 LCBCSPTC BIT(1), /* PROTECTION CHK @Y17XAXF*/ 58500000 * 6 LCBCSCDC BIT(1), /* CHNL DATA CHK @Y17XAXF*/ 58590000 * 6 LCBCSCCC BIT(1), /* CHNL CTL CHK @Y17XAXF*/ 58680000 * 6 LCBCSICC BIT(1), /* INTERFACE CTL @Y17XAXF*/ 58770000 * 6 LCBCSCHC BIT(1), /* CHAINING CHECK @Y17XAXF*/ 58860000 * 4 LCBCSWRC FIXED(16), /* RESIDUAL COUNT @Y17XAXF*/ 58950000 * 3 LCBSIOCC BIT(8), /* SIO CONDITION CDE @Y17XAXF*/ 59040000 * 4 * BIT(2), /* RESERVED @Y17XAXF*/ 59130000 * 4 LCBSIOC1 BIT(1), /* CONDITION CODE.. @Y17XAXF*/ 59220000 * 4 LCBSIOC2 BIT(1), /* SETTING FOR 3705 @Y17XAXF*/ 59310000 * 4 LCBAP1OL BIT(1), /* ALTERNATE PATH 1 OFFLINE @Y17XAXG*/ 59400000 * 4 LCBAP2OL BIT(1), /* ALTERNATE PATH 2 OFFLINE @Y17XAXG*/ 59490000 * 4 LCBAP3OL BIT(1), /* ALTERNATE PATH 3 OFFLINE @Y17XAXG*/ 59580000 * 4 LCBAP4OL BIT(1), /* ALTERNATE PATH 4 OFFLINE @Y17XAXG*/ 59670000 * 3 LCBSTART PTR(24), /* ADDR OF CHNL PRGM @Y17XAXF*/ 59760000 * 2 LCBDCBPT PTR(31), /* ADDRESS OF DCB @Y17XAXF*/ 59850000 * 3 LCBPCILK PTR(31), /* PCI LOCK FOR MP @Y17XAXF*/ 59940000 * /* SYSTEM @Y17XAXF*/ 60030000 * 2 LCBRCQCB PTR(31), /* QCB TO POST RECALLED 60120000 * BUFFER TO @Y17XAXF*/ 60210000 * 3 LCBRESTR PTR(31), /* ERROR MESSAGE DATA */ 60300000 * 4 LCBCMDSV CHAR(1), /* COMMAND CODE SAVE @OY18040*/ 60330000 * 4 * CHAR(3), /* @OY18040*/ 60360000 * /* @Y17XAXF*/ 60390000 * 2 LCBTHSQ FIXED(16), /* TH SEQ NUMBER @YM06118*/ 60430000 * 3 LCBINCAM FIXED(15), /* ERP RETRY COUNTS @YM06118*/ 60480000 * 4 LCBGETMN BIT(1), /* GETMAINED STORAGE AREA 60490000 * EXIST IN 904I/904H 60500000 * @YM06118*/ 60510000 * 4 * BIT(15), /* RESERVED @Y17XAXF*/ 60520000 * 2 LCBERRCT FIXED(15), /* IOS ERROR COUNTERS */ 60570000 * 3 LCBTTBIN FIXED(15), /* TERM TO BE CONNECTED 60660000 * INDEX */ 60750000 * 2 LCBUCBX PTR(8), /* UCB INDEX */ 60840000 * 2 LCBLSPCI PTR(24), /* ADDR OF LAST SVRCD PCI */ 60930000 * /* @Y17XAXF*/ 61020000 * 3 LCBRCBFR PTR(24), /* POINTER TO RECALLED BUFFR*/ 61110000 * /* @Y17XAXF*/ 61200000 * 4 LCBRDBFR PTR(24), /* START OF READ CHANNEL 61290000 * PROGRAM @Y17XAXF*/ 61380000 * 2 LCBRECOF FIXED(15), /* OFFSET INTO CURRENT BLOCK*/ 61470000 * 2 LCBSTATE CHAR(2), /* STATUS BITS */ 61560000 * 3 LCBSTAT1 CHAR(1), /* 1ST STATUS BYTE @Y17XAXF*/ 61650000 * 61740000 */* BIT DEFINITIONS */ 61830000 * 61920000 * 4 LCBRCLLN BIT(1), /* RECALL BEING PERFORMED */ 62010000 * 4 LCBOCWTN BIT(1), /* NON-IMMEDIATE OPERATOR 62100000 * COMMAND WAITING @OY14092*/ 62190000 * 4 LCBOCNI BIT(1), /* NON-IMMEDIATE OPERATOR 62280000 * CONTROL OPERATION IN 62370000 * PROGRESS */ 62460000 * 4 LCBINITN BIT(1), /* RECEIVING INITIATE 62550000 * MODE MSG */ 62640000 * 4 LCBCONT BIT(1), /* CONTINUE OR RESET 62730000 * OPERATION */ 62820000 * 4 LCBFREEN BIT(1), /* LINE FREE @Y17XAXF*/ 62910000 * 4 LCBRECVN BIT(1), /* LINE IS RECEIV'G @Y17XAXF*/ 63000000 * 4 LCBSENDN BIT(1), /* LINE IS SENDING @Y17XAXF*/ 63090000 * /* BOTH SEND AND RECEIVE BITS 63180000 * OFF INDICATE LINE STOPPED*/ 63270000 * 63360000 * 3 LCBSTAT2 BIT(8), /* SECOND STAT BYTE @Y17XAXF*/ 63450000 * 63540000 */* BIT DEFINITIONS */ 63630000 * 63720000 * 4 LCBTRACE BIT(1), /* I/O TRACE ACTIVE @Y17XAXF*/ 63810000 * 4 LCBMSGNN BIT(1), /* MSGGEN/STARTUP MESSAGE */ 63900000 * 4 LCBBEOTN BIT(1), /* EOT FROM BFRED TERM - 63990000 * NO EOM */ 64080000 * 5 LCBCONNN BIT(1), /* ERROR ON DAIL CONTACT 64110000 * @YM08436*/ 64140000 * 4 LCBSNDPR BIT(1), /* SEND PRIORITY SWITCH SET 64170000 * SEND SCHEDULER */ 64260000 * 4 LCBNEGRP BIT(1), /* NEQATIVE RESPONSE TO 64350000 * POLLING RECEIVED */ 64440000 * 4 LCBSYNC BIT(1), /* LINE IS BISYNC */ 64530000 * 5 LCBATTN BIT(1), /* 3705 ATTEN RECEIV @Y17XAXF*/ 64620000 * 4 LCBDIAL BIT(1), /* DIAL LCB */ 64710000 * 5 LCBBFRAV BIT(1), /* 3705 BUFFER AVAILABLE 64800000 * @Y17XAXF*/ 64890000 * 4 LCBRESP BIT(1), /* A RESPONSE IS OWED */ 64980000 * /* @Y17XAXF*/ 65070000 * 65160000 * 2 LCBTSTSW CHAR(1), /* TEST-AND-SET SWITCH */ 65250000 * 65340000 */* BIT DEFINITIONS */ 65430000 * 65520000 * 3 LCBCONCT BIT(1), /* CONNECTION ESTABLISHED */ 65610000 * 3 * BIT(1), /* RESERVED */ 65700000 * 3 * BIT(1), /* RESERVED */ 65790000 * 3 * BIT(1), /* RESERVED */ 65880000 * 3 * BIT(1), /* RESERVED */ 65970000 * 3 * BIT(1), /* RESERVED */ 66060000 * 3 * BIT(1), /* RESERVED */ 66150000 * 3 * BIT(1), /* RESERVED */ 66240000 * 2 LCBRECAD PTR(24), /* ADDRESS CURRENT MSG BLOCK*/ 66330000 * /* @Y17XAXF*/ 66420000 * 2 LCBERB PTR(31), /* ERB @Y17XAXF*/ 66510000 * 3 LCBERBKY CHAR(1), /* ELEMENT REQUEST BLOCK KEY*/ 66600000 * 3 LCBERBQB PTR(24), /* ERB QCB @Y17XAXF*/ 66690000 * 2 LCBERBPY CHAR(1), /* ERB PRIORITY */ 66780000 * 2 LCBERBLK PTR(24), /* ADDR NEXT ITEM IN CHAIN */ 66870000 * /* @Y17XAXF*/ 66960000 * 2 LCBERBST CHAR(1), /* STATUS OF ERB */ 67050000 * /* X'08' BIT MUST NEVER BE 67140000 * ON IN THE STATUS BYTE. 67230000 * IT MUST REMAIN THE 9TH BYTE 67320000 * OF THE ERB */ 67410000 * 67500000 */* BIT DEFINITIONS */ 67590000 * 67680000 * 3 LCBMSG BIT(1), /* END OF INIT MODE TO HM */ 67770000 * 3 LCBEOMSG BIT(1), /* END OF MSG READ FROM DISK*/ 67860000 * 3 LCBRDERR BIT(1), /* LOGICAL READ ERROR */ 67950000 * 3 LCBINQ BIT(1), /* ERB IS WAITING FOR BFRS */ 68040000 * 3 LCBLOGDV BIT(1), /* LOGGING REQUESTED @OY20488*/ 68130082 * 3 LCBERROR BIT(1), /* ERROR ON SEND SIDE */ 68220000 * 3 LCBPRCPG BIT(1), /* AFTER INITIAL REQUEST IS 68310000 * SATISFIED, ERB WILL BE 68400000 * POSTED TO QCB INDICATED IN 68490000 * LCBRCQCB */ 68580000 * 3 LCBDLNKN BIT(1), /* DELINK SWITCH */ 68670000 * /* ON - ERB NOT POSTED & 68760000 * ERB CAN BE POSTED */ 68850000 * 4 LCBCOMPL BIT(1), /* DISK REQUEST IS COMPLETE 68940000 * PCI CAN NOT POST ERB */ 69030000 * 2 LCBERBCH PTR(24), /* ADDR CHAIN ASSIGNED BFRS */ 69120000 * /* @Y17XAXF*/ 69210000 * 2 LCBERBCT FIXED(15), /* COUNT FIELDS */ 69300000 * 3 LCBRBCT1 CHAR(1), /* ENABLED CNT FLDS @Y17XAXF*/ 69390000 * 3 LCBRBCT2 CHAR(1), /* DISABLED CNT FLD @Y17XAXF*/ 69480000 * 4 LCBDCNT BIT(1), /* DISABLE CNT USE @Y17XAXF*/ 69570000 * 4 * BIT(7), /* RESERVED @Y17XAXF*/ 69660000 * 2 LCBTTCIN FIXED(16), /* TERM CURR CONNECTED INDEX*/ 69750000 * /* @Y17XAXF*/ 69840000 * 2 LCBMSGFM CHAR(1), /* BITS TO CONTROL BSC LINE */ 69930000 * 70020000 */* BIT DEFINITIONS */ 70110000 * 70200000 * 3 LCBNAK BIT(1), /* REQUEST TO SEND NAK RESP */ 70290000 * 3 LCBACKI BIT(1), /* ACK COUNTER -SEND/RECEIVE*/ 70380000 * /* FOLLOWING TWO BITS INDICATE 70470000 * WHETHER A SCAN OF LINE 70560000 * CONTROL HAS BEEN 70650000 * ACCOMPLISHED AND TYPE OF 70740000 * LINE CONTROL RECEIVED. */ 70830000 * 3 LCBVSTRT BIT(1), /* VALID START SEQUENCE */ 70920000 * 3 LCBRSTRT BIT(1), /* ERROR START SEQUENCE */ 71010000 * 3 LCBTTD BIT(1), /* TTD RECEIVED */ 71100000 * 3 LCBENQ BIT(1), /* ENQ RECEIVED */ 71190000 * 3 LCBEOT BIT(1), /* EOT FIRST CHARACTER */ 71280000 * 3 LCBOLT BIT(1), /* TOTE REQUEST */ 71370000 * 2 LCBSCBA PTR(24), /* ADDRESS OF CURRENT SCB */ 71460000 * /* @Y17XAXF*/ 71550000 * 2 LCBOBRCH PTR(31), /* 3705 OBR CHAIN @Y17XAFF*/ 71640000 * 3 LCBERMSK CHAR(1), /* ERROR RECORDING MASK */ 71730000 * 3 LCBINVPT PTR(24), /* ADDR CURRENT ENTRY IN 71820000 * INVITATION LIST @Y17XAXF*/ 71910000 * 4 LCBBFRW PTR(24), /* ADDR OF BSC STAT @Y17XAXF*/ 72000000 * /* PENDING BUFFER @Y17XAXF*/ 72090000 * 5 LCBNXCMD CHAR(3), /* SNA COMMAND TYPE @Y17XAXF*/ 72180000 */* @Y17XAXF*/ 72270000 */* PLCB STATUS INFO @Y17XAXF*/ 72360000 */* @Y17XAXF*/ 72450000 * 2 LCBTPCD CHAR(12) BDY(DWORD,5), /* TP OP CODES @Y17XAXF*/ 72540000 * 4 LCBSTAT5 CHAR(1), /* 5TH STATUS BYTE @Y17XAXF*/ 72630000 * 5 LCBPERM BIT(1), /* PLCB PERMANENTY @Y17XAXF*/ 72720000 * /* ASSIGNED @Y17XAXF*/ 72810000 * 5 LCBLUNIT BIT(1), /* SNA LOG UNIT @Y17XAXF*/ 72900000 * 5 LCBLUS BIT(1), /* RETURN PLCB TO LUS 72990000 * @Y17XAXF*/ 73080000 * 5 * BIT(5), /* RESERVED @Y17XAXF*/ 73170000 * 4 LCBBFRSV PTR(24), /* PTR TO SAVED BUF @Y17XAXF*/ 73260000 * /* CHAIN @Y17XAXF*/ 73350000 * 4 LCBSTAT6 BIT(8), /* SNA STATUS @Y17XAXF*/ 73440000 * 5 LCBCHN BIT(4), /* CHAINING STATE 73530000 * @Y17XAXF*/ 73620000 * 5 LCBHDRPD BIT(1), /* ON-HDR HAS BEEN POSTED TO 73980000 * MH 74070000 * OFF-HDR HAS NOT BEEN POSTED 74160000 * TO MH @Y17XAXF*/ 74250000 * 5 LCBRTRRO BIT(1), /* RESPONSE OWED TO RTR 74340000 * @Y17XAXF*/ 74430000 * 5 LCBMHBID BIT(1), /* BID COMMAND TO BE BUILT 74520000 * @Y17XAXF*/ 74610000 * 5 LCBINPAK BIT(1), /* ON-IN PACK STATE 74700000 * OFF-BETWEEN PACK STATE 74730000 * @Y17XAXF*/ 74760000 * 4 LCBWAITC PTR(24), /* PIU WAIT CHAIN @Y17XAXF*/ 74790000 * 4 LCBRSPSV PTR(31), /* PTR TO SAVED RSP @Y17XAXF*/ 74880000 * /* BUFFER @Y17XAXF*/ 74970000 * 5 LCBBFSNS CHAR(4), /* BIND-FAILED SENSE DATA 75000000 * @Y17XAXF*/ 75030000 */* @Y17XAXF*/ 75060000 */* SAVE AREA FOR SENSE @Y17XAXF*/ 75150000 */* @Y17XAXF*/ 75240000 * 2 LCBSAVSN CHAR(8), /* SAVE SENSE @Y17XAXF*/ 75330000 * 3 LCBSNSV CHAR(1), /* SAVEAREA FOR SEN @Y17XAXF*/ 75420000 * 3 LCBCSWSV CHAR(7), /* SAVEAREA FOR CSW @Y17XAXF*/ 75510000 * 2 LCBERCCW CHAR(24) BDY(DWORD), /* 3 ERP COMMANDS */ 75600000 * 3 * CHAR(8), /* @G36XRXG*/ 75690000 * 3 LCBATL05 CHAR(8), /* 3705 ATTN ELEMENT@G36XRXG*/ 75700000 * 3 * CHAR(8), /* @G36XRXG*/ 75710000 * 2 LCBCPA CHAR(80), /*CHANNEL PRG AREA @Y17XAXF*/ 75780000 * 3 LCBCCW1 CHAR(8), /* @Y17XAXF*/ 75870000 * 3 LCBCCW2 CHAR(8), /* C C W @Y17XAXF*/ 75960000 * 3 LCBCCW3 CHAR(8), /* @Y17XAXF*/ 76050000 * 3 LCBCCW4 CHAR(8), /* B U I L D @Y17XAXF*/ 76140000 * 3 LCBCCW5 CHAR(8), /* @Y17XAXF*/ 76230000 * 4 LCBATTEL CHAR(8), /* LOCAL ATTN ELEM @G36XRXG*/ 76250000 * 5 LCBQEBPL CHAR(8), /* QEB PARM LIST @ZM46675*/ 76260000 * 6 LCBSIO CHAR(1), /* QEB FUNC CODE @ZM46675*/ 76270000 * 6 LCBIOSB PTR(24), /* IOSB PTR @ZM46675*/ 76280000 * 6 LCBCP PTR(31), /* CHAN PGM START @ZM46675*/ 76290000 * 3 LCBCCW6 CHAR(8), /* A R E A @Y17XAXF*/ 76320000 * 3 LCBCCW7 CHAR(8), /* @Y17XAXF*/ 76410000 * 3 LCBCCW8 CHAR(8), /* @Y17XAXF*/ 76500000 * 3 LCBCCW9 CHAR(8), /* @Y17XAXF*/ 76590000 * 3 LCBCCW10 CHAR(8); /* @Y17XAXF*/ 76680000 */* @Y17XAXF*/ 76770000 */* SNA RESPONSE INFO @Y17XAXF*/ 76860000 */* @Y17XAXF*/ 76950000 * DECLARE /* @Y17XAXF*/ 77040000 * 1 LCBRSPIN CHAR(19) DEFINED(LCBIOBSN), /*SNA RSP INFO @Y17XAXF*/ 77130000 * 2 LCBDSCRJ BIT (1), /* DISCONNECT OUTSTNDG @OY20411*/ 77220082 * 2 * BIT (7), /* RESERVED @OY20411*/ 77230082 * 2 LCBSNS0 BIT(8), /* SAME BYTE AS LCBSENS0 - 77250000 * MUST BE 0 FOR SNA @YM06118*/ 77280000 * 2 LCBRHSV CHAR(3), /* RESPONSE RH @Y17XAXF*/ 77310000 * 2 LCBLUSNS CHAR(4), /* RESPONSE SENSE @Y17XAXF*/ 78840000 * 3 LCBSMAJ BIT(8), /* MAJOR SENSE BYTE @Y17XAXG*/ 78930000 * 3 LCBSMIN BIT(8), /* MINOR SENSE BYTE @Y17XAXG*/ 79020000 * 3 LCBUSER BIT(16), /* USER SENSE BYTES @Y17XAXG*/ 79110000 * 2 LCBSCPRS CHAR(3), /* SSCP RESPONSE BYTES 79200000 * @Y17XAXF*/ 79220000 * 3 LCBDFCMD CHAR(1), /* DFC CMD RSP BYTE @Y17XAXF*/ 79240000 * 3 * BIT(8), /* RESERVED @Y17XAXF*/ 79260000 * 3 LCBCSWU1 BIT(8), /* SAME BYTE AS LCBCSWUS 79264000 * @Y17XAXF*/ 79268000 * 4 * BIT(7), /* RESERVED @Y17XAXF*/ 79272000 * 4 LCBUSUE1 BIT(1), /* SAME BIT AS LCBUSUE 79276000 * INDICATES END OF MSG 79280000 * SENT OR RCV'D @Y17XAXF*/ 79284000 * 2 * CHAR(3), /* RESERVED @Y17XAXF*/ 79290000 * 2 LCBRSPFG CHAR(1), /* FLAG BYTE USED IN @Y17XAXG*/ 79330000 * /* RESP GENERATION @Y17XAXG*/ 79380000 * 3 LCBEXPI BIT(1), /* RESP EXPEDITED @Y17XAXG*/ 79470000 * 3 LCBRSRH BIT(1), /*EXCEP'N RESP GEN'D @YM07705*/ 79510000 * 3 * BIT(6), /* RESERVED @YM07705*/ 79560000 * 2 LCBPAKCH PTR(24); /* PACK BUFFER CHAIN @Y17XAXF*/ 79740000 */* @Y17XAXF*/ 79830000 */* 3705 CORE QUEUE INFO @Y17XAXF*/ 79920000 */* @Y17XAXF*/ 80010000 * DECLARE /* @Y17XAXF*/ 80100000 * 1 LCBCOREQ CHAR(12) DEFINED(LCBTPCD), /* 3705 CORE QUEUE @Y17XAXF*/ 80190000 * 2 LCBCQELE PTR(31), /* ELEMENT CHAIN @Y17XAXF*/ 80280000 * 2 LCBCQLNK PTR(31), /* LINK @Y17XAXF*/ 80370000 * 2 LCBWRSCH PTR(31); /* ADDR OF WRT SCHD @Y17XAXF*/ 80460000 * /* STCB @Y17XAXF*/ 80550000 */* @YM08062*/ 80560000 */* THE FOLLOWING FIELDS EXIST FOR PLCB'S ONLY @YM08062*/ 80570000 */* @YM08062*/ 80580000 *DECLARE 80590000 * 1 * CHAR(8) DEF(LCBCPA) POS(41), /* @YM08062*/ 80600000 * 2 * FIXED(8), /* @YM08062*/ 80610000 * 2 LCBNCPPT PTR (24), /* NCP TTE ADDRESS @YM08062*/ 81920000 * 2 * CHAR(4); /* RESERVED @YM08062*/ 81930000 */* ================================================================*/ 81940000 */* IGG019RP USES LCB+X'73' TO LCB+ X'97' AS WORK AREA */ 81950000 */* ================================================================*/ 81960000 */* @YM08142*/ 81962000 */* IEDQNX INTERFACE AREA (3705 LCB ONLY) @YM08142*/ 81964000 */* @YM08142*/ 81966000 * DECLARE /* @YM08142*/ 81970000 * 1 LCBQNX CHAR(24) DEFINED(LCBERCCW), /* @YM08142*/ 81971000 * 2 LCBQNXMN FIXED(8), /* MESSAGE NUMBER @YM08142*/ 81972000 * 3 LCBNX064 BIT(1), /* FLAG TO WRITE MESSAGE 81973000 * IED064I @YM08142*/ 81974000 * 3 LCBNX142 BIT(1), /* FLAG TO WRITE MESSAGE 81975000 * IED142I @YM08142*/ 81976000 * 3 LCBNX162 BIT(1), /* FLAG TO WRITE MESSAGE 81977000 * IED162I @YM08142*/ 81978000 * 3 LCBNX509 BIT(1), /* FLAG TO WRITE MESSAGE 81979000 * IED509I @YM08142*/ 81980000 * 3 * BIT(4), /* RESERVED @YM08142*/ 81981000 * 2 LCBSTSAV PTR(24), /* SAVE AREA FOR LCBSTART 82080000 * DURING RETRY @Y17XAXF*/ 82170000 * 2 * CHAR(1), /* RESERVED @ZM46833*/ 82260000 * 2 LCBIOSBS PTR(24), /* SAVE IOSB PTR @ZM46833*/ 82280000 * 2 * CHAR(8), /* RESERVED @ZM46833*/ 82300000 * 2 LCBDSTEA PTR(31), /* DEV STATISTICS TAB ENTRY 82350000 * ADDRESS @Y17XAXF*/ 82440000 * 2 LCBUASZE FIXED(8), /* UNIT NAME ADDRESS SIZE 82530000 * @Y17XAXF*/ 82620000 * 2 LCBUNADD PTR(24); /* UNIT NAME ADDRESS @Y17XAXF*/ 82710000 * /* @Y17XAXF*/ 82800000 */* @Y17XAXF*/ 82890000 */* RH CANCEL INFO @Y17XAXF*/ 82980000 */* @Y17XAXF*/ 83070000 * DECLARE /* @Y17XAXF*/ 83160000 * 1 LCBCANCL CHAR(5) DEFINED(LCBSAVSN), /* CANCEL INFO @YM08062*/ 83250000 * 2 LCBCANFG BIT(8), /* CANCEL RH FLAG @Y17XAXF*/ 83340000 * 3 LCBCANXT BIT(1), /* CANCEL MUST BE RESPONDED 83430000 * TO @Y17XAXF*/ 83520000 * 3 LCBCANEB BIT(1), /* CAN END BKT @Y17XAXF*/ 83610000 * 3 * BIT(1), /* RESERVED @Y17XAXF*/ 83700000 * 3 LCBCANCD BIT(1), /* CAN CHGE DIR @Y17XAXF*/ 83790000 * 3 * BIT(4), /* RESERVED @Y17XAXF*/ 83880000 * 2 LCBCANTH CHAR(2), /* CAN TH SEQ @Y17XAXF*/ 83970000 * 2 * CHAR(2); /* RESERVED @YM08062*/ 84060000 */* @Y17XAXF*/ 84151000 */* USED WITH LCBFLAG1 @Y17XAXF*/ 84152000 */* @Y17XAXF*/ 84153000 * DCL LCBPLCB BIT(8) CONSTANT('00'X); /* PLCB INDICATOR @Y17XAXF*/ 84154000 * 84155000 */* @Y17XAXF*/ 84240000 */* VALUES USED WITH LCBCHN @Y17XAXF*/ 84330000 */* @Y17XAXF*/ 84420000 * DECLARE /* @Y17XAXF*/ 84510000 */* @Y17XAXF*/ 84600000 */* THE FOLLOWING VALUES ARE VALID ONLY WHEN LCBRECVN=1 @Y17XAXF*/ 84690000 */* OR LCBSENDN=1 @Y17XAXF*/ 84780000 * LCBBETC BIT(4) CONSTANT('0000'B), /* BETWEEN CHAIN STATE WAITING 84870000 * FOR NO RESPONSE @Y17XAXF*/ 84960000 * LCBINC BIT(4) CONSTANT('0001'B), /* IN CHAIN STATE 85050000 * @Y17XAXF*/ 85140000 * LCBPURG BIT(4) CONSTANT('0010'B), /* PURGING CHAIN STATE 85230000 * @Y71XAXF*/ 85320000 * LCBWMG BIT(4) CONSTANT('0011'B), /* BETWEEN CHAIN-WAITING FOR 85360000 * MSGGEN RSP STATE @Y17XAXF*/ 85500000 */* @Y17XAXF*/ 85509000 */* THE FOLLOWING VALUES ARE VALID ONLY WHEN LCBRECVN=1 @Y17XAXF*/ 85518000 */* @Y17XAXF*/ 85527000 * LCBWERAS BIT(4) CONSTANT('0111'B), /* BETWEEN CHAIN STATE-WAITING 85536000 * FOR SCREEN ERASURE RESPONSE 85545000 * (TSO STATE ONLY) @Y17XAXF*/ 85554000 * LCBWSMI BIT(4) CONSTANT('1000'B), /* BETWEEN CHAIN STATE- 85563000 * WAITING START MI RESPONSE 85572000 * (TSO STATE ONLY) @Y17XAXF*/ 85581000 */* @Y17XAXF*/ 85590000 */* THE FOLLOWING VALUES ARE VALID ONLY WHEN LCBSENDN=1 @Y17XAXF*/ 85680000 */* @Y17XAXF*/ 85770000 * LCBWFMD BIT(4) CONSTANT('0100'B), /* BETWEEN CHAIN STATE WAITING 85860000 * FM DATA RSP STATE 85950000 * @Y17XAXF*/ 86040000 * LCBWCAN BIT(4) CONSTANT('0101'B), /* BETWEEN CHAIN STATE WAITING 86130000 * FOR CANCEL RSP STATE 86220000 * @Y17XAXF*/ 86310000 * LCBWBID BIT(4) CONSTANT('0110'B); /* BETWEEN CHAIN STATE WAITING 86400000 * FOR BID RSP STATE 86490000 * @Y17XAXF*/ 86580000 * 86670000 */* @Y17XAXF*/ 86760000 */* VALUES FOR LCBECBCC @Y17XAXF*/ 86850000 */* @Y17XAXF*/ 86940000 * DECLARE /* @Y17XAXF*/ 87030000 * LCBECB41 BIT(8) CONSTANT('41'X), /* PERMANENT ERR @Y17XAXF*/ 87120000 * LCBECB48 BIT(8) CONSTANT('48'X), /* I/O END W/ HALT @Y17XAXF*/ 87210000 * LCBECB7F BIT(8) CONSTANT('7F'X); /* NORMAL COMPLETION @Y17XAXF*/ 87300000 * 87390000 * DCL LCBXPTR REG(5) PTR(24); 87480000 *DECLARE 87570000 * 1 IEDQLCBX BDY(DWORD) BASED(LCBXPTR), /* LCB EXTENSION S99228*/ 87660000 * 2 LCBXCON BDY(DWORD), /* START OF CNTRL FLDS S99228*/ 87750000 * 3 LCBXFLAG CHAR(1), /* DEV DEP FLAGS S99228*/ 87840000 */* BIT DEFINITIONS S99228*/ 87930000 * 4 * BIT(1), /* RESERVED S99228*/ 88020000 * 4 * BIT(1), /* RESERVED S99228*/ 88110000 * 4 * BIT(1), /* RESERVED S99228*/ 88200000 * 4 * BIT(1), /* RESERVED S99228*/ 88290000 * 4 LCBGPCTV BIT(1), /* ETX RECD GEN POLL S99228*/ 88380000 * 4 LCBSRCPF BIT(1), /* SOURCE DETERM PERFORMED 88470000 * S99228*/ 88560000 * 4 LCBERPND BIT(1), /* SOH % R MSG PENDING S99228*/ 88650000 * 4 * BIT(1), /* RESERVED S99228*/ 88740000 * 3 LCBXDCT CHAR(3), /* DCT STORAGE AREA S99228*/ 88830000 * 4 LCBDCT1 CHAR(1), /* DCT BYTE 1 S99228*/ 88920000 * 4 LCBDCT2 CHAR(1), /* DCT BYTE 2 S99228*/ 89010000 * 4 LCBDCT3 CHAR(1), /* DCT BYTE 3 S99228*/ 89100000 * 3 LCBXRADR PTR(31), /* ERP POLL CHAR ADD @Y17XAXF*/ 89190000 * 4 LCBPCIRC PTR(8), /* 3270 LOCAL PCI RETRY 89280000 * CNTR S99228*/ 89370000 * 4 LCBERADR PTR(24); /* POLL CHARS ADDR FLD S99228*/ 89460000 * 89550000 * 89640000 *%LCBPLCBL='LENGTH(IEDQLCB) /* LENGTH OF PLCB @YM08062*/ 89730000 * -LENGTH(LCBCPA)+48'; 89820000 *DCL LCBPRFSZ BIT(8) CONSTANT('20'X); /* LCB PREFIX SIZE @Y17XAXF*/ 89910000 *DCL LCBERBFS BIT(8) CONSTANT('4C'X); /* OFFSET INTO LCB OR ERB 90000000 * @Y17XAXF*/ 90090000 */* */ 90180000 */* ******************************************************* */ 90270000 */* 0 * KEY ** QCBA * */ 90360000 */* ******************************************************* */ 90450000 */* 4 * PRI ** LINK * */ 90540000 */* ******************************************************* */ 90630000 */* 8 * RSKEY ** STCBA * */ 90720000 */* ******************************************************* */ 90810000 */* 12 * RSPRI ** RSLNK * */ 90900000 */* ******************************************************* */ 90990000 */* 16 * EOLDT ** TDL ** TSOB * */ 91080000 */* ******************************************************* */ 91170000 */* 20 * CHAIN ** INSRC * */ 91260000 */* ******************************************************* */ 91350000 */* 24 * NTXT ** SCBDA * */ 91440000 */* ******************************************************* */ 91530000 */* 28 * ISZE ** FSBFR/LSBFR * */ 91620000 */* ******************************************************* */ 91710000 */* 32 * FLAG1 ** FLAG2 ** SENS0 ** SENS1 * */ 91800000 */* ******************************************************* */ 91890000 */* 36 * ECBCC ** ECBPT * */ 91980000 */* ******************************************************* */ 92070000 */* 40 * FLAG3 ** CSW * */ 92160000 */* ******************************************************* */ 92250000 */* 44 * CSW * */ 92340000 */* ******************************************************* */ 92430000 */* 48 * SIOCC ** START * */ 92520000 */* ******************************************************* */ 92610000 */* 52 * DCBPT * */ 92700000 */* ******************************************************* */ 92790000 */* 56 * RCQCB/RESTR * */ 92880000 */* ******************************************************* */ 92970000 */* 60 * INCAM ** ERRCT/TTBIN * */ 93060000 */* ******************************************************* */ 93150000 */* 64 * UCBX ** RCBFR/LSPCI * */ 93240000 */* ******************************************************* */ 93330000 */* 68 * RECOF ** STATE * */ 93420000 */* ******************************************************* */ 93510000 */* 72 * TSTSW ** RECAD * */ 93600000 */* ******************************************************* */ 93690000 */* 76 * ERBKY ** ERBQB * */ 93780000 */* ******************************************************* */ 93870000 */* 80 * ERBPY ** ERBLK * */ 93960000 */* ******************************************************* */ 94050000 */* 84 * ERBIN ** ERBCH * */ 94140000 */* ******************************************************* */ 94230000 */* 88 * ERBCT ** TTCIN * */ 94320000 */* ******************************************************* */ 94410000 */* 92 * MSGFM ** SCBA * */ 94500000 */* ******************************************************* */ 94590000 */* 96 * ERMSK ** INVPT * */ 94680000 */* ******************************************************* */ 94770000 */* 100 * TPCD * */ 94860000 */* ******************************************************* */ 94950000 */* 104 * TPCD * */ 95040000 */* ******************************************************* */ 95130000 */* 108 * TPCD * */ 95220000 */* ******************************************************* */ 95310000 */* 112 * SNSV ** CSWSV * */ 95400000 */* ******************************************************* */ 95490000 */* 116 * CSWSV * */ 95580000 */* ******************************************************* */ 95670000 */* 120 * ERCCW * */ 95760000 */* ******************************************************* */ 95850000 */* 124 * * */ 95940000 */* ******************************************************* */ 96030000 */* 128 * * */ 96120000 */* ******************************************************* */ 96210000 */* 132 * * */ 96300000 */* ******************************************************* */ 96390000 */* 136 * * */ 96480000 */* ******************************************************* */ 96570000 */* 140 * * */ 96660000 */* ******************************************************* */ 96750000 */* */ 96840000