There are two versions of the particular screen in this region - one for each application. However, other than the field names, the maps are identical.
The abend occurs when I am moving a literal to the field BCV5077-D-MESSAGE. It is the last field on the map:
(the one that is failing)
05 BCV5077-L-MESSAGE PIC S9(4) COMP.
05 BCV5077-A-MESSAGE PIC X(1).
05 BCV5077-D-MESSAGE PIC X(75).
(this one works)
05 BLV5077-L-MESSAGE PIC S9(4) COMP.
05 BLV5077-A-MESSAGE PIC X(1).
05 BLV5077-D-MESSAGE PIC X(75).
05 BCV5077-L-MESSAGE PIC S9(4) COMP.
05 BCV5077-A-MESSAGE PIC X(1).
05 BCV5077-D-MESSAGE PIC X(75).
(this one works)
05 BLV5077-L-MESSAGE PIC S9(4) COMP.
05 BLV5077-A-MESSAGE PIC X(1).
05 BLV5077-D-MESSAGE PIC X(75).
here's the raw map:
(not working)
TAG0064 DFHMDF POS=(23,51),LENGTH=0012,ATTRB=ASKIP
TAG0065 DFHMDF POS=(23,64),LENGTH=0012,ATTRB=ASKIP
TAG0066 DFHMDF POS=(24,01),LENGTH=0075,ATTRB=(ASKIP,BRT)
DFHMSD TYPE=FINAL
END
versus
(working)
TAG0064 DFHMDF POS=(23,51),LENGTH=0012,ATTRB=ASKIP
TAG0065 DFHMDF POS=(23,64),LENGTH=0012,ATTRB=ASKIP
TAG0066 DFHMDF POS=(24,01),LENGTH=0075,ATTRB=(ASKIP,BRT)
DFHMSD TYPE=FINAL
END
TAG0064 DFHMDF POS=(23,51),LENGTH=0012,ATTRB=ASKIP
TAG0065 DFHMDF POS=(23,64),LENGTH=0012,ATTRB=ASKIP
TAG0066 DFHMDF POS=(24,01),LENGTH=0075,ATTRB=(ASKIP,BRT)
DFHMSD TYPE=FINAL
END
versus
(working)
TAG0064 DFHMDF POS=(23,51),LENGTH=0012,ATTRB=ASKIP
TAG0065 DFHMDF POS=(23,64),LENGTH=0012,ATTRB=ASKIP
TAG0066 DFHMDF POS=(24,01),LENGTH=0075,ATTRB=(ASKIP,BRT)
DFHMSD TYPE=FINAL
END
I checked with IBM's links, but there is nothing in the map definitions or program compilation where I can change anything related to the region or storage area.
Does anyone have any ideas?
