Neuters nouns

Neuters:
Diminutives (signaled by the sufix -chen or -lein) generic animal names that includes both sexes, cities, countries (but: die Schweiz, die Türkei, die Tschechoslowakei, die USA (plural), metals (but: der Stahl), letters of the alphabet, colours, languages, an abstract idea derived from an adjective. Nouns ending in -um -tum (but: der Reichtum, der Irrtum), nouns ending -en that are derived from a verb, (other nouns ending in -en tend to be masculine.).

Examples in German:
Europe - Europa
Helgoland - Helgoland
the beautiful Saxonia - das schِne Sachsen
our dear Germany - unser liebes Deutschland
sleeping - das Schlafen
the meal - das Essen
buying - das Einkaufen
the girl - das Mädchen

Femine nouns

Femine:
Female persons, female animals, names of fruits (but: der Apfel, das Ananas), names of flowers and trees, names of a rivers (but: der Rhein, der Main, der Neckar, der Inn) numbers used as a nouns.Nouns ending in -ei -ie -in -ion -ik -tät -heit -keit -schaft -ung, -e when the word has two syllables (except das Auge, das Ende, der Käse, der Name, der Glaube, and male persons or animals), -t or -e when the noun is derived from a strong verb stem.

Examples in German:
the Mrs. - die Frau
the sister - die Schwester
the lady doctor - die Ärztin
the candidate - die Kandidatin
the flower - die Blume
the road - die Straße
the map - die Karte
the unity - die Eins
the thirteen - die Dreizehn
the million - die Million
sister - die Schwester
lady - die Dame
aunt - die Tante
daughter - die Tochter
mother - die Mutter
teacher(female) - die Lehrerin
salesclerk(female) - die Verkäuferin

Masculine nouns

Masculine:
Male persons, animals days of the week, months and seasons, alcoholic beverage (but: das Bier!), geographical directions and most phenomena connected to the weather.Nouns ending in -ig -ing -ast -ling -ich -or -us -m (usually), -er when derived from a verb, nouns derived from the stem of a strong (irregular) verb and not end in -t or -e.

Examples in German:

the man - der Mann
the father - der Vater
the American - der Amerikaner
the teacher - der Lehrer
the boss - der Chef
the psychologist - der Psychologe
Monday - der Montag
April - der April
the winter - der Winter
the north - der Norden
the butterfly - der Schmetterling
the carpet - der Teppich
the Tutor - der Tutor
communism - der Kommunismus
brother - der Bruder
uncle - der Onkel
son - der Sohn
teacher(male) - der Lehrer
salesclerk(male) - der Verkنufer

Noun - Deutsch

All German nouns belong to one of three grammatical genders: masculine, feminine, or neuter. For example: Peter [Peter], Koffer [suitcase], Firma [company], Buch [book] are also nouns. Nouns in German are easy to identify because they are all capitalized.

Examples in German:

Our son is driving to the city by car.
Unser Sohn fنhrt mit dem Auto in die Stadt.

Sohn (son), Auto (car), Stadt (city) are nouns.

NOUNS TYPES:

Proper nouns are names of specific people, things, locations, or ideas:

Karl =Karl
the United Nations = die Vereinten Nationen
Communism = Kommunismus

Common nouns are names of general 'categories' of people, objects, places, or concepts:

boy = Junge
organisation = Organisation

Countable nouns are names of anything that can be counted:

one suitcase = ein Koffer
three books = drei Bücher
many thanks = vielen Dank

Uncountable nouns name what cannot be counted:

wine = Wein
air = Luft

The gender is most easily identified by the noun's definite article in the nominative case: der (masculine), die (feminine and plural), and das (neuter).

Masculine
the man - der Mann
the table - der Tisch
the rock - der Stein

Femenine
the woman - die Frau
the sun - die Sonne
the question - die Frage

Neuter
the child - das Kind
the fire - das Feuer
the book - das Buch

Source : anonymous

Edit macro to open the copybook by just clicking the copybook name in the program

This edit macro helps us to open the copybook in the program in view mode by just pressing the copybook name by placing the cursor in the copybook position.

/** REXX */
/*TRACE ?I*/
ADDRESS ISREDIT
'ISREDIT MACRO PROCESS'
'(C1,C2) = CURSOR'
FLAG = 'N'
"(LINEDATA) = LINE "C1
NAME = ' '
K = C2 - 1
NAME1 = ' '
DO UNTIL FLAG = 'Y'
IF SUBSTR(LINEDATA,K,1) = " ' " THEN
FLAG = 'Y'
ELSE
IF SUBSTR(LINEDATA,K,1) <> " ' " THEN
NAME1 = NAME1 !! SUBSTR(LINEDATA,K,1)
K = K - 1
END
NAME1 = REVERSE(NAME1)
FLAG = 'N'
DO UNTIL FLAG = 'Y'
IF SUBSTR(LINEDATA,C2,1) = " ' " THEN
FLAG = 'Y'
ELSE
IF SUBSTR(LINEDATA,C2,1) <> " ' " THEN
NAME = NAME !! SUBSTR(LINEDATA,C2,1)
C2 = C2 + 1
END
NAME = NAME1 !! NAME
UPPER NAME
PDS.1 = 'MANI.PEPUMAC.MAC'
PDS.2 = 'MANI.UEREFMAC.MAC'

SRCH_FND = 0
CALL SEARCH_PROCESS
EXIT

SEARCH_PROCESS:
DO J = 1 TO 2 UNTIL J = 3
PDSNAME = "'" !! PDS.J !! "'"
RP = OUTTRAP(MEM.)
ADDRESS TSO "LISTDS "PDSNAME" MEMBERS"
DO I = 7 TO MEM.0 UNTIL I = MEM.0
PARSE VAR MEM.I MEMNAME1 MEMNAME2
IF NAME = MEMNAME1 THEN
DO
SRCH_FND = 1
TEMPNAME = "'" !! PDS.J !! "(" !! MEMNAME1 !! ")'"
CALL OPEN_MEMBER
LEAVE J
END
END
ADDRESS TSO "FREE"
END
RETURN
OPEN_MEMBER:
ADDRESS ISPEXEC " VIEW DATASET ("TEMPNAME")"
ADDRESS TSO " FREE "
EXIT