This looks correct and essentially the same as mine. I never ran into the
truncated error. I'm guessing the problem must lie somewhere else.
Since ACRONYM= is working, it's unlikely that a spurious blank is causing the
problem. Maybe compare the assembler listings to see if there is a difference.
I think I accessed my IPCS modules thru BLSLLIB or possibly TSOLIB to eliminate
problems associated with linklst. I don't think this is your problem..
I would look at the link listing and verify the entry point and module name is
correct. I don't think this is the problem because HEADER= is working correctly.
Although you didn't include the full source, It appears the CSECT is setup
correctly and nothing spurious seems to be included but maybe you can check the
listing for something unexpected.
I don't think using CBLEN=20 will fix the problem but you could try it.
Sorry I can't be of help but your problem doesn't appear to be with the
definitions.
On Tue, 23 Jan 2024 14:26:20 -0600, Bill Yeager <bill.yea...@alebra.com> wrote:
>OPRM DSECT
>OPRMEYEC DS CL4 EYECATCHER ('OPRM') @E120
>OPRMIFUN DS CL4 I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DS CL4 COMM FUNCTION TO BE PERFORMED
>
> BLSQMDEF BASELBL=OPRM,CBLEN=12,PREFIX=4,HEADER=OPRM, X
> ACRONYM=OPRM,ACROLBL=OPRMEYEC
> BLSQMFLD NAME=OPRMEYEC,DTYPE=EBCDIC
> BLSQMFLD NAME=OPRMIFUN,DTYPE=EBCDIC
> BLSQMFLD NAME=OPRMCFUN,DTYPE=EBCDIC
> BLSQMDEF END
>
>2B79E814 D6D7D9D4 E6D9E3C5 D9D9C5D8 | OPRMWRTERREQ |
>2B79E820 E6D9E3C5 D9C5C1C4 00000000 00000000 | WRTEREAD........ |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814
> +0000 EYEC..... OPRM
>Control block is truncated
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
