Change a cl variable to be all '*'

[johnmauro]

Is there a way in CL to set the value to a variable to be all For example '*'.

In COBOL you can set a field to all asterisks by this:

01. FIELDA PIC X(75) VALUE ALL '*'.


In Cl, the only way I know how to do it is

DCL VAR(FIELDA ) TYPE(*CHAR) LEN(075) VALUE '************************************************* **************************'.


Anyone know a shortcut similar to the COBOL assignment ?


Thanks,
John

[DeadManWalks]

Re: Change a cl variable to be all '*'

There is no way in CLLE.

[johnmauro]

Re: Change a cl variable to be all '*'

there is no way in clle.

ty