PH22032: IDZ 14.2.1.1 PL/I EDITOR ISSUES A WARNING ON LINE ...PIC '9'BASED(ADDR... DUE TO A MISSING BLANK BEFORE BASED

APAR status

• Closed as program error.

Error description

• In IDz 14.2.1.1 and probably earlier versions there is a problem
  with this line:
  
  DCL W_CAPIC(3) PIC '999'BASED(ADDR(WCARBG_C));
  
  PL/I Editor issues a warning causing tooling to
  fail. Problem is a missing blank between '999' and BASED
  but this is not a syntax error. PLI compiler does not complain.
  
  Can be recreated with this pgm source:
  FUENTE: PROC() OPTIONS(MAIN);
     DCL WCARBG_C PIC '999';
     DCL W_CAPIC(3) PIC '999'BASED(ADDR(WCARBG_C));
     PUT SKIP EDIT('ERROR')(A);
     PUT SKIP EDIT('ERROR')(A);
  
  END FUENTE;
  
  Tested with 14.2.1.1 and 14.1.7. Both show indeed the problem.
  The editor issues a warning:;
  "DefinedKW" expected instead of this input
  
  
  Compilation is just fine:
  15655-PL5  IBM(R) Enterprise PL/I for z/OS       V5.R2.M4
  (Built:20190311)                      2020.02.05 03:19:56   Page
  1
  -                     Options Specified
  0  Install:
  0  Command: XINFO(XML),+DD:SYSOPTF
     File: DD:SYSOPTF
     TEST(ALL,HOOK,SYM,SEPARATE),LISTVIEW(SOURCE),OR('§')
     DEC(FOFLONASGN),SOURCE
  0  Install:
  15655-PL5  IBM(R) Enterprise PL/I for z/OS       FUENTE: PROC()
  OPTIONS(MAIN);                  2020.02.05 03:19:56   Page     2
  0 Compiler Source
  0    Line.File
  0       1.0      FUENTE: PROC() OPTIONS(MAIN);
          2.0        DCL WCARBG_C PIC '999';
          3.0        DCL W_CAPIC(3) PIC
  '999'BASED(ADDR(WCARBG_C));
          4.0        PUT SKIP EDIT('ERROR')(A);
          5.0        PUT SKIP EDIT('ERROR')(A);
          6.0
          7.0      END FUENTE;
  15655-PL5  IBM(R) Enterprise PL/I for z/OS       FUENTE: PROC()
  OPTIONS(MAIN);                  2020.02.05 03:19:56   Page     3
  - No Compiler Messages
  0 File Reference Table
  0   File    Included From  Name
  0      0                   DANTEC.DANTE.PLI(FUENTE)
  - Component    Return Code    Messages (Total/Suppressed)
  Time
  0 Compiler         0                1  /  1                   0
  secs
  0 End of compilation of FUENTE
  

Local fix

• Inserting one space between '999' and BASED makes the warning
  disappear.
  

Problem summary

• The problem was that when there was a space between PIC '999'
  and BASED, the code did not compile. However, the PL/I compiler
  does not show any syntax error. The editor issues a warning:
  "DefinedKW" expected instead of this input which should not take
   place.
  

Problem conclusion

• The problem was fixed.
  

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

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels