*DECK -SKEL-                                                             DUMMY
          IDENT  COBOL5 
*                                                                        DUMMY
          LCC    OVERLAY(COB5,0,0,OV=29)
*                                                                        DUMMY
          END                                                            DUMMY
          IDENT  CBLIST                                                  DUMMY
          END                                                            DUMMY
          IDENT  CMM$SYP
          END 
          IDENT  COBIO
          END 
          IDENT  COBTIME
          END 
          IDENT  DEC                                                     DUMMY
          END                                                            DUMMY
          IDENT  DEBUG
          END 
          IDENT  DISPLAY                                                 DUMMY
          END                                                            DUMMY
          IDENT  ECSRW
          END 
          IDENT  GETPLST
          END 
          IDENT  LIBFET 
          END 
          IDENT  LOVER
          END 
          IDENT  INTERCE
          END 
          IDENT  ITIME
          END 
          IDENT  OCT                                                     DUMMY
          END                                                            DUMMY
          IDENT  OUTPUT 
          END 
          IDENT  PRINTOV
          END 
          IDENT  PUTMSG 
          END 
          IDENT  PUTTIME
          END 
          IDENT  RLTIME 
          END 
          IDENT  SCFLTAB
          END 
          IDENT  SETPLST
          END 
          IDENT   SFETS 
          END 
          IDENT  SHIFT
          END 
          IDENT  STIME
          END 
          IDENT  TIMER
          END 
          IDENT  TOBIN                                                   DUMMY
          END                                                            DUMMY
          IDENT  VIRTUAL
          END 
          IDENT  VV 
          END 
          IDENT  COPYD4 
          END 
          IDENT  COB5010
          LCC    OVERLAY(COB5,1,0)
* 
          END 
          IDENT COBINIT 
          END 
          IDENT  CCKRACK
          END 
          IDENT  FDLFET 
          END 
          IDENT  GETIPS 
          END 
          IDENT INITCCT 
          END 
          IDENT  INITFDL
          END 
          IDENT SETBFS
          END 
          IDENT  TABINIT
          END 
          IDENT  COB5020
* 
          LCC    OVERLAY(COB5,2,0)
* 
          END 
          IDENT  COB200 
          END 
          IDENT  COB5021
* 
          LCC    OVERLAY(COB5,2,1)
* 
          END 
          IDENT  COBSS
          END 
          IDENT  COBOLSS
          END 
          IDENT  ABORTSS
          END 
          IDENT  BKSPSQ 
          END 
          IDENT  BUG020S
          END 
          IDENT  CHKRW
          END 
          IDENT  COPYDAT
          END 
          IDENT  DAIO 
          END 
          IDENT  DATECMP
          END 
          IDENT  DBDIAG 
          END 
          IDENT  DEBUGPR
          END 
          IDENT  DDLPRS 
          END 
          IDENT  DDLSS
          END 
          IDENT   GETPLIN DEX 
          END 
          IDENT  GETPIC 
          END 
          IDENT  GETSTR 
          END 
          IDENT  HASH 
          END 
          IDENT  INITRWI
          END 
          IDENT  INTERPR ETTER
          END 
          IDENT  LJZF 
          END 
          IDENT  NEWLINE
          END 
          IDENT  OVLSUBS
          END 
          IDENT  PRINTIT
          END 
          IDENT  READIT 
          END 
          IDENT   RELPLIN DEX 
          END 
          IDENT  REPLACE
          END 
          IDENT  REPLDON
          END 
          IDENT  RWSRCH 
          END 
          IDENT  SETCOPY
          END 
          IDENT  SETLIB 
          END 
          IDENT  SETLINE
          END 
          IDENT  SETPAIR
          END 
          IDENT  SKIPCLA SSIFY
          END 
          IDENT  TBLPROC
          END 
          IDENT  TKNCLAS SIFY 
          END 
          IDENT  COB5022
* 
          LCC    OVERLAY(COB5,2,2)
* 
         END
          IDENT  COBPA
          END 
          IDENT  PA 
          END 
          IDENT  PATTDIS
          END 
          IDENT  COB5023
* 
          LCC    OVERLAY(COB5,2,3)
* 
          END 
           IDENT COBDBT 
           END
          IDENT  DAIO 
          END 
         IDENT   DBTRANS
         END
          IDENT ADD$AUX 
          END 
          IDENT LJZF
          END 
          IDENT SRCH$FU 
          END 
          IDENT SRCH$AU 
          END 
          IDENT C$SRCH$ 
          END 
          IDENT WA$TO$D 
          END 
          IDENT ADD$URW 
          END 
          IDENT BASIC$D 
          END 
          IDENT BASIC$F 
          END 
          IDENT BUILD$0 
          END 
          IDENT BYTEOFF 
          END 
          IDENT BUILD$D 
          END 
          IDENT BUILD$F 
          END 
          IDENT BUILDFD 
          END 
          IDENT BLDDBFS 
          END 
          IDENT CLOSEDO 
          END 
          IDENT CT$ADD
          END 
          IDENT DEBUGPR 
          END 
          IDENT GETCTXT 
          END 
          IDENT  HASH 
          END 
          IDENT IERR$ 
          END 
          IDENT INDEX 
          END 
          IDENT KEY$D 
          END 
          IDENT KEY$F 
          END 
          IDENT OCCUR 
          END 
          IDENT REDEF 
          END 
          IDENT RENAME
          END 
          IDENT SIZE
          END 
          IDENT NXTAREA 
          END 
          IDENT NXTCTXT 
          END 
          IDENT NXTDCE
          END 
          IDENT NXTITM
          END 
          IDENT NXTKI 
          END 
          IDENT NXTREC
          END 
          IDENT  NXTREL 
          END 
          IDENT NXTRKEY 
          END 
          IDENT NXTRNRD 
          END 
          IDENT RESOLWA 
          END 
          IDENT TYPE
          END 
          IDENT USAGE 
          END 
          IDENT VERSION 
          END 
           IDENT XERR$
           END
          IDENT  COB5050
* 
          LCC    OVERLAY(COB5,5,0)
* 
          END 
          IDENT  COBDP
          END 
          IDENT  DP 
          END 
          IDENT  DRIVER 
          END 
          IDENT  D$SUBS 
          END 
          IDENT  E$SUBS 
          END 
          IDENT  DTABLES
          END 
          IDENT  ETABLES
          END 
          IDENT  COB5060
* 
          LCC    OVERLAY(COB5,6,0)
          END 
          IDENT  COBDA
          END 
          IDENT  DA 
          END 
           IDENT DA2                                                    000321
           END                                                          000331
           IDENT DA3                                                    000341
           END                                                          000351
           IDENT DA4                                                    000361
           END                                                          000371
          IDENT  COB5070
* 
          LCC    OVERLAY(COB5,7,0)
* 
          END 
          IDENT  COBRP
          END 
          IDENT  RP 
          END 
          IDENT  LDRPOVL
          END 
          IDENT  RPADUMP
          END 
          IDENT  RPDUMP 
          END 
          IDENT  RPPROCS
          END 
          IDENT  COB5071
* 
          LCC    OVERLAY(COB5,7,1)
* 
          END 
          IDENT  RPARSER
          END 
          IDENT  DRIVER 
          END 
          IDENT  RTABLES
          END 
          IDENT  R$SUBS 
          END 
          IDENT  COB5072
* 
          LCC    OVERLAY(COB5,7,2)
* 
          END 
          IDENT  RANALYZ
          END 
          IDENT  ARGROUP
          END 
          IDENT  BODYGRP
          END 
          IDENT  BWZ$RT 
          END 
          IDENT  CLAUSEC
          END 
          IDENT  CNTRLCL
          END 
          IDENT  CODECL 
          END 
          IDENT  COLMNCL
          END 
          IDENT  CTBUILD
          END 
          IDENT  F$ANALY
          END 
          IDENT  GANALYZ
          END 
          IDENT  GRPIND 
          END 
          IDENT  IPCT$RT
          END 
          IDENT  IRT$RT 
          END 
          IDENT  JUSTCL 
          END 
          IDENT  LINECL 
          END 
          IDENT  LVL01CL
          END 
          IDENT  MASSAGE
          END 
          IDENT  NXTGRCL
          END 
          IDENT  OVERLAP
          END 
          IDENT  PAGECL 
          END 
          IDENT  PAGECOM
          END 
          IDENT  PAGEF
          END 
          IDENT  PAGEH
          END 
          IDENT  PCLC$RT
          END 
          IDENT  REPORTF
          END 
          IDENT  REPORTG
          END 
          IDENT  REPORTH
          END 
          IDENT  SORCECL
          END 
          IDENT  SUMCL
          END 
          IDENT  TYPECL 
          END 
          IDENT  VALUECL
          END 
          IDENT  XFORM
          END 
          IDENT  COB5110
* 
          LCC    OVERLAY(COB5,11,0) 
* 
          END 
          IDENT  COBRG
          END 
          IDENT  RG 
          END 
          IDENT  CONTRL 
          END 
          IDENT  FOOTING
          END 
          IDENT  G$DTAIL
          END 
          IDENT  HEAD 
          END 
          IDENT  INTERSC
          END 
          IDENT  PAGERTS
          END 
          IDENT  RGCTEXT
          END 
          IDENT  RGPROCS
          END 
          IDENT  COB5120
* 
          LCC    OVERLAY(COB5,12,0) 
* 
          END 
          IDENT  COBPP
          END 
          IDENT  GTXTDMP
          END 
         IDENT   LDRPOVL
         END
          IDENT  LDPPSET
          END 
          IDENT  PQ 
          END 
          IDENT  PQ2
          END 
          IDENT  PP 
          END 
          IDENT MANAGER 
          END 
          IDENT  DRIVER 
* 
*         THIS ROUTINE IS COMMON WITH D-PARSER (OVERLAY 5,0). 
*                IT RESIDES ON THE PL WITH THE REST OF THE ROUTINES 
*                IN THAT OVERLAY
          END 
          IDENT  PTABLES
          END 
          IDENT  SETLOAD
          END 
         IDENT   SET1 
         END
         IDENT   SET2 
         END
         IDENT   SET3 
         END
         IDENT   SET4 
         END
         IDENT   SET5 
         END
          IDENT  SET7 
          END 
         IDENT   COB5121
         LCC     OVERLAY(COB5,12,1) 
         END
         IDENT   PPBEGIN
         END
         IDENT   COB5122
         LCC     OVERLAY(COB5,12,2) 
         END
         IDENT   PPEND
         END
         IDENT   COB5123
         LCC     OVERLAY(COB5,12,3) 
         END
         IDENT   PPSET6 
         END
         IDENT   SET6 
         END
         IDENT   COB5125
         LCC     OVERLAY(COB5,12,5) 
         END
         IDENT   PPSET8 
         END
         IDENT   SET8 
         END
         IDENT   COB5126
         LCC     OVERLAY(COB5,12,6) 
         END
         IDENT   PPSET9 
         END
         IDENT   SET9 
         END
         IDENT   COB5127
         LCC     OVERLAY(COB5,12,7) 
         END
         IDENT   PPSET10
         END
         IDENT   SET10
         END
          IDENT  COB5140
* 
          LCC    OVERLAY(COB5,14,0) 
          END 
          IDENT  BCDEQ
          END 
          IDENT  COBLP
          END 
          IDENT  FILLC
          END 
          IDENT  LP 
          END 
          IDENT  LIT2RN 
          END 
          IDENT LSEARCH 
          END 
          IDENT  SCANLIT
          END 
          IDENT  SUBSTR 
          END 
          IDENT  COB5160
          LCC    OVERLAY(COB5,16,0) 
          END 
          IDENT  COBXF
          END 
          IDENT  XF 
          END 
          IDENT  COB5200                                                 DUMMY
*                                                                        DUMMY
          LCC    OVERLAY(COB5,20,0)                                      DUMMY
*                                                                        DUMMY
          END                                                            DUMMY
          IDENT  DEFBLOC
          END 
          IDENT  GETLFN 
          END 
          IDENT  LIT2RN 
          END 
          IDENT  NEXTLAB
          END 
          IDENT  NEXTR
          END 
          IDENT  NLITCOM
          END 
          IDENT  PRSUBR 
          END 
          IDENT  RN2BIN 
          END 
          IDENT  SCANLIT
          END 
          IDENT  WOTEXT 
          END 
          IDENT  COB5201
* 
          LCC    OVERLAY(COB5,20,1) 
* 
          END 
          IDENT  COBPT
          END 
          IDENT  CRFIT
          END 
          IDENT  DIAGSCN
          END 
          IDENT  DIAGTBL
          END 
          IDENT  PROCTAB
          END 
          IDENT  COB5202
* 
          LCC    OVERLAY(COB5,20,2) 
* 
          END 
          IDENT  COBCG
          END 
          IDENT  BUG202P
          END 
          IDENT  BUG202R
          END 
          IDENT  BUG202S
          END 
          IDENT  BUG202T
          END 
          IDENT  CGABORT
          END 
          IDENT  CGADV
          END 
          IDENT  CGDNATS
          END 
          IDENT  CGENINT
          END 
          IDENT  CGENSY 
          END 
          IDENT  CGETCET
          END 
          IDENT  CGREGMV
          END 
          IDENT  CGSETRG
          END 
          IDENT  CGSTART                                                 DUMMY
          END                                                            DUMMY
          IDENT  CGVERB                                                  DUMMY
          END                                                            DUMMY
          IDENT  CGLODP1
          END 
          IDENT  CGSTOP1
          END 
          IDENT  DUMPFLG                                                 DUMMY
          END                                                            DUMMY
          IDENT  EDITPAT
          END 
          IDENT  EVALCFN
          END 
          IDENT  FLUSHPL
          END 
          IDENT  FTNLIB 
          END 
          IDENT  GANMOVE
          END 
          IDENT  GCMUMOV
          END 
          IDENT  GARITH 
          END 
          IDENT  GBOOLOP
          END 
          IDENT  GBRANCH
          END 
          IDENT  GCONDIT
          END 
          IDENT  GCONMUL
          END 
          IDENT  GIO
          END 
          IDENT  GMCS 
          END 
          IDENT  GMOVAN 
          END 
          IDENT  GMOVAS 
          END 
          IDENT GMOVBL
          END 
          IDENT  GMOVC1 
          END 
          IDENT  GMOVC2 
          END 
          IDENT  GMOVC4 
          END 
          IDENT  GMOVE
          END 
          IDENT  GMOVECS
          END 
          IDENT  GMOVER 
          END 
          IDENT  GMOVLIT
          END 
          IDENT  GMOVLOD
          END 
          IDENT  GMOVND 
          END 
          IDENT  GMOVRA 
          END 
          IDENT  GMOVRN 
          END 
          IDENT  GMOVR1 
          END 
          IDENT  GMOVR2 
          END 
          IDENT  GMOVR4 
          END 
          IDENT  GMOVSA 
          END 
          IDENT  GMOVSCA
          END 
          IDENT  GMOVSTO
          END 
          IDENT  GMOVSUB
          END 
          IDENT  GMOVVG 
          END 
          IDENT  GSET 
          END 
          IDENT  GSIZE
          END 
          IDENT  GSM
          END 
          IDENT  GSTRING
          END 
          IDENT GSUBSC
          END 
          IDENT  GTEXTAT OM 
          END 
          IDENT  LITPOOL
          END 
          IDENT  SETLIT 
          END 
          IDENT  SPECSUB
          END 
          IDENT  STOFUNC
          END 
          IDENT  VALFUNC
          END 
          IDENT  COB5203
*                                                                        DUMMY
          LCC    OVERLAY(COB5,20,3) 
*                                                                        DUMMY
          END                                                            DUMMY
          IDENT  COBAS
          END 
          IDENT  COBASM                                                  DUMMY
          END                                                            DUMMY
          IDENT       ADDSUBL 
          END 
          IDENT  ADJADDR                                                 DUMMY
          END                                                            DUMMY
          IDENT  ASMABT 
          END 
          IDENT  ASM2                                                    DUMMY
          END                                                            DUMMY
          IDENT  BUG203S
          END 
          IDENT  CLOBIN 
          END 
          IDENT  GETSEQ                                                  DUMMY
          END                                                            DUMMY
          IDENT  INCADDR                                                 DUMMY
          END                                                            DUMMY
          IDENT  INSTGEN                                                 DUMMY
          END                                                            DUMMY
          IDENT  INSTOUT
          END 
          IDENT  LABELPR
          END 
          IDENT  MACROS                                                  DUMMY
          END                                                            DUMMY
          IDENT  MOD
          END 
          IDENT  OPNBIN 
          END 
          IDENT  PUTLINK
          END    PUTLINK
          IDENT  PUTBIN 
          END 
          IDENT  PUTPIDL
          END 
          IDENT  PUTPRFX
          END 
          IDENT  P2TBL1                                                  DUMMY
          END                                                            DUMMY
          IDENT  P2TBL2                                                  DUMMY
          END                                                            DUMMY
          IDENT  READINS                                                 DUMMY
          END                                                            DUMMY
          IDENT  READSEQ                                                 DUMMY
          END                                                            DUMMY
          IDENT  RSHIFT                                                  DUMMY
          END                                                            DUMMY
          IDENT  TABLES                                                  DUMMY
          END                                                            DUMMY
          IDENT  COB5204
* 
          LCC    OVERLAY(COB5,20,4) 
* 
          END 
          IDENT  AUXTDMP
          END 
          IDENT  DNATDMP
          END 
          IDENT  DUMPS
          END 
          IDENT  FDLTDMP
          END 
          IDENT  FNATDMP
          END 
          IDENT  GTXTDMP
          END 
          IDENT  LATDMP 
          END 
          IDENT  PNATDMP
          END 
          IDENT  POOLDMP
          END 
          IDENT  SELDUMP
          END 
          IDENT  COB5205
* 
          LCC    OVERLAY(COB5,20,5) 
* 
          END 
          IDENT  DATAMAP
          END 
          IDENT  COB5300
* 
          LCC    OVERLAY(COB5,30,0) 
* 
          END 
          IDENT  COBDF
          END 
          IDENT  DFLDOV 
          END 
          IDENT  TERMPRO
          END 
          IDENT  COB5301
* 
          LCC    OVERLAY(COB5,30,1) 
* 
          END 
          IDENT D$FORMA 
          END 
          IDENT  QSORT4 
          END 
          IDENT  DFTABLE
          END 
          IDENT  DF 
          END 
