@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 |
value
Picture definition of PIC '9(5)V9(4)' stored as Strings
|