tawasuyu/brahman

Rust 231TOML 70JSON 14HTML 12905 Definitions

Clone over HTTPS, with plain git

⎇ 634a43006ac4257288af40320b5360e9f157ab09 crates/modules/charka/corpus/19-reporte.cob 22 lines · 595 B History raw

feat(charka): PICTURE de edición — Z, coma de millares y punto decimal 634a43006 · sergio · 5 months ago

1* corpus charka — nivel 19: PICTURE de edición (Z, coma, punto)
2IDENTIFICATION DIVISION.
3PROGRAM-ID. REPORTE.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-A      PIC 9(5)V99 VALUE 1234.5.
701 WS-B      PIC 9(5)V99 VALUE 7.
801 WS-EDIT   PIC Z,ZZZ,ZZ9.99.
901 WS-CONT   PIC ZZZ,ZZ9.
10PROCEDURE DIVISION.
11MAIN.
12    MOVE WS-A TO WS-EDIT.
13    DISPLAY '[' WS-EDIT ']'.
14    MOVE WS-B TO WS-EDIT.
15    DISPLAY '[' WS-EDIT ']'.
16    MOVE 0 TO WS-EDIT.
17    DISPLAY '[' WS-EDIT ']'.
18    MOVE 234567 TO WS-CONT.
19    DISPLAY '[' WS-CONT ']'.
20    MOVE 89 TO WS-CONT.
21    DISPLAY '[' WS-CONT ']'.
22    STOP RUN.