!JOB APRH00SG,TCPV,6.     COMPILE $ WITH LIST FOR H00 AP
!LIMIT (CO,32),(ACCOUNT),(ORDER),(TIME,15)
!PAGE
!*
!*
!*
!*    COMPILE ROUTINES WITH COMPRESSED LISTING
!*
!*    J:CL$.APRH00JC
!*
!*
!PCL
DELETE DC/BO:$.APRH00BO
END
!ASSIGN M:LL,(FILE,LL:FILE),(OUT),(SAVE)
!BANNER TELEFILE,AP H00,$.
!ASSIGN M:CI,(FILE,CI:$,APRH00CI),(IN),(SAVE)
!ASSIGN M:BO,(FILE,BO:$,APRH00BO),(OUT),(SAVE)
!ASSIGN M:LL,(DEVICE,LO),(OUT)
!ASSIGN M:LO,(FILE,LO:FILE),(OUT),(SAVE)
!METASYM CI,BO,LO,DC,AC(APRH00SL)
!ASSIGN M:LO,(DEVICE,LO),(OUT)
!PCL
DELETE DC/CL:$.APRH00CL
COPY DC/LL:FILE,LO:FILE OVER DC/CL:$.APRH00CL(C)
DELETE DC/LO:FILE,LL:FILE
END
!EOD
