COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 75 ACCEPT Statements Reading Current Data and Time
WORKING-STORAGE SECTION.
01 DATE-AND-TIME-FIELDS.
05 DAY-SUB PIC 9 VALUE ZERO.
05 TODAYS-DATE PIC 9(6) VALUE ZERO.
05 TIME-RIGHT-NOW PIC 9(8) VALUE ZERO.
77 USER-REPLY PIC X(40) VALUE SPACES.
...
PROCEDURE DIVISION.
...
ACCEPT DAY-SUB FROM DAY-OF-WEEK
ACCEPT TODAYS-DATE FROM DATE
ACCEPT TIME-RIGHT-NOW FROM TIME
ACCEPT USER-REPLY
ADD
ADD TO
ADD TO adds the sum of one or more numeric values to one or more result data items; for example,
ADD A B C TO D E
stores A+B+C+D in D and stores A+B+C+E in E.
addend
is a numeric literal or the identifier of an elementary numeric data item.
result
is the identifier of an elementary numeric data item to which addend or the sum of the addends
is added.
284 Procedure Division Verbs