9 lines
132 B
Plaintext
9 lines
132 B
Plaintext
|
CTL-OPT DFTACTGRP(*NO);
|
||
|
|
|
||
|
|
DCL-S greeting CHAR(25) INZ('Hello, World!');
|
||
|
|
|
||
|
|
DCL-PROC main EXPORT;
|
||
|
|
DSPLY greeting;
|
||
|
|
RETURN;
|
||
|
|
END-PROC;
|