PK98431: Cobol compile error with 'is modified' in UI record field

APAR status

• Closed as program error.

Error description

• package test;
  
  // VGWebTrans program
  //
  program MyWebTr type VGWebTransaction{
   msgTablePrefix = 'MSGT' ,inputUIRecord = uirec, alias='MYWEBTR'
  ,TextLiteralDefaultIsString = yes}
  
   uirec WebTr1_UI;
  
   function main()
    SysLib.writeStdout('start');
    err string = '1';
    uirec.inputfield = 'updated by host zSeries';
    SysLib.setError(uirec.inputfield,err);//,'hello world');
    SysLib.setError(uirec.inputfield,'0001');
    SysLib.setError(uirec.inputfield2,'2','FIRST','SECOND','THIRD'
  ,'FOURTH');
  
  
    converse  uirec;
    if (uirec.EAN_PZN is modified)   ?=== problem line
     writestdout('here');
    end
   end
  
  end
  

Local fix

Problem summary

• If there was no edit function or validator function for the
  UI field, then the MODIFIED cobol 88 level was not
  generated. This caused a compile error. The workaround is to
  code a do-nothing validatorfunction routine for the field
  being tested.
  

Problem conclusion

• Software updated.
  

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