6 lines
152 B
Text
6 lines
152 B
Text
*process source attributes xref;
|
|
constants: Proc Options(main);
|
|
Dcl three Bin Fixed(15) Value(3);
|
|
Put Skip List(1/three);
|
|
Put Skip List(1/3);
|
|
End;
|