Map Generator of IDZ 14.1 for PLI truncates comments of fields used to build PLI structure names

IDZ 14.1 for PLI - Map Generator

Comments of Fields in BMS Sourcefiles are truncated to 7 chars. Therefore structure names are limited to 7 chars.

BMS Source-Files that have been used on z/OS to generate PLI Includes with SDF-II on z/OS.

We know, that the implementation in IDz is to first use the field name if present.
If the Field name is DFHxxxx then IDz will look for comments.
If there is no field name then IDz will look for comments to use as
field name.

We would like to accept IDZ in the 2nd case (Field name is DFHxxxx then IDz will look for comments), that fieldnames with more than 7 chars are accepted.

Please see the attached sample with field "BEREICHT":

BMS Definition:

AEMF1A

* BEREICHT BEREICHT
BEREICH DFHMDF POS=(2,63),LENGTH=4,ATTRB=(ASKIP,NORM),COLOR=BLUE
* BEREICH BEREICH
DFH0001 DFHMDF POS=(2,68),LENGTH=2,ATTRB=(ASKIP,NORM,FSET), *
COLOR=NEUTRAL
DFHMDF POS=(2,71),LENGTH=0,ATTRB=(ASKIP,NORM),COLOR=BLUE

This will currently be generated to:

/* */
02 BEREICHL FIXED BINARY(15,0),
02 BEREICHF CHARACTER(1),
02 DFHMS5 CHARACTER(4),
02 BEREICHI CHARACTER(4),
/* */
02 BEREICHL FIXED BINARY(15,0),
02 BEREICHF CHARACTER(1),
02 DFHMS6 CHARACTER(4),
02 BEREICHI CHARACTER(2),

(i.e. the "T" auf BEREICHT got lost)

It should be generated to:

/* */
02 BEREICHTL FIXED BINARY(15,0),
02 BEREICHTF CHARACTER(1),
02 DFHMS5 CHARACTER(4),
02 BEREICHTI CHARACTER(4),
/* */
02 BEREICHL FIXED BINARY(15,0),
02 BEREICHF CHARACTER(1),
02 DFHMS6 CHARACTER(4),
02 BEREICHI CHARACTER(2),

Similar to the generation on z/OS:

5 BEREICHTL FIXED BINARY(15,0),
5 BEREICHTF CHARACTER(1),
5 DFHMS5 CHARACTER(4),
5 BEREICHTI CHARACTER(4),
5 BEREICHL FIXED BINARY(15,0),
5 BEREICHF CHARACTER(1),
5 DFHMS6 CHARACTER(4),
5 BEREICHI CHARACTER(2),

---
beim Generieren einer MAP Anhang 116094 wird der Kommentar (als Basis für die Strukturnamen) ab der 7.Stelle abgeschnitten

zB AEMF1A
* BEREICHT BEREICHT
BEREICH DFHMDF POS=(2,63),LENGTH=4,ATTRB=(ASKIP,NORM),COLOR=BLUE
* BEREICH BEREICH
DFH0001 DFHMDF POS=(2,68),LENGTH=2,ATTRB=(ASKIP,NORM,FSET), *
COLOR=NEUTRAL
DFHMDF POS=(2,71),LENGTH=0,ATTRB=(ASKIP,NORM),COLOR=BLUE

wird generiert zu
/* */
02 BEREICHL FIXED BINARY(15,0),
02 BEREICHF CHARACTER(1),
02 DFHMS5 CHARACTER(4),
02 BEREICHI CHARACTER(4),
/* */
02 BEREICHL FIXED BINARY(15,0),
02 BEREICHF CHARACTER(1),
02 DFHMS6 CHARACTER(4),
02 BEREICHI CHARACTER(2),

am MAINFRAME aber
PDO.AE.SOURCE(AEMF1A)

* BEREICHT BEREICHT
BEREICH DFHMDF POS=(2,63),LENGTH=4,ATTRB=(ASKIP,NORM),COLOR=BLUE
* BEREICH BEREICH
DFH0001 DFHMDF POS=(2,68),LENGTH=2,ATTRB=(ASKIP,NORM,FSET),
COLOR=NEUTRAL
DFHMDF POS=(2,71),LENGTH=0,ATTRB=(ASKIP,NORM),COLOR=BLUE

PDO.AE.SOURCE(AEMF1AP)
5 BEREICHTL FIXED BINARY(15,0),
5 BEREICHTF CHARACTER(1),
5 DFHMS5 CHARACTER(4),
5 BEREICHTI CHARACTER(4),
5 BEREICHL FIXED BINARY(15,0),
5 BEREICHF CHARACTER(1),
5 DFHMS6 CHARACTER(4),
5 BEREICHI CHARACTER(2),
......