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:[email protected]] On Behalf Of Jim Mulder Sent: Tuesday, January 23, 2024 11:09 PM To: [email protected] 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 <[email protected]> On Behalf Of Jon Perryman Sent: Tuesday, January 23, 2024 9:47 PM To: [email protected] 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 <[email protected]> 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 [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
