!JOB
!LIMIT (TIME,6),(CORE,32),(ACCOUNT),(9T,1),(MOUNT,(S,DBPACK))
!.     !BATCH ERSP_BA2.:CONVERT ;
!.     $ TSNAME=target-schema-name,;
!.     $ 'REEL'='reel-no',;
!.     $ DBPACK=data-base-pack-name,;
!.     $ DB1=area-name-1,;
!.     $  ... ,;
!.     $ DB10=area-name-10
!.
!.     INPUT MUST BE AN EDMS SCHEMA CREATED FROM ERSP_BA1
!PCL
DELETE ESCH_WF1,ESCH_WF2,ESCH_WF3
END
!SET F:SCHE DP/TSNAME
!SET F:DB01 DP/TSNAME
!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 ERSP_IDDL(LN)
DELETE ESCH_WF1,ESCH_WF2,ESCH_WF3
END
!MESSSAGE PLEASE MOUNT TAPE #REEL WITH RING.....
!PCL
LIST ERSP_TCSGP,ERSP_RSP,ERSP_IDDL
REW LT#REEL
COPY DP/ERSP_RSP TO LT#REEL/ERSP_RSP(NLN)
COPY DP/ERSP_IDDL TO LT#REEL/ERSP_IDDL
COPY DP#DBPACK/DB1  TO LT#REEL/EDMS_AREA1
COPY DP#DBPACK/DB2  TO LT#REEL/EDMS_AREA2
COPY DP#DBPACK/DB3  TO LT#REEL/EDMS_AREA3
COPY DP#DBPACK/DB4  TO LT#REEL/EDMS_AREA4
COPY DP#DBPACK/DB5  TO LT#REEL/EDMS_AREA5
COPY DP#DBPACK/DB6  TO LT#REEL/EDMS_AREA6
COPY DP#DBPACK/DB7  TO LT#REEL/EDMS_AREA7
COPY DP#DBPACK/DB8  TO LT#REEL/EDMS_AREA8
COPY DP#DBPACK/DB9  TO LT#REEL/EDMS_AREA9
COPY DP#DBPACK/DB10 TO LT#REEL/EDMS_AREA10
REW LT#REEL
LIST LT#REEL (A)
REM LT#REEL
END
