2021-04-28 16:49:39 +02:00
|
|
|
The use of ``++options( *nopass )++`` on a parameter makes it optional, so it should always be checked before use.
|
|
|
|
|
|
|
|
== Noncompliant Code Example
|
|
|
|
|
|
|
|
----
|
|
|
|
DCL-PR VIOLATION1 EXTPGM;
|
|
|
|
LASTNAME Char(10);
|
|
|
|
FIRSTNAME Char(10) OPTIONS(*NOPASS:*OMIT);
|
|
|
|
END-PR;
|
|
|
|
|
|
|
|
DCL-PI VIOLATION1;
|
|
|
|
LASTNAME Char(10);
|
|
|
|
FIRSTNAME Char(10) OPTIONS(*NOPASS:*OMIT);
|
|
|
|
END-PI;
|
|
|
|
|
|
|
|
dsply FIRSTNAME;
|
|
|
|
dsply LASTNAME; // Noncompliant; LASTNAME is optional
|
|
|
|
*inlr = *on;
|
|
|
|
----
|
|
|
|
|
|
|
|
== Compliant Solution
|
|
|
|
|
|
|
|
----
|
|
|
|
DCL-PR VIOLATION1 EXTPGM;
|
|
|
|
LASTNAME Char(10);
|
|
|
|
FIRSTNAME Char(10) OPTIONS(*NOPASS:*OMIT);
|
|
|
|
END-PR;
|
|
|
|
|
|
|
|
DCL-PI VIOLATION1;
|
|
|
|
LASTNAME Char(10);
|
|
|
|
FIRSTNAME Char(10) OPTIONS(*NOPASS:*OMIT);
|
|
|
|
END-PI;
|
|
|
|
|
|
|
|
dsply FIRSTNAME;
|
|
|
|
IF %PARMS > 1;
|
|
|
|
dsply LASTNAME;
|
|
|
|
EndIf;
|
|
|
|
*inlr = *on;
|
|
|
|
----
|