Retro1.org codex

*DECK SKENIP
          IDENT  NIP
*IF,-DEF,MSS
          LCC    OVERLAY(NIP,0,0) 
*ENDIF
*IF,DEF,MSS      FOR CDC INTERNAL USE ONLY
          LCC    OVERLAY(NIP,0,0,OV=120)
*ENDIF           FOR CDC INTERNAL USE ONLY
          END    NIP
          IDENT  ABORT
          END 
          IDENT  BCONV
          END 
          IDENT  BDELINK
          END 
          IDENT  BFSCAN 
          END 
          IDENT  BLINK
          END 
          IDENT  BRLBLK 
          END 
          IDENT  BWLBLK 
          END 
          IDENT  CONSOL 
          END 
          IDENT  DAYTIME
          END 
          IDENT  DELCDR 
          END 
          IDENT  HALLOCN
          END 
          IDENT  HBSMABH
          END 
          IDENT  HBSTTP 
          END 
          IDENT  HCSTTP 
          END 
          IDENT  HFASTQ 
          END 
          IDENT  HGETDA 
          END 
          IDENT  HGETNWL
          END 
          IDENT  HHIR 
          END 
          IDENT  HPAWL
          END 
          IDENT  HPGET
          END 
          IDENT  HPGETMM
          END 
          IDENT  HPGETSM
          END 
          IDENT  HPPUT
          END 
          IDENT  HPPUTQ 
          END 
          IDENT  HPWAIT 
          END 
          IDENT  HPXFR
          END 
          IDENT  HRDPUT 
          END 
          IDENT  HRELPWL
          END 
          IDENT  HRELWWL
          END 
          IDENT  HSCAND 
          END 
          IDENT  HSFCACK
          END 
          IDENT  HUPDDAW
          END 
          IDENT  HWLP 
          END 
          IDENT  HWRAVAL
          END 
          IDENT  HWRTDA 
          END 
          IDENT  ILOFS
          END 
          IDENT INSCDR
          END 
          IDENT  IRECVR 
          END 
          IDENT  ITRACE 
          END 
          IDENT  KPUT 
          END 
          IDENT  LOCLLCB
          END 
          IDENT  LOCNCNT
          END 
          IDENT  MCLRIL 
          END 
          IDENT  MGETS
          END 
          IDENT  MGROW
          END 
          IDENT  MRELS
          END 
          IDENT  MSEIZE 
          END 
          IDENT  MSETIL 
          END 
          IDENT  NBSTTP 
          END 
          IDENT  NCSTTP 
          END 
          IDENT  NEIB 
          END 
          IDENT  NEIB1
          END 
          IDENT  NFOB 
          END 
          IDENT  NFOB1
          END 
          IDENT  NNETREL
          END 
          IDENT  NXBLINK
          END 
          IDENT  NPBACK 
          END 
          IDENT  NPNIPSM
          END 
          IDENT  NPPWL
          END 
          IDENT  NRCSSTP
          END 
          IDENT  NXBLOCK
          END 
          IDENT  OCFL 
          END 
          IDENT  OCTDIS 
          END 
          IDENT  OMOVE
          END 
          IDENT  OMSG 
          END 
          IDENT  OPEN 
          END 
          IDENT  OPITRCE
          END 
          IDENT  OPPHANG
          END 
          IDENT  OPRETN 
          END 
          IDENT  OSCCALL
          END 
          IDENT  OSCHAPP
          END 
          IDENT  OSWAPIN
          END 
          IDENT  OSREQ
          END 
          IDENT  OTIME
          END 
          IDENT  OVLCALL
          END 
          IDENT  PURGREG
          END 
          IDENT  READ 
          END 
          IDENT  REWIND 
          END 
          IDENT  ROUTE
          END 
          IDENT  RDUMP
          END 
          IDENT  TWRITE 
          END 
          IDENT  WRITEO 
          END 
          IDENT  WRITER 
          END 
          IDENT  XCTLW
          END 
          IDENT  XDUMP
          END 
          IDENT  XEXEC
          END 
          IDENT  XRECALL
          END 
          IDENT  XSACB
          END 
          IDENT  XSTTP
          END 
          IDENT  XTRACE 
          END 
          IDENT  OVLBUF 
          ENTRY  PRIBUF,SECBUF,ENDOVL 
          ENTRY  NBTHEAD,NBTE 
* 
*         THIS IS A DUMMY SUBROUTINE WHICH IS USED TO RESERVE SPACE 
*         IN BLANK COMMON FOR THE OVERLAYS
* 
          USE    // 
 PRIBUF   BSS    700B     PRIMARY BUFFER SIZE 
 SECBUF   BSS    2100B       SECONDARY OVERLAY BUFFER SIZE
 ENDOVL   BSS    0
 NBTHEAD  BSS    1
 NBTE     BSS    0
          USE    *
          END 
          IDENT  NIPPRIM
*CALL MACDEF
*CALL OVLNAME 
   LCCM NIPPRIM1,NIPPRIM2,PRIBUF
          END 
          IDENT  BLDACB 
*CALL MACDEF
*CALL OVLNAME 
   LCCM BLDACB1,BLDACB2,SECBUF
          END    BLDACB 
          IDENT  BLDKWL 
          END 
          IDENT  BLDLLCB
*CALL MACDEF
*CALL OVLNAME 
   LCCM BLDLLCB1,BLDLLCB2,SECBUF
          END    BLDLLCB
          IDENT  BLDKWL 
          END 
          IDENT  COMPCON
*CALL MACDEF
*CALL OVLNAME 
  LCCM COMPCON1,COMPCON2,SECBUF 
          END    COMPCON
          IDENT  UPDACNB
          END 
          IDENT  NICNTEN
          END 
          IDENT  NRELBLK
          END 
          IDENT  NICNAPX
          END 
          IDENT  HFNTSM 
*CALL MACDEF
*CALL OVLNAME 
  LCCM HFNTSM1,HFNTSM2,SECBUF 
          END    HFNTSM 
          IDENT  XCDD 
          END 
          IDENT  HCACRQA
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCACRQA1,HCACRQA2,SECBUF
          END    HCACRQA
          IDENT  HCNONFL
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCNONFL1,HCNONFL2,SECBUF
          END    HCNONFL
          IDENT  HCONCBU
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCONCBU1,HCONCBU2,SECBUF
          END    HCONCBU
          IDENT  HCONEND
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCONEND1,HCONEND2,SECBUF
          END    HCONEND
          IDENT  HCRCBU 
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCRCBU1,HCRCBU2,SECBUF
          END    HCRCBU 
          IDENT  HCRIAPR
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCRIAPR1,HCRIAPR2,SECBUF
          END    HCRIAPR
          IDENT  HCRRCNR
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCRRCNR1,HCRRCNR2,SECBUF
          END    HCRRCNR
          IDENT  HCRTRMN
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCRTRMN1,HCRTRMN2,SECBUF
          END    HCRTRMN
          IDENT  HCSUPCB
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCSUPCB1,HCSUPCB2,SECBUF
          END    HCSUPCB
          IDENT  HLGLERR
*CALL MACDEF
*CALL OVLNAME 
   LCCM HLGLERR1,HLGLERR2,SECBUF
          END    HLGLERR
          IDENT  HPGTF
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPGTF1,HPGTF2,SECBUF
          END    HPGTF
          IDENT  HPNONAP
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNONAP1,HPNONAP2,SECBUF
          END HPNONAP 
          IDENT  HPNONSR
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNONSR1,HPNONSR2,SECBUF
          END HPNONSR 
          IDENT  HPSHISD
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPSHISD1,HPSHISD2,SECBUF
          END    HPSHISD
          IDENT  HPRUONX
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPRUONX1,HPRUONX2,SECBUF
          END    HPRUONX
          IDENT  HSFCBRK
*CALL MACDEF
*CALL OVLNAME 
   LCCM HSFCBRK1,HSFCBRK2,SECBUF
          END    HSFCBRK
          IDENT  HSFCINA
*CALL MACDEF
*CALL OVLNAME 
   LCCM HSFCINA1,HSFCINA2,SECBUF
          END    HSFCINA
          IDENT  HSINITR
*CALL MACDEF
*CALL OVLNAME 
   LCCM HSINITR1,HSINITR2,SECBUF
          END    HSINITR
          IDENT  HSINTRU
*CALL MACDEF
*CALL OVLNAME 
   LCCM HSINTRU1,HSINTRU2,SECBUF
          END    HSINTRU
          IDENT  HSWACNB
*CALL MACDEF
*CALL OVLNAME 
   LCCM HSWACNB1,HSWACNB2,SECBUF
          END    HSWACNB
          IDENT  RELACNB
          END 
          IDENT  MREDUCE
          END 
          IDENT  HTCHAR 
*CALL MACDEF
*CALL OVLNAME 
   LCCM HTCHAR1,HTCHAR2,SECBUF
          END    HTCHAR 
          IDENT  INIPD
*CALL MACDEF
*CALL OVLNAME 
   LCCM INIPD1,INIPD2,SECBUF
          END    INIPD
          IDENT  NXZFN
          END 
          IDENT  FSTATUS
          END 
          IDENT  KAPIGP 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KAPIGP1,KAPIGP2,SECBUF
          END    KAPIGP 
          IDENT  KAPPMOD
*CALL MACDEF
*CALL OVLNAME 
   LCCM KAPPMOD1,KAPPMOD2,SECBUF
          END    KAPPMOD
          IDENT  KCHANGE
*CALL MACDEF
*CALL OVLNAME 
  LCCM KCHANGE1,KCHANGE2,SECBUF 
          END    KCHANGE
          IDENT  KDISRC 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KDISRC1,KDISRC2,SECBUF
          END    KDISRC 
          IDENT  KSTPAGE
*CALL MACDEF
*CALL OVLNAME 
   LCCM KSTPAGE1,KSTPAGE2,SECBUF
          END    KSTPAGE
          IDENT  KHOPDIS
*CALL MACDEF
*CALL OVLNAME 
   LCCM KHOPDIS1,KHOPDIS2,SECBUF
          END    KHOPDIS
          IDENT  KNAMCOM
*CALL MACDEF
*CALL OVLNAME 
   LCCM KNAMCOM1,KNAMCOM2,SECBUF
          END    KNAMCOM
          IDENT  XDUMPFL
          END 
          IDENT  XCDD 
          END 
          IDENT  XCOD 
          END 
          IDENT  XTERMST
          END 
          IDENT  OCTCON 
          END 
          IDENT  KNAMMOD
*CALL MACDEF
*CALL OVLNAME 
   LCCM KNAMMOD1,KNAMMOD2,SECBUF
          END    KNAMMOD
          IDENT  KNAMDFL
*CALL MACDEF
*CALL OVLNAME 
   LCCM KNAMDFL1,KNAMDFL2,SECBUF
          END    KNAMDFL
          IDENT  KPCLNUP
*CALL MACDEF
*CALL OVLNAME 
   LCCM KPCLNUP1,KPCLNUP2,SECBUF
          END    KPCLNUP
          IDENT  KPTRACE
*CALL MACDEF
*CALL OVLNAME 
   LCCM KPTRACE1,KPTRACE2,SECBUF
          END    KPTRACE
          IDENT  KSTTUPD
*CALL MACDEF
*CALL OVLNAME 
   LCCM KSTTUPD1,KSTTUPD2,SECBUF
          END    KSTTUPD
          IDENT  KSENDHM
*CALL MACDEF
*CALL OVLNAME 
   LCCM KSENDHM1,KSENDHM2,SECBUF
          END    KSENDHM
          IDENT  NBADBSN
*CALL MACDEF
*CALL OVLNAME 
   LCCM NBADBSN1,NBADBSN2,SECBUF
          END    NBADBSN
          IDENT  NCREGCP
*CALL MACDEF
*CALL OVLNAME 
   LCCM NCREGCP1,NCREGCP2,SECBUF
          END    NCREGCP
          IDENT  NLOBCH 
          END 
          IDENT  NICNTEA
*CALL MACDEF
*CALL OVLNAME 
   LCCM NICNTEA1,NICNTEA2,SECBUF
          END    NICNTEA
          IDENT  NICTEAX
*CALL MACDEF
*CALL OVLNAME 
   LCCM NICTEAX1,NICTEAX2,SECBUF
          END    NICTEAX
          IDENT  NNPIIN 
*CALL MACDEF
*CALL OVLNAME 
   LCCM NNPIIN1,NNPIIN2,SECBUF
          END    NNPIIN 
          IDENT  XDUMPFL
          END 
          IDENT  XCOD 
          END 
          IDENT  NPBRK
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPBRK1,NPBRK2,SECBUF
          END    NPBRK
          IDENT  NPREGCN
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPREGCN1,NPREGCN2,SECBUF
          END    NPREGCN
          IDENT  NPRLB
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPRLB1,NPRLB2,SECBUF
          END    NPRLB
          IDENT  NTCNTAN
*CALL MACDEF
*CALL OVLNAME 
   LCCM NTCNTAN1,NTCNTAN2,SECBUF
          END    NTCNTAN
          IDENT  NTCNTAR
*CALL MACDEF
*CALL OVLNAME 
   LCCM NTCNTAR1,NTCNTAR2,SECBUF
          END    NTCNTAR
          IDENT  ODAYFL 
*CALL MACDEF
*CALL OVLNAME 
   LCCM ODAYFL1,ODAYFL2,SECBUF
          END    ODAYFL 
          IDENT  OSCPSI 
*CALL MACDEF
*CALL OVLNAME 
   LCCM OSCPSI1,OSCPSI2,SECBUF
          END    OSCPSI 
          IDENT  RELACB 
*CALL MACDEF
*CALL OVLNAME 
   LCCM RELACB1,RELACB2,SECBUF
          END    RELACB 
          IDENT  BLDKWL 
          END 
          IDENT MREDUCE 
          END 
          IDENT  RELLLCB
*CALL MACDEF
*CALL OVLNAME 
   LCCM RELLLCB1,RELLLCB2,SECBUF
          END    RELLLCB
          IDENT  BLDKWL 
          END 
          IDENT  MREDUCE
          END 
          IDENT  RELNCNB
*CALL MACDEF
*CALL OVLNAME 
   LCCM RELNCNB1,RELNCNB2,SECBUF
          END    RELNCNB
          IDENT  SENDACC
*CALL MACDEF
*CALL OVLNAME 
  LCCM SENDACC1,SENDACC2,SECBUF 
          END    SENDACC
          IDENT  UPACNB3
          END 
          IDENT  HCRACCU
          END 
          IDENT  STPHERR
*CALL MACDEF
*CALL OVLNAME 
   LCCM STPHERR1,STPHERR2,SECBUF
          END    STPHERR
          IDENT  XCDD 
          END 
          IDENT  STPNERR
*CALL MACDEF
*CALL OVLNAME 
   LCCM STPNERR1,STPNERR2,SECBUF
          END    STPNERR
          IDENT  XCDD 
          END 
          IDENT  STRTSW 
*CALL MACDEF
*CALL OVLNAME 
   LCCM STRTSW1,STRTSW2,SECBUF
          END    STRTSW 
          IDENT  HCONREQ
          END 
          IDENT  HCRSWHN
          END 
          IDENT  RELACNB
          END 
          IDENT  MREDUCE
          END 
          IDENT  UPACNB4
*CALL MACDEF
*CALL OVLNAME 
   LCCM UPACNB41,UPACNB42,SECBUF
          END    UPACNB4
          IDENT  UPDNCNB
*CALL MACDEF
*CALL OVLNAME 
   LCCM UPDNCNB1,UPDNCNB2,SECBUF
          END    UPDNCNB
          IDENT  XENDNAM
*CALL MACDEF
*CALL OVLNAME 
   LCCM XENDNAM1,XENDNAM2,SECBUF
          END    XENDNAM
          IDENT  OSCEXIT
          END 
          IDENT  XCDD 
          END 
          IDENT  XDROP
          END 
          IDENT  XTERMST
          END 
          IDENT  XCLOST 
          END 
          IDENT  OCTCON 
          END 
          IDENT XERRMSG 
*CALL MACDEF
*CALL OVLNAME 
   LCCM XERRMSG1,XERRMSG2,SECBUF
          END    XERRMSG
          IDENT  XSAPPDL
*CALL MACDEF
*CALL OVLNAME 
   LCCM XSAPPDL1,XSAPPDL2,SECBUF
          END    XSAPPDL
          IDENT  HAPFAIL
*CALL MACDEF
*CALL OVLNAME 
   LCCM HAPFAIL1,HAPFAIL2,PRIBUF
          END 
          IDENT  HCHGICT
*CALL MACDEF
*CALL OVLNAME 
   LCCM HCHGICT1,HCHGICT2,PRIBUF
          END    HCHGICT
          IDENT  HDCSTMR
*CALL MACDEF
*CALL OVLNAME 
   LCCM HDCSTMR1,HDCSTMR2,PRIBUF
          END    HDCSTMR
          IDENT HDCTRU
*CALL MACDEF
*CALL OVLNAME 
   LCCM HDCTRU1,HDCTRU2,PRIBUF
          END    HDCTRU 
          IDENT  HFSPAWN
*CALL MACDEF
*CALL OVLNAME 
  LCCM HFSPAWN1,HFSPAWN2,PRIBUF 
          END    HFSPAWN
          IDENT  GETFIL 
          END 
          IDENT  HLSTDX 
*CALL MACDEF
*CALL OVLNAME 
   LCCM HLSTDX1,HLSTDX2,PRIBUF
          END    HLSTDX 
          IDENT  HLONOFF
*CALL MACDEF
*CALL OVLNAME 
   LCCM HLONOFF1,HLONOFF2,PRIBUF
          END    HLONOFF
          IDENT  HPDBGST
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPDBGST1,HPDBGST2,PRIBUF
          END    HPDBGST
          IDENT  HPFL 
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPFL1,HPFL2,PRIBUF
          END    HPFL 
          IDENT  HPKDISP
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPKDISP1,HPKDISP2,PRIBUF
          END    HPKDISP
          IDENT  HPNOFF 
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNOFF1,HPNOFF2,PRIBUF
          END    HPNOFF 
          IDENT  HPNOFFN
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNOFFN1,HPNOFFN2,PRIBUF
          END    HPNOFFN
          IDENT  HPNON
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNON1,HPNON2,PRIBUF
          END    HPNON
          IDENT  HPNONVF
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNONVF1,HPNONVF2,PRIBUF
          END    HPNONVF
          IDENT  HSFAPPL
          END 
          IDENT  HSNOFF 
          END 
          IDENT  HPNONSA
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNONSA1,HPNONSA2,PRIBUF
          END    HPNONSA
          IDENT  HPNPDRL
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPNPDRL1,HPNPDRL2,PRIBUF
          END    HPNPDRL
          IDENT  HPRUON 
*CALL MACDEF
*CALL OVLNAME 
  LCCM HPRUON1,HPRUON2,PRIBUF 
          END    HPRUON 
          IDENT  HPRUSM 
*CALL MACDEF
*CALL OVLNAME 
  LCCM HPRUSM1,HPRUSM2,PRIBUF 
          END    HPRUSM 
          IDENT  HPUTF
*CALL MACDEF
*CALL OVLNAME 
   LCCM HPUTF1,HPUTF2,PRIBUF
          END    HPUTF
          IDENT  HVLLCB 
*CALL MACDEF
*CALL OVLNAME 
   LCCM HVLLCB1,HVLLCB2,PRIBUF
          END    HVLLCB 
          IDENT  KADD 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KADD1,KADD2,PRIBUF
          END    KADD 
          IDENT  KUPVTAB
          END 
          IDENT  KDEL 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KDEL1,KDEL2,PRIBUF
          END    KDEL 
          IDENT  KUPVTAB
          END 
          IDENT  KPTYPIN
*CALL MACDEF
*CALL OVLNAME 
   LCCM KPTYPIN1,KPTYPIN2,PRIBUF
          END    KPTYPIN
          IDENT  KOVDIS 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KOVDIS1,KOVDIS2,PRIBUF
          END    KOVDIS 
          IDENT  KDISLN 
          END 
          IDENT  KRIGHT 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KRIGHT1,KRIGHT2,PRIBUF
          END    KRIGHT 
          IDENT  KRIGHTD
*CALL MACDEF
*CALL OVLNAME 
   LCCM KRIGHTD1,KRIGHTD2,PRIBUF
          END    KRIGHTD
          IDENT  MSETPTR
*CALL MACDEF
*CALL OVLNAME 
   LCCM MSETPTR1,MSETPTR2,PRIBUF
          END    MSETPTR
          IDENT  NGIGO
*CALL MACDEF
*CALL OVLNAME 
   LCCM NGIGO1,NGIGO2,PRIBUF
          END    NGIGO
          IDENT  XCDD 
          END 
          IDENT  KHOPMSG
          END 
          IDENT  NLOPIP 
*CALL MACDEF
*CALL OVLNAME 
   LCCM NLOPIP1,NLOPIP2,PRIBUF
          END    NLOPIP 
          IDENT  NPESTOF
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPESTOF1,NPESTOF2,PRIBUF
          END    NPESTOF
          IDENT  BLDKWL 
          END 
          IDENT  NPHECP 
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPHECP1,NPHECP2,PRIBUF
          END    NPHECP 
          IDENT  XCDD 
          END 
          IDENT  NPHOPMS
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPHOPMS1,NPHOPMS2,PRIBUF
          END    NPHOPMS
          IDENT  KHOPMSG
          END 
           IDENT  NPICMD
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPICMD1,NPICMD2,PRIBUF
           END    NPICMD
          IDENT  HSFINIT
          END 
          IDENT  NPININD
*CALL MACDEF
*CALL OVLNAME 
  LCCM NPININD1,NPININD2,PRIBUF 
          END    NPININD
          IDENT  GETFIL 
          END 
          IDENT  NPISM
*CALL MACDEF
*CALL OVLNAME 
  LCCM NPISM1,NPISM2,PRIBUF 
          END    NPISM
          IDENT  NPNPIDD
*CALL MACDEF
*CALL OVLNAME 
  LCCM NPNPIDD1,NPNPIDD2,PRIBUF 
          END    NPNPIDD
          IDENT  XDUMPFL
          END 
          IDENT  XCOD 
          END 
          IDENT  NPPCT
*CALL MACDEF
*CALL OVLNAME 
  LCCM NPPCT1,NPPCT2,PRIBUF 
          END    NPPCT
          IDENT  NPPSM
*CALL MACDEF
*CALL OVLNAME 
  LCCM NPPSM1,NPPSM2,PRIBUF 
          END    NPPSM
          IDENT  NPREGCP
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPREGCP1,NPREGCP2,PRIBUF
          END    NPREGCP
          IDENT RELCONN 
          END 
          IDENT  NPREGLL
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPREGLL1,NPREGLL2,PRIBUF
          END    NPREGLL
          IDENT RELCONN 
          END 
          IDENT  XCDD 
          END 
          IDENT  NPREGHH
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPREGHH1,NPREGHH2,PRIBUF
          END    NPREGHH
          IDENT  NPREGST
*CALL MACDEF
*CALL OVLNAME 
   LCCM NPREGST1,NPREGST2,PRIBUF
          END    NPREGST
          IDENT  NRPWL
*CALL MACDEF
*CALL OVLNAME 
  LCCM NRPWL1,NRPWL2,PRIBUF 
          END    NRPWL
          IDENT  NTOTBTS
*CALL MACDEF
*CALL OVLNAME 
   LCCM NTOTBTS1,NTOTBTS2,PRIBUF
          END    NTOTBTS
          IDENT  XABTAPP
*CALL MACDEF
*CALL OVLNAME 
   LCCM XABTAPP1,XABTAPP2,PRIBUF
          END    XABTAPP
          IDENT  XCHKABC
*CALL MACDEF
*CALL OVLNAME 
   LCCM XCHKABC1,XCHKABC2,PRIBUF
          END    XCHKABC
          IDENT XCHKCET 
*CALL MACDEF
*CALL OVLNAME 
          LCCM XCHKCET1,XCHKCET2,PRIBUF 
          END    XCHKCET
          IDENT  BLDKWL 
          END 
          IDENT  XCHKPCR
*CALL MACDEF
*CALL OVLNAME 
   LCCM XCHKPCR1,XCHKPCR2,PRIBUF
          END    XCHKPCR
          IDENT  MREDUCE
          END 
          IDENT  XENDRPV
*CALL MACDEF
*CALL OVLNAME 
   LCCM XENDRPV1,XENDRPV2,PRIBUF
          END    XENDRPV
          IDENT  XTERMST
          END 
          IDENT  XCDD 
          END 
          IDENT  XCLOST 
          END 
          IDENT  XDPIP
          END 
          IDENT  OCTCON 
          END 
          IDENT  XNBRLC 
*CALL MACDEF
*CALL OVLNAME 
   LCCM XNBRLC1,XNBRLC2,PRIBUF
          END    XNBRLC 
          IDENT  XSAPP
*CALL MACDEF
*CALL OVLNAME 
   LCCM XSAPP1,XSAPP2,PRIBUF
          END    XSAPP
          IDENT  XSAPPRC
          END 
          IDENT INIP
*CALL MACDEF
*CALL OVLNAME 
   LCCM INIP1,INIP2,PRIBUF
          END    INIP 
          IDENT  IKDIS
          END 
          IDENT  CSTATUS
          END 
          IDENT  ISCP 
          END 
          IDENT  ITABS
          END 
          IDENT  NXDCB
          END 
          IDENT  KDSTIN 
*CALL MACDEF
*CALL OVLNAME 
   LCCM KDSTIN1,KDSTIN2,PRIBUF
          END    KDSTIN 
          IDENT  KDISLN 
          END 
          IDENT  KUPVTAB
          END 
          IDENT  MGBGCLT
*CALL     MACDEF
*CALL OVLNAME 
   LCCM MGBGCLT1,MGBGCLT2,PRIBUF
          END    MGBGCLT
          IDENT  MACQ 
          END 
          IDENT  MAJPTR 
          END 
          IDENT  MPCBQCB
          END 
          IDENT  MCHKPTR
          END 
          IDENT  MDRPTR 
          END 
          IDENT  STRTCON
*CALL MACDEF
*CALL OVLNAME 
  LCCM STRTCON1,STRTCON2,PRIBUF 
          END    STRTCON
          IDENT  BLDNCNB
          END 
          IDENT  BLDACNB
          END 
          IDENT  HCRITER
          END 
          IDENT  HCRRAPR
          END