!JOB
!LIMIT (TIME,10),(CORE,40),(ACCOUNT),(MOUNT,(S,SPACK))
!.   !BATCH ERSP_BA1.:CONVERT ;
!.   $ SPACK=source-schema-pack-name,;
!.   $ SNAME=source-schema-name,;
!.   $ TNAME=target-schema-name
!PCL
DELETE EVAL-SUB,EVAL-COPY
END
!.  CREATE A SUBSCHEMA (COMPONENTS ARE ALL)
!SET F:SCHE SPACK/SNAME
!SET F:SSCH DP/EVAL-SUB
!SET M:LO LP
!EDMSFDP
 SUBSCHEMA NAME IS EVAL-SUB    OF SCHEMA SNAME
 ;COBOL COPY IS EVAL-COPY
 ;COMPONENTS ARE ALL .
 END.
!SET F:1 DP/EVAL-SUB;IN
!SET F:2 DP/EVAL_WF1;OUT;SAVE
!RUN (LMN,EVAL_1,:CONVERT)
!SET F:SORTIN DP/EVAL_WF1
!SET F:SORTOUT DP/EVAL_WF1
!SORT
.REC(1200)
.KEY(5,4,BN)
.LIMIT (DCBS,6)
!SET F:1 DP/EVAL_WF1;IN;SAVE
!SET F:2 DP/ERSP_SCSGP;OUT;SAVE
!SET F:3 DP/ERSP_TCSGP;OUT;SAVE
!.
!SET F:4 DP/ERSP_RSP;OUT;SAVE
!.     ERSP_VKSC AND ERSP_VKTG ARE NOT USED.
!SET F:5 NO
!SET F:6 NO
!.
!SET F:13 DP/ERSP_TCSGP;IN;SAVE
!SET F:14 DP/ERSP_RSP;INOUT;SAVE
!.
!SET F:23 DP/ERSP_TCSGP;INOUT;SAVE
!SET F:24 DP/ERSP_RSP;INOUT;SAVE
!.
!SET F:33 DP/ERSP_TCSGP;IN;SAVE
!SET F:34 DP/ERSP_RSP;INOUT;SAVE
!.
!SET F:43 DP/ERSP_TCSGP;INOUT;SAVE
!SET F:44 DP/ERSP_RSP;INOUT;SAVE
!.
!SET F:53 DP/ERSP_TCSGP;IN;SAVE
!SET F:54 DP/ERSP_RSP;INOUT;SAVE
!.
!SET F:63 DP/ERSP_TCSGP;INOUT;SAVE
!RUN (LMN,ERSP_1,:CONVERT)
!DATA
TNAME
N
N
!EOD
!. REORG SPECIFICATION COMPLETE
!SET F:1 DP/ERSP_TCSGP;INOUT;SAVE
!SET F:2 DP/ERSP_EDDL;OUT;SAVE
!SET F:6 LO
!SET F:7 DP/ERSP_RSP;INOUT;SAVE
!SET F:6 LO
!RUN (LMN,ERSP_2,:CONVERT)
!.   TARGET DDL GENERATION COMPLETE
!PCL
COPY ERSP_EDDL OVER ERSP_EDDL(LN)
LIST ERSP_TCSGP,ERSP_RSP,ERSP_EDDL
DELETE TNAME
END
!SET M:LO LP
!SET M:SI DP/ERSP_EDDL
!EDMSFDP
