Robert, Thanks!
Tom Harper -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Robert Wright Sent: Thursday, July 13, 2006 10:52 AM To: [email protected] Subject: Re: IPCS BLSQMDEF Tom Harper wrote on 07/13/2006 08:54:40 AM: > Got a question for a colleague about the IPCS macro BLSQMDEF, which is > used for making control block models. I understand most parameters of > the macro, with the exception of interpreting bits in a flag byte. > > The only way I know to make this work is to use a control block > formatter module and pass the flag byte in ADPLPVC1 and then invoke the > control block formatter to let the bits be defined as in the model. How > can you get IPCS to format out the bits in a more straight-forward > manner? What you know isn't part of the intended interface, and the intended interface is - as you indicate - not well documented. Let me attack your immediate question and commit to getting the documentation in better shape. MVS IPCS Customization "IPCS Exit Services, Invoking with the Exit Services Router, Format Model Processor Service" shows an example of invoking the model processor plus a model. If that example attempted to format the two flag bits in MYBLKDEF, it would need the following BLSQMFLD macro added to the model shown just before the final BLSQMDEF macro. BLSQMFLD NAME=FLGDCODE,OFF=MYBLKDEF-MYBLK,LEN=L'MYBLKDEF,DECODE That tells the model processor to go look for another model that I've called FLGDCODE and pass MYBLKDEF as the data to it. In order to format the two flags shown in the book, I then need to add the definition of the model plus some subheader definitions to provide text. FLGBYTE1 EQU 8 Select 1st flag byte (4 supported) FLGDCODE BLSQMDEF CBLEN=L'MYBLKDEF,OFFSETS=NOPRINT, HEADER=FLGDCODE,PRIFIX=8,LBLSPC=2 BLSQMFLD SHDR=TXTD80,VIEW=MYBLKD80*256+FLGBYTE1,NOSPLIT BLSQMFLD SHDR=TXTD40,VIEW=MYBLKD40*256+FLGBYTE1,NOSPLIT BLSQMDEF END TXTD80 BLSQSHDR ' 1st flag bit. ' TXTD40 BLSQSHDR ' 2nd flag bit. ' I threw in the definition of FLGBYTE1 should you have multiple adjacent flag bytes. The last 4 bits of the view in the flag bit decoding model tell the model processor which flag byte is of interest. Caveat emptor. I haven't had time to assemble and test this example yet. 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
