*DECK DTABLES 
          IDENT  DTABLES
*CALL DPPPMACRO.
DDTABLE    SETUP   DDVERBS,DD6BITS
SETNO      EQU    11
DATATHNG   EQU   1
FILETHNG   EQU   2
FILESORT   EQU   3
OCCURSBT   EQU   4
LEV66BIT   EQU   5
LEV88BIT   EQU   6
LEV77BIT   EQU   7
LEV01BIT   EQU   8
LEV02BIT   EQU   9
CDINPBT   EQU   10
CDOUTPBT   EQU   11 
CDIOBIT   EQU   12
SPNAMITM   EQU   13 
FLCONITM   EQU   14 
USEBIT    EQU   FLCONITM
BLOKBIT   EQU   FLCONITM
WDADRBIT  EQU   FLCONITM
IOCONITM   EQU   15 
CONFIGBT   EQU   16 
SRCOMPBT   EQU   17 
OBCOMPBT   EQU   18 
DEBUGBIT   EQU   19 
SEGLIMBT   EQU   20 
INOBT   EQU   21
SPNAMEBT   EQU   22 
IOCTRLBT   EQU   23 
SELECTBT   EQU   24 
AF66STR   EQU   1 
AF6688ST   EQU   2
AF7788ST   EQU   3
AF88STR   EQU   4 
AF667788   EQU   5
AFCDATNM   EQU   6
AFCDINPT   EQU   7
AFCDOUTP   EQU   8
AFFD   EQU   9
AFSD   EQU   10 
AF01   EQU   11 
AF02   EQU   12 
AF77   EQU   13 
AF7702   EQU   14 
AF7766   EQU   15 
AFWS   EQU   16 
AFCSS     EQU      AFWS 
AFSSS     EQU      AFWS 
ANY7701   EQU   17
ANY7702   EQU   18
ANY7766   EQU   19
AFENVDIV   EQU   20 
AFCONFIG   EQU   21 
AFSRCOMP   EQU   22 
AFOBCOMP   EQU   23 
AFILCONT   EQU   24 
AFSPECNM   EQU   25 
AFIOCONT   EQU   26 
AFSELECT   EQU   27 
AFSORSEL   EQU   28 
BWZBIT           EQU  DATATHNG
BLCONBIT         EQU  FILETHNG
DATRECBT         EQU  FILESORT
EXTRNLBT         EQU  FILETHNG
JUSTRBIT         EQU  DATATHNG
LABRECBT         EQU  FILETHNG
LINAGBIT         EQU  FILETHNG
PICTBIT          EQU  DATATHNG
RECONBIT         EQU  FILESORT
RECMODBT         EQU  FILETHNG
REDEFBIT         EQU  DATATHNG
RPTARBT          EQU  FILETHNG
SIGNISBT         EQU  DATATHNG
SYNCBIT          EQU  DATATHNG
USAGEBIT         EQU  DATATHNG
VALISBIT         EQU  DATATHNG
VALOFBIT         EQU  FILETHNG
QUOTEBIT         EQU  SPNAMITM
CURRBIT          EQU  SPNAMITM
DECPTBIT         EQU  SPNAMITM
ALNAMBIT         EQU  SPNAMITM
SINCONBT         EQU  SPNAMITM
UPPBNDBT         EQU  SPNAMITM
LOWBNDBT         EQU  SPNAMITM
IMPNAMBT         EQU  SPNAMITM
REAREABT         EQU  FLCONITM
ORGANBIT         EQU  FLCONITM
ACCMODBT         EQU  FLCONITM
FILSTABT         EQU  FLCONITM
PROMODBT         EQU  FLCONITM
RECKEYBT         EQU  FLCONITM
ALTKEYBT         EQU  FLCONITM
APPLYBIT         EQU  IOCONITM
RERUNBIT         EQU  IOCONITM
SAMAREBT         EQU  IOCONITM
MULFILBT         EQU  IOCONITM
AFLINKAG         EQU  AFWS
TABLETOP SUBROUT    104  DPINITIALIZATION 
  
         RESWORD    DATA
         FDIAGNOS   T,37
         FBRANCH    MAINLOOP
         AAREA
         RESWORD    DIVISION
         FDIAGNOS   T,6 
         FBRANCH    MAINLOOP
         PERIOD 
         FDIAGNOS   T,7 
          CLAUSE    SEMICOPT
         TBRANCH    MAINLOOP
          ERRBRAN   ML1 
          ENDOFFI 
         FDEFPT     AFWS
         FDIAGNOS   D,112 
         FBRANCH    M1L0
          BRANCH    EOFTABLE
MAINLOOP CLAUSE     SEMICOPT
         TBRANCH    MAINLOOP
M1L0     ERRBRAN    ML1 
          PERIOD
          FBRANCH   M1L 
          BRANRET   PERIODFN
          BRANCH   MAINLOOP 
M1L       LEVEL   1 
         FBRANCH    M1L1
         BRANRET    LEVEL01 
         BRANCH     MAINLOOP
M1L1     LEVEL      2 THRU 49 
         FBRANCH    M1L2
         BRANRET    LEVEL02 
         BRANCH     MAINLOOP
M1L2     LEVEL      66
         FBRANCH    M1L3
         BRANRET    LEVEL66 
         ERRBRAN    ML1 
         BRANCH     MAINLOOP
M1L3     LEVEL      77
         FBRANCH    M1L4
         BRANRET    LEVEL77 
         BRANCH     MAINLOOP
M1L4     LEVEL      88
         FBRANCH    M1L5
         BRANRET    LEVEL88 
         ERRBRAN    ML1 
         BRANCH     MAINLOOP
M1L5     LEVEL      FDLVL 
         FBRANCH    M1L6
         BRANRET    FDLEVEL 
         BRANCH     M1L11 
M1L6     LEVEL      SDLVL 
         FBRANCH    M1L7
         BRANRET    SDLEVEL 
         BRANCH     M1L11 
M1L7     LEVEL      CDLVL 
         FBRANCH    M1L8
         BRANRET    CDLEVEL 
         ERRBRAN    ML1 
         BRANCH     M1L11 
M1L8     LEVEL      RDLVL 
          FBRANCH   M1L10 
         BRANRET    RDLEVEL 
         BRANCH     M1L11 
M1L10    ENDOFFI
         TBRANCH    EOFTABLE
         RESWORD   IS 
         TBRANCH   MAINLOOP 
         DIAGNOS    D,1 
ML1      ALWDIAG
         ADVANCE
         BRANCH     MAINLOOP
M1L11     CLAUSE    SEMICOPT
         TBRANCH    MAINLOOP
         BRANCH     M1L0
EOFTABLE SUBROUT    107   DPEPILOGUE
  
         STOP 
  
  
TAB1     TSTCONT   BWZBIT                         BLANK 
         FDIAGNOS   D,2,LASTATOM
         ALLOW      WHEN
          LITERAL 
          TSUBROUT   113    TESTFORZERO 
          SETTFFL 
         FDSR       D,3 
         SUBROUT    1   SETBWZBIT 
  
         RETURNX
  
TAB2     TSTCONT    BLCONBIT                      BLOCK 
         FDIAGNOS   D,4,LASTATOM
          SUBROUT   99 LINE AND COLUMN
         ALLOW      CONTAINS
         LITERAL
         TSUBROUT   2   STASHBLOCKLITERAL 
  
         FDSR       D,5 
         RESWORD    TO
         FBRANCH    BC1 
         LITERAL
         TSUBROUT   3   STASHBLOCKLITERAL2
  
         FDSR       D,5 
BC1      RESWORD    RECORDS 
         TSUBROUT   4   SETBLOCKRECORDSBIT
  
         TRETURNX 
         ALLOW      CHARACTS
         RETTRUE
  
TAB3     TSTCONT    FILETHNG                      CODESET 
         FDIAGNOS   D,507,LASTATOM
         ALLOW       IS 
         DATAREF
         FDSR       D,508 
         SUBROUT    108   STASHCODESETNAME
  
         RETURNX
  
TAB4     TSTCONT    DATRECBT                      DATA
         FDIAGNOS   D,8,LASTATOM
          SUBROUT   99 LINE AND COLUMN
         RESWORD    RECORD
         FBRANCH    DR1 
         ALLOW      IS
         BRANCH     DR2 
DR1      RESWORD    RECORDS 
         FDSR       D,9 
         ALLOW      ARE 
DR2      SUBROUT    5   TESTDATARECORDS 
  
         IMPNAME
         TDIAGNOS   T,708,LASTATOM    UNDEFINED DATA NAME REFERENCE 
         TBRANCH    DR4 
         TSTFLAG    35
         TDIAGNOS   D,10
         TSETFLAG   ERRFLAG 
         TRETFALS 
DR3      SUBROUT    6        ADD DATA RECORD NAME 
DR4      IMPNAME    COMMAOPT
         TDIAGNOS   T,708,LASTATOM    UNDEFINED DATA NAME REFERENCE 
         TBRANCH    DR4 
         TSTFLAG    35
         FBRANCH    DR3 
          RETTRUE 
  
TAB52    TSTCONT    EXTRNLBT                      EXTERNAL
         FDIAGNOS   D,17,LASTATOM 
          DIAGNOS   J,746,LASTATOM
         SUBROUT    45  SETEXTERNAL 
         RETURNX
TAB5     TSTCONT    JUSTRBIT                      JUSTIFID
         FDIAGNOS   D,11,LASTATOM 
         ALLOW      RIGHT 
         SUBROUT    7   SETJUSTIFIDBIT
  
         RETTRUE
  
TAB6     TSTCONT    LABRECBT                      LABEL 
         FDIAGNOS   D,12,LASTATOM 
          SUBROUT   99 LINE AND COLUMN
          SUBROUT   100 FIPS ROUTINE FOR LABEL RECORDS
         RESWORD    RECORD
         FBRANCH    LR1 
         ALLOW      IS
         BRANCH     LR2 
LR1      RESWORD    RECORDS 
         FDSR       D,13
         ALLOW      ARE 
LR2      RESWORD    OMITTED 
         TSUBROUT   8   SETLABELSOMITTED
  
         TRETURNX 
         RESWORD    STANDARD
         TSUBROUT   9   SETLABELSSTANDARD 
  
         TRETURNX 
         SUBROUT    10   SETLABELSERROR 
  
         DSR        D,14
  
TAB7     TSTCONT    LINAGBIT                      LINAGE
         FDIAGNOS   D,15,LASTATOM 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,715,LASTATOM
         ALLOW      IS
         DATAREF
         FBRANCH    L1
         SUBROUT    11   STASHLINAGENAME
  
         BRANCH     L2
L1      LITERAL 
         TSUBROUT   12   STASHLINAGELITERAL 
  
         FDSR       D,16
L2       ALLOW      LINES 
LINOPTN  COMMARW    FOOTING 
         TBRANCH    LINFOOT 
         COMMARW    TOP 
         TBRANCH    LINTOP
         COMMARW    BOTTOM
         TBRANCH    LINBOTM 
         COMMARW    WITH
         TBRANCH    LWITHFT 
         COMMARW    LINES 
         TBRANCH    LINLINES
         COMMARW    AT
         TBRANCH    LINLN1
         RETTRUE
LINFOOT  ALLOW      AT
         DATAREF
         TSUBROUT   13   STASHFOOTINGNAME 
  
         TBRANCH    LINOPTN 
         LITERAL
         FDSR       D,43
         SUBROUT    14   STASHFOOTINGLITERAL
  
         BRANCH     LINOPTN 
LINTOP   DATAREF
         TSUBROUT   15   STASHTOPNAME 
  
         TBRANCH    LINOPTN 
         LITERAL
         FDSR       D,44
         SUBROUT    16   STASHTOPLITERAL
  
         BRANCH     LINOPTN 
LINBOTM  DATAREF
         TSUBROUT   17       STASH BOTTOM NAME
  
         TBRANCH    LINOPTN 
         LITERAL
         FDSR       D,45
         SUBROUT    18   STASHBOTTOMLITERAL 
  
         BRANCH     LINOPTN 
LWITHFT  RESWORD    FOOTING 
         TBRANCH    LINFOOT 
         DSR        D,46
LINLINES ALLOW      AT
LINLN1   RESWORD   TOP
         TBRANCH    LINTOP
         RESWORD    BOTTOM
         TBRANCH    LINBOTM 
         DSR        D,105 
  
TAB8     TSTCONT    OCCURSBT                      OCCURS
         FDIAGNOS   D,18,LASTATOM 
         LITERAL
         PASSTF 
         SUBROUT    19   STASHOCCURSLITERAL 
         SETTFFL             RESET SUBS TRUEFALSE TO TRUE 
*                            WITHOUT CHANGING TF IN TABLES
         FDSR       D,19
         RESWORD    TO
         FBRANCH    O1
         LITERAL
         TSUBROUT   20   OCCURSMAXLITERAL 
  
         FDSR       D,20
         ALLOW      TIMES 
         RESWORD    DEPENDNG
         FDSR       D,21
          TSTFLAG   FIPS3 
          FDIAGNOS  T,717,LASTATOM
         ALLOW      ON
         DATAREF
         FDSR       D,22
         SUBROUT    21   STASHDEPENDNGNAME
  
O1       FALLOW      TIMES
O6       BRANRET    I 
         TBRANCH    O8
         ERRETRN
O7       BRANRET    ASCORDSC
         TBRANCH    O7
         ERRETRN
         BRANRET    I 
         TRETURNX 
         ERRETRN
         RETTRUE
O8       BRANRET    ASCORDSC
         TBRANCH    O8
         ERRETRN
         RETTRUE
  
I        RESWORD    INDEXED 
         FRETURNX 
         ALLOW      BY
         DNDEF
         FDSR       D,108 
O9       SUBROUT    25        INDEX PROCESS 
         DNDEF      COMMAOPT
         TBRANCH    O9
         RETTRUE
  
ASCORDSC RESWORD    ASCENDNG
         TSUBROUT   22  SET ASCENDING FLAG
         TBRANCH    O11 
         RESWORD    DESCNDNG
         FRETURNX 
O10      SUBROUT    23   SET DESCENDING FLAG
O11      TSTFLAG    FIPS3 
         FDIAGNOS   T,716,LASTATOM
         ALLOW      KEY 
         ALLOW      IS
         DATAREF
         FDSR       D,23
O12      SUBROUT    24   STASH KEY NAME 
         DATAREF    COMMAOPT
         TBRANCH    O12 
         RESWORD    ASCENDNG
         TSUBROUT   22   SET ASCENDING FLAG 
         TBRANCH    O11 
         RESWORD    DESCNDNG
         FRETTRUE 
         BRANCH     O10 
  
TAB9     TSTCONT    PICTBIT                       PICTURE 
         FDIAGNOS   D,24,LASTATOM 
         PICTURE
         PASSTF 
         SUBROUT    26   PICTUREPROCESS 
  
         FDSR       D,25
         RESWORD    DEPENDNG
         FRETTRUE 
         DIAGNOS    J,33
         ALLOW      ON
         DATAREF
         FDSR       J,41
         RETURNX
  
TAB10    TSTCONT    RECONBIT                      RECORD
         FDIAGNOS   D,26,LASTATOM 
          SUBROUT   99 LINE AND COLUMN
          RESWORD   VARYING 
          TBRANCH   RC2 
          RESWORD   IS
          TBRANCH   RC1 
          ALLOW     CONTAINS
          LITERAL 
          TSUBROUT  27   STASH RECORD LITERAL (ST$REC$LIT)
          FDSR      D,27
          RESWORD   TO
          TBRANCH   RC4 
          BRANCH    RC5 
 RC1      RESWORD   VARYING 
          FDSR      D,267 
 RC2      DIAGNOS   J,266,LASTATOM
          ALLOW     IN
          ALLOW     SIZE
          RESWORD   FROM
          FBRANCH   RC3A
          LITERAL 
          TSUBROUT  46   STASH VARYING RECORD MINIMUM (ST$VRECMIN)
          FDSR      D,268 
          RESWORD   CHARACTS
          TBRANCH   RC6 
          BRANCH    RC3 
 RC3A     LITERAL 
          TSUBROUT  46   STASH VARYING RECORD MINIMUM (ST$VRECMIN)
 RC3      RESWORD   TO
          FBRANCH   RC6 
 RC4      LITERAL 
          TSUBROUT  47   STASH VARYING RECORD MAXIMUM (ST$VRECMAX)
          FDSR      D,28
 RC5      ALLOW     CHARACTS
 RC6      SUBROUT   28   SET RECORD CONTAINS(VARYING) BIT (SET$RECCONT$)
          RESWORD   DEPENDNG
          FRETTRUE
          DIAGNOS   J,748,LASTATOM
          ALLOW     ON
          DATAREF 
          FDSR      D,749 
          TSUBROUT   112  STASH DEPENDNG NAME 
         RETTRUE
  
TAB11    TSTCONT    RECMODBT                      RECORDNG
         FDIAGNOS   D,29,LASTATOM 
          DIAGNOS   J,747,LASTATOM
         ALLOW      MODE
         ALLOW      IS
         IMPNAME
          TBRANCH    T110 
          TSTFLAG    35 
          TBRANCH    T111 
          LITERAL 
T110      TSUBROUT   29   STASHMODENAME 
          TRETURNX
T111      DSR        D,42 
  
TAB12    TSTCONT    REDEFBIT                      REDEFINS
         FDIAGNOS   D,30,LASTATOM 
         TDIAGNOS   T,206,LASTATOM
T120     DATAREF
         FDSR       D,31
         SUBROUT    30   STASHREDEFINS NAME 
  
         RETURNX
  
TAB13    TSTCONT    RPTARBT                       REPORT
         FDIAGNOS   D,32,LASTATOM 
  
         ALLOW      IS
         BRANCH     R1
TAB14    TSTCONT    RPTARBT                       REPORTS 
         FDIAGNOS   D,32,LASTATOM 
         ALLOW      ARE 
R1       SUBROUT    31   TESTREPORTNAME 
  
         DATAREF
         FDSR       D,34
R2       SUBROUT    32   STASHREPORTNAME
  
         DATAREF   COMMAOPT 
         FRETTRUE 
         BRANCH     R2
  
TAB15    TSTCONT    SIGNISBT                      LEADING 
         FDIAGNOS   D,35,LASTATOM 
         SUBROUT    34   SETSIGNLEADING 
  
         BRANCH     S3
TAB16    TSTCONT    SIGNISBT                      TRAILING
         FDIAGNOS   D,35,LASTATOM 
         SUBROUT    35   SETSIGNTRAILING
  
         BRANCH     S3
TAB17    TSTCONT    SIGNISBT                      SIGN
         FDIAGNOS   D,35,LASTATOM 
         ALLOW      IS
         RESWORD    LEADING 
S1       TSUBROUT   34   SETSIGNLEADING 
  
         TBRANCH    S3
         RESWORD    TRAILING
         FDSR       D,38
S2      SUBROUT     35   SETSIGNTRAILING
S3      RESWORD    SEPARATE 
         FRETTRUE 
         SUBROUT    36   SETSIGNSEPARATE
  
         ALLOW      CHARACTR
         RETTRUE
  
TAB18    TSTCONT    SYNCBIT                       SYNC
         FDIAGNOS   D,39,LASTATOM 
         SUBROUT    57   SETSYNCBIT 
  
         ALLOW      LEFT
         TRETURNX 
         RESWORD    RIGHT 
         TSUBROUT   109 
         RETTRUE
  
TAB19    TSTCONT    USAGEBIT                      DISPLAY 
         FDIAGNOS   D,40,LASTATOM 
         SUBROUT    37   SETUSAGEDISPLAY
  
         RETTRUE
TAB20    TSTCONT    USAGEBIT                      COMP
         FDIAGNOS   D,40,LASTATOM 
         SUBROUT    38   SETUSAGECOMP 
  
         RETTRUE
TAB21    TSTCONT    USAGEBIT                      COMP1 
         FDIAGNOS   D,40,LASTATOM 
          DIAGNOS   J,750,LASTATOM
         SUBROUT    39   SETUSAGECOMP1
  
         RETTRUE
TAB22    TSTCONT    USAGEBIT                      COMP2 
         FDIAGNOS   D,40,LASTATOM 
          DIAGNOS   J,751,LASTATOM
         SUBROUT    40   SETUSAGECOMP2
  
         RETTRUE
TAB23    TSTCONT    USAGEBIT                      COMP3 
         FDIAGNOS   D,40,LASTATOM 
         SUBROUT    41 USAGE IS COMPUTATIONAL-4 
  
         RETTRUE
TAB24    TSTCONT    USAGEBIT                      INDEX 
         FDIAGNOS   D,40,LASTATOM 
         SUBROUT    42   SETUSAGEINDEX
  
         RETTRUE
  
TAB25    TSTCONT    USAGEBIT                      USAGE 
         FDIAGNOS   D,40,LASTATOM 
         ALLOW      IS
         RESWORD    DISPLAY 
U1       TSUBROUT   37   SETUSAGEDISPLAY
  
         TRETURNX 
         RESWORD    COMP
U2       TSUBROUT   38   SETUSAGECOMP 
  
         TRETURNX 
         RESWORD    COMP1 
U3       TSUBROUT   39   SETUSAGECOMP1
          TDIAGNOS  T,750,LASTATOM
  
         TRETURNX 
         RESWORD    COMP2 
U4       TSUBROUT   40   SETUSAGECOMP2
          TDIAGNOS  J,751,LASTATOM
  
         TRETURNX 
         RESWORD    COMP4 
U5       TSUBROUT   41 USAGE IS COMPUTATIONAL-4 
          TDIAGNOS   J,752,LASTATOM 
  
         TRETURNX 
         RESWORD    INDEX 
U6       TSUBROUT   42   SETUSAGEINDEX
  
         TRETURNX 
         RESWORD    BIT 
U7       TSUBROUT   114   SETUSAGEBIT 
         TRETURNX 
         SUBROUT    43   SETUSAGEERROR
  
         DSR        D,47
  
TAB26     SUBROUT   99 LINE AND COLUMN
          RESWORD   OF
         TBRANCH    VALUEOF 
         TSTCONT    VALISBIT
         FDIAGNOS   D,48,LASTATOM 
  
         ALLOW      IS
         BRANRET    ANYLIT
         FDSR       D,49
         SUBROUT    52   STASHVALUELITERAL
  
         RETURNX
  
VALUEOF  TSTCONT    VALOFBIT
         FDIAGNOS   D,50,LASTATOM 
          SUBROUT   99 LINE AND COLUMN
         SUBROUT    53   TESTVALOFBIT 
  
         IMPNAME
          TBRANCH    VO1
          TSTFLAG    35 
          TBRANCH    VO11 
          LITERAL 
VO1       TSUBROUT   54   STASHLABELNAME
VO11      FDSR       D,51 
         ALLOW      IS
         BRANRET    ANYLIT
         TSUBROUT   55   STASHLABELLITERAL
  
         TBRANCH    VO2 
         DATAREF
         FDSR       D,52
         SUBROUT    56   STASHLABELVALUE
  
VO2      IMPNAME
          TBRANCH    VO1
          TSTFLAG    35 
          TBRANCH    VO21 
          LITERAL 
          TBRANCH    VO1
VO21      RETTRUE 
ANYLIT   RESWORD    ALL 
          FBRANCH   ANYLIT1 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,763,LASTATOM
          SUBROUT   44 SETALLFLAG 
          LITERAL 
          FDSR      D,764 
          SUBROUT   106 LITERAL ROUTINE 
          RETURNX 
ANYLIT1   LITERAL 
          TSUBROUT  106 LITERAL ROUTINE 
          RETURNX 
         LITERAL
         TSUBROUT   106   LITERALROUTINE
  
         RETURNX
  
TAB27    SUBROUT    101   TEST OCCURS BIT          ASCENDING
         DIAGNOS    T,318,LASTATOM
         KEEP 
         BRANRET    ASCORDSC
         RETURNX
  
TAB28    SUBROUT    101   TEST OCCURS BIT          DESCENDING 
         DIAGNOS    T,318,LASTATOM
         KEEP 
         BRANRET    ASCORDSC
         RETURNX
  
TAB51    SUBROUT    101   TEST OCCURS BIT          INDEXED
         DIAGNOS    T,318,LASTATOM
         KEEP 
         BRANRET    I 
         RETURNX
  
TAB50    DIAGNOS    D,56,LASTATOM                       RENAMES 
         DATAREF
         FDSR       D,61
         RESWORD    THRU
         FRETTRUE 
         DATAREF
         FDSR       D,62
         RETURNX
  
LEVEL66  SUBROUT    105   SAVELEVEL 
  
         TSTCONT    LEV66BIT
         FDIAGNOS   D,59,LASTATOM 
         TSTCONT    LEV77BIT
         FDEFPT     AF66STR 
         TDEFPT     ANY7766 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,714,LASTATOM
          FILLERX 
          TDIAGNOS  D,276 
          FDNDEF
         SUBROUT    58   SETUPDNAT
  
         SEMIRW    RENAMES
         FDSR       D,60
         DATAREF
         FDSR       D,61
         SUBROUT    59   STASHRENAMESNAME1
  
         RESWORD    THRU
         FRETTRUE 
         DATAREF
         FDSR       D,62
         SUBROUT    60   STASHRENAMESNAME2
         RETTRUE
  
PERIODFN SUBROUT    61   SETPERIODBIT 
         TSTCONT    CDINPBT 
         FRETURNX 
         LEVEL      1 
         FDIAGNOS   T,709,LASTATOM
         TKEEP
  
         RETURNX
  
LEVEL88  SUBROUT    105   SAVELEVEL 
          TSTFLAG   FIPS3 
          FDIAGNOS  T,700,LASTATOM
  
         TSTCONT    LEV88BIT
         FDIAGNOS   D,64,LASTATOM 
         FBRANCH    L881
         TSTCONT    LEV66BIT
         TBRANCH    L887
         TSTCONT    LEV77BIT
         TDEFPT     AF7788ST
         FDEFPT     AF88STR 
         BRANCH     L881
L887     TSTCONT    LEV77BIT
         TDEFPT     AF667788
         FDEFPT     AF6688ST
L881      FILLERX 
          TDIAGNOS  D,276 
          FDNDEF
         SUBROUT    62   SETUP88DNAT
  
         SEMIRW    VALUE
         FBRANCH    L882
         ALLOW      IS
         BRANCH     L883
L882     RESWORD    VALUES
         FDSR       D,65
         ALLOW      ARE 
L883     SUBROUT    63   SETUPCTEXTPTR
  
         BRANRET    ANY88LIT
         FSUBROUT   64   CLEARCTEXTPTR
  
         FDSR       D,66
L884     RESWORD    THRU
         FBRANCH    L885
         BRANRET    ANY88LIT
         FSUBROUT   64   CLEARCTEXTPTR
  
         FDSR       D,67
L885     COMMARW    ALL 
         LITERAL    COMMAOPT
         TBRANCH    L886
         PERIOD 
         FDIAGNOS   T,68
         SUBROUT    61   SETPERIODBIT 
  
         RETTRUE
L886     BRANCH     L884
  
ANY88LIT RESWORD    ALL 
         LITERAL
         RETURNX
  
CDLEVEL  SUBROUT    105   SAVELEVEL 
  
         SUBROUT    79   TESTCDCONTEXT
  
         AAREA
          FILLERX 
          TDIAGNOS  D,276 
          FDNDEF
         SUBROUT    69   SETUPCDNAME
  
         COMMARW    FOR 
         COMMARW    OUTPUT
         TBRANCH    CD3 
         COMMARW    INITIAL 
         TSUBROUT   71   SETINITIALBIT
  
         COMMARW    INPUT 
         FSUBROUT   103   SETZERODNAT 
  
         FDSR       D,69
         SUBROUT    72   SETINPUTBIT
  
          SUBROUT   73 SET UP CD DATA NAMES 
          DNDEF 
          TDEFPT    AFCDATNM
          TSUBROUT  74 NEXT CD DATA NAME
          TBRANCH   CD1 
          RESWORD   FILLER
          FDEFPT    AFCDINPT
          FRETTRUE
          DEFPT      AFCDATNM 
          SUBROUT   115 SKIP FILLER 
CD1       DNDEF     COMMAOPT
          TSUBROUT  74 NEXT CD DATA NAME
          TBRANCH   CD1 
          COMMARW   FILLER
          TSUBROUT  115 SKIP FILLER 
          TBRANCH   CD1 
          SUBROUT   75 GOT 11 DATA NAMES
          RETTRUE 
CD3      SUBROUT    76   SETOUTPUTBIT 
  
         DEFPT      AFCDOUTP
         RETTRUE
  
FDLEVEL  SUBROUT    105   SAVELEVEL 
          SUBROUT   99 LINE AND COLUMN
  
         SUBROUT    77   TESTFDCONTEXT
  
         AAREA
          FILLERX 
          TDIAGNOS  D,276 
          FDNDEF
         SUBROUT    67   SETUPFDNAME
  
         DEFPT      AFFD
         RETURNX
  
SDLEVEL  SUBROUT    105   SAVELEVEL 
  
         SUBROUT    78   TESTSDCONTEXT
  
         AAREA
          TSTFLAG   FIPS3 
          FDIAGNOS  T,713,LASTATOM
          FILLERX 
          TDIAGNOS  D,276 
          FDNDEF
         SUBROUT    68   SETUPSDNAME
  
         DEFPT      AFSD
         RETURNX
  
RDLEVEL  SUBROUT    105   SAVELEVEL 
  
         DIAGNOS    D,70,LASTATOM 
         AAREA
          FILLERX 
          TDIAGNOS  D,276 
          FDNDEF
         SUBROUT    70   SETUPRDNAME
  
         RETURNX
  
TAB29    AAREA                                    FILE
         RESWORD    SECTION 
         FDSR       D,71
         DNDEF
         SUBROUT    80   SETUPFILESECTION 
  
         DEFPT      0 
         PERIOD 
         FDSR       T,72
         RETURNX
  
TAB30    AAREA                                    COMMSTOR
          DIAGNOS   J,744,LASTATOM
         RESWORD    SECTION 
         FDSR       D,233 
         DNDEF
         SUBROUT    110  SETUP COMMON STORAGE SECTION 
         DEFPT      AFCSS 
         PERIOD 
         FDSR       T,234 
         RETURNX
  
TAB31   AAREA                                     SECSTOR 
          DIAGNOS   J,745,LASTATOM
        RESWORD     SECTION 
        FDSR        D,235 
        DNDEF 
        SUBROUT     111  SETUP SECONDARY STORAGE SECTION
        DEFPT       AFSSS 
        PERIOD
        FDSR        T,236 
        RETURNX 
  
TAB32    AAREA                                    WKNGSTOR
         RESWORD    SECTION 
         FDSR       D,73
         DNDEF
         SUBROUT    81   SETUPWKNGSTOR      SECTION 
  
         DEFPT      AFWS
         PERIOD 
         FDSR       T,74
         RETURNX
  
TAB33    AAREA                                    LINKAGE 
         RESWORD    SECTION 
         FDSR       D,75
          TSTFLAG   FIPS2 
          FDIAGNOS  T,712,LASTATOM
         DNDEF
         SUBROUT    82   SETUPLINKAGESECTION
  
         DEFPT      AFLINKAG
         PERIOD 
         FDSR       T,76
         RETURNX
  
TAB34    AAREA                                    COMMUNIC
         RESWORD    SECTION 
         FDSR       D,77
          TSTFLAG   FIPS3 
          FDIAGNOS  T,711,LASTATOM
         DNDEF
         SUBROUT    83   SETUPCOMMUNIC     SECTION
  
         DEFPT      0 
         PERIOD 
         FDSR       T,78
         RETURNX
  
LEVEL01  SUBROUT    105   SAVELEVEL 
  
         TSTCONT    LEV01BIT
         FDIAGNOS   D,79,LASTATOM 
         AAREA
         FILLERX
         FBRANCH   L01
         SUBROUT    58   SETUPDNAT
         SUBROUT    66   SETFILLERREFTOX2 
         BRANCH   FILL
L01      DNDEF
         SUBROUT  58  SETUPDNAT 
  
FILL     TSTCONT    LEV77BIT
         FDEFPT     AF01
         FCLRFLAG  9         SYNTAXONLY 
         TDEFPT     ANY7701 
         RESWORD    REDEFINS
         TBRANCH    T120
         RETTRUE
  
LEVEL02  SUBROUT    105   SAVELEVEL 
  
         TSTCONT    LEV02BIT
         FDIAGNOS   D,80,LASTATOM 
         FILLERX
         FBRANCH   L02
         SUBROUT    58   SETUPDNAT
  
         SUBROUT    66   SETFILLERREFTOX2 
         BRANCH   FILL2 
L02      DNDEF
         SUBROUT  58  SETUPDNAT 
  
FILL2    TSTCONT    LEV77BIT
         FDEFPT     AF02
         FCLRFLAG  9         SYNTAXONLY 
         TDEFPT     ANY7702 
         RESWORD    REDEFINS
         TBRANCH    T120
         RETTRUE
  
LEVEL77  SUBROUT    105   SAVELEVEL 
  
         TSTCONT    LEV77BIT
         FDIAGNOS   D,81,LASTATOM 
         AAREA
          FILLERX 
          FBRANCH   T77L1 
          SUBROUT   58 SET UP DNAT
          SUBROUT   66 SET FILLER REF TO X2 
          BRANCH    FILL77
T77L1     DNDEF 
          SUBROUT   58 SET UP DNAT
FILL77    TSTCONT   LEV02BIT
         TDEFPT     AF7702
         TBRANCH    L77 
         TSTCONT    LEV66BIT
         TDEFPT     AF7766
         FDEFPT     AF77
         FCLRFLAG  9         SYNTAXONLY 
L77      RESWORD    REDEFINS
         TBRANCH    T120
         RETTRUE
  
TAB35    RESWORD    QUEUE                         SYMBOLIC
          TBRANCH  TAB36
          RESWORD  SUBQUE1
          TBRANCH  TAB37
          RESWORD  SUBQUE2
          TBRANCH  TAB38
          RESWORD  SUBQUE3
          TBRANCH  TAB39
          RESWORD  SOURCE 
          TBRANCH  TAB40
          RESWORD  DESTINTN 
          TBRANCH  TAB41
         FDSR       D,104 
TAB36    TSTCONT    CDINPBT                       QUEUE 
         FDIAGNOS   D,82,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    84   SETUPQUEUENAME 
  
         RETTRUE
  
TAB37    TSTCONT    CDINPBT                       SUBQUE1 
         FDIAGNOS   D,83,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    85   SETUPSUBQUE1 
  
         RETTRUE
  
TAB38    TSTCONT    CDINPBT                       SUBQUE2 
         FDIAGNOS   D,84,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    86   SETUPSUBQUE2 
  
         RETTRUE
  
TAB39    TSTCONT    CDINPBT                       SUBQUE3 
         FDIAGNOS   D,85,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    87   SETUPSUBQUE3 
  
         RETTRUE
  
TAB40    TSTCONT    CDINPBT                       SOURCE
         FDIAGNOS   D,86,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    88   SETUPSOURCE
  
         RETTRUE
  
TAB41    RESWORD    COUNT                         DESTINTN
         TBRANCH    DC
         RESWORD    TABLE 
         TBRANCH    DT
SDX      TSTCONT    CDOUTPBT
         FDIAGNOS   D,87,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    89   SETUPDESTINTN
  
         RETTRUE
  
DC       TSTCONT    CDOUTPBT
         FDIAGNOS   D,89,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    91   SETUPDESTCOUNT 
  
         RETTRUE
  
DT       TSTCONT    CDOUTPBT
         FDIAGNOS   D,90,LASTATOM 
         RESWORD    OCCURS
         FDIAGNOS   J,91
         LITERAL
         TSUBROUT   98   STASHDESTTABLELITERAL
  
         FDSR       D,92
         ALLOW      TIMES 
         RESWORD    INDEXED 
         FRETTRUE 
         ALLOW      BY
         DNDEF
         FDSR       D,106 
DT1      SUBROUT    102   CDINDEXPROCESS
  
         DNDEF      COMMAOPT
         FRETTRUE 
         BRANCH     DT1 
  
TAB42    TSTCONT    CDIOBIT                       TEXT
         FDIAGNOS   D,93,LASTATOM 
         RESWORD    LENGTH
         FDSR       D,94
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    92   SETUPTEXTLENGTH
  
         RETTRUE
  
TAB43    TSTCONT    CDIOBIT                       STATUS
         FDIAGNOS   D,95,LASTATOM 
         RESWORD    KEY 
         FDSR       D,96
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    93   SETUPSTATUSKEY 
  
         RETTRUE
  
TAB44    TSTCONT    CDOUTPBT                      ERROR 
         FDIAGNOS   D,97,LASTATOM 
         RESWORD    KEY 
         FDSR       D,98
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    94   SETUPERRORKEY
  
         RETTRUE
TAB45    RESWORD    DATE                          MESSAGE 
         TBRANCH    MD
         RESWORD    COUNT 
         TBRANCH    MC
         RESWORD    TIME
         FDSR       D,99
         TSTCONT    CDINPBT 
         FDIAGNOS   D,100,LASTATOM
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    95   SETUPMESSAGETIME 
  
         RETTRUE
MD       TSTCONT    CDINPBT 
         FDIAGNOS   D,101,LASTATOM
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    96   SETUPMESSAGEDATE 
  
         RETTRUE
MC       TSTCONT    CDINPBT 
         FDIAGNOS   D,88,LASTATOM 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    90   SETUPQUEUEDEPTH
  
         RETTRUE
  
TAB46    TSTCONT    CDINPBT                       END 
         FDIAGNOS   D,102,LASTATOM
         RESWORD    KEY 
         FDSR       D,103 
         ALLOW      IS
         DNDEF
         FDSR       D,107 
         SUBROUT    97   SETUPENDKEY
  
         RETTRUE
  
TAB48    SETFLAG    CMDTRACE                      TRACEON 
         RETURNX
TAB49    CLRFLAG    CMDTRACE                      TRACEOFF
         RETURNX
           USE   DD6BITS
          VFD   6/0 
          VERB   END       33 
          VERB   PICTURE   42 
          VERB   COMP      49 
          VERB   DATA      52 
          VERB   FILE      57 
          VERB   JUSTIFID  61 
          VERB   SIGN      79 
          VERB   SYNC      83 
          VERB   TEXT      85 
          VERB   BLANK    100 
          VERB   BLOCK    101 
         VERB   COUNT   105 
          VERB   ERROR    109 
          VERB   INDEX    114 
          VERB   LABEL    116 
          VERB   QUEUE    120 
          VERB   USAGE    130 
          VERB   VALUE    132 
          VERB   COMP1    143 
          VERB   COMP2    144 
          VERB   COMP4    145 
          VERB   LINAGE   154 
          VERB   OCCURS   157 
          VERB   RECORD   160 
          VERB   REPORT   161 
          VERB   SOURCE   166 
          VERB   STATUS   167 
          VERB   DISPLAY  174 
          VERB   INDEXED  179 
          VERB   LEADING  183 
          VERB   LINKAGE  185 
          VERB   MESSAGE  186 
          VERB   RENAMES  198 
          VERB   REPORTS  199 
          VERB   EXTERNAL 227 
          VERB   SYMBOLIC 233 
          VERB   TRAILING 236 
          VERB   ASCENDNG 240 
          VERB   RECORDNG 249 
          VERB   REDEFINS 250 
          VERB   DESCNDNG 260 
          VERB   DESTINTN 275 
          VERB   SUBQUE1  281 
          VERB   SUBQUE2  282 
          VERB   SUBQUE3  283 
          VERB   COMMUNIC 293 
          VERB   WKNGSTOR 307 
          VERB   CODESET  339 
          VERB   TRACEON  342 
          VERB   TRACEOFF 345 
          VERB   COMMSTOR 356 
          VERB   SECSTOR  357 
           USE  DDVERBS 
         VFD    15/0
          VFD   15/TAB46
          VFD   15/TAB9 
          VFD   15/TAB20
          VFD   15/TAB4 
          VFD   15/TAB29
          VFD   15/TAB5 
          VFD   15/TAB17
          VFD   15/TAB18
          VFD   15/TAB42
          VFD   15/TAB1 
          VFD   15/TAB2 
         VFD     15/MC
          VFD   15/TAB44
          VFD   15/TAB24
          VFD   15/TAB6 
          VFD   15/TAB36
          VFD   15/TAB25
          VFD   15/TAB26
          VFD   15/TAB21
          VFD   15/TAB22
          VFD   15/TAB23
          VFD   15/TAB7 
          VFD   15/TAB8 
          VFD   15/TAB10
          VFD   15/TAB13
          VFD   15/TAB40
          VFD   15/TAB43
          VFD   15/TAB19
          VFD   15/TAB51
          VFD   15/TAB15
          VFD   15/TAB33
          VFD   15/TAB45
          VFD   15/TAB50
          VFD   15/TAB14
          VFD   15/TAB52
          VFD   15/TAB35
          VFD   15/TAB16
          VFD   15/TAB27
          VFD   15/TAB11
          VFD   15/TAB12
          VFD   15/TAB28
          VFD   15/TAB41
          VFD   15/TAB37
          VFD   15/TAB38
          VFD   15/TAB39
          VFD   15/TAB34
          VFD   15/TAB32
          VFD   15/TAB3 
          VFD   15/TAB48
          VFD   15/TAB49
          VFD   15/TAB30
          VFD   15/TAB31
        END 
