IBM Support

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

Subscribe

You can track all active APARs for this component.

 

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 number

    PK98431

  • 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-10-12

  • Closed date

    2009-12-14

  • Last modified date

    2009-12-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 December 2009