!JOB APRH00SG,TCPV,5.   LOAD  AP  ASSEMBLER.
!LIMIT (CO,40),(TIME,15),(ORDER),(ACCOUNT)
!PAGE
!*
!*
!*
!*    LOAD AP ASSEMBLER
!*
!*    J:LOAD:AP
!*
!*
!*
!PCL
  DELETE AP.APRH00SG
  DELETE AP.APRH00SP
  END
!LOAD  (EF,;
!      (BO:APROOT,APRH00BO),;
!      (BO:APDGCOM,APRH00BO),;
!      (BO:APDGINT,APRH00BO),;
!      (BO:APCCI,APRH00BO),;
!      (BO:APNCD,APRH00BO),;
!      (BO:APCD,APRH00BO),;
!      (BO:APINIT,APRH00BO),;
!      (BO:APDG,APRH00BO),;
!      (BO:APPART,APRH00BO),;
!      (BO:APEND,APRH00BO),;
!      (BO:APCNC,APRH00BO),;
!      (M:BODCB,:SYS),;
!      (M:CIDCB,:SYS),;
!      (M:CODCB,:SYS),;
!      (M:LODCB,:SYS),;
!      (M:SIDCB,:SYS),;
!      (M:SODCB,:SYS),;
!      (U:JIT:DEF,:SYS)),;
!      (LMN,AP),;
!      (PERM),(MAP),(LDEF),(NOSYSLIB),(SL,F)
!TREE  BO:APROOT-BO:APDGCOM-BO:APDGINT-U:JIT:DEF-;
!      M:BODCB-M:CIDCB-M:CODCB-M:LODCB-M:SIDCB-M:SODCB-;
!     (BO:APCCI,;
!      BO:APNCD-BO:APCD,;
!      BO:APINIT,;
!      BO:APDG-BO:APPART,;
!      BO:APEND,;
!      BO:APCNC)
!PCL
  COPY AP.APRH00SG    OVER    AP.APRH00SP(RD(ALL))
  DELETE AP.APRH00SG
  END
!EOD
