!ECHO ON
!.  SET F:SCH DP/SCHEMA      BEFORE RUNNING THIS PROCESS
!DONT ECHO
!SET F:SSCH DP/EVAL-SUB
!SET M:LO LP
!EDMSFDP EVAL_ID14.:CONVERT
!SET F:1 DP/EVAL-SUB;IN
!SET F:2 DP/EVAL_WF1;OUT;SAVE
!EVAL_1.:CONVERT
!SET F:SORTIN DP/EVAL_WF1
!SET F:SORTOUT DP/EVAL_WF1
!SORT
!SET F:1/EVAL_WF1;IN;SAVE
!SET F:3/ERSP_WF1;OUT;SAVE
!SET F:4/ERSP_WF2;OUT;SAVE
!SET F:5/ERSP_WF3;OUT;SAVE
!SET F:6/ERSP_WF4;OUT;SAVE
!SET F:13/ERSP_WF1;IN;SAVE
!SET F:14/ERSP_WF2;INOUT;SAVE
!SET F:23/ERSP_WF1;INOUT;SAVE
!SET F:24/ERSP_WF2;INOUT;SAVE
!SET F:33/ERSP_WF1;IN;SAVE
!SET F:34/ERSP_WF2;INOUT;SAVE
!SET F:43/ERSP_WF1;INOUT;SAVE
!SET F:44/ERSP_WF2;INOUT;SAVE
!SET F:53/ERSP_WF1;IN;SAVE
!SET F:54/ERSP_WF2;INOUT;SAVE
!SET F:63/ERSP_WF1;INOUT;SAVE
!... ENTER SCHEMA NAME FOLLOWED BY    RETURN WHEN PROMPTED
!ERSP_1.:CONVERT
!. REORG SPECIFICATION COMPLETE
!SET F:1/ERSP_WF1;INOUT;SAVE
!SET F:2/ERSP_WF5;OUT;SAVE
!SET F:6 LO
!SET F:7/ERSP_WF2;INOUT;SAVE
!SET F:6 LO
!ERSP_2.:CONVERT
!.   TARGET DDL GENERATION COMPLETE
!COPY ERSP_WF5 OVER ERSP_WF5 (LN(1,1))
!PRINT
!R
