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
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
Comment