|
|
|
|
|
|
|
|
|
|
*----------------------------------------------* |
|
|
IDENTIFICATION |
|
DIVISION. |
|
|
PROGRAM-ID. |
|
TIME-ACC. |
|
*----------------------------------------------* |
|
|
ENVIRONMENT |
|
DIVISION. |
|
|
CONFIGURATION |
|
SECTION. |
|
|
SOURCE-COMPUTER. |
|
SAMSUNG. |
|
|
OBJECT-COMPUTER. |
|
SAMSUNG. |
|
*----------------------------------------------* |
|
|
DATA |
|
DIVISION. |
|
|
WORKING-STORAGE |
|
SECTION. |
|
*----------------------------------------------* |
|
|
01 |
|
TT. |
|
|
|
|
|
|
|
03 |
HH |
PIC |
9(2). |
|
|
|
|
03 |
MM |
PIC |
9(2). |
|
|
|
|
03 |
SS |
PIC |
9(2). |
|
|
|
|
03 |
GG |
PIC |
9(2). |
|
|
*----------------------------------------------* |
|
|
PROCEDURE |
|
DIVISION. |
|
|
SSS-RTN. |
|
|
|
|
|
|
|
ACCEPT TT FROM TIME. |
|
|
|
DISPLAY HH "½Ã" MM "ºÐ" SS
"ÃÊ" GG "±¸". |
|
|
|
STOP RUN. |