//UPYFLW   JOB (DIVPSTORPUPY,C811),'  DARYL       ',TIME=(1,15),
//             MSGLEVEL=(1,1),NOTIFY=UPY,PRTY=2
/*ROUTE  PRINT HOLD
/*JOBPARM LINES=90
/*CNTL  CWT.TRY,EXC
//*----------------------------------------------------------------*
//*   THIS PROGRAM WILL FIND MEAN FLOW FOR MONTH OF MEAN FLOWS     *
//*           AND WRITE OUTPUT TO A FILE NAMED                     *
//*                         MFLOWS                                 *
//*                    IN YOUR CATALOG                             *
//*    --------------------------------------------------------    *
//*  YOU NEED TO CHANGE THE S CARD IN LINE 22 FROM                 *
//*      S30 06308400                                              *
//*  TO THE FLOW GAGE YOU WOULD LIKE TO RETRIEVE                   *
//*----------------------------------------------------------------*
//FLOWSTEP  EXEC  FLOW
//DISTR.INPUT DD *
#23456789.123456789.123456789.123456789.123456789.123456789.123456789.
?RETRIEVE
P60   3
DY
S30 06308400
?WQSPGM
//WQSSTEP EXEC WQDIST
//DIST.CARDFD DD *
PGM=MEAN,NORET,
P=60,SF=M,DG=M,BASE=1001,
SFILE01,DSN=UPYDIVP.MFLOWS,
REUSE,DELUSUAL=' ',
ITEM=AGENCY,
ITEM=STATION,
ITEM=DATE,
ITEM=EDATE,
ITEM=VALUE01(M),
ENDFILE,
/*
//RET.FCF DD  DSN=&FCF,DISP=(OLD,PASS)
//
