APAR status
Closed as program error.
Error description
Text form BEAPQM05 displays incorrectly with its fields in inco rrect positions. For reference, tText form BEAPQM02, whcih is very close to BEAPQ M05, displays correctly. Form definitions are: form beapqm02 type textform {screenSizes =[[24,80]] , formSize = [24,80], position = [1,1] , msgField = VAGen_EZEMSG} * {fieldLen = 13, Position = [1, 1], value = 'beapqm02', color = blue, intensity = bold, protect = skipProtect}; * {Position = [2, 80], value = '', color = blue, intensity = b old, protect = skipProtect}; * {fieldLen = 79, Position = [3, 1], value = '................ ...............................................................' , color = blue, intensity = bold, protect = skipProtect}; * {fieldLen = 6, Position = [4, 1], value = 'Nov :', color = b lue, intensity = bold, protect = skipProtect}; bn000329 num(3,0) {Position = [4, 8], color = green, protect = noProtect}; * {fieldLen = 6, Position = [4, 14], value = 'MJTR :', color = blue, intensity = bold, protect = skipProtect}; bn000014 char(4) {Position = [4, 21], color = green, protect = noProtect}; * {fieldLen = 10, Position = [4, 27], value = 'Datum od :', co lor = blue, intensity = bold, protect = skipProtect}; datod num(10,0) {DateFormat = 'dd.MM.yyyy', Position = [4, 38] , color = green, protect = noProtect}; * {fieldLen = 10, Position = [4, 50], value = 'Datum do :', co lor = blue, intensity = bold, protect = skipProtect}; datdo num(10,0) {DateFormat = 'dd.MM.yyyy', Position = [4, 62] , color = green, protect = noProtect}; datum num(10,0) {ZeroFormat = yes, Fill = yes, DateFormat = 'd d/MM/yyyy', Position = [1, 67], color = green, Protect = skipPro tect}; VAGen_EZEMSG char(75) {Position = [23, 80], color = red, inten sity = bold, protect = skipProtect}; * {fieldLen = 71, Position = [22, 80], value = ' PF3:Povratak PF7:Natrag PF8:Naprijed', color = blue, intensity = bold, protect = skipProtect}; * {fieldLen = 79, Position = [21, 80], value = ' ............. ................................................................ .', color = blue, intensity = bold, protect = skipProtect}; * {fieldLen = 10, Position = [6, 68], value = ' Datum ZD', col or = blue, intensity = bold, protect = skipProtect}; * {fieldLen = 9, Position = [6, 58], value = 'Pl.datum', color = blue, intensity = bold, protect = skipProtect}; * {fieldLen = 41, Position = [6, 1], value = 'Nacrt', color = blue, intensity = bold, protect = skipProtect}; bnd00064 num(6,0)[14] {Position = [7, 1], color = green, prote ct = skipProtect , indexOrientation = down , columns = 1 , lines BetweenRows = 0 , spacesBetweenColumns = 1}; bnada037 num(10,0)[14] {DateFormat = 'dd.MM.yyyy', Position = [7, 57], color = green, protect = skipProtect , indexOrientation = down , columns = 1 , linesBetweenRows = 0 , spacesBetweenColu mns = 1}; bnada038 num(10,0)[14] {DateFormat = 'dd.MM.yyyy', Position = [7, 68], color = green, protect = skipProtect , indexOrientation = down , columns = 1 , linesBetweenRows = 0 , spacesBetweenColu mns = 1}; bnd00063 char(8)[14] {Position = [7, 8], color = green, protec t = skipProtect , indexOrientation = down , columns = 1 , linesB etweenRows = 0 , spacesBetweenColumns = 1}; bn000580 char(39)[14] {Position = [7, 17], color = green, prot ect = skipProtect , indexOrientation = down , columns = 1 , line sBetweenRows = 0 , spacesBetweenColumns = 1}; vrijeme char(8) {Position = [2, 69], color = green, protect = skipProtect}; * {fieldLen = 27, Position = [1, 27], value = ' DOKUMENTA CIJA', color = blue, intensity = bold, protect = skipProtect}; * {fieldLen = 43, Position = [2, 21], value = ' PREGLED OST VARENIH DOKUMENATA ', color = blue, intensity = bold, protect = skipProtect}; // constant fields end form BEAPQM05 type textForm // BEAPQG.BEAPQM02 {screenSizes =[[24,80]], formSize =[24,80], position =[1,1], msgField = VAGen_EZEMSG} // Start of Variable fields DATUM num(10){position =[1, 69 ], fieldLen = 10, validationOrder = 1, color = defaultColor, highlight = noHighlight, intensity = normalIntensity, protect = protect, sign = none, align = left, fillCharacter = nullFill, d ateFormat = 'dd/MM/yyyy'}; VRIJEME char(8) // HH:MM:SS {position =[2, 71 ], fieldLen = 8, validationOrder = 2, color = defaultColor, highlight = noHighlight, intensity = normalIntensity, protect = protect, upperCase = yes, align = left, fillCharacter = nullFill }; BN000329 num(3) // NOVOGRADNJA {position =[4, 14 ], fieldLen = 3, cursor = yes, validationOrder = 3, color = defaultColor, highlight = noHighlight, intensity = normalIntensi ty, protect = noProtect, sign = leading, align = right, fillChar acter = nullFill}; BN000014 char(5) // MJESTO TRO?KA {Position =[4, 25 ], fieldLen = 5, validationOrder = 4, color = defaultColor, highlight = noHighlight, intensity = normalIntensity, protect = noProtect, upperCase = yes, align = left, fillCharacter = nullFi ll}; datod num(10){DateFormat = 'dd.MM.yyyy', Position =[4, 42 ], color = green, Protect = noProtect ,FieldLen = 10, validationOrder = 16, color = defaultColor, highlight = noHighlight, intensity = normalIntensity, protect = noProtect, sign = non e, align = right, fillCharacter = nullFill }; datdo num(10,0){/*DateFormat = 'dd.MM.yyyy',*/ Position =[4, 6 4 ], color = green, Protect = noProtect, FieldLen = 10, validationOrder = 17, color = defaultColor, highlight = noHighlight, intensity = normalIntensity, protect = noProtect, sign = non e, align = right, fillCharacter = nullFill}; bnd00064 num(6, 0)[14]{Position =[7, 1 ], color = green, Protect = protect, indexOrientation = down , columns = 1, linesBetweenRows = 0, spacesBetweenColumns = 1}; bnd00063 char(8)[14]{Position =[7, 8 ], color = green, Protect = protect, indexOrientation = down , columns = 1, linesBetweenRows = 0, spacesBetweenColumns = 1}; bn000580 char(40)[14]{Position =[7, 17 ], color = green, Protect = protect, indexOrientation = down , columns = 1, linesBetweenRows = 0, spacesBetweenColumns = 1}; BNADA037 num(10,0)[14]{DateFormat = 'dd.MM.yyyy', Position =[7 , 58 ], color = green, protect = skipProtect, indexOrientation = down, columns = 1, linesBetweenRows = 0, spacesBetweenColumns = 1}; BNADA038 num(10, 0)[14]{DateFormat = 'dd.MM.yyyy', Position =[ 7, 69 ], color = green, Protect = skipProtect, indexOrientation = down, columns = 1, linesBetweenRows = 0, spacesBetweenColumns = 1}; VAGen_EZEMSG char(78){position =[24, 1 ], fieldLen = 78, validationOrder = 15, color = defaultColor , highlight = noHighlight, intensity = bold, protect = protect, upperCase = yes, align = left, fillCharacter = nullFill}; // Start of Constant fields *{position =[1, 1 ], fieldLen = 10, color = defaultColor, highlight = noHighli ght, intensity = normalIntensity, protect = skipProtect, value = 'beapqm02'}; *{position =[1, 32 ], fieldLen = 13, color = defaultColor, highlight = noHighli ght, intensity = bold, protect = skipProtect, value = 'DOKUMENTA CIJA'}; *{position =[2, 12 ], fieldLen = 49, color = defaultColor, highlight = noHighli ght, intensity = bold, protect = skipProtect, value = 'PREGLED O STVARENIH DOKUMENATA U ODRE?ENOM PERIODU'}; *{position =[2, 80 ], fieldLen = 81, color = defaultColor, highlight = noHighli ght, intensity = normalIntensity, protect = skipProtect, value = '.............................................................. ..................' + 'Novogradnja:'}; // was feildlen=93 *{position =[22, 1 ], fieldLen = 78, color = defaultColor, highlight = noHighli ght, intensity = normalIntensity, protect = skipProtect, value = ' .......................................................' + '......................'}; *{position =[23, 1 ], fieldLen = 78, color = defaultColor, highlight = noHighli ght, intensity = normalIntensity, protect = skipProtect, value = ' PF3-povratak PF7-natrag PF8-naprijed'}; *{fieldLen = 5, Position =[4, 19 ], value = 'MJTR:', color = blue, intensity = bold, protect = skipProtect}; *{fieldLen = 10, Position =[4, 31 ], value = 'Datum od:', color = blue, intensity = bold, prot ect = skipProtect}; *{fieldLen = 9, Position =[4, 54 ], value = 'Datum do:', color = blue, intensity = bold, prot ect = skipProtect}; *{fieldLen = 8, Position =[4, 80 ], value = ' Nacrt', color = blue, intensity = bold, protect = skipProtect}; *{fieldLen = 10, Position =[5, 58 ], value = 'Pl.datum', color = blue, intensity = bold, prote ct = skipProtect}; *{fieldLen = 10, Position =[5, 69 ], value = 'Dat. ZD', color = blue, intensity = bold, protec t = skipProtect}; end // end BEAPQG.BEAPQM05
Local fix
Problem summary
The values for BEAPQM05.datod and BEAPQM05.datdo were displayed in the wrong position. Instead of being at 4,42 and 4,46 respectively, they were displayed at 19,69 and 20,69.
Problem conclusion
The form fields were not generated in the correct order.
Temporary fix
Comments
APAR Information
APAR number
PM03290
Reported component name
RBD EGL FOR COB
Reported component ID
5724S5001
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-12-10
Closed date
2010-04-14
Last modified date
2010-04-14
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Fixed component name
RBD EGL FOR COB
Fixed component ID
5724S5001
Applicable component levels
R751 PSN
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
14 April 2010