PM22709: ERROR_TOKEN Unexpected token ignored.

APAR status

• Closed as program error.

Error description

• Problem1: ERROR_TOKEN Unexpected token ignored. 'pic' is
  invalid.
     DECLARE ABC pic'99';
  Problem3: _INC expected after this token.  This is seen on the
  'when'.
     select (a);
      when('') do; end;
      when('c');
      other;
      end;
  Problem7: Subscript Or Arguements error wrongly given
            SubscriptOrArguments expected after this token
      if myProc() then a = '';
      Likely due to lack of an argument between the parenthesis.
  Problem8: Attribute Repeatable error wrongly given
            AttributeRepeatable is invalid
      dcl 1 aa,
          3 s1 char;
      The workaround is to change the char to char(1).
  Problem9: byname formed from merged tokens is wronly given
      aa = bb,by name;
  Problem10: Subscript or Arguemnts expected wrongly given
             SubscriptOrArguments expected after this token
      ptr = null();
      This could be similar to problem7.
  Problem11: Compound assign op expected wrongly given
             CompoundAssignOp expected after this token
      myProc2: proc(s) reorder;
  Problem12: PrefixOp is invalid Attributes, is invalid 1 added
      dcl VDSTGRD1 ext entry options(cobol,nomap);
  Problem13a: Attribute repeatable  is wrongly given
              AttributeRepeatable is invalid
      DCL J fixed bin(31) byaddr;
  Problem13b: bin expected instead of this input, is wrongly given
      DCL J fixed bin(31) byvalue;
  Problem14: ERROR_TOKEN unexpected tokens ignored, wrongly given
      XXX: proc(i) recursive returns(fixed bin(31));
      The workaround is to reverse the order of recursive/returns.
  Problem15: "," expected instead of this input, wrongly given for
      dcl 1 bb,
          3 s1 char(1);
      dcl myPic pic  '9' def bb.s1;
  Problem16: Procedure Start expected instead, wrongly given
             ProcedureStart expected instead of this input
      Happens when a label is prefixed to the END statement
      of a procedure.
  

Local fix

• Problem1, insert a space like this  DECLARE ABC pic '99';
  

Problem summary

• USERS AFFECTED:
      RD/z users who edit PL/I programs.
  ****************************************************************
  *
  PROBLEM DESCRIPTION:
     There were numerous cases where the PL/I real-time syntax
  check incorrectly
     reported warnings for legal PL/I syntax. The legal syntax
  that is no longer marked with warnings is:
     1) No space between pic and string, for example pic'99'.
     2) Empty do end block, for example do; end;
     3) not equal, greater than or equal, less than or equal
  symbols in exec sql statements, for example <=, >=.
     4) Empty parameter list in a procedure call, for example
  myproc();
     5) No length for character declaration, for example, dcl s
  char;
     6) by name in assignment statement, for example aa =bb, by
  name;
     7) reorder option in a procedure declaration, for example,
  myproc2: proc(s) reorder;
     8) options in an entry declaration, for example, dcl blah ext
  entry(cobol nomap);
     9) byaddr and byvalue in variable declaration, for example,
  dcl i fixed bin(31) byaddr;
     10) recursive before returns in procedure declaration, for
  example, a:proc() recursive returns(fixed bin(31));
     11) Defines with fields in structures, for example dcl v def
  struct.field;
     12) Labels on the last end statement in a program.
  

Problem conclusion

• PROBLEM RESOLUTION:
    RD/z PL/I real-time syntax checking correctly handles the
  legal syntax previously marked with warning messages
  described in the problem summary.
  
  The problem listed in this APAR has been resolved with
  IBM Rational Developer for System z V7.6.2.1 Fix Pack which
  is available from the Recommended Fixes support download page:
  http://www-1.ibm.com/support/docview.wss?rs=2294&uid=swg27006335
  

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

  RATL DEV FOR SY

• Fixed component ID

  5724T0700

Applicable component levels

• R762 PSY

     UP