Wayne Driscoll wrote on 12/30/2005 01:06:35 PM: > I am starting to write IPCS format models for a number of our internal > control blocks, but I am having problems with one of them. For one of the > models, I always get just the first 4 bytes (the eyecatcher) formatted, > followed by message "Control block is truncated", however if I do an "IP > LIST addr LEN(64)" I see the entire control block in storage. The entries > in parmlib(blscuser) are there for all the models, they are all in the same > load module, separate csects with aliases defined. If I look at the model > load module, everything looks good, but I have no idea on how to diagnose > the "Control block is truncated" message.
It sounds like you forgot to supply a CBLEN equal in length to that block. If you refer to the block by its structure name and don't have a scan routine, IPCS will try to access the model to determine the eyecatcher and length for that type of data. If the acronym isn't defined to allow minimal validation of the block or the CBLEN is zero, the model won't be used to define the length of the block. The current SETDEF LENGTH value will be used, and that, in turn, defaults to 4. That sets the stage for the following to occur: 1. The model processor retrieves the portion of the block of interest, 4 bytes in this case. 2. All of the BLSQMFLD macros are processed to see which fields you might like to have formatted. If any of them lies outside the portion of the block that was retrieved and the model processor has not been told to be silent about the situation, one complaint about control block truncation will emerge. Bob Wright - MVS Service Aids ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
