PM03290: TEXT FORM FIELDS DISPLAYED INCORRECTLY

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 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