01 SHIRE.
05 SHIRE-KEY.
10 SHIRE-NAME PIC X(20).
05 SHIRE-TYPE PIC X(1).
88 SHIRETYPE-SHIRE VALUE '0'.
88 SHIRETYPE-TOWN VALUE '1'.
88 SHIRETYPE-CITY VALUE '2'.
05 SHIRE-CODE1 PIC 9(3).
05 SHIRE-CODE2 PIC 9(5).
05 SHIRE-ROAD PIC S9(15) COMP-3.
05 SHIRE-RIVER PIC S9(15) COMP-3.
05 SHIRE-BRIDGE PIC S9(15) COMP-3.
01 SHIRE-TOWN.
05 SHIRE-KEY.
10 SHIRE-NAME PIC X(20).
05 SHIRE-TYPE PIC X(1).
88 SHIRETYPE-SHIRE VALUE '0'.
88 SHIRETYPE-TOWN VALUE '1'.
88 SHIRETYPE-CITY VALUE '2'.
05 SHIRE-CODE1 PIC 9(3).
05 SHIRE-CODE2 PIC 9(5).
05 SHIRE-YEAR PIC 9(4) COMP.
05 SHIRE-BRICK PIC S9(15) COMP-3.
05 SHIRE-WOODEN PIC S9(15) COMP-3.
05 SHIRE-SCHOOL PIC S9(7) COMP-3.
05 SHIRE-GOLF PIC S9(4) COMP.
01 SHIRE-CITY.
05 SHIRE-KEY.
10 SHIRE-NAME PIC X(20).
05 SHIRE-TYPE PIC X(1).
88 SHIRETYPE-SHIRE VALUE '0'.
88 SHIRETYPE-TOWN VALUE '1'.
88 SHIRETYPE-CITY VALUE '2'.
05 SHIRE-CODE1 PIC 9(3).
05 SHIRE-CODE2 PIC 9(5).
05 SHIRE-MAJOR PIC S9(4) COMP.
05 SHIRE-MAIN-ATTRACTION PIC X(20).
05 SHIRE-MINOR PIC S9(4) COMP.
1 SHIRE,
3 SHIRE_KEY,
5 SHIRE_NAME CHAR(20),
3 SHIRE_TYPE CHAR(1),
/* '0' -SHIRE */
3 SHIRE_CODE1 PIC'(3)9',
3 SHIRE_CODE2 PIC'(5)9',
3 SHIRE_ROAD FIXED(15),
3 SHIRE_RIVER FIXED(15),
3 SHIRE_BRIDGE FIXED(15);
1 SHIRE_TOWN,
3 SHIRE_KEY,
5 SHIRE_NAME CHAR(20),
3 SHIRE_TYPE CHAR(1),
/* '1' -TOWN */
3 SHIRE_CODE1 PIC'(3)9',
3 SHIRE_CODE2 PIC'(5)9',
3 SHIRE_YEAR FIXED BIN(15),
3 SHIRE_BRICK FIXED(15),
3 SHIRE_WOODEN FIXED(15),
3 SHIRE_SCHOOL FIXED(9),
3 SHIRE_GOLF FIXED BIN(15);
1 SHIRE_CITY,
3 SHIRE_KEY,
5 SHIRE_NAME CHAR(20),
3 SHIRE_TYPE CHAR(1),
/* '2' -CITY */
3 SHIRE_CODE1 PIC'(3)9',
3 SHIRE_CODE2 PIC'(5)9',
3 SHIRE_MAJOR FIXED BIN(15),
3 SHIRE_MAIN_ATTRACTION CHAR(20),
3 SHIRE_MINOR FIXED BIN(15);
SHIRE DSECT
SHIRE_KEY DS 0CL20
SHIRE_NAME DS CL20
SHIRE_TYPE DS CL1
SHIRE_CODE1 DS CL3
SHIRE_CODE2 DS CL5
SHIRE_ROAD DS H
SHIRE_RIVER DS H
SHIRE_BRIDGE DS H
*
SHIRE_TOWN DSECT
SHIRE_KEY DS 0CL20
SHIRE_NAME DS CL20
SHIRE_TYPE DS CL1
SHIRE_CODE1 DS CL3
SHIRE_CODE2 DS CL5
SHIRE_YEAR DS H
SHIRE_BRICK DS PL8
SHIRE_WOODEN DS PL8
SHIRE_SCHOOL DS PL4
SHIRE_GOLF DS H
*
SHIRE_CITY DSECT
SHIRE_KEY DS 0CL20
SHIRE_NAME DS CL20
SHIRE_TYPE DS CL1
SHIRE_CODE1 DS CL3
SHIRE_CODE2 DS CL5
SHIRE_MAJOR DS H
SHIRE_MAIN_ATTRACTION DS CL10
SHIRE_MINOR DS H
For more information, see the section "Using HLASM copybooks with File Manager" in the base File Manager User's Guide and Reference.
Whenever you create or update a template, FM/IMS:
If the compilation is completed with a return code of greater than the specified maximum, then FM/IMS displays a pop-up menu, where you can choose to: