7 lines
107 B
Plaintext
7 lines
107 B
Plaintext
![]() |
BEGIN
|
||
|
FILE F(KIND=REMOTE);
|
||
|
EBCDIC ARRAY E[0:11];
|
||
|
REPLACE E BY "HELLO WORLD!";
|
||
|
WRITE(F, *, E);
|
||
|
END.
|