//DEV28SRU JOB SIUDVZZM,'JEANETTE PARKER',
//     CLASS=E,MSGCLASS=6,NOTIFY=DEV28SR
/*JOBPARM B=Y,ROOM=D90E
//*
//DELETE  EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
  DELETE DEV@@EC.MSTSKDSL.SORTED
/*
//UNLOAD   EXEC PGM=IKJEFT01,REGION=5M
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=C,HOLD=YES
//SYSTSIN  DD *
 DSN SYSTEM(DB2P)
 RUN  PROGRAM(DSNTIAUL) PARMS('SQL') PLAN(DSNTIAUL) -
      LIB('DB2P.LOADLIB')
 END
/*
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DSN=&&UNLOAD,DISP=(,PASS),
//         UNIT=SYSDW,
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920,BUFNO=30),
//         SPACE=(CYL,(100,10),RLSE)
//SYSIN    DD *   - TABLE NAME TO BE UNLOADED
  SELECT ITEM_CODE, WK_END_DATE, STORE_NUMBER,
         SUN_SALE_UNT, SUN_SALE_VAL,
         MON_SALE_UNT, MON_SALE_VAL,
         TUE_SALE_UNT, TUE_SALE_VAL,
         WED_SALE_UNT, WED_SALE_VAL,
         THU_SALE_UNT, THU_SALE_VAL,
         FRI_SALE_UNT, FRI_SALE_VAL,
         SAT_SALE_UNT, SAT_SALE_VAL,
         SKU_SUN_TH_STK_UNT,
         SKU_MON_TH_STK_UNT,
         SKU_TUE_TH_STK_UNT,
         SKU_WED_TH_STK_UNT,
         SKU_THU_TH_STK_UNT,
         SKU_FRI_TH_STK_UNT,
         SKU_SAT_TH_STK_UNT
    FROM OPCSUB.MSVSKDSL WHERE STORE_NUMBER IN (3,6,12, 1200,1700);
//*
//SORT     EXEC PGM=SORT,
//         PARM='MSG=AP,LIST'
//SORTLIB  DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&UNLOAD,DISP=SHR,
//         DCB=BUFNO=30
//SORTOUT  DD DSN=DEV@@EC.MSTSKDSL.SORTED,DISP=(,CATLG,DELETE),
//         UNIT=SYSDU,
//         SPACE=(CYL,(100,10),RLSE),
//         DCB=RECFM=FB,LRECL=80,BLKSIZE=27920,BUFNO=30
//SYSUDUMP DD SYSOUT=C,HOLD=YES
//$ORTPARM DD DSN=BB.OS.SYNCSORT.PARMLIB(VSCORET),DISP=SHR
//         DD DSN=BB.OS.SYNCSORT.PARMLIB(BMSG),DISP=SHR
//SYSIN    DD *
 SORT FIELDS=(1,4,BI,A,5,4,BI,A),DYNALLOC=(SYSDW,15)
/*
//*