The x'40' is an incorrect-length indication. If you're using format-0 CCWs then the count field is required to be non-zero. As a result, a NOP, which doesn't transfer any data, will always end with the CCW count \= 0. If the ORB does not have the incorrect-length-suppression (L) bit set and the CCW does not have the SLI flag set then incorrect length will be indicated in the subchannel when CE is received. I don't know if you have control over the setting of the L bit in the ORB, but the easiest thing to do is probably set SLI (x'20' bit) in the CCW flags. If you're using format-1 CCWs then you can either set SLI in the CCW flags or set the count field to 0.
- mb > -----Original Message----- > From: IBM Mainframe Assembler List <[email protected]> On > Behalf Of Tony Thigpen > Sent: Friday, September 22, 2023 12:12 PM > To: [email protected] > Subject: [EXTERNAL] Re: EXCP CCB Status Code Error > > Dave, > > If I am reading the manual correctly, the x'40' is "A command other than > Sense was addressed to a device that the control unit has recorded as > unavailable or not ready." > > Tony Thigpen > > Dave Clark wrote on 9/22/23 11:38 AM: > > I have two programs -- both of which perform 3270 I/O with a > > supervisor appendage routine in order to wait on a 3270 attention > > interrupt instead of just the normal channel-end + device-end CCB > > status code (x'0C00'). > > > > The idea is to perform a 3270 ERASE-WRITE followed by a 3270 > > READ-MODIFIED. Both use EXCP. But, because (in between) you're > > waiting for an end-user to make their changes and then hit either a > > function key or an attention key, you can't just following the > > ERASE-WRITE with the READ-MODIFIED. In between, you have to queue up > > a NOOP and perform a special wait for the 3270 attention signal. Thus > > the reason for the appendage routine. > > > > The first program is supplied by somebody else (with source > > code) and works just fine. The second program is one I've written and > > pretty much incorporates the same techniques used by the fist program. > > However, when my program goes to queue up the NOOP, I get back CCB > status x'0C40' > > and I can't figure out why. Anybody else have some idea? > > > > Sincerely, > > > > Dave Clark > > -- > > int.ext: 91078 > > direct: (937) 531-6378 > > home: (937) 751-3300 > > > > Winsupply Group Services > > 3110 Kettering Boulevard > > Dayton, Ohio 45439 USA > > (937) 294-5331 > > > > > > > > ********************************************************************** > > *********************** This email message and any attachments is for > > use only by the named > > addressee(s) and may contain confidential, privileged and/or > > proprietary information. If you have received this message in error, > > please immediately notify the sender and delete and destroy the > > message and all copies. All unauthorized direct or indirect use or > > disclosure of this message is strictly prohibited. No right to > > confidentiality or privilege is waived or lost by any error in > transmission. > > ********************************************************************** > > ***********************
