Thanks for the reply Nick.
I'm building a utility to that will take an assembled DSECT and create
BLSQMDEF/BLSQMFLD BLSQSHDR for the flag mapping. This utility will build
BLSQMFLD macros with OFF= and LEN= for each field. This will allow the
NAME= to be any part of the label that I choose. Normally, the PREFIX= will
be used to strip off a matching prefix but as that's only good for 8 bytes,
I'll have to do something in the code.
I'll add a PARM to this program to indicate the LAST 8 bytes of the label
are to be used. Hopefully this will make the label more identifiable than
the 1st 8 bytes.
Dan
-Original Message-
From: Nick Jones
Sent: Tuesday, April 29, 2014 9:21 AM Newsgroups: bit.listserv.ibm-main
Subject: Re: IPCS BLSQMFLD NAME=
On Wed, 16 Apr 2014 14:34:28 -0500, Dan mvs-j...@sympatico.ca wrote:
We have our own IPCS format model which uses BLSQMDEF/BLSQMFLD.
We use quite a few LONG labels. Many of these I can shorten by using the
PREFIX= keyword and removing the beginning of the label which is often the
same for all labels within the DSECT.
The problem is with some of the labels where the matching prefix is 8
characters.
Let's say I have a label of LongLabel_Field_Number1.
If I code BLSQMFLD NAME=LongLabel_Field_Number1,DTYPE=EBCDIC the
resulting label will be LongLabe.
If I add PREFIX=16 to remove LongLabel_Field_ the macro produces an MNOTE
INVALID VALUE SPECIFIED FOR PREFIX.
Has anyone found a way around this problem?
Of course, the BLSQMFLD macro could ALWAYS code OFF= LEN= which would
allow ANY text to be placed in NAME=.
I'd prefer not to do that.
Thanks for any suggestions.
Dan
Hi Dan,
Sorry for the delayed response, we must have missed this.
BLSQMFLD output is somewhat built around the premise of being organized in 8
character chunks. With the label filling 8 characters and the ouput filling
a multiple of 8 characters. Everything ends up aligned somewhat by 8
character sections.
Longer (inline) labels might have broken that consistency.
What I often see done is the use of the SHDR option to produce labels. ex:
BLSQMFLD SHDR=SHDRxx,VIEW=X'0200',NEWLINE
BLSQMFLD NAME=FOO,OFF=X'00EC',LEN=4,VIEW=X'0200'
...
SHDRxx BLSQSHDR 'zzz '
This will produce a label on one line followed by the field contents on
another line (probably without a label).
-Nick Jones
z/OS Service Aids
--
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
