!JOB
!LIMIT (TIME,10),(CORE,32)
!PCL
COPY ESCH_DC1  TO LP
DELETE ESCH-SCHE,ESCH-SUB,ESCH-COPY
END
!.       BUILD EDMS SCHEMA AND SUBSCHEMA TO ACCESS
!.            AN EDMS SCHEMA AS A DATA BASE.
!.       ESCH-COPY NEEDED FOR COBOL COMPILE OF ESCH_SI1.
!.       ESCH-SUB  NEEDED FOR EXECUTION OF ESCH.
!SET F:SCHE DP/ESCH-SCHE
!SET F:SSCH DP/ESCH-SUB
!SET M:SI DP/ESCH_SI7
!EDMSFDP
!TITLE * * * * * C O M P I L E * * * * * (SCHEMA CONVERTER)
!SET M:SI DP/ESCH_SI1
!SET M:BO DP/ESCH_OU1
!COBOL XREF,BO,MAPS
!TITLE * * * * * A S S E M B L E * * * * * (FIXUP)
!SET M:CI DP/ESCH_CI2
!SET M:BO DP/ESCH_OU2
!METASYM CI,BO,LO,DC
!TITLE * * * * * A S S E M B L E * * * * * (CF011)
!SET M:CI DP/ESCH_CI3
!SET M:BO DP/ESCH_OU3
!METASYM CI,BO,LO,DC
!TITLE * * * * * A S S E M B L E * * * * * (CD094)
!SET M:CI DP/ESCH_CI4
!SET M:BO DP/ESCH_OU4
!METASYM CI,BO,LO,DC
!BATCH ESCH_LX
!.       CREATE A SCHEMA TO USE FOR TEST EXECUTION
!SET M:SI SI
!PCL
DELETE ESCH-ID2
END
!TITLE * * * * * T R A N S L A T E   D D L * * * * * * * * * * *
!.       CREATE A TEST SCHEMA NAME ESCH-ID2   USING ESCH-ID1  FOR DDL
!SET M:SI DP/ESCH-ID1
!SET F:SCHE DP/ESCH-ID2
!EDMSFDP
!.       TEST THE CONVERSION OF AN EDMS SCHEMA TO I-D-S/II DDL,DMCL,LOCKS
!BATCH ESCH_BA SNAME=ESCH-ID2
