Modify rule S1289: rectify code example (#938)
This commit is contained in:
parent
96d9ddb930
commit
a2b1a23a1d
@ -10,11 +10,11 @@ PROGRAM-ID. foo.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 PERSON PIC X(42). *> Compliant as sub data item FIRST_NAME is used
|
||||
01 PERSON. *> Compliant as sub data item FIRST_NAME is used
|
||||
02 FIRST_NAME PIC X(21).
|
||||
02 LAST_NAME PIC X(21).
|
||||
|
||||
01 ADDR PIC X(100). *> Noncompliant as no data item in this block is used
|
||||
01 ADDR. *> Noncompliant as no data item in this block is used
|
||||
02 STREET PIC X(50).
|
||||
02 TOWN PIC X(50).
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user