!JOB
!LIMIT (TIME,5),(CORE,32),(ACCOUNT)
!.     !BATCH QSP_BA SUBSCHEMA=XXXXXX,COPY=YYYYYY
!.  QSP GENERATES A QUERY SUBSCHEMA FILE FOR IDDP
!SET F:2 DP/COPY;IN
!SET F:7 DP/SUBSCHEMA;IN
!.
!.      DCB ASSIGNMENTS
!.     F:1    QUERY-SCHEMA OUTPUT FILE
!.     F:2    EDMS COBOL COPY FILE INPUT FILE
!.     F:3    SCRATCH FILE
!.     F:7    EDMS SUBSCHEMA INPUT FILE
!.     F:SCHE QSP SUBSCHEMA NEEDED FOR EXECUTION
!.     F:DB01 QSP EDMS AREA NEEDED FOR EXECUTION
!SET F:1 DP/QSP_WF1;OUT;SAVE
!SET F:3 DP/QSP_WF2;OUTIN;REL
!DELETE DP/QSP-AREA
!SET M:SI NO
!SET F:SCHE DP/QSP-SCHE.X
!SET F:SSCH DP/QSP-SUB.X
!SET F:DB01 DP/QSP-AREA
!EDMSINIT
!RUN (LMN,QSP,X)
!PCL
DELETE QSP-AREA
END
