16 lines
191 B
Text
16 lines
191 B
Text
/*
|
|
* File: main.pls
|
|
*/
|
|
|
|
/*
|
|
* Procedure: Motd
|
|
* Program entry point
|
|
*/
|
|
Motd: PROC OPTIONS(MAIN);
|
|
DCL in FILE;
|
|
OPEN FILE(in) TITLE('/etc/motd') INPUT;
|
|
DO ;
|
|
|
|
END;
|
|
CLOSE FILE(in);
|
|
END;
|