Learn NATURAL-SCRIPTING with Real Code Examples

DEFINE DATA LOCAL
    END-DEFINE
WRITE 'Hello, Natural World!'
END

Print a greeting message.

DEFINE DATA LOCAL
    1 I (N)
END-DEFINE
FOR I = 1 TO 5
    WRITE 'Number: ' I
END-FOR
END

Loop through numbers 1 to 5 and display them.

DEFINE DATA LOCAL
    1 CUSTOMER-VIEW VIEW OF CUSTOMER
        2 CUST-ID
        2 CUST-NAME
END-DEFINE
FIND CUSTOMER-VIEW BY CUST-ID = 10001
    DISPLAY CUST-NAME
END-FIND
END

Read records from an Adabas file and display a field.

DEFINE DATA LOCAL
    1 AGE (N)
END-DEFINE
READ 'Enter age: ' AGE
IF AGE >= 18
    WRITE 'Adult'
ELSE
    WRITE 'Minor'
END-IF
END

Check a value and print messages based on condition.

DEFINE DATA LOCAL
    1 NAME (A20)
END-DEFINE
INPUT 'Enter your name: ' NAME
WRITE 'Welcome, ' NAME
END

Prompt user for name and display a welcome message.

DEFINE DATA LOCAL
    1 A (N)
    1 B (N)
    1 SUM (N)
    1 PROD (N)
END-DEFINE
INPUT 'Enter A: ' A
INPUT 'Enter B: ' B
SUM := A + B
PROD := A * B
WRITE 'Sum: ' SUM
WRITE 'Product: ' PROD
END

Compute sum and product of two numbers.

DEFINE DATA LOCAL
    1 CUSTOMER-VIEW VIEW OF CUSTOMER
        2 CUST-ID
        2 CUST-NAME
END-DEFINE
FIND CUSTOMER-VIEW WITH CUST-ID NE 0
    DISPLAY CUST-ID CUST-NAME
END-FIND
END

Loop through all customer records and display names.

DEFINE DATA LOCAL
    1 USERNAME (A20)
END-DEFINE
INPUT 'Enter your name: ' USERNAME
PERFORM GREET(USERNAME)
END
DEFINE SUBROUTINE GREET(NAME)
    WRITE 'Hello, ' NAME
END-SUBROUTINE

Call a subroutine to greet a user.

DEFINE DATA LOCAL
    1 INPUT-STR (A20)
    1 UPPER-STR (A20)
END-DEFINE
INPUT 'Enter string: ' INPUT-STR
UPPER-STR := CONVERT(INPUT-STR, 'UPPER')
WRITE 'Uppercase: ' UPPER-STR
END

Convert input string to uppercase and display.

DEFINE DATA LOCAL
    1 NUM (N)
END-DEFINE
DO
    INPUT 'Enter number (0 to quit): ' NUM
    IF NUM = 0
        EXIT
    ENDIF
    WRITE 'You entered: ' NUM
END-DO
END

Loop until user enters 0.