@Retention(value=RUNTIME)
 @Target(value={TYPE,METHOD,PARAMETER,FIELD,LOCAL_VARIABLE})
public @interface PIC
Note: although PIC info of fields is known to the compiler during a compilation unit, Picture variables passed as arguments to procedures in other compilation units with formal parameter definitions PIC(*) allow for restrictions.
PL/I code
 
DCL A PIC '999' INIT(123); DCL B PIC '9999' INIT(1234); A=B; PUT SKIP LIST(A);when compiled is generated as
when run displays as@PIC("999")Picture a = new Picture("999",123);@PIC("9999")Picture b = new Picture("9999",1234); EPLI.ByValue(a,b); System.out.println(a);
234
| Modifier and Type | Required Element and Description | 
|---|---|
| java.lang.String | valuePicture definition of PIC '9(5)V9(4)' stored as Strings |