!JOB
!LIMIT (TIME,6),(CORE,48),(ACCOUNT)
!.  !BATCH ESCH_BA.:CONVERT,;
!.  $ SNAME=schema-name,;
!.  $ DDLOUT=ddl-file
!.     INPUT MUST BE AN EDMS SCHEMA
!.     THE OUTPUT OF THIS CONVERTER IS THREE WORK FILES
!.          WHICH ARE CONCATENATED AT THE END BY PCL.
!PCL
DELETE ESCH_WF1,ESCH_WF2,ESCH_WF3
END
!SET F:SCHE DP/SNAME
!SET F:DB01 DP/SNAME
!SET F:SSCH DP/ESCH-SUB.:CONVERT
!SET F:DDL-OUT DP/ESCH_WF1;SAVE;KEYED
!SET F:DMCL-OUT DP/ESCH_WF2;SAVE;KEYED
!SET F:DMCL-IN DP/ESCH_WF2;SAVE;INOUT
!SET F:LOCK-OUT DP/ESCH_WF3;SAVE;KEYED
!SET F:LOCK-IN DP/ESCH_WF3;SAVE;INOUT
!SET F:LIST-OUT LP
!RUN (LMN,ESCH,:CONVERT)
!PCL
COPY ESCH_WF1,ESCH_WF2,ESCH_WF3 OVER DDLOUT(LN)
DELETE ESCH_WF1,ESCH_WF2,ESCH_WF3
END
