!ECHO ON
!.  SET F:2 AND F:7 BEFORE XEQ
!.     F:2    EDMS COBOL COPY FILE;IN
!.     F:7    EDMS SUBSCHEMA;IN
!DONT ECHO
!.  THESE DCBS ARE ALWAYS SET AS FOLLOWS:
!.     F:1    QUERY-SCHEMA OUTPUT FILE
!.     F:3    SCRATCH FILE
!.     F:SSCH QSP WORK SUBSCHEMA
!.     F:DB01 QSP WORK AREA
!DELETE DP/QSP-AREA
!SET M:SI NO
!SET F:108 LP
!SET F:SCHE DP/QSP-SCHE.X
!SET F:SSCH DP/QSP-SUB.X
!SET F:DB01 DP/QSP-AREA
!EDMSINIT
!QSP.X
!DELETE DP/QSP-AREA
!PRINT
!R
