Re: IPCS - CBFORMAT
Thanks. Needless to say, this is not one of the best documented interfaces.
Your help is valued.
--Bill
Bill Yeager, CTO
Alebra Technologies, Inc.
PO Box 120390
New Brighton, MN 55112
678-232-3270
This e-mail, including attachments, may include confidential and/or proprietary
information and may be used only by the person or entity to which it is
addressed. If the reader of this email is not the intended recipient, or his
or her authorized agent, the reader is hereby notified that any dissemination,
distribution or copying of this e-mail is prohibited. If you have received this
e-mail in error, please notify the sender by replying to this message and
delete this e-mail immediately.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jim Mulder
Sent: Wednesday, January 24, 2024 11:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
You can make each model an entry point in the module, with an ALIAS for each
one when you bind the module.
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Bill Yeager
Sent: Wednesday, January 24, 2024 10:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
Jim,
Just one more question, if you please...
I'd like to put a bunch of CB mappings in one module if it's possible. The
manual was totally unclear as to whether this is possible and, if so, how to do
it.
Do you know?
Thanks,
Bill
Bill Yeager, CTO
Alebra Technologies, Inc.
PO Box 120390
New Brighton, MN 55112
678-232-3270
This e-mail, including attachments, may include confidential and/or proprietary
information and may be used only by the person or entity to which it is
addressed. If the reader of this email is not the intended recipient, or his
or her authorized agent, the reader is hereby notified that any dissemination,
distribution or copying of this e-mail is prohibited. If you have received this
e-mail in error, please notify the sender by replying to this message and
delete this e-mail immediately.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jim Mulder
Sent: Tuesday, January 23, 2024 11:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
Try CBF 2B79E814. L(12) STRUCTURE(OPRM)
The Truncated message is telling you that the OPRM model is trying to format
something longer that what is provided.
Since you only specified an address (not a symbol which has a length), the
length would be defaulting to whatever your SETDEF command default length is
(4, if you haven't changed it via the SETRDEF subcommand).
You could also do things like
EQ MYOPRM 2B79E814. L(12) STR(OPRM)
CBF MYOPRM
For your other thing that does work, if it is longer than 4 bytes, maybe IPCS
knows something else about it which determines a length.
IPCSDATA ACTIVE will show you all of the parmlib stuff for your IPCS session.
The LISTMAP subcommand will also tell you about things that IPCS has already
figured out and put into its storage map.
What is the structure name that does work? Where does it show up in the output
of IPCSDATA ACTIVE ?
Does the structure name show up in the output of LISTMAP, or is the address in
an a range that shows as being mapped in the output of LISTMAP?
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Jon
Perryman
Sent: Tuesday, January 23, 2024 9:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
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 wrote:
>OPRM DSECT
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DSCL4COMM FUNCTION TO BE PERFORMED
>
> BLSQMDEF BASELBL=OPRM,CBLEN=12,PREFIX=4,HEADER=OPRM, X
>
Re: IPCS - CBFORMAT
You can make each model an entry point in the module, with an ALIAS for each
one when you bind the module.
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Bill Yeager
Sent: Wednesday, January 24, 2024 10:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
Jim,
Just one more question, if you please...
I'd like to put a bunch of CB mappings in one module if it's possible. The
manual was totally unclear as to whether this is possible and, if so, how to do
it.
Do you know?
Thanks,
Bill
Bill Yeager, CTO
Alebra Technologies, Inc.
PO Box 120390
New Brighton, MN 55112
678-232-3270
This e-mail, including attachments, may include confidential and/or proprietary
information and may be used only by the person or entity to which it is
addressed. If the reader of this email is not the intended recipient, or his
or her authorized agent, the reader is hereby notified that any dissemination,
distribution or copying of this e-mail is prohibited. If you have received this
e-mail in error, please notify the sender by replying to this message and
delete this e-mail immediately.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jim Mulder
Sent: Tuesday, January 23, 2024 11:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
Try CBF 2B79E814. L(12) STRUCTURE(OPRM)
The Truncated message is telling you that the OPRM model is trying to format
something longer that what is provided.
Since you only specified an address (not a symbol which has a length), the
length would be defaulting to whatever your SETDEF command default length is
(4, if you haven't changed it via the SETRDEF subcommand).
You could also do things like
EQ MYOPRM 2B79E814. L(12) STR(OPRM)
CBF MYOPRM
For your other thing that does work, if it is longer than 4 bytes, maybe IPCS
knows something else about it which determines a length.
IPCSDATA ACTIVE will show you all of the parmlib stuff for your IPCS session.
The LISTMAP subcommand will also tell you about things that IPCS has already
figured out and put into its storage map.
What is the structure name that does work? Where does it show up in the output
of IPCSDATA ACTIVE ?
Does the structure name show up in the output of LISTMAP, or is the address in
an a range that shows as being mapped in the output of LISTMAP?
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Jon
Perryman
Sent: Tuesday, January 23, 2024 9:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
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 wrote:
>OPRM DSECT
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DSCL4COMM 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 | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814
> + 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
--
Fo
Re: IPCS - CBFORMAT
Jim,
Just one more question, if you please...
I'd like to put a bunch of CB mappings in one module if it's possible. The
manual was totally unclear as to whether this is possible and, if so, how to do
it.
Do you know?
Thanks,
Bill
Bill Yeager, CTO
Alebra Technologies, Inc.
PO Box 120390
New Brighton, MN 55112
678-232-3270
This e-mail, including attachments, may include confidential and/or proprietary
information and may be used only by the person or entity to which it is
addressed. If the reader of this email is not the intended recipient, or his
or her authorized agent, the reader is hereby notified that any dissemination,
distribution or copying of this e-mail is prohibited. If you have received this
e-mail in error, please notify the sender by replying to this message and
delete this e-mail immediately.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jim Mulder
Sent: Tuesday, January 23, 2024 11:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
Try CBF 2B79E814. L(12) STRUCTURE(OPRM)
The Truncated message is telling you that the OPRM model is trying to format
something longer that what is provided.
Since you only specified an address (not a symbol which has a length), the
length would be defaulting to whatever your SETDEF command default length is
(4, if you haven't changed it via the SETRDEF subcommand).
You could also do things like
EQ MYOPRM 2B79E814. L(12) STR(OPRM)
CBF MYOPRM
For your other thing that does work, if it is longer than 4 bytes, maybe IPCS
knows something else about it which determines a length.
IPCSDATA ACTIVE will show you all of the parmlib stuff for your IPCS session.
The LISTMAP subcommand will also tell you about things that IPCS has already
figured out and put into its storage map.
What is the structure name that does work? Where does it show up in the output
of IPCSDATA ACTIVE ?
Does the structure name show up in the output of LISTMAP, or is the address in
an a range that shows as being mapped in the output of LISTMAP?
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Jon
Perryman
Sent: Tuesday, January 23, 2024 9:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
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 wrote:
>OPRM DSECT
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DSCL4COMM 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 | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814
> + 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
--
For IBM-MAIN subscribe / signoff / archive access instructions
Re: IPCS - CBFORMAT
Jim,
You nailed it with the LISTMAP. Once I had gotten an error with this control
block (earlier), IPCS had set the length to 4 and remembered it. I used
"DROPMAP structure(oprm)" and then rand the CBF again it worked!
Thanks so much.
Bill Yeager, CTO
Alebra Technologies, Inc.
PO Box 120390
New Brighton, MN 55112
678-232-3270
This e-mail, including attachments, may include confidential and/or proprietary
information and may be used only by the person or entity to which it is
addressed. If the reader of this email is not the intended recipient, or his
or her authorized agent, the reader is hereby notified that any dissemination,
distribution or copying of this e-mail is prohibited. If you have received this
e-mail in error, please notify the sender by replying to this message and
delete this e-mail immediately.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jim Mulder
Sent: Tuesday, January 23, 2024 11:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
Try CBF 2B79E814. L(12) STRUCTURE(OPRM)
The Truncated message is telling you that the OPRM model is trying to format
something longer that what is provided.
Since you only specified an address (not a symbol which has a length), the
length would be defaulting to whatever your SETDEF command default length is
(4, if you haven't changed it via the SETRDEF subcommand).
You could also do things like
EQ MYOPRM 2B79E814. L(12) STR(OPRM)
CBF MYOPRM
For your other thing that does work, if it is longer than 4 bytes, maybe IPCS
knows something else about it which determines a length.
IPCSDATA ACTIVE will show you all of the parmlib stuff for your IPCS session.
The LISTMAP subcommand will also tell you about things that IPCS has already
figured out and put into its storage map.
What is the structure name that does work? Where does it show up in the output
of IPCSDATA ACTIVE ?
Does the structure name show up in the output of LISTMAP, or is the address in
an a range that shows as being mapped in the output of LISTMAP?
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Jon
Perryman
Sent: Tuesday, January 23, 2024 9:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
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 wrote:
>OPRM DSECT
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DSCL4COMM 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 | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814
> + 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
--
For IBM-MAIN subscribe / signoff / archive access in
Re: IPCS - CBFORMAT
Try CBF 2B79E814. L(12) STRUCTURE(OPRM)
The Truncated message is telling you that the OPRM model is trying to format
something longer that what is provided.
Since you only specified an address (not a symbol which has a length), the
length would be defaulting to whatever your SETDEF command default length is
(4, if you haven't changed it via the SETRDEF subcommand).
You could also do things like
EQ MYOPRM 2B79E814. L(12) STR(OPRM)
CBF MYOPRM
For your other thing that does work, if it is longer than 4 bytes, maybe IPCS
knows something else about it which determines a length.
IPCSDATA ACTIVE will show you all of the parmlib stuff for your IPCS session.
The LISTMAP subcommand will also tell you about things that IPCS has already
figured out and put into its storage map.
What is the structure name that does work? Where does it show up in the output
of IPCSDATA ACTIVE ?
Does the structure name show up in the output of LISTMAP, or is the address in
an a range that shows as being mapped in the output of LISTMAP?
Jim Mulder
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Jon
Perryman
Sent: Tuesday, January 23, 2024 9:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS - CBFORMAT
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 wrote:
>OPRM DSECT
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DSCL4COMM 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 | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814
> + 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
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPCS - CBFORMAT
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 wrote:
>OPRM DSECT
>OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
>OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
>OPRMCFUN DSCL4COMM 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 | WRTEREAD |
>
>Command: CBF 2B79E814. STRUCTURE(OPRM)
>
>OPRM: 2B79E814
> + 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
Re: IPCS - CBFORMAT
OPRM DSECT
OPRMEYEC DSCL4EYECATCHER ('OPRM') @E120
OPRMIFUN DSCL4I/O FUNCTION TO BE PERFORMED
OPRMCFUN DSCL4COMM 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 | WRTEREAD |
Command: CBF 2B79E814. STRUCTURE(OPRM)
OPRM: 2B79E814
+ 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
Re: IPCS - CBFORMAT
On Tue, 23 Jan 2024 13:11:27 -0600, Bill Yeager wrote: > I get “Control block is truncated” TSO PROFILE MSGID will turn on message ID. You can then look up the message to find the causes and solutions for this message. You can TSO PROFILE NOMSGID to eliminate message ids from TSO. I personally leave it on because message id's can be useful. Use IP LIST xxx LEN(##) to display the area and verify the full area actually exists. Verify the acronym matches and (I think) it has trailing blanks instead of X'00'. Look at the fields with formatting and ensure they are compatible with the formatting. If the problem is not something obvious, then include the definition and storage here so that we aren't guessing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
IPCS - CBFORMAT
Using a control block model with IPCS, I’m stuck in a situation whereby I get “Control block is truncated” no matter what I do when I issue a CBFORMAT for the structure (CBF addr. Structure(cbname). It displays the eyecatcher (acronym) and that is all. I mapped 2 control blocks, one works the other doesn’t and they are almost identical. 1) They both are single CSECTs in separate load modules. Load modules and CSECTS for each have the same names. 2) They both are defined in a BLSCUSER parmlib member as “DATA STRUCTURE(cbname) MODEL(loadmod name)” 3) They both have the same keywords specified on the BLSQMDEF statement (BASELBL, CBLEN, PREFIX, HEADER, ACRONYM, and ACROLBL) 4) The only keywords specified on the BLSQMFLD statements are NAME and optionally DTYPE. 5) They both map the entire CB with the total length of the fields adding up to the value on CBLEN. 6) The load modules are both in USER.LINKLIB which is in LLA and I issue a MODIFY LLA,REFRESH whenever they are changed. Any help to get me unstuck would be appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
