*DECK QDSYNTX 
PROC QDSYN
A                                    223         2
ABS                                  300                                000110
ACTUAL                               170
AFTER                                  1
ALL                                  300                                000130
ALLOWED                                2
ALTER                                300                                000150
ALTERNATE                             171 
AND                                  300                                000160
ANY                                  300                                000170
APPEND                               223         2
AS                                   300                                000180
ARE                                    3
AREA-NAME                              4
ASCENDING                              5
ASSETS                               300                                000200
ASSIGN                                 6
ATTACH                               300                                000220
AT                                   300                                000230
BATCH                                300                                000240
BEFORE                                 7
BEYOND                               300                                000260
BLOCK                                 10
BLOCK-TYPE                            11
BLOCKS                                12
BREAK                                300                                000280
BY                                   300                                000290
CALL                                  13
CATALOG                              300                                000310
CENTER                               300                                000320
CENTERED                             300                                000330
CHARACTER-COUNT                       14
CHAR                                 300                                000350
CHARACTER                             15
CHARACTERS                            16
CLOSE                                 17        40
COBOL                                 20
COLUMN                               300                                000370
COLUMNS                              300                                000380
COMP                                  21
COMP-1                                22
COMP-2                                23
COMPLEX                               24
COMPUTATIONAL                         25
COMPUTATIONAL-1                       26
COMPUTATIONAL-2                       27
CONTAINS                              30
CONTROL-WORD                          31
COUNT                                300                                000400
CRE                                  300                                000410
CREATE                               300                                000420
CURRENT-AREA                         300                                000430
CURRENT-DATE                         300                                000440
CURRENT-LINE                         300                                000450
CURRENT-PAGE                         300                                000460
CURRENT-REPORT                       300                                000470
CURRENT-SESSION                      300                                000480
CURRENT-TIME                         300                                000490
CY                                    65
DATA                                  32
DATA-PADDING                          33
DATE                                 300                                000510
DECODE                               300                                000520
DEFAULT                              300                                000530
DEF                                  300                                000540
DEFINE                               300                                000550
DEL                                  300                                000560
DELETE                               300                                000570
DEPEND                               300                                000580
DEPENDING                             34
DESCE                                300                                000600
DESCENDING                            35
DESCR                                300                                000620
DESCRIBE                             300                                000630
DETAIL                               300                                000640
DIAGNOSTIC                           300
DIRECT                               122
DISCARD                              300                                000650
DIS                                  300                                000660
DISPLAY                               36      2000
DIVISION                              37
DOUB                                 300                                000680
DOUBLE                                40
DUP                                  300                                000700
DUPLICATES                            41
EJECT                                300                                000720
EQ                                   300                                000730
ERASE                                300                                000740
EVAL                                 300                                000750
EVALUATE                             300                                000760
EXACT-RECORDS                         42
EXEC                                 300                                000780
EXECUTE                              300                                000790
EXH                                  300                                000800
EXHIBIT                              300                                000810
EXTRACT                              300                                000820
F                                     43
FALSE                                 44
FETCH                                300                                000840
FILE                                 300                                000850
FILES                                300                                000860
FILE-LIMIT                            45
FILLER                                46
FIRST                                 47
FIX                                  300                                000880
FIXED                                300                                000890
FIXED-LENGTH                          50
FL                                   300                                000910
FLOATING                             300                                000920
FOOTING                              300                                000930
FOR                                  300                                000940
FORMAT                               300                                000950
FORTRAN                               51
FROM                                  52
FULL                                 300
GE                                   300                                000970
GREG                                 300                                000980
GT                                   300                                000990
HEADING                              300                                001000
HELP                                 300                                001010
HIGH-VALUE                           163         1
HORI2                                300                                001030
HORIZONAL                            300                                001040
ID                                    64
IDENTIFICATION                        53
IF                                   300                                001060
IMAGES                               300                                001070
IN                                    54
INDEX                                173
INDEX-BLOCK                           55
INDEXED                              127
INDEX-LEVEL                           56
INDEX-PADDING                         57
INS                                  300                                001090
INSERT                               300                                001100
INT                                  300                                001110
INTEGER                               60
INTERNAL                              61
IS                                    62
ITEM-SIZE                            300                                001130
ITEM                                 300                                001140
ITEMS                                300                                001150
JULIAN                               300                                001160
KEY                                   63
KEY-FIELD                            222
LAND                                 300                                001170
LAST                                  66
LE                                   300                                001190
LIBRARY                              200
LINE                                 300                                001200
LINES                                300                                001210
LOCATION                              67
LOG                                   70
LOGICAL                               71
LOR                                  300                                001230
LOW-VALUE                            164         2
LT                                   300                                001250
LXOR                                 300                                001260
M                                    205         5
MASK                                 300                                001270
MATCH                                 72      1000
MISMATCH                              73       400
MAX                                  300                                001290
MAXS                                 300                                001300
MEAN                                 300                                001310
MIN                                  300                                001320
MINUS                                300                                001330
MINS                                 300                                001340
MODE                                  74
MODIFY                               205         5
MOVE                                 300                                001360
MR                                   300                                001370
NAME                                  75
NE                                   300                                001390
NEGATIVE                             167         5
NEW                                  301
NEXT                                 300                                001410
NO                                   300                                001420
NOT                                   76
NOTE                                 300                                001440
NULL-VALUE                           162         3
NUM                                  300                                001460
NUMBER                                77
NUMERIC                              300                                001480
OCCURS                               100
OF                                   101
OFF                                  300                                001500
OLD                                  302
ON                                   102
ONCE                                 300                                001520
OPEN                                 103       100
OR                                   300                                001540
ORGANIZATION                         104
OVER                                 300                                001560
OVERFLOW                             300                                001570
PAGE                                 300                                001580
PAGES                                300                                001590
PAGE-NUMBER                          300                                001600
PAGE-SIZE                            300                                001610
PAR                                  300                                001620
PARALLEL                             300                                001630
PASS                                 300                                001640
PERCENT                              105
PART                                 300
PERF                                 300                                001660
PERFORM                              300                                001670
PIC                                  221
PICTURE                              221
PLUS                                 300                                001690
PN                                   176
PREFACE                              300                                001700
PREPARE                              300                                001710
PREVIEW                              300                                001720
PROCEDURE                            201
PURGE                                300                                001730
PW                                   110
Q                                    300                                001750
R                                    203         1
RAISED                               300                                001760
READ                                 203         1
READAP                               224         7
READMD                               204         6
REC                                  111
RECAP                                300                                001780
RECAP-LINE                           300                                001790
RECORD                               112
RECORD-COUNT                         113
RECORD-MARK                          114
RECORD-NAME                          115
RECORD-TYPE                          116
RECORDING                            300                                001810
RECORDS                              117
RELATION                             172
REPEAT                               300                                001830
REPORT                               300                                001840
REPORTS                              300                                001850
RETRIEVAL                            225        20
REWIND                               300                                001860
RA                                   224         7
RM                                   204         6
RW                                   300                                001870
SAME                                 120
SECT                                 300                                001890
SECTIONS                             300                                001900
SELECT                               300                                001910
SEND                                 300                                001920
SEP                                  300                                001930
SEPARATOR                            300                                001940
SESSIONS                             300                                001950
SCHEMA                               121
SDA                                  122
SEARCH                               123         4
SEQ                                  124
SEQUENCE                             125
SEQUENTIAL                           126
SIS                                  127
SITUATE                              300                                001970
SN                                   174
SORT                                 300                                001980
SORTED                               130
SPACE                                165         3
SPEC                                 300                                002000
SPECIFY                              300                                002010
STORE                                300                                002020
STRING                               300
SUB-SCHEMA                           121
SWITCH                               300                                002040
SUM                                  300                                002050
SUMMARY                              300                                002060
STOP                                 300                                002070
T                                    131
TABS                                 300                                002090
TEMP                                 300                                002100
TEMPORARY                            132
TEXT                                 300                                002120
TIME                                 300                                002130
TIMES                                133
TITLE                                300                                002150
TITLE-LINE                           300                                002160
TO                                   134
TRAILER-COUNT                        135
TRANS                                136
TRANSACTION                          137
TRUE                                 140
TYPE                                 141
UN                                   177
UNDEFINED                            142
UNIVERSAL                            300
UNTIL                                300                                002180
UPD                                  300                                002190
UPDATE                               143        10
UPON                                 144
USAGE                                145
USE                                  300                                002210
USING                                146
VAL                                  300                                002230
VALUE                                300                                002240
VERIGY                               300                                002250
VERSION                              300                                002260
VERT                                 300                                002270
VERTICAL                             300                                002280
VETO                                 147
W                                    206         0
WRITE                                206         0
XOR                                  300                                002300
YCLEPT                               161
ZERO                                 166         4
ZERO-BYTE                            150
.                                    152
)                                    153
+                                    154
*                                    155
-                                    156
(                                    157
=                                    160
+ 
ONEBEND 
          INSURES LAST DATA CARD IS WRITTEN EXITS PASS1B
ONEBENE 
          SET FLAG FOR RELATION DIVISION
SBW 
          SCAN BACK WORD, TURN "NOSCNEL" FLAG ON SIGNIFYING TO SCAN2
                 NOT TO PICK UP NEXT SOURCE WORD YET. 
SNC 
          SCAN NEXT CARD, SET "SKIPOPS" FLAG SIGNIFYING TO SCAN2 TO 
                 SKIP TO THE NEXT SOURCE CARD AND POSITION TO THE FIRST 
                 WORD ON IT.
SNP 
          SKIP NEXT PERIOD, SET "SKIPOPS" FLAG SIGNIFYING TO SCAN 2 TO
                 SKIP TO THE SOURCE WORD FOLLOWING THE NEXT PERIOD. 
SNW 
          SCAN NEXT WORD, SET FLAG SIGNIFYING TO SCAN2 TO PICK UP NEXT
                 WORD.
XADBLK1 
          SETS MACIMUM BLOCKSIZE IN (AREABUF).
XADBLK2 
          SETS RECORDS FLAG IN (AREABUF). 
XADBLK3 
          SETS CHARACTERS FLAG BY DEFAULT.
XADBLK4 
          SETS CHARACTERS FLAG IN (AREABUF) 
XADRECN 
          STORES DATA NAME OBJECT OF DEPENDING ON IN (AREABUF). 
XADREC1 
          SETS MINIMUM RECORD SIZE IN (AREABUF).
XADREC2 
          SETS MAXIMUM RECORD SIZE IN (AREABUF).
XADREC3 
          SETS RECORD SIZE DEPENDING ON OPTION FLAG IN (AREABUF). 
XADREC4 
          SETS DEPENDING ON RECORD MARK OPTION FLAG IN (AREABUF). 
XAFT
          SETS LOG AFTER FLAG IN (AREABUF). 
XALT
          SETS "ALTER" FLAG IN (SCEMBUF). 
XANAME
          STORES AREA NAME IN (AREABUF).
XASAAM
           SETS SAAM FILE CLAUSE SPECIFIED. FLAG (SAFLG)
XASAAMT 
           TESTS       SAAM FLAG
XASC
          SETS SEQUENCE ASCENDING FLAG IN (AREABUF).
XASEC 
          EXITS: SADNO IF NO AREA HAS BEEN ENDOUNTERED
                 SADYES AN AREA HAS BEEN PROCESSED. 
XASET 
          SETS FLAG SIGNIFYING AN AREA HAS BEEN PROCESSED.
XATEMP
          SETS TEMPORARY OPTION IN (AREABUF). 
XBEF
          SETS LOG BEFORE FLAG IN (AREABUF).
XBSIZ 
XBTEN 
          SETS  BLOCK-TYPE EXACT-NUM IN (AREABUF).
XBTFL 
          SETS BLOCK-TYPE FIXED-LENGTH IN (AREABUF).
XBTFN 
          SETS BLOCK-TYPE FIXED-NUM IN (AREABUF). 
XBTIN 
          SETS BLOCK-TYPE INTERNAL FLAG IN (AREABUF). 
XBTYP 
XCHAR 
          SETS FLAG FOR RECORD CONTAINS CHARACTERS, IN SAAM FIT.
XCLIT 
          SETS USER SUPPLIED LITERAL COLLATING SEQUENCE 
                 AND STORES IT IN (AREABUF).
XCLNUP
          PROCESSES LAST AREA AND RECORD SECTION. 
XCOB
          SETS COBOL COLLATING SEQUENCE FLAG IN (AREABUF).
XDATPD
          STORES DATA PADDING IN SAAM FIT.
XDDCK 
          ANALYZES THE CURRENT ITEM IN (SQUASHBU) TO DIAGNOSE 
                 INCONSISTENCIES. 
XDDOC1
          PROCESS TH INTEGER (MINIMUM) OF THE OCCURS CLAUSE.
XDDOC2
          PROCESSES THE INTEGER (MAXIMUM-OBJECT OF THRU) OF OCCURS. 
XDDOC3
          TURNS ON FLAG SIGNIFYING OCCURS DEPENDING ON AN STORES THE
                 DEPENDING ON DATA NAME IN THE (FOMT).
XDDPC1
          SETS PICTURE FLAG FOR INTERMEDIARY PROCESSING OF THE COBOL
                 SOURCE PICTURE.
XDDUS1
          SETS USAGE DISPLAY FLAG.
XDDUS2
          SETS USAGE COMPUTATIONAL. 
XDDUS3
          SETS USAGE COMP-1.
XDDUS4
          SETS USAGE COMP-2.
XDDUS5
          SETS USAGE INTEGER. 
XDDUS6
          SETS USAGE LOGICAL. 
XDDUS7
          SETS USAGE COMPLEX. 
XDDUS8
           SETS USAGE DOUBLE FLAG 
XDD1
          DOES INITIAL CHECKS ON THE CURRENT LEVEL NUMBER AND STORES IT 
                 IN THE CURRENT BUFFER(SQUASHBU+3). 
XDD2
          EXITS: SADNO CURRENT INTEGER IS NOT ACCEPTABLE AS A LEVEL NO. 
                 SADYES CURRENT INTEGER IS ACCEPTABLE.
XDD4
          SAVES THE CURRENT DATA NAME FOR SUBSEQUENT SQUASHING INTO DNT.
XDD6
          SAVES THE WORD FILLER FOR SQUASHING INTO THE DNT. 
XDESC 
          SETS SEQUENCE DESCENDING FLAG IN (AREABUF). 
XDISCRD 
          SETS FLAG SIGNIFYING CURRENT ITEM TO BE DISCARDED.
XDUPFST 
           DUPLICATES ARE FIRST FLAG
XDUPLST 
           DUPLICATES ARE LAST  FLAG
           DUPLICATES ARE NOT ALLOWED FLAG
XDUPNOT 
          STORES FILE LIMIT IN SAAM FIT.
XFLIM 
          SETS FORTRAN COLLATING SEQUENCE FLAG IN (AREABUF).
XFORT 
XIMPNM
          EXITS: SADNO IF CURRENT NAME IS NOT AN IMPLEMENTOR NAME.
                 SADYES   CURRENT NAME IS     AN IMPLEMENTOR NAME.
XINDBL
          STORES INDEX BLOCKS IN SAAM FIT.
XINDEX
          STORE INDEX FILE NAME IN FDB
XINDLV
          STORES INDEX LEVEL IN SAAM FIT. 
XINDPD
          STORES INDEX PADDING IN SAAM FIT. 
XINIT 
          INITIALIZES INDEX TO BEGCINING OF THE DNT;ZEROS OUT CORE FROM 
                 BEGINNING TO END OF DNT; INITIALIZES INDEX TO FOMT,
                 INITIALIZES RESERVED REGISTERS B3 AND B4, FOR (SQUASHBU
XINITA
          INITIALIZES THE (AREABUF).
XINITR
          INITIALIZES RECORD SECTION WORK AREA. 
XINITS
          INITIALIZES THE (SCEMBUF).
XLACT 
          SETS KEY IS ACTUAL FLAG IN SAAM FIT.
XLALTDUP
XLALTFRST 
XLALTINDX 
XLALTNAM
XLCALC
          SETS CALC FLAG IN (AREABUF).
XLCKDUP 
XLCKFO                       CHECK IF SEQ FO FOR ALTERNATE KEY
XLCKPKY 
          ENSURES PRIMARY KEY WAS SPECIFIED FOR AAM OR SORTED SEQ FILE. 
XLDIR 
          SETS DIRECT FLAG IN (AREABUF) 
XLIT8 
          ANALYZES THE NON NUMERIC LITERAL. 
XLNAM 
          STORES LOCATION MODE DATA NAME IN (AREABUF).
XLOGNM
           STORES  NAME OF FILE ON WHICH TO LOG THE HISTORY 
XLOGRC
           SETS LOG RECORD BIT IN AREA BUFFER.
XLOGSET 
XLOGTST 
          TESTS IF NO OPTIONS SET AND DEFAULTS TO TRANS 
XLOLD 
          SETS FITORG TO FALSE, FILE ORGANIZATION *OLD* (INITIAL).
XLSEQ 
          SETS SEQUENTIAL FLAG IN (AREABUF).
XLSORT
           SORTED CLAUSE SPECIFIED
XLSYM 
          SETS KEY IS SYMBOLIC FLAG IN SAAM FIT.
XNUMBL
           NUMBER OF BLOCKS STORED IN FIT.
  
XNXTPRC 
          INCREMENT NUMBER OF DBPS AND SET FLAG SHOWING THAT
          ANOTHER DBP FOLLOWS 
  
XONCALL 
          PROCESS ON CALL OPTIONS 
  
XONCHK
          CHECK THAT AT LEAST ONE ON CALL OPTION HAS BEEN SPECIFIED 
  
XONTYPS 
          CHECK ON CALL TYPES, SPECIFICALLY THAT OPEN AND CLOSE DBPS
          MUST BE SPECIFIED IF SEARCH IS SPECIFIED
  
XPFCY 
          STORE PF CY PARAMETER IN FDB
XPFEND
          STORE TERMINATING WORD IN FDB 
XPFID 
          STORE PF ID PARAMETER IN FDB
XPFLIBNM
          STORE LIBRARY FILE NAME 
XPFM
          STORE PF M  PARAMETER IN FDB
XPFNAM
          STORE AREA FILE NAME IN FDB 
XPFPW 
          STORE PF PW PARAMETER IN FDB
XPFPWN
          CHECK PF PW VALID FOR OTHER THAN SCOPE
XPFPWS
          CHECK PF PW VALID FOR SCOPE 
XPFR                                                                     DL3A042
          STORE PF R PARAMETER IN FDB                                    DL3A042
XPFSN 
          STORE PF SN PARAMETER IN FDB
XPRNTNM 
          PRINTS THE NAME FOR CERTAIN DIAGNOSTICS 
XPUTABF 
          STORES AREA INFORMATION IN THE DNT. 
XRCNM1
          VALIDATES PROCEDURE NAME AND STORES IT. 
XRCNM2
          STORES DATA-NAME-1 OBJECT OF USING IN EOMT. 
XRCNM3
          STORES DATA-NAME-2 OBJECT OF USING IN EOMT. 
XRCRTR
          SETS CALL ON RETRIEVAL FLAG FOR THIS RECORD.
XRCUPD
          SETS CALL ON UPDATE FLAG FOR THIS RECORD. 
XREC
          SETS FLAG FOR RECORD BLOCK CONTAINS RECORDS, IN SAAM FIT. 
XRECBL
          STORES RECORD BLOCK SIZE IN SAAM FIT
XRETR 
          SETS RETRIEVAL FLAG IN (AREABUF)
XRNAME
          SAVES RECORD NAME IN (SQUASHBV).
XRSEC 
          EXITS: SADNO IF NO RECORD HAS BEEN PROCESSED. 
                 SADYES RECORD HAS BEEN PROCESSED.
XRSET 
          SETS FLAG SIGNIFYING A RECORD HAS BEEN PROCESSED. 
XRSIZ 
XRTC
          SETS RECORD-TYPE CHARACTER-COUNT FLAG IN (AREABUF). 
XRTCW 
          SETS RECORD-TYPE CONTROL-WORD FLAG IN (AREABUF).
XRTFL 
          SETS RECORD-TYPE FIXED-LENGTH FLAG IN (AREABUF).
XRTRM 
          SETS RECORD-TYPE RECORD-MARK FLAG IN (AREABUF). 
XRTTC 
          SETS RECORD-TYPE TRAILER-COUNT FLAG IN (AREABUF). 
XRTU
          SETS RECORD-TYPE UNDEFINED FLAG IN (AREABUF). 
XRTYP 
XRTZB 
          SETS RECORD-TYPE ZERO-BYTE FLAG IN (AREABUF). 
XSCEMA
          PROCESSES (SCEMBUF).
XSDAPRC 
           STORES  SDA PROCEDURE NAME 
XSETEMK 
          PROCESS NON-IMBEDDED KEYS 
  
XSNAME
          POSTS SCHEMA NAME TO (SCEMBUF). 
XTRAN 
          SETS LOG TRANSACTION FLAG IN (AREABUF). 
  
XTSTTYP 
YCLEPT
          STORES CURWORD IN SCYCLEPTNM . STDNO. 
+ 
:ROOT:01 IDNTDIV
       / DATADIV
       / *ONEBEND 
:ARBLSIZ :01  $BLOCK  *XADBLK3  NO
          / -CONTAINS 
            +INT             D117  05 
          / *XADBLK1
            $TO              02 
          / +INT             D117  05 
          / *XADBLK1
        :02 $RECORDS         03 
         / *XADBLK2                04                                    D2A130 
        :03  $CHARACTERS
                / *XADBLK4
          / *XADBLK3
        :04 -.               YES
        :05 +SNC             YES
:ARBLTYP :01 $BLOCK-TYPE     NO 
           / -IS
             $INTERNAL         02 
           / *XBTIN            05 
         :02 $CHARACTER-COUNT  03 
           / *XBTFL            05 
         :03 $RECORD-COUNT     04 
           / *XBTFN            05 
       :04  $EXACT-RECORDS  D086  +SNC  NO
           / *XBTEN 
         :05 -.              YES
:AREA:01 *XINITA
         $AREA-NAME          D104  *XPRNTNM  +SNC  04 
       / -IS
         +NAME               D105  +SNC  02 
       / *XANAME
         :02 $TEMPORARY *XPFNAM 15
         /*XATEMP 17
     :03 -. 
         :04 AREALOG
           / AREALOC          05
           / 04 
         :05 ARSAAM          06 
           / 04 
         :06 ARBLSIZ          08
           / *XBSIZ           04
         :08 ARRCSIZ          10
           / *XRSIZ           04
          :10 ARBLTYP         12
           / *XBTYP           04
          :12 ARRCTYP         14
           / *XRTYP           04
          :14 ARONCAL 
              ARSEQ           16
            / 04
           :16 *XTSTTYP 
            / YES 
         :15 PFPWT 17 / 15
         :17 *XPFEND $INDEX 03 / -IS +NAME D204 15 / *XINDEX 15 
                                                                         DL3A045
:PFPWT :01                                                               DL3A045
         $ID       05                                                    DL3A045
         /         -IS       +SNW                                        DL3A045
                   *XPFPWS   YES                                         DL3A045
         /         *XPFID    YES                                         DL3A045
                                                                         DL3A045
    :05  $PW       15                                                    DL3A045
         /         -IS       +NAME                                       DL3A045
                   +INT      D182      +SNC      YES                     DL3A045
                                                                         DL3A045
    :10            *XPFPW    +NAME                                       DL3A045
                   +INT      YES                                         DL3A045
         /         10                                                    DL3A045
                                                                         DL3A045
    :15  $CY       20                                                    DL3A045
         /         -IS       +INT      D183      YES                     DL3A045
         /         *XPFPWS   YES                                         DL3A045
         /         *XPFCY    YES                                         DL3A045
                                                                         DL3A045
    :20  $M        25 
         /         -IS       VALIDM     D202     YES                     DL3A045
         /         *XPFPWN   YES                                         DL3A045
         /         *XPFM     YES                                         DL3A045
                                                                         DL3A045
    :25  $SN       30 
         /         -IS       +NAME     D203      YES                     DL3A045
         /         *XPFPWS   YES                                         DL3A045
         /         *XPFSN    YES                                         DL3A045
                                                                         DL3A045
    :30  $UN       35 
         /         -IS       +SNW                                        DL3A045
                   *XPFPWN   YES                                         DL3A045
         /         *XPFID    YES                                         DL3A045
                                                                         DL3A045
    :35  $PN       40 
         /         -IS                                                   DL3A042
                   +NAME                                                 DL3A042
                   +INT      D203      YES                               DL3A042
         /         *XPFPWN   YES                                         DL3A042
         /         *XPFSN    YES                                         DL3A042
    :40  $R        NO 
         /         -IS                                                   DL3A042
                   +NAME     D148      YES                               DL3A042
         /         *XPFPWN   YES                                         DL3A042
         /         *XPFR     YES                                         DL3A042
  
  
:AREALOC:01 
         $ORGANIZATION       NO 
         /         -MODE
                   -IS
         $DIRECT   15 
         /         *XLCALC
         $OLD      05 
         /         *XLOLD    10 
  
    :05            -NEW 
  
    :10            +NAME     50 
         /         *XSDAPRC  50 
  
    :15  $SEQUENTIAL
         $SEQ      30 
         /         *XLSEQ 
         $SORTED   50 
         /         *XLSORT
  
    :20  $ASCENDING          25 
         /         *XASC     50 
  
    :25  $DESCENDING         50 
         /         *XDESC    50 
  
    :30  $INDEXED  40 
         /         *XLDIR 
         $OLD      35 
         /         *XLOLD    50 
  
    :35            -NEW      50 
  
    :40  $ACTUAL   D107      +SNC      NO 
         /         *XLACT 
         $OLD      45 
         /         *XLOLD    50 
  
    :45            -NEW 
  
    :50  $KEY      -.        90 
         /         -IS
         $ALTERNATE          65 
         /         *XLCKFO   D200      85 
         /         +NAME     D127      85 
         /         *XLALTNAM
         /
         $DUPLICATES         50 
         /         -ARE 
         $INDEXED  55 
         /         *XLALTINDX          80 
  
    :55  $FIRST    60 
         /         *XLALTFRST          80 
  
    :60  $NOT      *XLALTDUP
         /         80 
  
    :65            +NAME     D127      85 
         /         *XLNAM 
         $DUPLICATES         50 
         /         -ARE 
         $FIRST    70 
         /         *XDUPFST  80 
  
    :70  $LAST     75 
         /         *XDUPLST  80 
  
    :75  $NOT      *XDUPLST  80 
         /         *XDUPNOT 
  
    :80            *XLCKDUP  D170 
         /         -ALLOWED 
                   -.        50 
  
    :85            +SNC 
  
    :90            *XLCKPKY  YES
  
  
:AREALOG:01 $LOG               NO 
          / $RECORD 
               $REC           04
          / *XLOGRC 
        :02 $BEFORE            03 
          / *XBEF 
           :03 $AFTER  *XLOGTST  04 
          / *XAFT              02 
        :04 $TRANSACTION
            $TRANS             05 
          / *XTRAN
         :05 $ASSIGN               D142  11 
          / -TO 
            +NAME              D116     11
          / *XLOGNM 
        :06 PFPWT 10 / 06 
           :10 -.   *XLOGSET   YES
           :11 +SNC  *XLOGSET   YES 
  
:ARONCAL :01
         $ON       NO 
  
    :10  $CLOSE 
         $DISPLAY 
         $MATCH 
         $MISMATCH
         $OPEN
         $RETRIEVAL 
         $SEARCH
         $UPDATE   20 
         /         *XONCALL  D036      40 
         /         10 
  
    :20            *XONCHK   D035      40 
         /
         $CALL     D129      40 
         /         +NAME     D130      40 
         /         *XRCNM1
         -. 
  
    :30  $ON       *XONTYPS  YES
         /         *XNXTPRC  10 
  
    :40            +SNC      30 
  
:ARRCSIZ:01 $RECORD            NO 
          / -CONTAINS 
            +INT               D118   04
          / *XADREC1
            $TO                02 
          / +INT               D118  04 
          / *XADREC2
        :02 -CHARACTERS 
            $DEPENDING         03 
          / *XADREC3
            -ON 
            +NAME              D165   04
          / *XADRECN
        :03 -.                 YES
        :04 +SNC               YES
:ARRCTYP:01 $RECORD-TYPE     NO 
          / -IS 
            $CONTROL-WORD      02 
          / *XRTCW             09 
        :02 $FIXED-LENGTH      03 
          / *XRTFL             09 
        :03 $CHARACTER-COUNT   04 
          / *XRTTC             09 
        :04 $TRAILER-COUNT     06 
          / *XRTC              09 
        :06 $RECORD-MARK       07 
          / *XRTRM             09 
        :07 $UNDEFINED         08 
          / *XRTU              09 
       :08  $ZERO-BYTE  D087  +SNC  NO
          / *XRTZB
        :09 -.                 YES
:ARSAAM:01 $FILE-LIMIT         02 
         / *XASAAM
           -IS
           +INT                D108     08
         / *XFLIM 
       :02 $INDEX-LEVEL        03 
         / *XASAAM
           -IS
           +INT                D110     08
         / *XINDLV             01 
       :03 $INDEX-BLOCK        04 
         / *XASAAM
           -CONTAINS
           +INT                D111     08
         / *XINDBL
           -CHARACTERS         01 
       :04 $INDEX-PADDING      05 
         / *XASAAM
           -IS
           +INT                D112     08
         / *XINDPD
           -PERCENT            01 
       :05 $DATA-PADDING       06 
         / *XASAAM
           -IS
           +INT                D113     08
         / *XDATPD
           -PERCENT            01 
       :06 $NUMBER             07 
         / *XASAAM
           -OF
           -BLOCKS
           -IS
           +INT              D114  08                                    D2A130 
         / *XNUMBL             01 
       :07 -. 
           *XASAAMT            NO 
         / YES
       :08 +SNC                01 
:ARSEQ:01 $SEQUENCE            NO 
        / -IS 
          $FORTRAN             02 
        / *XFORT               04 
      :02 $COBOL               03 
        / *XCOB                04 
      :03 LIT                 *XCOB  05 
          / *XCLIT
      :04 -.                   YES
      :05 +SNC                 YES
:DATADIV:01 $DATA             D103  NO
          / $DIVISION         D103  NO
          / *XINIT
            -.
        :02 AREA              03
          / *XASET
        :03 RECORD            04
          / 02
        :04 *XCLNUP           YES 
:DDLITEM:01 *XDD2             D132  06
          / *XDD1             D133  06
          / $FILLER           02
          / *XDD6             03
       :02    +NAME          D134   *XPRNTNM    06
        / *XDD4 
           / 10 
        :03 $PICTURE
            $PIC              04
          / -IS 
            *XDDPC1       +SNW
        :04 DDOC
          / DDUS              05
          / 04
     :05
          / -.   *XDDCK   YES 
        :06 +SNC              05
          :10 $YCLEPT              03 
            / +NAME         D135   06 
  
            / *YCLEPT             03
:DDOC:01 $OCCURS               NO 
       / +INT                  D136  05 
       / *XDDOC1
         $TIMES                02 
       / 04 
     :02 $TO                   04 
       / +INT                  03 
       / *XDDOC2
     :03 $TIMES 
     :04 $DEPENDING            06 
       / -ON
         +NAME                 D137  05 
       / *XDDOC3               06 
     :05 +SNC                  06 
     :06 -.                    YES
  
:DDUS:01 -USAGE 
         -IS
         $DISPLAY              02 
       / *XDDUS1               YES
     :02 $COMPUTATIONAL 
         $COMP                 03 
       / *XDDUS2               YES
     :03 $COMPUTATIONAL-1 
         $COMP-1               04 
       / *XDDUS3               YES
     :04 $COMPUTATIONAL-2 
         $COMP-2               05 
       / *XDDUS4               YES
     :05 $COMPLEX              06 
       / *XDDUS7               YES
     :06 $LOGICAL              07 
       / *XDDUS6               YES
     :07 $INTEGER              08 
       / *XDDUS5               YES
     :08 $DOUBLE               NO 
       / *XDDUS8               YES
DNTDIV:01 +EOT   02                                                   000160
          /D169                                                         000170
          :02 *XINITS                                                   000190
             $IDENTIFICATION   D100   04                                000200
         /   $DIVISION   D100   04                                      000210
          / -.
             $SUB-SCHEMA   D101   +SNC   04 
          / -NAME 
            -IS 
           +NAME D101 +SNC 04 
          / *XSNAME 
           :04 -. $PROCEDURE YES / $LIBRARY D210 +SNC 
           :05 -IS +NAME D206 +SNC 06 
               / *XPFLIBNM
           :06 PFPWT 07 / 06
           :07 *XPFEND -. YES 
  
  
:LIT   :01
                   +CHARLIT  D184      NO 
         /         *XLIT8    YES
  
  
       :RECORD :01 $RECORD-NAME D171 *XINITR 10 
               :02 *XINITR 05 
          :04  +INT   14
       :07 DDLITEM
                   / 11 
       :05 -IS
           +NAME  25  /  *XRNAME  30
       :25  $KEY-FIELD  D122  06  /  *XSETEMK 
       :30  $YCLEPT     10
         / +NAME      D135    06
         / *YCLEPT
               :10 -. +INT D132 06
           +INT               D132   06 
         / 07 
          :14  $RELATION   YES
          :15  *ONEBENE NO
               :06 +SNC 
               :11 +EOT 12 / NO 
               :12 $RECORD-NAME 04 / 02 
  
:VALIDM  :01                           # VALIDATE PF OPTIONS           #
         $APPEND
         $MODIFY
         $READ
         $READAP
         $READMD
         $WRITE    NO 
         /         YES
  
END 
