SCHEMA IS QSP-SCHE.
AREA IS QSP-AREA CONTAINS 50 PAGES
    ; NUMBER IS 1
    ; ENCIPHERING IS NOT REQUIRED
    ; JOURNAL IS NOT REQUIRED
    ; CHECKSUM IS REQUIRED.
GROUP IS HEADER
    ; WITHIN QSP-AREA
    ; LOCATION IS CALC USING AREANUMB DUPLICATES NOT ALLOWED
    ; NUMBER IS 1.
    AREANUMB; TYPE IS BINARY.
GROUP IS WSI
    ; WITHIN QSP-AREA
    ; LOCATION MODE IS VIA WSISET
    ; NUMBER IS 2.
    POINTER; TYPE IS BINARY.
    WORKING; TYPE IS BINARY.
    TYPES  ; TYPE IS BINARY.
GROUP IS ITEMNAME
    ; WITHIN QSP-AREA
    ; LOCATION IS CALC USING ITEMS DUPLICATES ARE ALLOWED
    ; NUMBER IS 3.
    ITEMS; PIC X(32).
    POINTER1; TYPE IS BINARY.
    WORKING1; TYPE IS BINARY.
    TYPES1 ; TYPE IS BINARY.
SET IS WSISET
    ; OWNER IS HEADER
    ;LINKED TO PRIOR
    ; ORDER IS SORTED.
 MEMBER IS WSI
    ; INCLUSION IS AUTOMATIC
    ; SELECTION IS CURRENT
    ; ASCENDING KEY IS WORKING DUPLICATES ARE LAST.
SET IS NAMESSET
    ; OWNER IS HEADER
    ;LINKED TO PRIOR
    ; ORDER IS SORTED.
 MEMBER IS ITEMNAME
    ; INCLUSION IS AUTOMATIC
    ; SELECTION IS CURRENT
    ; ASCENDING KEY IS ITEMS DUPLICATES ARE LAST.
END.
SUBSCHEMA NAME IS QSP-SUB OF SCHEMA QSP-SCHE
 ; COBOL COPY IS QSP-COPY
 ; COMPONENTS ARE ALL.
END.
