Filed Under: Easytrieve
Easytrieve – Variable declaration
Datatypes
| Alphanumeric | A | |
| Numeric | N | Maximum length 18 |
| Binary (Comp) | B | Maximum length 9. i e upto 18 digits |
| Packed (COMP-3) | Define as P 0 | Maximum length 9. i e upto 18 digits |
Declaring a working storage variable
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- WS-VAR1 W 8 A WS-VAR2 W 8 A VALUE 'KARTHIK ' WS-VAR2 W 9 N VALUE ZEROES WS-VAR3 W 7 N 2 WS-VAR4 W 9 P 0 WS-VAR5 W 9 P 2
Declaring Group variables
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- WS-GROUP W 15 A WS-GR1 WS-GROUP 5 A WS-GR2 WS-GROUP +5 10 A
Using indexed variables
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- LIST ON FILE INFILE WS-ALPHA W 26 A VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' WS-ALP-ARR WS-ALPHA 1 A OCCURS 26 INDEX ALPHA-NDX * JOB INPUT NULL * PRINT 16TH ALPHABET ALPHA-NDX = 15 DISPLAY '16TH ALPHABET IS ' WS-ALP-ARR STOP.
Using arrays/tables
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- LIST ON FILE INFILE WS-DAYS-OF-WEEK W 10 A OCCURS 7 * JOB INPUT NULL MOVE 'SUNDAY' TO WS-DAYS-OF-WEEK(1) MOVE 'MONDAY' TO WS-DAYS-OF-WEEK(2) MOVE 'TUESDAY' TO WS-DAYS-OF-WEEK(3) MOVE 'WEDNESDAY' TO WS-DAYS-OF-WEEK(4) MOVE 'THURSDAY' TO WS-DAYS-OF-WEEK(5) MOVE 'FRIDAY' TO WS-DAYS-OF-WEEK(6) MOVE 'SATURDAY' TO WS-DAYS-OF-WEEK(7) DISPLAY '4 TH DAY IS ' WS-DAYS-OF-WEEK(4) STOP
There's 0 entry So Far
Leave your Feedback / Question here. Thanks!